Ignore:
Timestamp:
Oct 17, 2012, 1:21:41 PM (12 years ago)
Author:
chronos
Message:
Location:
ModularSystem/Demo
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • ModularSystem/Demo

    • Property svn:ignore

      •  

        old new  
        55Demo.lps
        66Demo
         7heaptrclog.trc

  • ModularSystem/Demo/UMainForm.pas

    r428 r429  
    11unit UMainForm;
    22
    3 {$mode objfpc}{$H+}
     3{$mode delphi}{$H+}
    44
    55interface
    … …  
    3232    MenuItem4: TMenuItem;
    3333    MenuItem5: TMenuItem;
     34    ModuleManager: TModuleManager;
    3435    PopupMenu1: TPopupMenu;
    3536    procedure AModuleStartExecute(Sender: TObject);
    … …  
    4748    procedure RegisterModules;
    4849  public
    49     ModuleManager: TModuleManager;
     50    procedure Log(Text: string);
    5051    procedure RefreshList;
    5152  end;
    … …  
    6364
    6465uses
    65   UModuleUser, UModuleBase, UModuleACL;
     66  UModuleUser, UModuleBase, UModuleACL, ULogForm;
    6667
    6768
    … …  
    106107end;
    107108
     109procedure TMainForm.Log(Text: string);
     110begin
     111  LogForm.Memo1.Lines.Add(Text);
     112end;
     113
    108114procedure TMainForm.RefreshList;
    109115begin
    … …  
    116122procedure TMainForm.FormCreate(Sender: TObject);
    117123begin
    118   ModuleManager := TModuleManager.Create(nil);
    119124  RegisterModules;
    120125end;
    … …  
    220225procedure TMainForm.FormDestroy(Sender: TObject);
    221226begin
    222   FreeAndNil(ModuleManager);
    223227end;
    224228
    … …  
    226230begin
    227231  RefreshList;
     232  LogForm.Show;
    228233end;
    229234
Note: See TracChangeset for help on using the changeset viewer.