sizedlg.pas

来自「delphi 利用sgp格式文件读写」· PAS 代码 · 共 42 行

unit SizeDlg;

interface

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

type
  TSizeDialog = class(TForm)
    Horz: TRadioGroup;
    Vert: TRadioGroup;
    btnOK: TButton;
    btnCancel: TButton;
  public
    class function Execute(out HorzSize: TResizeOption;
      out VertSize: TResizeOption): Boolean;
  end;

implementation

{$R *.dfm}

class function TSizeDialog.Execute(out HorzSize: TResizeOption;
  out VertSize: TResizeOption): Boolean;
begin
  Result := False;
  with Create(Application) do
    try
      if ShowModal = mrOK then
      begin
        HorzSize := TResizeOption(Horz.ItemIndex);
        VertSize := TResizeOption(Vert.ItemIndex);
        Result := True;
      end;
    finally
      Free;
    end;
end;

end.