Changeset 8 for os/trunk/Applications

Timestamp:

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

Author:

chronos

Message:

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

Location:

os/trunk/Applications

Files:

• TestApplication.pas (modified) (3 diffs)
• UDesktop.pas (modified) (1 diff)

os/trunk/Applications/TestApplication.pas

@@ -12 +12 @@
     Button: TButton;
     Label1: TLabel;
+    Edit1: TEdit;
     Timer1: TTimer;
     procedure Run; override;
@@ -54 +55 @@
   Button.Caption := 'Start';
   Button.OnClick := ButtonClick;
-  Form1.Controls.Add(Button);
   Label1 := TLabel.Create;
   Label1.Parent := Form1;
@@ -61 +61 @@
   Label1.Visible := True;
   Label1.Caption := '0';
-  Form1.Controls.Add(Label1);
+  Edit1 := TEdit.Create;
+  Edit1.Parent := Form2;
+  Edit1.Owner := Form2;
+  Edit1.Bounds := TRectangle.Create(60, 80, 60, 24);
+  Edit1.Visible := True;
+  Edit1.Text := 'Text';
   MainForm := Form1;
   TScreen(Screen).Forms.Add(Form1);

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;