Changeset 14 for os/trunk/Applications/TestApplication.pas

Timestamp:

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

Author:

chronos

Message:

• Modified: TForm title bar implemented using controls.

File:

• os/trunk/Applications/TestApplication.pas (modified) (2 diffs)

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;