propertiesform.pas

學習資料網上下載

unit PropertiesForm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, unitPEResourceExplorerProperties, StdCtrls, Buttons, ExtCtrls;

type
  TfmProperties = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Panel1: TPanel;
    btnOK: TBitBtn;
    btnCancel: TBitBtn;
    btnApply: TBitBtn;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    cbShowCoffSections: TCheckBox;
    procedure btnApplyClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    procedure ApplyChanges;
  public
    Properties : TPEResourceExplorerProperties;
    { Public declarations }
  end;

var
  fmProperties: TfmProperties;

implementation

{$R *.DFM}

procedure TfmProperties.ApplyChanges;
begin
  properties.BeginUpdate;
  try
    Properties.ShowCOFFSections := cbShowCOFFSections.Checked;
  finally
    Properties.EndUpdate
  end
end;

procedure TfmProperties.btnApplyClick(Sender: TObject);
begin
  ApplyChanges
end;

procedure TfmProperties.FormShow(Sender: TObject);
begin
  cbShowCOFFSections.Checked := Properties.ShowCOFFSections
end;

procedure TfmProperties.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  if ModalResult = mrOK then
    ApplyChanges
end;

end.