gotooffsetfrm.pas

来自「MiniHex 1.1 源程序说明 “MiniHex11SrcSourc」· PAS 代码 · 共 76 行

unit GotoOffsetFrm;

interface

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

type
  TGotoOffsetData = record
    Offset: Integer;
    OffUnit: Integer;
    Relative: Integer;
  end;

  TGotoOffsetForm = class(TForm)
    GroupBox1: TGroupBox;
    OffsetEdit: TEdit;
    UnitComboBox: TComboBox;
    RelativeRadioGroup: TRadioGroup;
    OkButton: TButton;
    CancelButton: TButton;
    procedure OkButtonClick(Sender: TObject);
    procedure CancelButtonClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure GetData(var Value: TGotoOffsetData);

  end;

var
  GotoOffsetForm: TGotoOffsetForm;

function ShowGotoOffsetForm(var Value: TGotoOffsetData): Boolean;

implementation

{$R *.DFM}

function ShowGotoOffsetForm(var Value: TGotoOffsetData): Boolean;
var
  Frm: TGotoOffsetForm;
begin
  Frm := TGotoOffsetForm.Create(Application);
  Result := (Frm.ShowModal = mrOk);
  if Result then Frm.GetData(Value);
  Frm.Free;
end;

procedure TGotoOffsetForm.GetData(var Value: TGotoOffsetData);
begin
  Value.Offset := StrToIntDef(OffsetEdit.Text, 0);
  Value.OffUnit := UnitComboBox.ItemIndex;
  Value.Relative := RelativeRadioGroup.ItemIndex;
end;

procedure TGotoOffsetForm.FormCreate(Sender: TObject);
begin
  UnitComboBox.ItemIndex := 0;
end;

procedure TGotoOffsetForm.OkButtonClick(Sender: TObject);
begin
  ModalResult := mrOk;
end;

procedure TGotoOffsetForm.CancelButtonClick(Sender: TObject);
begin
  ModalResult := mrCancel;
end;

end.