PageRenderTime 13ms CodeModel.GetById 9ms app.highlight 2ms RepoModel.GetById 1ms app.codeStats 0ms

/components/customform/demo/regappforms.pp

http://github.com/graemeg/lazarus
Pascal | 26 lines | 15 code | 10 blank | 1 comment | 0 complexity | ba5e7e5bd0417a79a2b6dfd2aa2ef41d MD5 | raw file
 1unit regappforms;
 2
 3{$mode objfpc}{$H+}
 4
 5interface
 6
 7uses
 8  Classes, SysUtils, appform, dbappform;
 9
10procedure RegisterAppForms;
11
12implementation
13
14uses custforms;
15
16procedure RegisterAppForms;
17
18begin
19  RegisterCustomForm(TAppForm,'AppForms');
20  RegisterCustomForm(TDBAppForm,'AppForms');
21end;
22
23initialization
24  RegisterAppForms;
25end.
26