setlinew.pas

来自「很不错的delphi 画失量图的delphi源代码」· PAS 代码 · 共 48 行

unit SetLineW;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Spin, Buttons;

type
  TSetLineF = class(TForm)
    GroupBox1: TGroupBox;
    SpinEdit1: TSpinEdit;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SetLineF: TSetLineF;
  Function  ShowSetLineWidthForm(var lw:Integer):Boolean;

implementation

{$R *.dfm}

Function  ShowSetLineWidthForm(var lw:Integer):Boolean;
begin
  With TSetLineF.Create(Nil) do begin
    try
      SpinEdit1.Value:=lw;
      if ShowModal=mrOk then begin
        lw:=SpinEdit1.Value;
        Result:=True;
      end else begin
        Result:=False;
      end;
    finally
      Free;
    end;
  end;
end;

end.