Ignore:
Timestamp:
May 9, 2013, 9:21:23 PM (11 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.
File:
1 moved

Legend:

Unmodified
Added
Removed

  • 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.
Note: See TracChangeset for help on using the changeset viewer.