Changeset 6 for os/trunk


Ignore:
Timestamp:
Jun 2, 2013, 5:41:42 PM (11 years ago)
Author:
chronos
Message:
Location:
os/trunk
Files:
1 added
12 edited

Legend:

Unmodified
Added
Removed

  • os/trunk

    • Property svn:ignore

      •  

        old new  
        22*.~dsk
        33__history
         4*.identcache

  • os/trunk/Applications/TestApplication.pas

    r5 r6  
    44
    55uses
    6   Vcl.Graphics, Xvcl.Controls, Xvcl.Classes, Xvcl.Forms, SysUtils;
     6  Vcl.Graphics, Xvcl.Controls, Xvcl.Classes, Xvcl.Forms, LDOS.Kernel, SysUtils;
    77
    88type
    … …  
    1212    Button: TButton;
    1313    Label1: TLabel;
     14    Timer1: TTimer;
    1415    procedure Run; override;
    1516    procedure ButtonClick(Sender: TObject);
    … …  
    1819
    1920implementation
    20 
    21 uses
    22   LDOS.Kernel;
    2321
    2422{ TTestApplication }
    … …  
    4341  Form2.Caption := 'Some form';
    4442  Form2.Screen := Screen;
     43  Timer1 := TTimer.Create;
     44  Timer1.Interval := 1000;
     45  Timer1.Enabled := True;
     46  TScreen(Screen).Kernel.Timers.Add(Timer1);
    4547  Button := TButton.Create;
    4648  Button.Parent := Form1;
    … …  
    5658  Label1.Caption := '0';
    5759  Form1.Controls.Add(Label1);
     60  MainForm := Form1;
    5861  TScreen(Screen).Forms.Add(Form1);
    5962  TScreen(Screen).Forms.Add(Form2);

  • os/trunk/Applications/UDesktop.pas

    r5 r6  
    99type
    1010  TDesktopApp = class(TApplication)
     11  private
     12    procedure TaskButtonClick(Sender: TObject);
    1113  protected
    1214    function HandleMessage(Message: TMessage): Boolean; override;
    … …  
    3840  TestApp.Screen := Screen;
    3941  TScreen(Screen).Kernel.RunApplication(TestApp);
     42end;
     43
     44procedure TDesktopApp.TaskButtonClick(Sender: TObject);
     45var
     46  Process: TProcess;
     47begin
     48  if Sender is TButton then begin
     49    Process := TScreen(Screen).Kernel.Processes[TaskButtons.IndexOf(TButton(Sender))];
     50    if Assigned(Process) and Assigned(Process.Application.MainForm) then
     51      Process.Application.MainForm.Focused := True;
     52  end;
    4053end;
    4154
    … …  
    7588  MainBar.Controls.Add(TaskBar);
    7689  MenuButton := TButton.Create;
    77   MenuButton.Parent := MainBar;
     90  MenuButton.Parent := TaskBar;
    7891  MenuButton.Bounds := TRectangle.Create(0, 0, 50, 24);
    7992  MenuButton.Visible := True;
    … …  
    8295  MainBar.Controls.Add(MenuButton);
    8396  TScreen(Screen).Forms.Add(MainBar);
    84   UpdateTaskList;
     97  MainForm := MainBar;
     98  UpdateTaskBar;
    8599  TScreen(Screen).Paint;
    86100end;
    … …  
    93107    MainBar.Bounds.Width, MainBar.Bounds.Height);
    94108  UpdateTaskList;
     109  TScreen(Screen).Paint;
    95110end;
    96111
    … …  
    120135      TaskButtons[I].Bounds := TRectangle.Create(MenuButton.Bounds.Width +
    121136        I * Width, 0, Width, MainBar.Bounds.Height);
     137      TaskButtons[I].OnClick := TaskButtonClick;
    122138      MainBar.Controls.Add(TaskButtons[I]);
    123139    end;

  • os/trunk/Drivers/Driver.MouseVCL.pas

    r5 r6  
    5151  inherited;
    5252  Form := Application.MainForm;
    53   TForm1(Form).Image1.OnMouseDown := DoMouseDown;
    54   TForm1(Form).Image1.OnMouseUp := DoMouseUp;
    55   TForm1(Form).Image1.OnMouseMove := DoMouseMove;
     53  TFormScreen(Form).Image1.OnMouseDown := DoMouseDown;
     54  TFormScreen(Form).Image1.OnMouseUp := DoMouseUp;
     55  TFormScreen(Form).Image1.OnMouseMove := DoMouseMove;
    5656end;
    5757

  • os/trunk/Drivers/Driver.VideoVCL.pas

    r5 r6  
    3232procedure TDriverVideoVCL.DoUpdateSize(Sender: TObject);
    3333begin
    34   with TForm1(Form) do
     34  with TFormScreen(Form) do
    3535  if (Image1.Width <> Image1.Picture.Bitmap.Width) or
    3636  (Image1.Height <> Image1.Picture.Bitmap.Height) then begin
    37     Image1.Picture.Bitmap.SetSize(Image1.Width, Image1.Height);
     37    Image1.Picture.Bitmap.SetSize(Image1.ClientWidth, Image1.ClientHeight);
    3838    Kernel.Screen.VideoDevice.Size := TPoint.Create(Image1.Picture.Bitmap.Width, Image1.Picture.Bitmap.Height);
    3939    Kernel.Screen.Size := TPoint.Create(Image1.Picture.Bitmap.Width, Image1.Picture.Bitmap.Height);
    … …  
    5454begin
    5555  inherited;
    56   Application.CreateForm(TForm1, Form1);
     56  Application.CreateForm(TFormScreen, FormScreen);
    5757  Form := Application.MainForm;
    5858  Form.OnResize := DoUpdateSize;
    5959  VideoDeviceVCL := TVideoDeviceVCL.Create;
    60   VideoDeviceVCL.CanvasVCL := TForm1(Form).Image1.Canvas;
    61   VideoDeviceVCL.Size := TPoint.Create(Form.Width, Form.Height);
    62   Kernel.Screen.Size := TPoint.Create(Form.Width, Form.Height);
     60  VideoDeviceVCL.CanvasVCL := TFormScreen(Form).Image1.Canvas;
     61  VideoDeviceVCL.Size := TPoint.Create(Form.ClientWidth, Form.ClientHeight);
     62  Kernel.Screen.Size := TPoint.Create(Form.ClientWidth, Form.ClientHeight);
    6363  if Assigned(Kernel.Screen.VideoDevice) then
    6464    Kernel.Screen.VideoDevice.Destroy;

  • os/trunk/System/LDOS.Kernel.pas

    r5 r6  
    2424
    2525  TTimer = class
     26  private
     27    FOnTick: TNotifyEvent;
     28    FEnabled: Boolean;
     29  public
     30    Interval: Integer;
     31    property Enabled: Boolean read FEnabled write FEnabled;
     32    property OnTick: TNotifyEvent read FOnTick write FOnTick;
    2633  end;
    2734

  • os/trunk/UFormMain.dfm

    r5 r6  
    1 object Form1: TForm1
     1object FormScreen: TFormScreen
    22  Left = 0
    33  Top = 0
    4   Caption = 'Form1'
    5   ClientHeight = 453
    6   ClientWidth = 673
     4  Caption = 'LDOS screen'
     5  ClientHeight = 407
     6  ClientWidth = 602
    77  Color = clBtnFace
    88  Font.Charset = DEFAULT_CHARSET
    … …  
    1717    Left = 0
    1818    Top = 0
    19     Width = 673
    20     Height = 453
     19    Width = 602
     20    Height = 407
    2121    Align = alClient
    2222    ExplicitLeft = 256

  • os/trunk/UFormMain.pas

    r3 r6  
    88
    99type
    10   TForm1 = class(Vcl.Forms.TForm)
     10  TFormScreen = class(Vcl.Forms.TForm)
    1111    Image1: TImage;
    1212  private
    … …  
    1818
    1919var
    20   Form1: TForm1;
     20  FormScreen: TFormScreen;
    2121
    2222implementation

  • os/trunk/Xvcl/Xvcl.Graphics.pas

    r5 r6  
    1010  TColor = (clNone, clBlack, clWhite, clGray, clSilver, clBlue, clGreen, clRed,
    1111    clLightBlue, clLightRed, clLightGreen, clBrown, clYellow, clMagenta, clCyan);
     12  PColor = ^TColor;
    1213
    1314  TPen = class
    … …  
    6263  TBitmap = class
    6364  private
     65    Data: PByte;
     66    FSize: TPoint;
    6467    function GetPixel(X, Y: Integer): TColor;
    6568    procedure SetPixel(X, Y: Integer; const Value: TColor);
     69    procedure SetSize(const Value: TPoint);
    6670  public
    6771    property Pixels[X, Y: Integer]: TColor read GetPixel write SetPixel;
     72    property Size: TPoint read FSize write SetSize;
    6873  end;
    6974
    … …  
    150155function TBitmap.GetPixel(X, Y: Integer): TColor;
    151156begin
    152 
     157  Result := PColor(Data + (X + Y * Size.X) * SizeOf(TColor))^;
    153158end;
    154159
    155160procedure TBitmap.SetPixel(X, Y: Integer; const Value: TColor);
    156161begin
    157 
    158 end;
    159 
     162  PColor(Data + (X + Y * Size.X) * SizeOf(TColor))^ := Value;
     163end;
     164
     165
     166procedure TBitmap.SetSize(const Value: TPoint);
     167begin
     168  FSize := Value;
     169end;
    160170
    161171{ TVideoDevice }

  • os/trunk/lddesktop.dpr

    r5 r6  
    33uses
    44  Vcl.Forms,
    5   UFormMain in 'UFormMain.pas' {Form1},
     5  UFormMain in 'UFormMain.pas' {FormScreen},
    66  Driver.VideoVCL in 'Drivers\Driver.VideoVCL.pas',
    77  Driver.SystemVCL in 'Drivers\Driver.SystemVCL.pas',
    … …  
    1616  LDOS.Task in 'System\LDOS.Task.pas',
    1717  TestApplication in 'Applications\TestApplication.pas',
    18   UDesktop in 'Applications\UDesktop.pas';
     18  UDesktop in 'Applications\UDesktop.pas',
     19  LDOS.Mem in 'System\LDOS.Mem.pas';
    1920
    2021{$R *.res}

  • os/trunk/lddesktop.dproj

    r5 r6  
    8484        </DelphiCompile>
    8585        <DCCReference Include="UFormMain.pas">
    86             <Form>Form1</Form>
     86            <Form>FormScreen</Form>
    8787            <FormType>dfm</FormType>
    8888        </DCCReference>
    … …  
    102102        <DCCReference Include="Applications\TestApplication.pas"/>
    103103        <DCCReference Include="Applications\UDesktop.pas"/>
     104        <DCCReference Include="System\LDOS.Mem.pas"/>
    104105        <BuildConfiguration Include="Release">
    105106            <Key>Cfg_2</Key>

  • os/trunk/lddesktop.dsk

    r3 r6  
    11[Closed Files]
    2 File_0=TSourceModule,'C:\Projekty\DelphiLibs\DockManagement\Demo\UDockForm.pas',0,1,1,25,10,0,0,,
    3 File_1=TSourceModule,'c:\program files\embarcadero\rad studio\11.0\SOURCE\RTL\SYS\System.Types.pas',0,1,240,9,263,0,0,,
    4 File_2=TSourceModule,'C:\Projekty\DelphiLibs\DockManagement\UDockManagement.pas',0,1,885,31,959,0,0,,
    5 File_3=TSourceModule,'C:\Projekty\DelphiLibs\DockManagement\Demo\UMainForm.pas',0,1,64,14,84,0,0,,
    6 File_4=TSourceModule,'C:\Projekty\LibreDevelop\studio\trunk\UCore.pas',0,1,1,19,32,0,0,,
    7 File_5=TSourceModule,'C:\Projekty\LibreDevelop\platform\trunk\LDPlatform.Core.pas',0,1,13,1,48,0,0,,
    8 File_6=TSourceModule,'C:\Projekty\LibreDevelop\platform\trunk\LDPlatform.FormMain.pas',0,1,10,24,14,0,0,,
    9 File_7=TSourceModule,'C:\Projekty\LibreDevelop\platform\trunk\LDPlatform.FormOptions.pas',0,1,1,37,28,0,0,,
    10 File_8=TSourceModule,'C:\Projekty\LibreDevelop\platform\trunk\ULDPlatform.pas',0,1,1,118,17,0,0,,
    11 File_9=TSourceModule,'c:\program files\embarcadero\rad studio\11.0\source\rtl\common\System.Classes.pas',0,1,9393,1,9414,0,0,,
    12 File_10=TSourceModule,'C:\Projekty\LibreDevelop\studio\trunk\Forms\UFormMain.pas',0,1,41,12,59,0,0,,
    13 File_11=TSourceModule,'C:\Projekty\LibreDevelop\studio\trunk\Forms\UFormOptions.pas',0,1,1,1,1,0,0,,
    14 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}
     2File_0=TSourceModule,'c:\program files\embarcadero\rad studio\11.0\SOURCE\RTL\SYS\System.pas',0,1,23211,1,23232,0,0,,
     3File_1=TSourceModule,'C:\Projekty\DelphiLibs\DockManagement\Demo\UDockForm.pas',0,1,1,25,10,0,0,,
     4File_2=TSourceModule,'c:\program files\embarcadero\rad studio\11.0\SOURCE\RTL\SYS\System.Types.pas',0,1,240,9,263,0,0,,
     5File_3=TSourceModule,'C:\Projekty\DelphiLibs\DockManagement\UDockManagement.pas',0,1,885,31,959,0,0,,
     6File_4=TSourceModule,'C:\Projekty\DelphiLibs\DockManagement\Demo\UMainForm.pas',0,1,64,14,84,0,0,,
     7File_5=TSourceModule,'C:\Projekty\LibreDevelop\studio\trunk\UCore.pas',0,1,1,19,32,0,0,,
     8File_6=TSourceModule,'C:\Projekty\LibreDevelop\platform\trunk\LDPlatform.Core.pas',0,1,13,1,48,0,0,,
     9File_7=TSourceModule,'C:\Projekty\LibreDevelop\platform\trunk\LDPlatform.FormMain.pas',0,1,10,24,14,0,0,,
     10File_8=TSourceModule,'C:\Projekty\LibreDevelop\platform\trunk\LDPlatform.FormOptions.pas',0,1,1,37,28,0,0,,
     11File_9=TSourceModule,'C:\Projekty\LibreDevelop\platform\trunk\ULDPlatform.pas',0,1,1,118,17,0,0,,
     12File_10=TSourceModule,'c:\program files\embarcadero\rad studio\11.0\source\rtl\common\System.Classes.pas',0,1,9393,1,9414,0,0,,
     13File_11=TSourceModule,'C:\Projekty\LibreDevelop\studio\trunk\Forms\UFormMain.pas',0,1,41,12,59,0,0,,
     14File_12=TSourceModule,'C:\Projekty\LibreDevelop\studio\trunk\Forms\UFormOptions.pas',0,1,1,1,1,0,0,,
     15File_13=TSourceModule,'c:\program files\embarcadero\rad studio\10.0\SOURCE\VCL\Vcl.Forms.pas',0,1,1552,1,1575,0,0,{{1693,4}
    1516
    1617[Modules]
    17 Module0=C:\Projekty\LibreDevelop_\branches\Xvcl\UFormMain.pas
    18 Module1=C:\Projekty\LibreDevelop_\branches\Xvcl\Drivers\Driver.VideoVCL.pas
    19 Module2=c:\program files\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.Forms.pas
    20 Module3=C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Kernel.pas
    21 Module4=c:\program files\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.Controls.pas
    22 Module5=C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Graphics.pas
    23 Module6=C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Classes.pas
    24 Module7=c:\program files\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.Graphics.pas
    25 Module8=C:\Projekty\LibreDevelop_\branches\Xvcl\Drivers\Driver.SystemVCL.pas
    26 Module9=C:\Projekty\LibreDevelop_\branches\Xvcl\lddesktop.dproj
    27 Module10=default.htm
    28 Module11=C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Controls.pas
    29 Count=12
     18Module0=C:\Projekty\LibreDevelop\os\trunk\UFormMain.pas
     19Module1=default.htm
     20Module2=C:\Projekty\LibreDevelop\os\trunk\lddesktop.dproj
     21Module3=C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Classes.pas
     22Module4=C:\Projekty\LibreDevelop\os\trunk\Applications\UDesktop.pas
     23Module5=C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Controls.pas
     24Module6=C:\Projekty\LibreDevelop\os\trunk\Drivers\Driver.SystemVCL.pas
     25Module7=C:\Projekty\LibreDevelop\os\trunk\System\LDOS.Kernel.pas
     26Module8=C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Forms.pas
     27Module9=C:\Projekty\LibreDevelop\os\trunk\Drivers\Driver.VideoVCL.pas
     28Module10=C:\Projekty\LibreDevelop\os\trunk\Applications\TestApplication.pas
     29Module11=C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Generics.pas
     30Module12=C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Graphics.pas
     31Module13=c:\program files\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.Graphics.pas
     32Module14=C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Classes.pas
     33Module15=C:\Projekty\LibreDevelop\os\trunk\System\LDOS.Task.pas
     34Module16=C:\Projekty\LibreDevelop\os\trunk\Drivers\Driver.KeyboardVCL.pas
     35Module17=C:\Projekty\LibreDevelop\os\trunk\Drivers\Driver.MouseVCL.pas
     36Module18=C:\Projekty\LibreDevelop_\branches\Xvcl\UFormMain.pas
     37Module19=C:\Projekty\LibreDevelop_\branches\Xvcl\Drivers\Driver.VideoVCL.pas
     38Module20=c:\program files\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.Forms.pas
     39Module21=C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Kernel.pas
     40Module22=c:\program files\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.Controls.pas
     41Module23=C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Graphics.pas
     42Module24=C:\Projekty\LibreDevelop_\branches\Xvcl\Drivers\Driver.SystemVCL.pas
     43Module25=C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Controls.pas
     44Count=26
    3045EditWindowCount=1
    3146
    32 [C:\Projekty\LibreDevelop_\branches\Xvcl\UFormMain.pas]
     47[C:\Projekty\LibreDevelop\os\trunk\UFormMain.pas]
    3348ModuleType=TSourceModule
    3449FormState=1
    35 FormOnTop=1
    36 
    37 [C:\Projekty\LibreDevelop_\branches\Xvcl\Drivers\Driver.VideoVCL.pas]
    38 ModuleType=TSourceModule
    39 FormState=0
    40 FormOnTop=0
    41 
    42 [c:\program files\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.Forms.pas]
    43 ModuleType=TSourceModule
    44 FormState=0
    45 FormOnTop=0
    46 
    47 [C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Kernel.pas]
    48 ModuleType=TSourceModule
    49 FormState=0
    50 FormOnTop=0
    51 
    52 [c:\program files\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.Controls.pas]
    53 ModuleType=TSourceModule
    54 FormState=0
    55 FormOnTop=0
    56 
    57 [C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Graphics.pas]
    58 ModuleType=TSourceModule
    59 FormState=0
    60 FormOnTop=0
    61 
    62 [C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Classes.pas]
    63 ModuleType=TSourceModule
    64 FormState=0
    65 FormOnTop=0
    66 
    67 [c:\program files\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.Graphics.pas]
    68 ModuleType=TSourceModule
    69 FormState=0
    70 FormOnTop=0
    71 
    72 [C:\Projekty\LibreDevelop_\branches\Xvcl\Drivers\Driver.SystemVCL.pas]
    73 ModuleType=TSourceModule
    74 FormState=0
    75 FormOnTop=0
    76 
    77 [C:\Projekty\LibreDevelop_\branches\Xvcl\lddesktop.dproj]
    78 ModuleType=TBaseProject
     50FormOnTop=0
    7951
    8052[default.htm]
    8153ModuleType=TURLModule
    8254
     55[C:\Projekty\LibreDevelop\os\trunk\lddesktop.dproj]
     56ModuleType=TBaseProject
     57
     58[C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Classes.pas]
     59ModuleType=TSourceModule
     60FormState=0
     61FormOnTop=0
     62
     63[C:\Projekty\LibreDevelop\os\trunk\Applications\UDesktop.pas]
     64ModuleType=TSourceModule
     65FormState=0
     66FormOnTop=0
     67
     68[C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Controls.pas]
     69ModuleType=TSourceModule
     70FormState=0
     71FormOnTop=0
     72
     73[C:\Projekty\LibreDevelop\os\trunk\Drivers\Driver.SystemVCL.pas]
     74ModuleType=TSourceModule
     75FormState=0
     76FormOnTop=0
     77
     78[C:\Projekty\LibreDevelop\os\trunk\System\LDOS.Kernel.pas]
     79ModuleType=TSourceModule
     80FormState=0
     81FormOnTop=0
     82
     83[C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Forms.pas]
     84ModuleType=TSourceModule
     85FormState=0
     86FormOnTop=0
     87
     88[C:\Projekty\LibreDevelop\os\trunk\Drivers\Driver.VideoVCL.pas]
     89ModuleType=TSourceModule
     90FormState=0
     91FormOnTop=0
     92
     93[C:\Projekty\LibreDevelop\os\trunk\Applications\TestApplication.pas]
     94ModuleType=TSourceModule
     95FormState=0
     96FormOnTop=0
     97
     98[C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Generics.pas]
     99ModuleType=TSourceModule
     100FormState=0
     101FormOnTop=0
     102
     103[C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Graphics.pas]
     104ModuleType=TSourceModule
     105FormState=0
     106FormOnTop=0
     107
     108[c:\program files\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.Graphics.pas]
     109ModuleType=TSourceModule
     110FormState=0
     111FormOnTop=0
     112
     113[C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Classes.pas]
     114ModuleType=TSourceModule
     115FormState=0
     116FormOnTop=0
     117
     118[C:\Projekty\LibreDevelop\os\trunk\System\LDOS.Task.pas]
     119ModuleType=TSourceModule
     120FormState=0
     121FormOnTop=0
     122
     123[C:\Projekty\LibreDevelop\os\trunk\Drivers\Driver.KeyboardVCL.pas]
     124ModuleType=TSourceModule
     125FormState=0
     126FormOnTop=0
     127
     128[C:\Projekty\LibreDevelop\os\trunk\Drivers\Driver.MouseVCL.pas]
     129ModuleType=TSourceModule
     130FormState=0
     131FormOnTop=0
     132
     133[C:\Projekty\LibreDevelop_\branches\Xvcl\UFormMain.pas]
     134ModuleType=TSourceModule
     135FormState=1
     136FormOnTop=0
     137
     138[C:\Projekty\LibreDevelop_\branches\Xvcl\Drivers\Driver.VideoVCL.pas]
     139ModuleType=TSourceModule
     140FormState=0
     141FormOnTop=0
     142
     143[c:\program files\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.Forms.pas]
     144ModuleType=TSourceModule
     145FormState=0
     146FormOnTop=0
     147
     148[C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Kernel.pas]
     149ModuleType=TSourceModule
     150FormState=0
     151FormOnTop=0
     152
     153[c:\program files\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.Controls.pas]
     154ModuleType=TSourceModule
     155FormState=0
     156FormOnTop=0
     157
     158[C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Graphics.pas]
     159ModuleType=TSourceModule
     160FormState=0
     161FormOnTop=0
     162
     163[C:\Projekty\LibreDevelop_\branches\Xvcl\Drivers\Driver.SystemVCL.pas]
     164ModuleType=TSourceModule
     165FormState=0
     166FormOnTop=0
     167
    83168[C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Controls.pas]
    84169ModuleType=TSourceModule
    … …  
    87172
    88173[EditWindow0]
    89 ViewCount=12
    90 CurrentEditView=C:\Projekty\LibreDevelop_\branches\Xvcl\UFormMain.pas
     174ViewCount=26
     175CurrentEditView=C:\Projekty\LibreDevelop\os\trunk\UFormMain.pas
    91176View0=0
    92177View1=1
    … …  
    101186View10=10
    102187View11=11
     188View12=12
     189View13=13
     190View14=14
     191View15=15
     192View16=16
     193View17=17
     194View18=18
     195View19=19
     196View20=20
     197View21=21
     198View22=22
     199View23=23
     200View24=24
     201View25=25
    103202PercentageSizes=1
    104203Create=1
    … …  
    138237[View1]
    139238CustomEditViewType=TEditView
    140 Module=C:\Projekty\LibreDevelop_\branches\Xvcl\lddesktop.dpr
    141 CursorX=28
    142 CursorY=36
    143 TopLine=12
    144 LeftCol=1
    145 Elisions=
    146 Bookmarks=
    147 EditViewName=C:\Projekty\LibreDevelop_\branches\Xvcl\lddesktop.dpr
    148 
    149 [View2]
    150 CustomEditViewType=TEditView
    151239Module=C:\Projekty\LibreDevelop_\branches\Xvcl\Drivers\Driver.SystemVCL.pas
    152240CursorX=1
    … …  
    158246EditViewName=C:\Projekty\LibreDevelop_\branches\Xvcl\Drivers\Driver.SystemVCL.pas
    159247
    160 [View3]
     248[View2]
    161249CustomEditViewType=TEditView
    162250Module=C:\Projekty\LibreDevelop_\branches\Xvcl\Drivers\Driver.VideoVCL.pas
    … …  
    169257EditViewName=C:\Projekty\LibreDevelop_\branches\Xvcl\Drivers\Driver.VideoVCL.pas
    170258
    171 [View4]
     259[View3]
    172260CustomEditViewType=TEditView
    173261Module=c:\program files\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.Forms.pas
    … …  
    180268EditViewName=c:\program files\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.Forms.pas
    181269
    182 [View5]
     270[View4]
    183271CustomEditViewType=TEditView
    184272Module=c:\program files\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.Controls.pas
    … …  
    191279EditViewName=c:\program files\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.Controls.pas
    192280
    193 [View6]
     281[View5]
    194282CustomEditViewType=TEditView
    195283Module=c:\program files\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.Graphics.pas
    196284CursorX=1
    197 CursorY=778
    198 TopLine=809
     285CursorY=3431
     286TopLine=3391
    199287LeftCol=1
    200288Elisions=
    … …  
    202290EditViewName=c:\program files\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.Graphics.pas
    203291
    204 [View7]
     292[View6]
    205293CustomEditViewType=TEditView
    206294Module=C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Graphics.pas
    … …  
    213301EditViewName=C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Graphics.pas
    214302
    215 [View8]
     303[View7]
    216304CustomEditViewType=TEditView
    217305Module=C:\Projekty\LibreDevelop_\branches\Xvcl\UFormMain.pas
    … …  
    224312EditViewName=Borland.FormDesignerView
    225313
     314[View8]
     315CustomEditViewType=TEditView
     316Module=C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Classes.pas
     317CursorX=17
     318CursorY=49
     319TopLine=49
     320LeftCol=1
     321Elisions=
     322Bookmarks=
     323EditViewName=C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Classes.pas
     324
    226325[View9]
     326CustomEditViewType=TEditView
     327Module=C:\Projekty\LibreDevelop\os\trunk\System\LDOS.Kernel.pas
     328CursorX=46
     329CursorY=184
     330TopLine=171
     331LeftCol=1
     332Elisions=
     333Bookmarks=
     334EditViewName=C:\Projekty\LibreDevelop\os\trunk\System\LDOS.Kernel.pas
     335
     336[View10]
     337CustomEditViewType=TEditView
     338Module=C:\Projekty\LibreDevelop\os\trunk\Applications\UDesktop.pas
     339CursorX=16
     340CursorY=84
     341TopLine=58
     342LeftCol=1
     343Elisions=
     344Bookmarks=
     345EditViewName=C:\Projekty\LibreDevelop\os\trunk\Applications\UDesktop.pas
     346
     347[View11]
     348CustomEditViewType=TEditView
     349Module=C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Graphics.pas
     350CursorX=1
     351CursorY=189
     352TopLine=166
     353LeftCol=1
     354Elisions=
     355Bookmarks=
     356EditViewName=C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Graphics.pas
     357
     358[View12]
     359CustomEditViewType=TEditView
     360Module=C:\Projekty\LibreDevelop\os\trunk\UFormMain.pas
     361CursorX=112
     362CursorY=14
     363TopLine=1
     364LeftCol=1
     365Elisions=
     366Bookmarks=
     367EditViewName=C:\Projekty\LibreDevelop\os\trunk\UFormMain.pas
     368
     369[View13]
     370CustomEditViewType=TEditView
     371Module=C:\Projekty\LibreDevelop\os\trunk\System\LDOS.Task.pas
     372CursorX=3
     373CursorY=7
     374TopLine=1
     375LeftCol=1
     376Elisions=
     377Bookmarks=
     378EditViewName=C:\Projekty\LibreDevelop\os\trunk\System\LDOS.Task.pas
     379
     380[View14]
     381CustomEditViewType=TEditView
     382Module=C:\Projekty\LibreDevelop\os\trunk\lddesktop.dpr
     383CursorX=1
     384CursorY=29
     385TopLine=16
     386LeftCol=1
     387Elisions=
     388Bookmarks=
     389EditViewName=C:\Projekty\LibreDevelop\os\trunk\lddesktop.dpr
     390
     391[View15]
     392CustomEditViewType=TEditView
     393Module=C:\Projekty\LibreDevelop\os\trunk\Drivers\Driver.VideoVCL.pas
     394CursorX=32
     395CursorY=40
     396TopLine=24
     397LeftCol=1
     398Elisions=
     399Bookmarks=
     400EditViewName=C:\Projekty\LibreDevelop\os\trunk\Drivers\Driver.VideoVCL.pas
     401
     402[View16]
     403CustomEditViewType=TEditView
     404Module=C:\Projekty\LibreDevelop\os\trunk\Drivers\Driver.SystemVCL.pas
     405CursorX=18
     406CursorY=6
     407TopLine=1
     408LeftCol=1
     409Elisions=
     410Bookmarks=
     411EditViewName=C:\Projekty\LibreDevelop\os\trunk\Drivers\Driver.SystemVCL.pas
     412
     413[View17]
     414CustomEditViewType=TEditView
     415Module=C:\Projekty\LibreDevelop\os\trunk\Drivers\Driver.MouseVCL.pas
     416CursorX=73
     417CursorY=6
     418TopLine=1
     419LeftCol=1
     420Elisions=
     421Bookmarks=
     422EditViewName=C:\Projekty\LibreDevelop\os\trunk\Drivers\Driver.MouseVCL.pas
     423
     424[View18]
     425CustomEditViewType=TEditView
     426Module=C:\Projekty\LibreDevelop\os\trunk\Drivers\Driver.KeyboardVCL.pas
     427CursorX=73
     428CursorY=6
     429TopLine=1
     430LeftCol=1
     431Elisions=
     432Bookmarks=
     433EditViewName=C:\Projekty\LibreDevelop\os\trunk\Drivers\Driver.KeyboardVCL.pas
     434
     435[View19]
     436CustomEditViewType=TEditView
     437Module=C:\Projekty\LibreDevelop\os\trunk\Applications\TestApplication.pas
     438CursorX=19
     439CursorY=33
     440TopLine=7
     441LeftCol=1
     442Elisions=
     443Bookmarks=
     444EditViewName=C:\Projekty\LibreDevelop\os\trunk\Applications\TestApplication.pas
     445
     446[View20]
     447CustomEditViewType=TEditView
     448Module=C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Controls.pas
     449CursorX=14
     450CursorY=74
     451TopLine=53
     452LeftCol=1
     453Elisions=
     454Bookmarks=
     455EditViewName=C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Controls.pas
     456
     457[View21]
     458CustomEditViewType=TEditView
     459Module=C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Generics.pas
     460CursorX=1
     461CursorY=1
     462TopLine=4
     463LeftCol=1
     464Elisions=
     465Bookmarks=
     466EditViewName=C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Generics.pas
     467
     468[View22]
     469CustomEditViewType=TEditView
     470Module=C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Forms.pas
     471CursorX=50
     472CursorY=151
     473TopLine=109
     474LeftCol=1
     475Elisions=
     476Bookmarks=
     477EditViewName=C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Forms.pas
     478
     479[View23]
    227480CustomEditViewType=TEditView
    228481Module=C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Classes.pas
    … …  
    235488EditViewName=C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Classes.pas
    236489
    237 [View10]
     490[View24]
    238491CustomEditViewType=TEditView
    239492Module=C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Controls.pas
    … …  
    246499EditViewName=C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Controls.pas
    247500
    248 [View11]
     501[View25]
    249502CustomEditViewType=TEditView
    250503Module=C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Kernel.pas
    … …  
    393646SplitPos=141
    394647
    395 [PropInspDesignerSelection]
    396 ArrangeBy=Name
    397 SelectedItem=Visible,Action
    398 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
    399 
    400648[TFileExplorerForm]
    401649PercentageSizes=1
    … …  
    609857Docked=1
    610858State=0
    611 Left=4864
    612 Top=783
     859Left=-32699
     860Top=-2492
    613861Width=5307
    614862Height=4876
    … …  
    628876Docked=1
    629877State=0
    630 Left=-9517
    631 Top=-391
     878Left=-11386
     879Top=-324
    632880Width=1844
    633881Height=3143
    … …  
    8211069Docked=1
    8221070State=0
    823 Left=9517
    824 Top=391
     1071Left=11386
     1072Top=324
    8251073Width=1896
    8261074Height=7029
    … …  
    8831131TabPosition=1
    8841132ActiveTabID=PropertyInspector
    885 TabDockClients=PropertyInspector,TFileExplorerForm,DataExplorerContainer,ModelViewTool
    886 
     1133TabDockClients=PropertyInspector,ModelViewTool,DataExplorerContainer,TFileExplorerForm
     1134
Note: See TracChangeset for help on using the changeset viewer.