OneSQL/unParamForm.pas at master · differex80/OneSQL · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
unit unParamForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxGraphics, cxControls, cxLookAndFeels, cxLookAndFeelPainters,
  cxStyles, cxCustomData, cxFilter, cxData,
  cxDataStorage, cxEdit, cxGridCustomTableView, cxGridTableView,
  cxGridCustomView, cxClasses, cxGridLevel, cxGrid, Menus, StdCtrls, cxButtons,
  ExtCtrls, cxCheckBox, cxDropDownEdit, cxNavigator;

type
  TparamForm = class(TForm)
    cxParamsLevel1: TcxGridLevel;
    cxParams: TcxGrid;
    tvParams: TcxGridTableView;
    tcActive: TcxGridColumn;
    tcParam: TcxGridColumn;
    tcType: TcxGridColumn;
    tcValue: TcxGridColumn;
    Panel1: TPanel;
    buOK: TcxButton;
    buCancel: TcxButton;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  paramForm: TparamForm;

implementation

uses unDm;

{$R *.dfm}

procedure TparamForm.FormShow(Sender: TObject);
begin
  cxParams.SetFocus;
end;

end.