Changeset 14 for os/trunk/Applications


Ignore:
Timestamp:
Feb 29, 2016, 5:23:37 PM (8 years ago)
Author:
chronos
Message:
  • Modified: TForm title bar implemented using controls.
Location:
os/trunk/Applications
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • os/trunk/Applications/TestApplication.pas

    r8 r14  
    3838  Form1.Caption := 'Test application';
    3939  Form1.Screen := Screen;
     40  Form1.Application := Self;
    4041  Form2 := TForm.Create;
    4142  Form2.Owner := Self;
     
    4445  Form2.Caption := 'Some form';
    4546  Form2.Screen := Screen;
     47  Form2.Application := Self;
    4648  Timer1 := TTimer.Create;
    4749  Timer1.Interval := 1000;
  • os/trunk/Applications/UDesktop.pas

    r8 r14  
    8383  MainBar.Caption := 'fdfdfd';
    8484  MainBar.Screen := Screen;
     85  MainBar.Application := Self;
    8586  TaskBar := TPanel.Create;
    8687  TaskBar.Parent := MainBar;
Note: See TracChangeset for help on using the changeset viewer.