PageRenderTime 20ms CodeModel.GetById 12ms app.highlight 2ms RepoModel.GetById 3ms app.codeStats 0ms

/Gedemin/Storage/st_dlgeditvalue_unit.pas

http://gedemin.googlecode.com/
Pascal | 54 lines | 42 code | 11 blank | 1 comment | 1 complexity | 8c7e8e531b04780fea880f5648ddee3d MD5 | raw file
 1
 2unit st_dlgeditvalue_unit;
 3
 4interface
 5
 6uses
 7  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 8  StdCtrls, ExtCtrls, gd_createable_form, ActnList, Buttons;
 9
10type
11  Tst_dlgeditvalue = class(TCreateableForm)      
12    Label1: TLabel;
13    edName: TEdit;
14    Label2: TLabel;
15    edValue: TEdit;
16    ActionList1: TActionList;
17    actOk: TAction;
18    rg: TRadioGroup;
19    btnHelp: TButton;
20    btnOk: TButton;
21    btnCancel: TButton;
22    actHelp: TAction;
23    lblID: TLabel;
24    edID: TEdit;
25    procedure FormClose(Sender: TObject; var Action: TCloseAction);
26    procedure actOkUpdate(Sender: TObject);
27    procedure actHelpExecute(Sender: TObject);
28  end;
29
30var
31  st_dlgeditvalue: Tst_dlgeditvalue;
32
33implementation
34
35{$R *.DFM}
36
37procedure Tst_dlgeditvalue.FormClose(Sender: TObject;
38  var Action: TCloseAction);
39begin
40  if ModalResult = mrNone then
41    ModalResult := mrCancel;
42end;
43
44procedure Tst_dlgeditvalue.actOkUpdate(Sender: TObject);
45begin
46  actOk.Enabled := Trim(edName.Text) > '';
47end;
48
49procedure Tst_dlgeditvalue.actHelpExecute(Sender: TObject);
50begin
51  Application.HelpContext(HelpContext);
52end;
53
54end.