source: trunk/Forms/UFormMain.lfm

Last change on this file was 28, checked in by chronos, 20 months ago
  • Modified: Do not create all application forms at initialization phase but dynamically.
File size: 2.2 KB
Line 
1object FormMain: TFormMain
2 Left = 403
3 Height = 669
4 Top = 365
5 Width = 1088
6 Caption = 'MyData'
7 ClientHeight = 635
8 ClientWidth = 1088
9 DesignTimePPI = 144
10 Menu = MainMenu1
11 OnActivate = FormActivate
12 OnClose = FormClose
13 OnCreate = FormCreate
14 OnDestroy = FormDestroy
15 OnShow = FormShow
16 LCLVersion = '2.2.2.0'
17 WindowState = wsMaximized
18 object StatusBar1: TStatusBar
19 Left = 0
20 Height = 28
21 Top = 607
22 Width = 1088
23 Panels = <>
24 end
25 object CoolBar1: TCoolBar
26 Left = 0
27 Height = 44
28 Top = 0
29 Width = 1088
30 AutoSize = True
31 Bands = <
32 item
33 Break = False
34 Control = ToolBar1
35 MinHeight = 40
36 MinWidth = 90
37 Width = 179
38 end>
39 Images = Core.ImageList1
40 object ToolBar1: TToolBar
41 AnchorSideLeft.Control = CoolBar1
42 AnchorSideTop.Control = CoolBar1
43 Left = 24
44 Height = 33
45 Top = 5
46 Width = 150
47 Align = alNone
48 BorderSpacing.Left = 22
49 BorderSpacing.Top = 3
50 EdgeInner = esNone
51 EdgeOuter = esNone
52 Images = Core.ImageList1
53 TabOrder = 0
54 Transparent = True
55 object ToolButton1: TToolButton
56 Left = 1
57 Top = 0
58 Action = Core.ADatabaseConnect
59 end
60 object ToolButton2: TToolButton
61 Left = 36
62 Top = 0
63 Action = Core.ADatabaseDisconnect
64 end
65 object ToolButton3: TToolButton
66 Left = 71
67 Top = 0
68 Action = Core.APreferences
69 end
70 end
71 end
72 object MainMenu1: TMainMenu
73 Images = Core.ImageList1
74 Left = 112
75 Top = 112
76 object MenuItem1: TMenuItem
77 Caption = 'Database'
78 object MenuItem2: TMenuItem
79 Action = Core.ADatabaseConnect
80 end
81 object MenuItem4: TMenuItem
82 Action = Core.ADatabaseDisconnect
83 end
84 object MenuItem5: TMenuItem
85 Caption = '-'
86 end
87 object MenuItem6: TMenuItem
88 Action = Core.AExit
89 end
90 end
91 object MenuItemPreferences: TMenuItem
92 Caption = 'Tools'
93 object MenuItem3: TMenuItem
94 Action = Core.APreferences
95 end
96 end
97 object MenuItem7: TMenuItem
98 Caption = 'Help'
99 object MenuItem8: TMenuItem
100 Action = Core.AAbout
101 end
102 end
103 end
104end
Note: See TracBrowser for help on using the repository browser.