Changeset 10


Ignore:
Timestamp:
May 9, 2013, 9:21:23 PM (12 years ago)
Author:
chronos
Message:
  • Added: Demo IDE placed in subfolder Demo.
  • Added: Base TDataModule as container for non visual components. It's part of TLDPlatform component.
Location:
platform/trunk
Files:
11 added
2 deleted
3 edited
2 moved

Legend:

Unmodified
Added
Removed

  • platform/trunk/LDPlatform.FormMain.dfm

    r9 r10  
    1111  Font.Name = 'Tahoma'
    1212  Font.Style = []
     13  Menu = MainMenu1
    1314  OldCreateOrder = False
    1415  PixelsPerInch = 96
    … …  
    2122    Panels = <>
    2223  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
    3432      end
    35       item
    36         Control = ActionToolBar2
    37         ImageIndex = -1
    38         MinHeight = 26
    39         Width = 765
    40       end>
    41     object ActionMainMenuBar1: TActionMainMenuBar
    42       Left = 11
    43       Top = 0
    44       Width = 756
    45       Height = 25
    46       UseSystemFont = False
    47       ActionManager = ActionManager1
    48       Caption = 'ActionMainMenuBar1'
    49       Color = clMenuBar
    50       ColorMap.DisabledFontColor = 7171437
    51       ColorMap.HighlightColor = clWhite
    52       ColorMap.BtnSelectedFont = clBlack
    53       ColorMap.UnusedColor = clWhite
    54       Font.Charset = DEFAULT_CHARSET
    55       Font.Color = clBlack
    56       Font.Height = -12
    57       Font.Name = 'Segoe UI'
    58       Font.Style = []
    59       Spacing = 0
    6033    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
    8039    end
    8140  end
    82   object ActionManager1: TActionManager
    83     ActionBars = <
    84       item
    85       end
    86       item
    87       end
    88       item
    89         Items = <
    90           item
    91             Action = FormatRichEditBold1
    92             ImageIndex = 0
    93             ShowCaption = False
    94             ShortCut = 16450
    95           end>
    96       end
    97       item
    98         Items = <
    99           item
    100             Action = FormatRichEditBold1
    101             ImageIndex = 0
    102             ShowGlyph = False
    103             ShortCut = 16450
    104           end>
    105       end
    106       item
    107         Items = <
    108           item
    109             Action = FileExit1
    110             ImageIndex = 1
    111             ShowCaption = False
    112           end
    113           item
    114             Action = AOptions
    115           end>
    116         ActionBar = ActionToolBar2
    117       end
    118       item
    119         Items = <
    120           item
    121             Action = FileExit1
    122             ImageIndex = 1
    123             ShowGlyph = False
    124           end
    125           item
    126             Action = AOptions
    127           end>
    128         ActionBar = ActionMainMenuBar1
    129       end>
    130     Images = ImageList1
    131     Left = 288
    132     Top = 144
    133     StyleName = 'Platform Default'
    134     object FormatRichEditBold1: TRichEditBold
    135       Category = 'Format'
    136       AutoCheck = True
    137       Caption = '&Bold'
    138       Hint = 'Bold'
    139       ImageIndex = 0
    140       ShortCut = 16450
    141     end
    142     object FileExit1: TFileExit
    143       Category = 'File'
    144       Caption = 'E&xit'
    145       Hint = 'Exit|Quits the application'
    146       ImageIndex = 1
    147     end
    148     object AOptions: TAction
    149       Caption = 'Options'
    150       OnExecute = AOptionsExecute
    151     end
    152   end
    153   object ImageList1: TImageList
    154     Left = 392
    155     Top = 136
    156     Bitmap = {
    157       494C010102000800100010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
    158       0000000000003600000028000000400000001000000001002000000000000010
    159       0000000000000000000000000000000000000000000000000000000000000000
    160       0000000000000000000000000000000000000000000000000000000000000000
    161       0000000000000000000000000000000000008686860086868600868686008686
    162       8600868686008686860086868600868686008686860086868600FFFFFF00C0C0
    163       C00086868600C0C0C000FFFFFF00C0C0C0000000000000000000000000000000
    164       0000000000000000000000000000000000000000000000000000000000000000
    165       0000000000000000000000000000000000000000000000000000000000000000
    166       0000000000000000000000000000000000000000000000000000000000000000
    167       0000000000000000000000000000000000000000000000000000000000000000
    168       0000000000000000000000000000000000000000000000000000000000000000
    169       0000000000000000000000000000000000008686860086868600868686008686
    170       860086868600868686008686860086868600868686008686860086868600FFFF
    171       FF0086868600FFFFFF0086868600868686000000000000000000000000000000
    172       0000000000000000000000000000000000000000000000000000000000000000
    173       0000000000000000000000000000000000000000000000000000000000000000
    174       0000000000000000000000000000000000000000000000000000000000000000
    175       0000000000000000000000000000000000000000000000000000000000000000
    176       0000000000000000000000000000000000000000000000000000000000000000
    177       0000000000000000000000000000000000008000000080000000800000008000
    178       00000000000000000000868686008686860086868600FFFFFF00FFFFFF00FFFF
    179       FF00800000008000000080000000800000000000000000000000000000000000
    180       0000000000000000000000000000000000000000000000000000000000000000
    181       0000000000000000000000000000000000000000000000000000000000000000
    182       0000000000000000000000000000000000000000000000000000000000000000
    183       0000000000000000000000000000000000000000000000000000000000000000
    184       0000000000000000000000000000000000000000000000000000000000000000
    185       0000000000000000000000000000000000000000000000000000000000008000
    186       0000FF00000080000000000000000000000086868600FFFFFF00FFFFFF00FFFF
    187       FF00800000000000000000000000000000000000000000000000000000000000
    188       0000000000000000000000000000000000000000000000000000000000000000
    189       0000000000000000000000000000000000000000000000000000000000000000
    190       0000000000000000000000000000000000000000000000000000000000000000
    191       0000000000000000000000000000000000000000000000000000000000000000
    192       0000000000000000000000000000000000000000000000000000000000000000
    193       0000000000000000000000000000000000000000000000000000000000008000
    194       000080000000FF0000008000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF
    195       FF00800000000000000000000000000000000000000000000000000000000000
    196       0000000000000000000000000000000000000000000000000000000000000000
    197       0000000000000000000000000000000000000000000000000000000000000000
    198       0000000000000000000000000000000000000000000000000000000000000000
    199       0000000000000000000000000000000000000000000000000000000000000000
    200       0000000000000000000000000000000000000000000000000000000000000000
    201       0000000000000000000000000000000000000000000000000000000000008000
    202       0000FF00000080000000FF00000000000000FFFFFF00FFFFFF00FFFFFF00FFFF
    203       FF00800000000000000000000000000000000000000000000000000000000000
    204       0000000000000000000000000000000000000000000000000000000000000000
    205       0000000000000000000000000000000000000000000000000000000000000000
    206       0000000000000000000000000000000000000000000000000000000000000000
    207       0000000000000000000000000000000000000000000000000000000000000000
    208       0000000000000000000000000000000000000000000000000000000000000000
    209       0000000000000000000000000000000000000000000000000000000000008000
    210       000080000000FF0000008000000000000000FFFFFF00FFFF0000FFFFFF00FFFF
    211       0000800000000000000000000000000000000000000000000000000000000000
    212       0000000000000000000000000000000000000000000000000000000000000000
    213       0000000000000000000000000000000000000000000000000000000000000000
    214       0000000000000000000000000000000000000000000000000000000000000000
    215       0000000000000000000000000000000000000000000000000000000000000000
    216       0000000000000000000000000000000000000000000000000000000000000000
    217       0000000000000000000000000000000000000000000000000000000000008000
    218       0000FF00000080000000FF00000000000000FFFF0000FFFFFF00FFFF0000FFFF
    219       FF00800000000000000000000000000000000000000000000000000000000000
    220       0000000000000000000000000000000000000000000000000000000000000000
    221       0000000000000000000000000000000000000000000000000000000000000000
    222       0000000000000000000000000000000000000000000000000000000000000000
    223       0000000000000000000000000000000000000000000000000000000000000000
    224       0000000000000000000000000000000000000000000000000000000000000000
    225       0000000000000000000000000000000000000000000000000000000000008000
    226       000080000000FF0000008000000000000000FFFFFF00FFFF0000FFFFFF00FFFF
    227       0000800000000000000000000000000000000000000000000000000000000000
    228       0000000000000000000000000000000000000000000000000000000000000000
    229       0000000000000000000000000000000000000000000000000000000000000000
    230       0000000000000000000000000000000000000000000000000000000000000000
    231       0000000000000000000000000000000000000000000000000000000000000000
    232       0000000000000000000000000000000000000000000000000000000000000000
    233       0000000000000000000000000000000000000000000000000000000000008000
    234       0000FF00000080000000FF00000000000000FFFF0000FFFFFF00FFFF0000FFFF
    235       FF00800000000000000000000000000000000000000000000000000000000000
    236       0000000000000000000000000000000000000000000000000000000000000000
    237       0000000000000000000000000000000000000000000000000000000000000000
    238       0000000000000000000000000000000000000000000000000000000000000000
    239       0000000000000000000000000000000000000000000000000000000000000000
    240       0000000000000000000000000000000000000000000000000000000000000000
    241       0000000000000000000000000000000000000000000000000000000000008000
    242       0000800000008000000080000000800000008000000080000000800000008000
    243       0000800000000000000000000000000000000000000000000000000000000000
    244       0000000000000000000000000000000000000000000000000000000000000000
    245       0000000000000000000000000000000000000000000000000000000000000000
    246       0000000000000000000000000000000000000000000000000000000000000000
    247       0000000000000000000000000000000000000000000000000000000000000000
    248       0000000000000000000000000000000000000000000000000000000000000000
    249       0000000000000000000000000000000000000000000000000000000000000000
    250       0000000000000000000000000000000000000000000000000000000000000000
    251       0000000000000000000000000000000000000000000000000000000000000000
    252       0000000000000000000000000000000000000000000000000000000000000000
    253       0000000000000000000000000000000000000000000000000000000000000000
    254       0000000000000000000000000000000000000000000000000000000000000000
    255       0000000000000000000000000000000000000000000000000000000000000000
    256       0000000000000000000000000000000000000000000000000000000000000000
    257       0000000000000000000000000000000000000000000000000000000000000000
    258       0000000000000000000000000000000000000000000000000000000000000000
    259       0000000000000000000000000000000000000000000000000000000000000000
    260       0000000000000000000000000000000000000000000000000000000000000000
    261       0000000000000000000000000000000000000000000000000000000000000000
    262       0000000000000000000000000000000000000000000000000000000000000000
    263       0000000000000000000000000000000000000000000000000000000000000000
    264       0000000000000000000000000000000000000000000000000000000000000000
    265       0000000000000000000000000000000000000000000000000000000000000000
    266       0000000000000000000000800000008000000080000000800000000000000000
    267       0000000000000000000000000000000000000000000000000000000000000000
    268       0000000000000000000000000000000000000000000000000000000000000000
    269       0000000000000000000000000000000000000000000000000000000000000000
    270       0000000000000000000000000000000000000000000000000000000000000000
    271       0000000000000000000000000000000000000000000000000000000000000000
    272       0000000000000000000000000000000000000000000000000000000000000000
    273       0000000000000000000000000000000000000000000000000000000000000000
    274       0000000000000000000000000000000000000000000000000000000000000000
    275       0000000000000000000000000000000000000000000000000000000000000000
    276       0000000000000000000000000000000000000000000000000000000000000000
    277       0000000000000000000000000000000000000000000000000000000000000000
    278       0000000000000000000000000000000000000000000000000000000000000000
    279       0000000000000000000000000000000000000000000000000000000000000000
    280       0000000000000000000000000000000000000000000000000000000000000000
    281       0000000000000000000000000000000000000000000000000000000000000000
    282       0000000000000000000000000000000000000000000000000000000000000000
    283       0000000000000000000000000000000000000000000000000000000000000000
    284       0000000000000000000000000000000000000000000000000000000000000000
    285       0000000000000000000000000000000000000000000000000000000000000000
    286       0000000000000000000000000000000000000000000000000000000000000000
    287       000000000000000000000000000000000000424D3E000000000000003E000000
    288       2800000040000000100000000100010000000000800000000000000000000000
    289       000000000000000000000000FFFFFF00FFFF000000000000FFFF000000000000
    290       FFFF000000000000FFFFE00700000000F00FE00700000000F8C7E00700000000
    291       F8C7E00700000000F8C7E00700000000F80FE00700000000F8C7E00700000000
    292       F8C7E00700000000F8C7FFFF00000000F00FF81F00000000FFFFF81F00000000
    293       FFFFF81F00000000FFFFFFFF0000000000000000000000000000000000000000
    294       000000000000}
    295   end
    29641end

  • platform/trunk/LDPlatform.FormMain.pas

    r9 r10  
    1 unit UFormMain;
     1unit LDPlatform.FormMain;
    22
    33interface
    … …  
    1313  TFormMain = class(TForm)
    1414    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;
    2420  private
    2521    { Private declarations }
    2622  public
    27     { Public declarations }
     23    LDPlatform: TObject; // TLDPlatform;
    2824  end;
    29 
    30 var
    31   FormMain: TFormMain;
    3225
    3326
    … …  
    3730
    3831uses
    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;
    5333
    5434end.

  • platform/trunk/LDPlatform.dpk

    r9 r10  
    3434
    3535contains
    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};
    3940
    4041end.

  • platform/trunk/LDPlatform.dproj

    r9 r10  
    33        <ProjectGuid>{CF6A5952-A058-467F-8C9C-96757298FA10}</ProjectGuid>
    44        <MainSource>LDPlatform.dpk</MainSource>
    5         <ProjectVersion>14.3</ProjectVersion>
     5        <ProjectVersion>14.6</ProjectVersion>
    66        <FrameworkType>VCL</FrameworkType>
    77        <Base>True</Base>
    … …  
    9090        <DCCReference Include="vcl.dcp"/>
    9191        <DCCReference Include="vclactnband.dcp"/>
    92         <DCCReference Include="UFormMain.pas">
     92        <DCCReference Include="LDPlatform.FormMain.pas">
    9393            <Form>FormMain</Form>
    9494        </DCCReference>
    95         <DCCReference Include="UFormOptions.pas">
     95        <DCCReference Include="LDPlatform.FormOptions.pas">
    9696            <Form>FormOptions</Form>
    9797            <FormType>dfm</FormType>
    9898        </DCCReference>
    9999        <DCCReference Include="ULDPlatform.pas"/>
     100        <DCCReference Include="LDPlatform.Core.pas">
     101            <Form>Core</Form>
     102            <FormType>dfm</FormType>
     103            <DesignClass>TDataModule</DesignClass>
     104        </DCCReference>
    100105        <BuildConfiguration Include="Release">
    101106            <Key>Cfg_2</Key>
    … …  
    188193            <Deployment/>
    189194            <Platforms>
     195                <Platform value="iOSDevice">False</Platform>
     196                <Platform value="iOSSimulator">False</Platform>
    190197                <Platform value="OSX32">False</Platform>
    191198                <Platform value="Win32">True</Platform>

  • platform/trunk/ULDPlatform.pas

    r9 r10  
    44
    55uses
    6   System.SysUtils, System.Classes, UFormMain, Vcl.Forms;
     6  System.SysUtils, System.Classes, Vcl.Forms, LDPlatform.Core;
    77
    88type
    … …  
    1313    { Protected declarations }
    1414  public
    15     procedure Init;
     15    Core: TCore;
     16    procedure Show;
    1617  published
    17     { Published declarations }
    1818  end;
    1919
    … …  
    2929{ TLDPlatform }
    3030
    31 procedure TLDPlatform.Init;
     31procedure TLDPlatform.Show;
    3232begin
    33   Application.CreateForm(TFormMain, FormMain);
    34   FormMain.Show;
     33  Core := TCore.Create(Self);
    3534end;
    3635
Note: See TracChangeset for help on using the changeset viewer.