Changeset 7 for os/trunk/Applications/UDesktop.pas

Timestamp:

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

Author:

chronos

Message:

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

File:

• os/trunk/Applications/UDesktop.pas (modified) (7 diffs)

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;