Changeset 7 for os/trunk/Applications

Timestamp:

Jun 2, 2013, 6:59:07 PM (12 years ago)

Author:

chronos

Message:

• Fixed: Components now have list of childs and free them on destruction.
• Fixed: Memory leaks.

Location:

os/trunk/Applications

Files:

• TestApplication.pas (modified) (4 diffs)
• UDesktop.pas (modified) (7 diffs)

os/trunk/Applications/TestApplication.pas

@@ -32 +32 @@
   Caption := 'TestApp';
   Form1 := TForm.Create;
+  Form1.Owner := Self;
   Form1.Bounds := TRectangle.Create(50, 80, 200, 120);
   Form1.Name := 'Form1';
@@ -37 +38 @@
   Form1.Screen := Screen;
   Form2 := TForm.Create;
+  Form2.Owner := Self;
   Form2.Bounds := TRectangle.Create(350, 150, 200, 150);
   Form2.Name := 'Form2';
@@ -47 +49 @@
   Button := TButton.Create;
   Button.Parent := Form1;
+  Button.Owner := Form1;
   Button.Bounds := TRectangle.Create(50, 50, 60, 24);
   Button.Visible := True;
@@ -54 +57 @@
   Label1 := TLabel.Create;
   Label1.Parent := Form1;
+  Label1.Owner := Form1;
   Label1.Bounds := TRectangle.Create(60, 80, 60, 24);
   Label1.Visible := True;

os/trunk/Applications/UDesktop.pas

@@ -12 +12 @@
     procedure TaskButtonClick(Sender: TObject);
   protected
-    function HandleMessage(Message: TMessage): Boolean; override;
   public
     MenuButton: TButton;
@@ -18 +17 @@
     TaskBar: TPanel;
     TestApp: TApplication;
-    TaskButtons: TList<TButton>;
+    TaskButtons: TObjectList<TButton>;
+    function HandleMessage(Message: TMessage): Boolean; override;
     procedure Run; override;
     constructor Create; override;
@@ -56 +56 @@
 begin
   inherited;
-  TaskButtons := TList<TButton>.Create;
+  TaskButtons := TObjectList<TButton>.Create;
 end;
 
@@ -67 +67 @@
 function TDesktopApp.HandleMessage(Message: TMessage): Boolean;
 begin
-  if (Message is TMessageResize) or (Message is TMessageTaskList) then
+  if (Message is TMessageResize) or (Message is TMessageTaskList) then begin
     UpdateTaskBar;
+    Result := True;
+  end else Result := False;
 end;
 
@@ -76 +78 @@
   Caption := 'Desktop';
   MainBar := TForm.Create;
+  MainBar.Owner := Self;
   MainBar.BorderStyle := bsNone;
   MainBar.Name := 'MainBar';
@@ -82 +85 @@
   TaskBar := TPanel.Create;
   TaskBar.Parent := MainBar;
+  TaskBar.Owner := MainBar;
   TaskBar.Name := 'TaskBar';
   TaskBar.Color := clLightGreen;
@@ -89 +93 @@
   MenuButton := TButton.Create;
   MenuButton.Parent := TaskBar;
+  MenuButton.Owner := TaskBar;
   MenuButton.Bounds := TRectangle.Create(0, 0, 50, 24);
   MenuButton.Visible := True;