Changeset 14 for os/trunk/Applications

Timestamp:

Feb 29, 2016, 5:23:37 PM (9 years ago)

Author:

chronos

Message:

• Modified: TForm title bar implemented using controls.

Location:

os/trunk/Applications

Files:

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

os/trunk/Applications/TestApplication.pas

@@ -38 +38 @@
   Form1.Caption := 'Test application';
   Form1.Screen := Screen;
+  Form1.Application := Self;
   Form2 := TForm.Create;
   Form2.Owner := Self;
@@ -44 +45 @@
   Form2.Caption := 'Some form';
   Form2.Screen := Screen;
+  Form2.Application := Self;
   Timer1 := TTimer.Create;
   Timer1.Interval := 1000;

os/trunk/Applications/UDesktop.pas

@@ -83 +83 @@
   MainBar.Caption := 'fdfdfd';
   MainBar.Screen := Screen;
+  MainBar.Application := Self;
   TaskBar := TPanel.Create;
   TaskBar.Parent := MainBar;