Changeset 10
- Timestamp:
- May 9, 2013, 9:21:23 PM (12 years ago)
- Location:
- platform/trunk
- Files:
-
- 11 added
- 2 deleted
- 3 edited
- 2 moved
Legend:
- Unmodified
- Added
- Removed
-
platform/trunk/LDPlatform.FormMain.dfm
r9 r10 11 11 Font.Name = 'Tahoma' 12 12 Font.Style = [] 13 Menu = MainMenu1 13 14 OldCreateOrder = False 14 15 PixelsPerInch = 96 … … 21 22 Panels = <> 22 23 end 23 object CoolBar1: TCoolBar 24 Left = 0 25 Top = 0 26 Width = 771 27 Height = 57 28 AutoSize = True 29 Bands = < 30 item 31 Control = ActionMainMenuBar1 32 ImageIndex = -1 33 Width = 765 24 object MainMenu1: TMainMenu 25 Images = Core.ImageList1 26 Left = 224 27 Top = 152 28 object File1: TMenuItem 29 Caption = 'File' 30 object Quit1: TMenuItem 31 Action = Core.AQuit 34 32 end 35 item36 Control = ActionToolBar237 ImageIndex = -138 MinHeight = 2639 Width = 76540 end>41 object ActionMainMenuBar1: TActionMainMenuBar42 Left = 1143 Top = 044 Width = 75645 Height = 2546 UseSystemFont = False47 ActionManager = ActionManager148 Caption = 'ActionMainMenuBar1'49 Color = clMenuBar50 ColorMap.DisabledFontColor = 717143751 ColorMap.HighlightColor = clWhite52 ColorMap.BtnSelectedFont = clBlack53 ColorMap.UnusedColor = clWhite54 Font.Charset = DEFAULT_CHARSET55 Font.Color = clBlack56 Font.Height = -1257 Font.Name = 'Segoe UI'58 Font.Style = []59 Spacing = 060 33 end 61 object ActionToolBar2: TActionToolBar 62 Left = 11 63 Top = 27 64 Width = 756 65 Height = 26 66 ActionManager = ActionManager1 67 Caption = 'ActionToolBar2' 68 Color = clMenuBar 69 ColorMap.DisabledFontColor = 7171437 70 ColorMap.HighlightColor = clWhite 71 ColorMap.BtnSelectedFont = clBlack 72 ColorMap.UnusedColor = clWhite 73 Font.Charset = DEFAULT_CHARSET 74 Font.Color = clBlack 75 Font.Height = -11 76 Font.Name = 'Tahoma' 77 Font.Style = [] 78 ParentFont = False 79 Spacing = 0 34 object ools1: TMenuItem 35 Caption = 'Tools' 36 object Options1: TMenuItem 37 Action = Core.AOptions 38 end 80 39 end 81 40 end 82 object ActionManager1: TActionManager83 ActionBars = <84 item85 end86 item87 end88 item89 Items = <90 item91 Action = FormatRichEditBold192 ImageIndex = 093 ShowCaption = False94 ShortCut = 1645095 end>96 end97 item98 Items = <99 item100 Action = FormatRichEditBold1101 ImageIndex = 0102 ShowGlyph = False103 ShortCut = 16450104 end>105 end106 item107 Items = <108 item109 Action = FileExit1110 ImageIndex = 1111 ShowCaption = False112 end113 item114 Action = AOptions115 end>116 ActionBar = ActionToolBar2117 end118 item119 Items = <120 item121 Action = FileExit1122 ImageIndex = 1123 ShowGlyph = False124 end125 item126 Action = AOptions127 end>128 ActionBar = ActionMainMenuBar1129 end>130 Images = ImageList1131 Left = 288132 Top = 144133 StyleName = 'Platform Default'134 object FormatRichEditBold1: TRichEditBold135 Category = 'Format'136 AutoCheck = True137 Caption = '&Bold'138 Hint = 'Bold'139 ImageIndex = 0140 ShortCut = 16450141 end142 object FileExit1: TFileExit143 Category = 'File'144 Caption = 'E&xit'145 Hint = 'Exit|Quits the application'146 ImageIndex = 1147 end148 object AOptions: TAction149 Caption = 'Options'150 OnExecute = AOptionsExecute151 end152 end153 object ImageList1: TImageList154 Left = 392155 Top = 136156 Bitmap = {157 494C010102000800100010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600158 0000000000003600000028000000400000001000000001002000000000000010159 0000000000000000000000000000000000000000000000000000000000000000160 0000000000000000000000000000000000000000000000000000000000000000161 0000000000000000000000000000000000008686860086868600868686008686162 8600868686008686860086868600868686008686860086868600FFFFFF00C0C0163 C00086868600C0C0C000FFFFFF00C0C0C0000000000000000000000000000000164 0000000000000000000000000000000000000000000000000000000000000000165 0000000000000000000000000000000000000000000000000000000000000000166 0000000000000000000000000000000000000000000000000000000000000000167 0000000000000000000000000000000000000000000000000000000000000000168 0000000000000000000000000000000000000000000000000000000000000000169 0000000000000000000000000000000000008686860086868600868686008686170 860086868600868686008686860086868600868686008686860086868600FFFF171 FF0086868600FFFFFF0086868600868686000000000000000000000000000000172 0000000000000000000000000000000000000000000000000000000000000000173 0000000000000000000000000000000000000000000000000000000000000000174 0000000000000000000000000000000000000000000000000000000000000000175 0000000000000000000000000000000000000000000000000000000000000000176 0000000000000000000000000000000000000000000000000000000000000000177 0000000000000000000000000000000000008000000080000000800000008000178 00000000000000000000868686008686860086868600FFFFFF00FFFFFF00FFFF179 FF00800000008000000080000000800000000000000000000000000000000000180 0000000000000000000000000000000000000000000000000000000000000000181 0000000000000000000000000000000000000000000000000000000000000000182 0000000000000000000000000000000000000000000000000000000000000000183 0000000000000000000000000000000000000000000000000000000000000000184 0000000000000000000000000000000000000000000000000000000000000000185 0000000000000000000000000000000000000000000000000000000000008000186 0000FF00000080000000000000000000000086868600FFFFFF00FFFFFF00FFFF187 FF00800000000000000000000000000000000000000000000000000000000000188 0000000000000000000000000000000000000000000000000000000000000000189 0000000000000000000000000000000000000000000000000000000000000000190 0000000000000000000000000000000000000000000000000000000000000000191 0000000000000000000000000000000000000000000000000000000000000000192 0000000000000000000000000000000000000000000000000000000000000000193 0000000000000000000000000000000000000000000000000000000000008000194 000080000000FF0000008000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF195 FF00800000000000000000000000000000000000000000000000000000000000196 0000000000000000000000000000000000000000000000000000000000000000197 0000000000000000000000000000000000000000000000000000000000000000198 0000000000000000000000000000000000000000000000000000000000000000199 0000000000000000000000000000000000000000000000000000000000000000200 0000000000000000000000000000000000000000000000000000000000000000201 0000000000000000000000000000000000000000000000000000000000008000202 0000FF00000080000000FF00000000000000FFFFFF00FFFFFF00FFFFFF00FFFF203 FF00800000000000000000000000000000000000000000000000000000000000204 0000000000000000000000000000000000000000000000000000000000000000205 0000000000000000000000000000000000000000000000000000000000000000206 0000000000000000000000000000000000000000000000000000000000000000207 0000000000000000000000000000000000000000000000000000000000000000208 0000000000000000000000000000000000000000000000000000000000000000209 0000000000000000000000000000000000000000000000000000000000008000210 000080000000FF0000008000000000000000FFFFFF00FFFF0000FFFFFF00FFFF211 0000800000000000000000000000000000000000000000000000000000000000212 0000000000000000000000000000000000000000000000000000000000000000213 0000000000000000000000000000000000000000000000000000000000000000214 0000000000000000000000000000000000000000000000000000000000000000215 0000000000000000000000000000000000000000000000000000000000000000216 0000000000000000000000000000000000000000000000000000000000000000217 0000000000000000000000000000000000000000000000000000000000008000218 0000FF00000080000000FF00000000000000FFFF0000FFFFFF00FFFF0000FFFF219 FF00800000000000000000000000000000000000000000000000000000000000220 0000000000000000000000000000000000000000000000000000000000000000221 0000000000000000000000000000000000000000000000000000000000000000222 0000000000000000000000000000000000000000000000000000000000000000223 0000000000000000000000000000000000000000000000000000000000000000224 0000000000000000000000000000000000000000000000000000000000000000225 0000000000000000000000000000000000000000000000000000000000008000226 000080000000FF0000008000000000000000FFFFFF00FFFF0000FFFFFF00FFFF227 0000800000000000000000000000000000000000000000000000000000000000228 0000000000000000000000000000000000000000000000000000000000000000229 0000000000000000000000000000000000000000000000000000000000000000230 0000000000000000000000000000000000000000000000000000000000000000231 0000000000000000000000000000000000000000000000000000000000000000232 0000000000000000000000000000000000000000000000000000000000000000233 0000000000000000000000000000000000000000000000000000000000008000234 0000FF00000080000000FF00000000000000FFFF0000FFFFFF00FFFF0000FFFF235 FF00800000000000000000000000000000000000000000000000000000000000236 0000000000000000000000000000000000000000000000000000000000000000237 0000000000000000000000000000000000000000000000000000000000000000238 0000000000000000000000000000000000000000000000000000000000000000239 0000000000000000000000000000000000000000000000000000000000000000240 0000000000000000000000000000000000000000000000000000000000000000241 0000000000000000000000000000000000000000000000000000000000008000242 0000800000008000000080000000800000008000000080000000800000008000243 0000800000000000000000000000000000000000000000000000000000000000244 0000000000000000000000000000000000000000000000000000000000000000245 0000000000000000000000000000000000000000000000000000000000000000246 0000000000000000000000000000000000000000000000000000000000000000247 0000000000000000000000000000000000000000000000000000000000000000248 0000000000000000000000000000000000000000000000000000000000000000249 0000000000000000000000000000000000000000000000000000000000000000250 0000000000000000000000000000000000000000000000000000000000000000251 0000000000000000000000000000000000000000000000000000000000000000252 0000000000000000000000000000000000000000000000000000000000000000253 0000000000000000000000000000000000000000000000000000000000000000254 0000000000000000000000000000000000000000000000000000000000000000255 0000000000000000000000000000000000000000000000000000000000000000256 0000000000000000000000000000000000000000000000000000000000000000257 0000000000000000000000000000000000000000000000000000000000000000258 0000000000000000000000000000000000000000000000000000000000000000259 0000000000000000000000000000000000000000000000000000000000000000260 0000000000000000000000000000000000000000000000000000000000000000261 0000000000000000000000000000000000000000000000000000000000000000262 0000000000000000000000000000000000000000000000000000000000000000263 0000000000000000000000000000000000000000000000000000000000000000264 0000000000000000000000000000000000000000000000000000000000000000265 0000000000000000000000000000000000000000000000000000000000000000266 0000000000000000000000800000008000000080000000800000000000000000267 0000000000000000000000000000000000000000000000000000000000000000268 0000000000000000000000000000000000000000000000000000000000000000269 0000000000000000000000000000000000000000000000000000000000000000270 0000000000000000000000000000000000000000000000000000000000000000271 0000000000000000000000000000000000000000000000000000000000000000272 0000000000000000000000000000000000000000000000000000000000000000273 0000000000000000000000000000000000000000000000000000000000000000274 0000000000000000000000000000000000000000000000000000000000000000275 0000000000000000000000000000000000000000000000000000000000000000276 0000000000000000000000000000000000000000000000000000000000000000277 0000000000000000000000000000000000000000000000000000000000000000278 0000000000000000000000000000000000000000000000000000000000000000279 0000000000000000000000000000000000000000000000000000000000000000280 0000000000000000000000000000000000000000000000000000000000000000281 0000000000000000000000000000000000000000000000000000000000000000282 0000000000000000000000000000000000000000000000000000000000000000283 0000000000000000000000000000000000000000000000000000000000000000284 0000000000000000000000000000000000000000000000000000000000000000285 0000000000000000000000000000000000000000000000000000000000000000286 0000000000000000000000000000000000000000000000000000000000000000287 000000000000000000000000000000000000424D3E000000000000003E000000288 2800000040000000100000000100010000000000800000000000000000000000289 000000000000000000000000FFFFFF00FFFF000000000000FFFF000000000000290 FFFF000000000000FFFFE00700000000F00FE00700000000F8C7E00700000000291 F8C7E00700000000F8C7E00700000000F80FE00700000000F8C7E00700000000292 F8C7E00700000000F8C7FFFF00000000F00FF81F00000000FFFFF81F00000000293 FFFFF81F00000000FFFFFFFF0000000000000000000000000000000000000000294 000000000000}295 end296 41 end -
platform/trunk/LDPlatform.FormMain.pas
r9 r10 1 unit UFormMain;1 unit LDPlatform.FormMain; 2 2 3 3 interface … … 13 13 TFormMain = class(TForm) 14 14 StatusBar1: TStatusBar; 15 CoolBar1: TCoolBar; 16 ActionManager1: TActionManager; 17 ImageList1: TImageList; 18 FormatRichEditBold1: TRichEditBold; 19 ActionMainMenuBar1: TActionMainMenuBar; 20 ActionToolBar2: TActionToolBar; 21 FileExit1: TFileExit; 22 AOptions: TAction; 23 procedure AOptionsExecute(Sender: TObject); 15 MainMenu1: TMainMenu; 16 File1: TMenuItem; 17 ools1: TMenuItem; 18 Options1: TMenuItem; 19 Quit1: TMenuItem; 24 20 private 25 21 { Private declarations } 26 22 public 27 { Public declarations }23 LDPlatform: TObject; // TLDPlatform; 28 24 end; 29 30 var31 FormMain: TFormMain;32 25 33 26 … … 37 30 38 31 uses 39 UFormOptions; 40 41 procedure TFormMain.AOptionsExecute(Sender: TObject); 42 begin 43 try 44 FormOptions := TFormOptions.Create(nil); 45 FormOptions.Load; 46 if FormOptions.ShowModal = mrOk then begin 47 FormOptions.Save; 48 end; 49 finally 50 FreeAndNil(FormOptions); 51 end; 52 end; 32 LDPlatform.Core; 53 33 54 34 end. -
platform/trunk/LDPlatform.dpk
r9 r10 34 34 35 35 contains 36 UFormMain in 'UFormMain.pas' {FormMain}, 37 UFormOptions in 'UFormOptions.pas' {FormOptions}, 38 ULDPlatform in 'ULDPlatform.pas'; 36 LDPlatform.FormMain in 'LDPlatform.FormMain.pas' {FormMain}, 37 LDPlatform.FormOptions in 'LDPlatform.FormOptions.pas' {FormOptions}, 38 ULDPlatform in 'ULDPlatform.pas', 39 LDPlatform.Core in 'LDPlatform.Core.pas' {Core: TDataModule}; 39 40 40 41 end. -
platform/trunk/LDPlatform.dproj
r9 r10 3 3 <ProjectGuid>{CF6A5952-A058-467F-8C9C-96757298FA10}</ProjectGuid> 4 4 <MainSource>LDPlatform.dpk</MainSource> 5 <ProjectVersion>14. 3</ProjectVersion>5 <ProjectVersion>14.6</ProjectVersion> 6 6 <FrameworkType>VCL</FrameworkType> 7 7 <Base>True</Base> … … 90 90 <DCCReference Include="vcl.dcp"/> 91 91 <DCCReference Include="vclactnband.dcp"/> 92 <DCCReference Include=" UFormMain.pas">92 <DCCReference Include="LDPlatform.FormMain.pas"> 93 93 <Form>FormMain</Form> 94 94 </DCCReference> 95 <DCCReference Include=" UFormOptions.pas">95 <DCCReference Include="LDPlatform.FormOptions.pas"> 96 96 <Form>FormOptions</Form> 97 97 <FormType>dfm</FormType> 98 98 </DCCReference> 99 99 <DCCReference Include="ULDPlatform.pas"/> 100 <DCCReference Include="LDPlatform.Core.pas"> 101 <Form>Core</Form> 102 <FormType>dfm</FormType> 103 <DesignClass>TDataModule</DesignClass> 104 </DCCReference> 100 105 <BuildConfiguration Include="Release"> 101 106 <Key>Cfg_2</Key> … … 188 193 <Deployment/> 189 194 <Platforms> 195 <Platform value="iOSDevice">False</Platform> 196 <Platform value="iOSSimulator">False</Platform> 190 197 <Platform value="OSX32">False</Platform> 191 198 <Platform value="Win32">True</Platform> -
platform/trunk/ULDPlatform.pas
r9 r10 4 4 5 5 uses 6 System.SysUtils, System.Classes, UFormMain, Vcl.Forms;6 System.SysUtils, System.Classes, Vcl.Forms, LDPlatform.Core; 7 7 8 8 type … … 13 13 { Protected declarations } 14 14 public 15 procedure Init; 15 Core: TCore; 16 procedure Show; 16 17 published 17 { Published declarations }18 18 end; 19 19 … … 29 29 { TLDPlatform } 30 30 31 procedure TLDPlatform. Init;31 procedure TLDPlatform.Show; 32 32 begin 33 Application.CreateForm(TFormMain, FormMain); 34 FormMain.Show; 33 Core := TCore.Create(Self); 35 34 end; 36 35
Note:
See TracChangeset
for help on using the changeset viewer.