PageRenderTime 60ms CodeModel.GetById 58ms app.highlight 1ms RepoModel.GetById 1ms app.codeStats 0ms

/Gedemin/Storage/gdc_st_frmUserStorage_unit.pas

http://gedemin.googlecode.com/
Pascal | 48 lines | 36 code | 11 blank | 1 comment | 1 complexity | f93ba6fe7f07ab7f8b13d479a029df58 MD5 | raw file
 1unit gdc_st_frmUserStorage_unit;
 2
 3interface
 4
 5uses
 6  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 7  gdc_frmSGR_unit, gd_MacrosMenu, Db, Menus, ActnList, Grids, DBGrids,
 8  gsDBGrid, gsIBGrid, StdCtrls, ExtCtrls, TB2Item, TB2Dock, TB2Toolbar,
 9  ComCtrls, IBCustomDataSet, gdcBase, gdcStorage;
10
11type
12  Tgdc_st_frmUserStorage = class(Tgdc_frmSGR)
13    gdcUserStorage: TgdcUserStorage;
14    procedure FormCreate(Sender: TObject);
15  public
16    class function CreateAndAssign(AnOwner: TComponent): TForm; override;
17  end;
18
19var
20  gdc_st_frmUserStorage: Tgdc_st_frmUserStorage;
21
22implementation
23uses
24  gd_ClassList;
25
26{$R *.DFM}
27
28class function Tgdc_st_frmUserStorage.CreateAndAssign(
29  AnOwner: TComponent): TForm;
30begin
31  if not FormAssigned(gdc_st_frmUserStorage) then
32    gdc_st_frmUserStorage := Tgdc_st_frmUserStorage.Create(AnOwner);
33  Result := gdc_st_frmUserStorage;
34end;
35
36procedure Tgdc_st_frmUserStorage.FormCreate(Sender: TObject);
37begin
38  gdcObject := gdcUserStorage;
39  inherited;
40end;
41
42initialization
43  RegisterFrmClass(Tgdc_st_frmUserStorage);
44
45finalization
46  UnRegisterFrmClass(Tgdc_st_frmUserStorage);
47
48end.