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

Timestamp:

Jun 2, 2013, 10:46:40 PM (11 years ago)

Author:

chronos

Message:

• Added: Implemented simple TEdit control which react to key press messages.

File:

• os/trunk/Applications/UDesktop.pas (modified) (1 diff)

os/trunk/Applications/UDesktop.pas

@@ -90 +90 @@
   TaskBar.Visible := True;
   TaskBar.Caption := 'dds';
-  MainBar.Controls.Add(TaskBar);
   MenuButton := TButton.Create;
-  MenuButton.Parent := TaskBar;
-  MenuButton.Owner := TaskBar;
+  MenuButton.Parent := MainBar;
+  MenuButton.Owner := MainBar;
   MenuButton.Bounds := TRectangle.Create(0, 0, 50, 24);
   MenuButton.Visible := True;
   MenuButton.Caption := 'Menu';
   MenuButton.OnClick := ButtonClick;
-  MainBar.Controls.Add(MenuButton);
   TScreen(Screen).Forms.Add(MainBar);
   MainForm := MainBar;