Changeset 6 for os

Timestamp:

Jun 2, 2013, 5:41:42 PM (12 years ago)

Author:

chronos

Message:

• Fixed: TaskBar positioning.

Location:

os/trunk

Files:

• . (modified) (1 prop)
• Applications/TestApplication.pas (modified) (5 diffs)
• Applications/UDesktop.pas (modified) (6 diffs)
• Drivers/Driver.MouseVCL.pas (modified) (1 diff)
• Drivers/Driver.VideoVCL.pas (modified) (2 diffs)
• System/LDOS.Kernel.pas (modified) (1 diff)
• System/LDOS.Mem.pas (added)
• UFormMain.dfm (modified) (2 diffs)
• UFormMain.pas (modified) (2 diffs)
• Xvcl/Xvcl.Graphics.pas (modified) (3 diffs)
• lddesktop.dpr (modified) (2 diffs)
• lddesktop.dproj (modified) (2 diffs)
• lddesktop.dsk (modified) (18 diffs)

os/trunk

@@ -2 +2 @@
 *.~dsk
 __history
+*.identcache

@@ -2 +2 @@
 *.~dsk
 __history
+*.identcache

os/trunk/Applications/TestApplication.pas

@@ -4 +4 @@
 
 uses
-  Vcl.Graphics, Xvcl.Controls, Xvcl.Classes, Xvcl.Forms, SysUtils;
+  Vcl.Graphics, Xvcl.Controls, Xvcl.Classes, Xvcl.Forms, LDOS.Kernel, SysUtils;
 
 type
@@ -12 +12 @@
     Button: TButton;
     Label1: TLabel;
+    Timer1: TTimer;
     procedure Run; override;
     procedure ButtonClick(Sender: TObject);
@@ -18 +19 @@
 
 implementation
-
-uses
-  LDOS.Kernel;
 
 { TTestApplication }
@@ -43 +41 @@
   Form2.Caption := 'Some form';
   Form2.Screen := Screen;
+  Timer1 := TTimer.Create;
+  Timer1.Interval := 1000;
+  Timer1.Enabled := True;
+  TScreen(Screen).Kernel.Timers.Add(Timer1);
   Button := TButton.Create;
   Button.Parent := Form1;
@@ -56 +58 @@
   Label1.Caption := '0';
   Form1.Controls.Add(Label1);
+  MainForm := Form1;
   TScreen(Screen).Forms.Add(Form1);
   TScreen(Screen).Forms.Add(Form2);

os/trunk/Applications/UDesktop.pas

@@ -9 +9 @@
 type
   TDesktopApp = class(TApplication)
+  private
+    procedure TaskButtonClick(Sender: TObject);
   protected
     function HandleMessage(Message: TMessage): Boolean; override;
@@ -38 +40 @@
   TestApp.Screen := Screen;
   TScreen(Screen).Kernel.RunApplication(TestApp);
+end;
+
+procedure TDesktopApp.TaskButtonClick(Sender: TObject);
+var
+  Process: TProcess;
+begin
+  if Sender is TButton then begin
+    Process := TScreen(Screen).Kernel.Processes[TaskButtons.IndexOf(TButton(Sender))];
+    if Assigned(Process) and Assigned(Process.Application.MainForm) then
+      Process.Application.MainForm.Focused := True;
+  end;
 end;
 
@@ -75 +88 @@
   MainBar.Controls.Add(TaskBar);
   MenuButton := TButton.Create;
-  MenuButton.Parent := MainBar;
+  MenuButton.Parent := TaskBar;
   MenuButton.Bounds := TRectangle.Create(0, 0, 50, 24);
   MenuButton.Visible := True;
@@ -82 +95 @@
   MainBar.Controls.Add(MenuButton);
   TScreen(Screen).Forms.Add(MainBar);
-  UpdateTaskList;
+  MainForm := MainBar;
+  UpdateTaskBar;
   TScreen(Screen).Paint;
 end;
@@ -93 +107 @@
     MainBar.Bounds.Width, MainBar.Bounds.Height);
   UpdateTaskList;
+  TScreen(Screen).Paint;
 end;
 
@@ -120 +135 @@
       TaskButtons[I].Bounds := TRectangle.Create(MenuButton.Bounds.Width +
         I * Width, 0, Width, MainBar.Bounds.Height);
+      TaskButtons[I].OnClick := TaskButtonClick;
       MainBar.Controls.Add(TaskButtons[I]);
     end;

os/trunk/Drivers/Driver.MouseVCL.pas

@@ -51 +51 @@
   inherited;
   Form := Application.MainForm;
-  TForm1(Form).Image1.OnMouseDown := DoMouseDown;
-  TForm1(Form).Image1.OnMouseUp := DoMouseUp;
-  TForm1(Form).Image1.OnMouseMove := DoMouseMove;
+  TFormScreen(Form).Image1.OnMouseDown := DoMouseDown;
+  TFormScreen(Form).Image1.OnMouseUp := DoMouseUp;
+  TFormScreen(Form).Image1.OnMouseMove := DoMouseMove;
 end;
 

os/trunk/Drivers/Driver.VideoVCL.pas

@@ -32 +32 @@
 procedure TDriverVideoVCL.DoUpdateSize(Sender: TObject);
 begin
-  with TForm1(Form) do
+  with TFormScreen(Form) do
   if (Image1.Width <> Image1.Picture.Bitmap.Width) or
   (Image1.Height <> Image1.Picture.Bitmap.Height) then begin
-    Image1.Picture.Bitmap.SetSize(Image1.Width, Image1.Height);
+    Image1.Picture.Bitmap.SetSize(Image1.ClientWidth, Image1.ClientHeight);
     Kernel.Screen.VideoDevice.Size := TPoint.Create(Image1.Picture.Bitmap.Width, Image1.Picture.Bitmap.Height);
     Kernel.Screen.Size := TPoint.Create(Image1.Picture.Bitmap.Width, Image1.Picture.Bitmap.Height);
@@ -54 +54 @@
 begin
   inherited;
-  Application.CreateForm(TForm1, Form1);
+  Application.CreateForm(TFormScreen, FormScreen);
   Form := Application.MainForm;
   Form.OnResize := DoUpdateSize;
   VideoDeviceVCL := TVideoDeviceVCL.Create;
-  VideoDeviceVCL.CanvasVCL := TForm1(Form).Image1.Canvas;
-  VideoDeviceVCL.Size := TPoint.Create(Form.Width, Form.Height);
-  Kernel.Screen.Size := TPoint.Create(Form.Width, Form.Height);
+  VideoDeviceVCL.CanvasVCL := TFormScreen(Form).Image1.Canvas;
+  VideoDeviceVCL.Size := TPoint.Create(Form.ClientWidth, Form.ClientHeight);
+  Kernel.Screen.Size := TPoint.Create(Form.ClientWidth, Form.ClientHeight);
   if Assigned(Kernel.Screen.VideoDevice) then
     Kernel.Screen.VideoDevice.Destroy;

os/trunk/System/LDOS.Kernel.pas

@@ -24 +24 @@
 
   TTimer = class
+  private
+    FOnTick: TNotifyEvent;
+    FEnabled: Boolean;
+  public
+    Interval: Integer;
+    property Enabled: Boolean read FEnabled write FEnabled;
+    property OnTick: TNotifyEvent read FOnTick write FOnTick;
   end;
 

os/trunk/UFormMain.dfm

@@ -1 @@
-object Form1: TForm1
+object FormScreen: TFormScreen
   Left = 0
   Top = 0
-  Caption = 'Form1'
-  ClientHeight = 453
-  ClientWidth = 673
+  Caption = 'LDOS screen'
+  ClientHeight = 407
+  ClientWidth = 602
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
@@ -17 +17 @@
     Left = 0
     Top = 0
-    Width = 673
-    Height = 453
+    Width = 602
+    Height = 407
     Align = alClient
     ExplicitLeft = 256

os/trunk/UFormMain.pas

@@ -8 +8 @@
 
 type
-  TForm1 = class(Vcl.Forms.TForm)
+  TFormScreen = class(Vcl.Forms.TForm)
     Image1: TImage;
   private
@@ -18 +18 @@
 
 var
-  Form1: TForm1;
+  FormScreen: TFormScreen;
 
 implementation

os/trunk/Xvcl/Xvcl.Graphics.pas

@@ -10 +10 @@
   TColor = (clNone, clBlack, clWhite, clGray, clSilver, clBlue, clGreen, clRed,
     clLightBlue, clLightRed, clLightGreen, clBrown, clYellow, clMagenta, clCyan);
+  PColor = ^TColor;
 
   TPen = class
@@ -62 +63 @@
   TBitmap = class
   private
+    Data: PByte;
+    FSize: TPoint;
     function GetPixel(X, Y: Integer): TColor;
     procedure SetPixel(X, Y: Integer; const Value: TColor);
+    procedure SetSize(const Value: TPoint);
   public
     property Pixels[X, Y: Integer]: TColor read GetPixel write SetPixel;
+    property Size: TPoint read FSize write SetSize;
   end;
 
@@ -150 +155 @@
 function TBitmap.GetPixel(X, Y: Integer): TColor;
 begin
-
+  Result := PColor(Data + (X + Y * Size.X) * SizeOf(TColor))^;
 end;
 
 procedure TBitmap.SetPixel(X, Y: Integer; const Value: TColor);
 begin
-
-end;
-
+  PColor(Data + (X + Y * Size.X) * SizeOf(TColor))^ := Value;
+end;
+
+
+procedure TBitmap.SetSize(const Value: TPoint);
+begin
+  FSize := Value;
+end;
 
 { TVideoDevice }

os/trunk/lddesktop.dpr

@@ -3 +3 @@
 uses
   Vcl.Forms,
-  UFormMain in 'UFormMain.pas' {Form1},
+  UFormMain in 'UFormMain.pas' {FormScreen},
   Driver.VideoVCL in 'Drivers\Driver.VideoVCL.pas',
   Driver.SystemVCL in 'Drivers\Driver.SystemVCL.pas',
@@ -16 +16 @@
   LDOS.Task in 'System\LDOS.Task.pas',
   TestApplication in 'Applications\TestApplication.pas',
-  UDesktop in 'Applications\UDesktop.pas';
+  UDesktop in 'Applications\UDesktop.pas',
+  LDOS.Mem in 'System\LDOS.Mem.pas';
 
 {$R *.res}

os/trunk/lddesktop.dproj

@@ -84 +84 @@
         </DelphiCompile>
         <DCCReference Include="UFormMain.pas">
-            <Form>Form1</Form>
+            <Form>FormScreen</Form>
             <FormType>dfm</FormType>
         </DCCReference>
@@ -102 +102 @@
         <DCCReference Include="Applications\TestApplication.pas"/>
         <DCCReference Include="Applications\UDesktop.pas"/>
+        <DCCReference Include="System\LDOS.Mem.pas"/>
         <BuildConfiguration Include="Release">
             <Key>Cfg_2</Key>

os/trunk/lddesktop.dsk

@@ -1 +1 @@
 [Closed Files]
-File_0=TSourceModule,'C:\Projekty\DelphiLibs\DockManagement\Demo\UDockForm.pas',0,1,1,25,10,0,0,,
-File_1=TSourceModule,'c:\program files\embarcadero\rad studio\11.0\SOURCE\RTL\SYS\System.Types.pas',0,1,240,9,263,0,0,,
-File_2=TSourceModule,'C:\Projekty\DelphiLibs\DockManagement\UDockManagement.pas',0,1,885,31,959,0,0,,
-File_3=TSourceModule,'C:\Projekty\DelphiLibs\DockManagement\Demo\UMainForm.pas',0,1,64,14,84,0,0,,
-File_4=TSourceModule,'C:\Projekty\LibreDevelop\studio\trunk\UCore.pas',0,1,1,19,32,0,0,,
-File_5=TSourceModule,'C:\Projekty\LibreDevelop\platform\trunk\LDPlatform.Core.pas',0,1,13,1,48,0,0,,
-File_6=TSourceModule,'C:\Projekty\LibreDevelop\platform\trunk\LDPlatform.FormMain.pas',0,1,10,24,14,0,0,,
-File_7=TSourceModule,'C:\Projekty\LibreDevelop\platform\trunk\LDPlatform.FormOptions.pas',0,1,1,37,28,0,0,,
-File_8=TSourceModule,'C:\Projekty\LibreDevelop\platform\trunk\ULDPlatform.pas',0,1,1,118,17,0,0,,
-File_9=TSourceModule,'c:\program files\embarcadero\rad studio\11.0\source\rtl\common\System.Classes.pas',0,1,9393,1,9414,0,0,,
-File_10=TSourceModule,'C:\Projekty\LibreDevelop\studio\trunk\Forms\UFormMain.pas',0,1,41,12,59,0,0,,
-File_11=TSourceModule,'C:\Projekty\LibreDevelop\studio\trunk\Forms\UFormOptions.pas',0,1,1,1,1,0,0,,
-File_12=TSourceModule,'c:\program files\embarcadero\rad studio\10.0\SOURCE\VCL\Vcl.Forms.pas',0,1,1552,1,1575,0,0,{{1693,4}
+File_0=TSourceModule,'c:\program files\embarcadero\rad studio\11.0\SOURCE\RTL\SYS\System.pas',0,1,23211,1,23232,0,0,,
+File_1=TSourceModule,'C:\Projekty\DelphiLibs\DockManagement\Demo\UDockForm.pas',0,1,1,25,10,0,0,,
+File_2=TSourceModule,'c:\program files\embarcadero\rad studio\11.0\SOURCE\RTL\SYS\System.Types.pas',0,1,240,9,263,0,0,,
+File_3=TSourceModule,'C:\Projekty\DelphiLibs\DockManagement\UDockManagement.pas',0,1,885,31,959,0,0,,
+File_4=TSourceModule,'C:\Projekty\DelphiLibs\DockManagement\Demo\UMainForm.pas',0,1,64,14,84,0,0,,
+File_5=TSourceModule,'C:\Projekty\LibreDevelop\studio\trunk\UCore.pas',0,1,1,19,32,0,0,,
+File_6=TSourceModule,'C:\Projekty\LibreDevelop\platform\trunk\LDPlatform.Core.pas',0,1,13,1,48,0,0,,
+File_7=TSourceModule,'C:\Projekty\LibreDevelop\platform\trunk\LDPlatform.FormMain.pas',0,1,10,24,14,0,0,,
+File_8=TSourceModule,'C:\Projekty\LibreDevelop\platform\trunk\LDPlatform.FormOptions.pas',0,1,1,37,28,0,0,,
+File_9=TSourceModule,'C:\Projekty\LibreDevelop\platform\trunk\ULDPlatform.pas',0,1,1,118,17,0,0,,
+File_10=TSourceModule,'c:\program files\embarcadero\rad studio\11.0\source\rtl\common\System.Classes.pas',0,1,9393,1,9414,0,0,,
+File_11=TSourceModule,'C:\Projekty\LibreDevelop\studio\trunk\Forms\UFormMain.pas',0,1,41,12,59,0,0,,
+File_12=TSourceModule,'C:\Projekty\LibreDevelop\studio\trunk\Forms\UFormOptions.pas',0,1,1,1,1,0,0,,
+File_13=TSourceModule,'c:\program files\embarcadero\rad studio\10.0\SOURCE\VCL\Vcl.Forms.pas',0,1,1552,1,1575,0,0,{{1693,4}
 
 [Modules]
-Module0=C:\Projekty\LibreDevelop_\branches\Xvcl\UFormMain.pas
-Module1=C:\Projekty\LibreDevelop_\branches\Xvcl\Drivers\Driver.VideoVCL.pas
-Module2=c:\program files\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.Forms.pas
-Module3=C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Kernel.pas
-Module4=c:\program files\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.Controls.pas
-Module5=C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Graphics.pas
-Module6=C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Classes.pas
-Module7=c:\program files\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.Graphics.pas
-Module8=C:\Projekty\LibreDevelop_\branches\Xvcl\Drivers\Driver.SystemVCL.pas
-Module9=C:\Projekty\LibreDevelop_\branches\Xvcl\lddesktop.dproj
-Module10=default.htm
-Module11=C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Controls.pas
-Count=12
+Module0=C:\Projekty\LibreDevelop\os\trunk\UFormMain.pas
+Module1=default.htm
+Module2=C:\Projekty\LibreDevelop\os\trunk\lddesktop.dproj
+Module3=C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Classes.pas
+Module4=C:\Projekty\LibreDevelop\os\trunk\Applications\UDesktop.pas
+Module5=C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Controls.pas
+Module6=C:\Projekty\LibreDevelop\os\trunk\Drivers\Driver.SystemVCL.pas
+Module7=C:\Projekty\LibreDevelop\os\trunk\System\LDOS.Kernel.pas
+Module8=C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Forms.pas
+Module9=C:\Projekty\LibreDevelop\os\trunk\Drivers\Driver.VideoVCL.pas
+Module10=C:\Projekty\LibreDevelop\os\trunk\Applications\TestApplication.pas
+Module11=C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Generics.pas
+Module12=C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Graphics.pas
+Module13=c:\program files\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.Graphics.pas
+Module14=C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Classes.pas
+Module15=C:\Projekty\LibreDevelop\os\trunk\System\LDOS.Task.pas
+Module16=C:\Projekty\LibreDevelop\os\trunk\Drivers\Driver.KeyboardVCL.pas
+Module17=C:\Projekty\LibreDevelop\os\trunk\Drivers\Driver.MouseVCL.pas
+Module18=C:\Projekty\LibreDevelop_\branches\Xvcl\UFormMain.pas
+Module19=C:\Projekty\LibreDevelop_\branches\Xvcl\Drivers\Driver.VideoVCL.pas
+Module20=c:\program files\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.Forms.pas
+Module21=C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Kernel.pas
+Module22=c:\program files\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.Controls.pas
+Module23=C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Graphics.pas
+Module24=C:\Projekty\LibreDevelop_\branches\Xvcl\Drivers\Driver.SystemVCL.pas
+Module25=C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Controls.pas
+Count=26
 EditWindowCount=1
 
-[C:\Projekty\LibreDevelop_\branches\Xvcl\UFormMain.pas]
+[C:\Projekty\LibreDevelop\os\trunk\UFormMain.pas]
 ModuleType=TSourceModule
 FormState=1
-FormOnTop=1
-
-[C:\Projekty\LibreDevelop_\branches\Xvcl\Drivers\Driver.VideoVCL.pas]
-ModuleType=TSourceModule
-FormState=0
-FormOnTop=0
-
-[c:\program files\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.Forms.pas]
-ModuleType=TSourceModule
-FormState=0
-FormOnTop=0
-
-[C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Kernel.pas]
-ModuleType=TSourceModule
-FormState=0
-FormOnTop=0
-
-[c:\program files\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.Controls.pas]
-ModuleType=TSourceModule
-FormState=0
-FormOnTop=0
-
-[C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Graphics.pas]
-ModuleType=TSourceModule
-FormState=0
-FormOnTop=0
-
-[C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Classes.pas]
-ModuleType=TSourceModule
-FormState=0
-FormOnTop=0
-
-[c:\program files\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.Graphics.pas]
-ModuleType=TSourceModule
-FormState=0
-FormOnTop=0
-
-[C:\Projekty\LibreDevelop_\branches\Xvcl\Drivers\Driver.SystemVCL.pas]
-ModuleType=TSourceModule
-FormState=0
-FormOnTop=0
-
-[C:\Projekty\LibreDevelop_\branches\Xvcl\lddesktop.dproj]
-ModuleType=TBaseProject
+FormOnTop=0
 
 [default.htm]
 ModuleType=TURLModule
 
+[C:\Projekty\LibreDevelop\os\trunk\lddesktop.dproj]
+ModuleType=TBaseProject
+
+[C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Classes.pas]
+ModuleType=TSourceModule
+FormState=0
+FormOnTop=0
+
+[C:\Projekty\LibreDevelop\os\trunk\Applications\UDesktop.pas]
+ModuleType=TSourceModule
+FormState=0
+FormOnTop=0
+
+[C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Controls.pas]
+ModuleType=TSourceModule
+FormState=0
+FormOnTop=0
+
+[C:\Projekty\LibreDevelop\os\trunk\Drivers\Driver.SystemVCL.pas]
+ModuleType=TSourceModule
+FormState=0
+FormOnTop=0
+
+[C:\Projekty\LibreDevelop\os\trunk\System\LDOS.Kernel.pas]
+ModuleType=TSourceModule
+FormState=0
+FormOnTop=0
+
+[C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Forms.pas]
+ModuleType=TSourceModule
+FormState=0
+FormOnTop=0
+
+[C:\Projekty\LibreDevelop\os\trunk\Drivers\Driver.VideoVCL.pas]
+ModuleType=TSourceModule
+FormState=0
+FormOnTop=0
+
+[C:\Projekty\LibreDevelop\os\trunk\Applications\TestApplication.pas]
+ModuleType=TSourceModule
+FormState=0
+FormOnTop=0
+
+[C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Generics.pas]
+ModuleType=TSourceModule
+FormState=0
+FormOnTop=0
+
+[C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Graphics.pas]
+ModuleType=TSourceModule
+FormState=0
+FormOnTop=0
+
+[c:\program files\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.Graphics.pas]
+ModuleType=TSourceModule
+FormState=0
+FormOnTop=0
+
+[C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Classes.pas]
+ModuleType=TSourceModule
+FormState=0
+FormOnTop=0
+
+[C:\Projekty\LibreDevelop\os\trunk\System\LDOS.Task.pas]
+ModuleType=TSourceModule
+FormState=0
+FormOnTop=0
+
+[C:\Projekty\LibreDevelop\os\trunk\Drivers\Driver.KeyboardVCL.pas]
+ModuleType=TSourceModule
+FormState=0
+FormOnTop=0
+
+[C:\Projekty\LibreDevelop\os\trunk\Drivers\Driver.MouseVCL.pas]
+ModuleType=TSourceModule
+FormState=0
+FormOnTop=0
+
+[C:\Projekty\LibreDevelop_\branches\Xvcl\UFormMain.pas]
+ModuleType=TSourceModule
+FormState=1
+FormOnTop=0
+
+[C:\Projekty\LibreDevelop_\branches\Xvcl\Drivers\Driver.VideoVCL.pas]
+ModuleType=TSourceModule
+FormState=0
+FormOnTop=0
+
+[c:\program files\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.Forms.pas]
+ModuleType=TSourceModule
+FormState=0
+FormOnTop=0
+
+[C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Kernel.pas]
+ModuleType=TSourceModule
+FormState=0
+FormOnTop=0
+
+[c:\program files\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.Controls.pas]
+ModuleType=TSourceModule
+FormState=0
+FormOnTop=0
+
+[C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Graphics.pas]
+ModuleType=TSourceModule
+FormState=0
+FormOnTop=0
+
+[C:\Projekty\LibreDevelop_\branches\Xvcl\Drivers\Driver.SystemVCL.pas]
+ModuleType=TSourceModule
+FormState=0
+FormOnTop=0
+
 [C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Controls.pas]
 ModuleType=TSourceModule
@@ -87 +172 @@
 
 [EditWindow0]
-ViewCount=12
-CurrentEditView=C:\Projekty\LibreDevelop_\branches\Xvcl\UFormMain.pas
+ViewCount=26
+CurrentEditView=C:\Projekty\LibreDevelop\os\trunk\UFormMain.pas
 View0=0
 View1=1
@@ -101 +186 @@
 View10=10
 View11=11
+View12=12
+View13=13
+View14=14
+View15=15
+View16=16
+View17=17
+View18=18
+View19=19
+View20=20
+View21=21
+View22=22
+View23=23
+View24=24
+View25=25
 PercentageSizes=1
 Create=1
@@ -138 +237 @@
 [View1]
 CustomEditViewType=TEditView
-Module=C:\Projekty\LibreDevelop_\branches\Xvcl\lddesktop.dpr
-CursorX=28
-CursorY=36
-TopLine=12
-LeftCol=1
-Elisions=
-Bookmarks=
-EditViewName=C:\Projekty\LibreDevelop_\branches\Xvcl\lddesktop.dpr
-
-[View2]
-CustomEditViewType=TEditView
 Module=C:\Projekty\LibreDevelop_\branches\Xvcl\Drivers\Driver.SystemVCL.pas
 CursorX=1
@@ -158 +246 @@
 EditViewName=C:\Projekty\LibreDevelop_\branches\Xvcl\Drivers\Driver.SystemVCL.pas
 
-[View3]
+[View2]
 CustomEditViewType=TEditView
 Module=C:\Projekty\LibreDevelop_\branches\Xvcl\Drivers\Driver.VideoVCL.pas
@@ -169 +257 @@
 EditViewName=C:\Projekty\LibreDevelop_\branches\Xvcl\Drivers\Driver.VideoVCL.pas
 
-[View4]
+[View3]
 CustomEditViewType=TEditView
 Module=c:\program files\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.Forms.pas
@@ -180 +268 @@
 EditViewName=c:\program files\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.Forms.pas
 
-[View5]
+[View4]
 CustomEditViewType=TEditView
 Module=c:\program files\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.Controls.pas
@@ -191 +279 @@
 EditViewName=c:\program files\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.Controls.pas
 
-[View6]
+[View5]
 CustomEditViewType=TEditView
 Module=c:\program files\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.Graphics.pas
 CursorX=1
-CursorY=778
-TopLine=809
+CursorY=3431
+TopLine=3391
 LeftCol=1
 Elisions=
@@ -202 +290 @@
 EditViewName=c:\program files\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.Graphics.pas
 
-[View7]
+[View6]
 CustomEditViewType=TEditView
 Module=C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Graphics.pas
@@ -213 +301 @@
 EditViewName=C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Graphics.pas
 
-[View8]
+[View7]
 CustomEditViewType=TEditView
 Module=C:\Projekty\LibreDevelop_\branches\Xvcl\UFormMain.pas
@@ -224 +312 @@
 EditViewName=Borland.FormDesignerView
 
+[View8]
+CustomEditViewType=TEditView
+Module=C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Classes.pas
+CursorX=17
+CursorY=49
+TopLine=49
+LeftCol=1
+Elisions=
+Bookmarks=
+EditViewName=C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Classes.pas
+
 [View9]
+CustomEditViewType=TEditView
+Module=C:\Projekty\LibreDevelop\os\trunk\System\LDOS.Kernel.pas
+CursorX=46
+CursorY=184
+TopLine=171
+LeftCol=1
+Elisions=
+Bookmarks=
+EditViewName=C:\Projekty\LibreDevelop\os\trunk\System\LDOS.Kernel.pas
+
+[View10]
+CustomEditViewType=TEditView
+Module=C:\Projekty\LibreDevelop\os\trunk\Applications\UDesktop.pas
+CursorX=16
+CursorY=84
+TopLine=58
+LeftCol=1
+Elisions=
+Bookmarks=
+EditViewName=C:\Projekty\LibreDevelop\os\trunk\Applications\UDesktop.pas
+
+[View11]
+CustomEditViewType=TEditView
+Module=C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Graphics.pas
+CursorX=1
+CursorY=189
+TopLine=166
+LeftCol=1
+Elisions=
+Bookmarks=
+EditViewName=C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Graphics.pas
+
+[View12]
+CustomEditViewType=TEditView
+Module=C:\Projekty\LibreDevelop\os\trunk\UFormMain.pas
+CursorX=112
+CursorY=14
+TopLine=1
+LeftCol=1
+Elisions=
+Bookmarks=
+EditViewName=C:\Projekty\LibreDevelop\os\trunk\UFormMain.pas
+
+[View13]
+CustomEditViewType=TEditView
+Module=C:\Projekty\LibreDevelop\os\trunk\System\LDOS.Task.pas
+CursorX=3
+CursorY=7
+TopLine=1
+LeftCol=1
+Elisions=
+Bookmarks=
+EditViewName=C:\Projekty\LibreDevelop\os\trunk\System\LDOS.Task.pas
+
+[View14]
+CustomEditViewType=TEditView
+Module=C:\Projekty\LibreDevelop\os\trunk\lddesktop.dpr
+CursorX=1
+CursorY=29
+TopLine=16
+LeftCol=1
+Elisions=
+Bookmarks=
+EditViewName=C:\Projekty\LibreDevelop\os\trunk\lddesktop.dpr
+
+[View15]
+CustomEditViewType=TEditView
+Module=C:\Projekty\LibreDevelop\os\trunk\Drivers\Driver.VideoVCL.pas
+CursorX=32
+CursorY=40
+TopLine=24
+LeftCol=1
+Elisions=
+Bookmarks=
+EditViewName=C:\Projekty\LibreDevelop\os\trunk\Drivers\Driver.VideoVCL.pas
+
+[View16]
+CustomEditViewType=TEditView
+Module=C:\Projekty\LibreDevelop\os\trunk\Drivers\Driver.SystemVCL.pas
+CursorX=18
+CursorY=6
+TopLine=1
+LeftCol=1
+Elisions=
+Bookmarks=
+EditViewName=C:\Projekty\LibreDevelop\os\trunk\Drivers\Driver.SystemVCL.pas
+
+[View17]
+CustomEditViewType=TEditView
+Module=C:\Projekty\LibreDevelop\os\trunk\Drivers\Driver.MouseVCL.pas
+CursorX=73
+CursorY=6
+TopLine=1
+LeftCol=1
+Elisions=
+Bookmarks=
+EditViewName=C:\Projekty\LibreDevelop\os\trunk\Drivers\Driver.MouseVCL.pas
+
+[View18]
+CustomEditViewType=TEditView
+Module=C:\Projekty\LibreDevelop\os\trunk\Drivers\Driver.KeyboardVCL.pas
+CursorX=73
+CursorY=6
+TopLine=1
+LeftCol=1
+Elisions=
+Bookmarks=
+EditViewName=C:\Projekty\LibreDevelop\os\trunk\Drivers\Driver.KeyboardVCL.pas
+
+[View19]
+CustomEditViewType=TEditView
+Module=C:\Projekty\LibreDevelop\os\trunk\Applications\TestApplication.pas
+CursorX=19
+CursorY=33
+TopLine=7
+LeftCol=1
+Elisions=
+Bookmarks=
+EditViewName=C:\Projekty\LibreDevelop\os\trunk\Applications\TestApplication.pas
+
+[View20]
+CustomEditViewType=TEditView
+Module=C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Controls.pas
+CursorX=14
+CursorY=74
+TopLine=53
+LeftCol=1
+Elisions=
+Bookmarks=
+EditViewName=C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Controls.pas
+
+[View21]
+CustomEditViewType=TEditView
+Module=C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Generics.pas
+CursorX=1
+CursorY=1
+TopLine=4
+LeftCol=1
+Elisions=
+Bookmarks=
+EditViewName=C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Generics.pas
+
+[View22]
+CustomEditViewType=TEditView
+Module=C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Forms.pas
+CursorX=50
+CursorY=151
+TopLine=109
+LeftCol=1
+Elisions=
+Bookmarks=
+EditViewName=C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Forms.pas
+
+[View23]
 CustomEditViewType=TEditView
 Module=C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Classes.pas
@@ -235 +488 @@
 EditViewName=C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Classes.pas
 
-[View10]
+[View24]
 CustomEditViewType=TEditView
 Module=C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Controls.pas
@@ -246 +499 @@
 EditViewName=C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Controls.pas
 
-[View11]
+[View25]
 CustomEditViewType=TEditView
 Module=C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Kernel.pas
@@ -393 +646 @@
 SplitPos=141
 
-[PropInspDesignerSelection]
-ArrangeBy=Name
-SelectedItem=Visible,Action
-ExpandedItems="LiveBindings Designer=0",Anchors=0,BorderIcons=0,Constraints=0,Font=0,GlassFrame=0,HorzScrollBar=0,LiveBindings=0,Margins=0,Menu=0,Padding=0,Images=0,Action=0,StyleElements=0,Touch=0,VertScrollBar=0
-
 [TFileExplorerForm]
 PercentageSizes=1
@@ -609 +857 @@
 Docked=1
 State=0
-Left=4864
-Top=783
+Left=-32699
+Top=-2492
 Width=5307
 Height=4876
@@ -628 +876 @@
 Docked=1
 State=0
-Left=-9517
-Top=-391
+Left=-11386
+Top=-324
 Width=1844
 Height=3143
@@ -821 +1069 @@
 Docked=1
 State=0
-Left=9517
-Top=391
+Left=11386
+Top=324
 Width=1896
 Height=7029
@@ -883 +1131 @@
 TabPosition=1
 ActiveTabID=PropertyInspector
-TabDockClients=PropertyInspector,TFileExplorerForm,DataExplorerContainer,ModelViewTool
-
+TabDockClients=PropertyInspector,ModelViewTool,DataExplorerContainer,TFileExplorerForm
+

@@ -2 +2 @@
 *.~dsk
 __history
+*.identcache