Changeset 7


Ignore:
Timestamp:
Jun 2, 2013, 6:59:07 PM (12 years ago)
Author:
chronos
Message:
  • Fixed: Components now have list of childs and free them on destruction.
  • Fixed: Memory leaks.
Location:
os/trunk
Files:
7 edited

Legend:

Unmodified
Added
Removed

  • os/trunk/Applications/TestApplication.pas

    r6 r7  
    3232  Caption := 'TestApp';
    3333  Form1 := TForm.Create;
     34  Form1.Owner := Self;
    3435  Form1.Bounds := TRectangle.Create(50, 80, 200, 120);
    3536  Form1.Name := 'Form1';
    … …  
    3738  Form1.Screen := Screen;
    3839  Form2 := TForm.Create;
     40  Form2.Owner := Self;
    3941  Form2.Bounds := TRectangle.Create(350, 150, 200, 150);
    4042  Form2.Name := 'Form2';
    … …  
    4749  Button := TButton.Create;
    4850  Button.Parent := Form1;
     51  Button.Owner := Form1;
    4952  Button.Bounds := TRectangle.Create(50, 50, 60, 24);
    5053  Button.Visible := True;
    … …  
    5457  Label1 := TLabel.Create;
    5558  Label1.Parent := Form1;
     59  Label1.Owner := Form1;
    5660  Label1.Bounds := TRectangle.Create(60, 80, 60, 24);
    5761  Label1.Visible := True;

  • os/trunk/Applications/UDesktop.pas

    r6 r7  
    1212    procedure TaskButtonClick(Sender: TObject);
    1313  protected
    14     function HandleMessage(Message: TMessage): Boolean; override;
    1514  public
    1615    MenuButton: TButton;
    … …  
    1817    TaskBar: TPanel;
    1918    TestApp: TApplication;
    20     TaskButtons: TList<TButton>;
     19    TaskButtons: TObjectList<TButton>;
     20    function HandleMessage(Message: TMessage): Boolean; override;
    2121    procedure Run; override;
    2222    constructor Create; override;
    … …  
    5656begin
    5757  inherited;
    58   TaskButtons := TList<TButton>.Create;
     58  TaskButtons := TObjectList<TButton>.Create;
    5959end;
    6060
    … …  
    6767function TDesktopApp.HandleMessage(Message: TMessage): Boolean;
    6868begin
    69   if (Message is TMessageResize) or (Message is TMessageTaskList) then
     69  if (Message is TMessageResize) or (Message is TMessageTaskList) then begin
    7070    UpdateTaskBar;
     71    Result := True;
     72  end else Result := False;
    7173end;
    7274
    … …  
    7678  Caption := 'Desktop';
    7779  MainBar := TForm.Create;
     80  MainBar.Owner := Self;
    7881  MainBar.BorderStyle := bsNone;
    7982  MainBar.Name := 'MainBar';
    … …  
    8285  TaskBar := TPanel.Create;
    8386  TaskBar.Parent := MainBar;
     87  TaskBar.Owner := MainBar;
    8488  TaskBar.Name := 'TaskBar';
    8589  TaskBar.Color := clLightGreen;
    … …  
    8993  MenuButton := TButton.Create;
    9094  MenuButton.Parent := TaskBar;
     95  MenuButton.Owner := TaskBar;
    9196  MenuButton.Bounds := TRectangle.Create(0, 0, 50, 24);
    9297  MenuButton.Visible := True;

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

    r6 r7  
    2121    procedure Execute; virtual;
    2222    procedure Terminate; virtual;
     23    destructor Destroy; override;
    2324  end;
    2425
    … …  
    8788    procedure HandleTaskList;
    8889  public
    89     Timers: TList<TTimer>;
    90     Processes: TList<TProcess>;
    91     Drivers: TList<TDriver>;
     90    Timers: TObjectList<TTimer>;
     91    Processes: TObjectList<TProcess>;
     92    Drivers: TObjectList<TDriver>;
    9293    StartOnBoot: TList<TApplication>;
    9394    Screen: TScreen;
    … …  
    135136constructor TKernel.Create;
    136137begin
    137   Processes := TList<TProcess>.Create;
    138   Timers := TList<TTimer>.Create;
    139   Drivers := TList<TDriver>.Create;
     138  Processes := TObjectList<TProcess>.Create;
     139  Timers := TObjectList<TTimer>.Create;
     140  Drivers := TObjectList<TDriver>.Create;
    140141  Screen := TScreen.Create;
    141142  Screen.Kernel := Self;
    … …  
    227228  Canvas.Destroy;
    228229  Forms.Destroy;
     230  VideoDevice.Destroy;
    229231  inherited;
    230232end;
    … …  
    311313
    312314{ TProcess }
     315
     316destructor TProcess.Destroy;
     317begin
     318  if Assigned(Application) then Application.Destroy;
     319  inherited;
     320end;
    313321
    314322procedure TProcess.Execute;

  • os/trunk/UFormMain.pas

    r6 r7  
    1212  private
    1313    { Private declarations }
     14  protected
     15    procedure PaintWindow(DC: HDC); override;
    1416  public
    1517  published
    … …  
    2426{$R *.dfm}
    2527
     28{ TFormScreen }
     29
     30procedure TFormScreen.PaintWindow(DC: HDC);
     31begin
     32  // Image1 cover entire form area, do not paint form backround
     33end;
     34
    2635end.

  • os/trunk/Xvcl/Xvcl.Classes.pas

    r5 r7  
    22
    33interface
     4
     5uses
     6  Xvcl.Generics;
    47
    58type
    … …  
    5154    FOwner: TComponent;
    5255    FName: string;
     56    FComponents: TObjectList<TComponent>;
     57    procedure SetOwner(const Value: TComponent);
    5358  public
    5459    constructor Create; virtual;
    55     property Owner: TComponent read FOwner write FOwner;
     60    destructor Destroy; override;
     61    property Components: TObjectList<TComponent> read FComponents;
     62    property Owner: TComponent read FOwner write SetOwner;
    5663    property Name: string read FName write FName;
    5764  end;
    … …  
    161168constructor TComponent.Create;
    162169begin
     170  FComponents := TObjectList<TComponent>.Create;
     171end;
     172
     173destructor TComponent.Destroy;
     174begin
     175  FComponents.Destroy;
     176  inherited;
     177end;
     178
     179procedure TComponent.SetOwner(const Value: TComponent);
     180begin
     181  if Value = FOwner then Exit;
     182  if not Assigned(Value) then FOwner.Components.Remove(Self);
     183  FOwner := Value;
     184  if Assigned(Value) then FOwner.Components.Add(Self);
    163185end;
    164186
    … …  
    181203  Self.Y := Y;
    182204end;
    183 
    184205
    185206function TPoint.IsZero: Boolean;

  • os/trunk/Xvcl/Xvcl.Generics.pas

    r5 r7  
    3333    function Compare(Item1, Item2: T): Integer;
    3434    procedure Exchange(Index1, Index2: Integer);
     35    procedure Clear;
    3536    property Count: Integer read FCount write SetCount;
    3637    property Items[Index: Integer]: T read GetItem write SetItem; default;
     38  end;
     39
     40  TObjectList<T: class> = class(TList<T>)
     41    OwnsObjects: Boolean;
     42    constructor Create; virtual;
     43    destructor Destroy; override;
    3744  end;
    3845
    … …  
    6168  FItems[Count - 1] := Item;
    6269  Result := Count - 1;
     70end;
     71
     72procedure TList<T>.Clear;
     73begin
     74  Count := 0;
    6375end;
    6476
    … …  
    149161end;
    150162
     163{ TObjectList<T> }
     164
     165constructor TObjectList<T>.Create;
     166begin
     167  OwnsObjects := True;
     168end;
     169
     170destructor TObjectList<T>.Destroy;
     171var
     172  I: Integer;
     173begin
     174  if OwnsObjects then
     175  for I := 0 to Count - 1 do
     176    TObject(FItems[I]).Destroy;
     177  Clear;
     178  inherited;
     179end;
     180
    151181end.

  • os/trunk/lddesktop.dsk

    r6 r7  
    11[Closed Files]
    2 File_0=TSourceModule,'c:\program files\embarcadero\rad studio\11.0\SOURCE\RTL\SYS\System.pas',0,1,23211,1,23232,0,0,,
    3 File_1=TSourceModule,'C:\Projekty\DelphiLibs\DockManagement\Demo\UDockForm.pas',0,1,1,25,10,0,0,,
    4 File_2=TSourceModule,'c:\program files\embarcadero\rad studio\11.0\SOURCE\RTL\SYS\System.Types.pas',0,1,240,9,263,0,0,,
    5 File_3=TSourceModule,'C:\Projekty\DelphiLibs\DockManagement\UDockManagement.pas',0,1,885,31,959,0,0,,
    6 File_4=TSourceModule,'C:\Projekty\DelphiLibs\DockManagement\Demo\UMainForm.pas',0,1,64,14,84,0,0,,
    7 File_5=TSourceModule,'C:\Projekty\LibreDevelop\studio\trunk\UCore.pas',0,1,1,19,32,0,0,,
    8 File_6=TSourceModule,'C:\Projekty\LibreDevelop\platform\trunk\LDPlatform.Core.pas',0,1,13,1,48,0,0,,
    9 File_7=TSourceModule,'C:\Projekty\LibreDevelop\platform\trunk\LDPlatform.FormMain.pas',0,1,10,24,14,0,0,,
    10 File_8=TSourceModule,'C:\Projekty\LibreDevelop\platform\trunk\LDPlatform.FormOptions.pas',0,1,1,37,28,0,0,,
    11 File_9=TSourceModule,'C:\Projekty\LibreDevelop\platform\trunk\ULDPlatform.pas',0,1,1,118,17,0,0,,
    12 File_10=TSourceModule,'c:\program files\embarcadero\rad studio\11.0\source\rtl\common\System.Classes.pas',0,1,9393,1,9414,0,0,,
    13 File_11=TSourceModule,'C:\Projekty\LibreDevelop\studio\trunk\Forms\UFormMain.pas',0,1,41,12,59,0,0,,
    14 File_12=TSourceModule,'C:\Projekty\LibreDevelop\studio\trunk\Forms\UFormOptions.pas',0,1,1,1,1,0,0,,
    15 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}
     2File_0=TSourceModule,'c:\program files\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.Forms.pas',0,1,1,65,23,0,0,{{1709,4},{1725,15},{'TScrollWindow'}}{{1812,4},{1912,15},{'TMainMenuBarStyleHook'}},
     3File_1=TSourceModule,'c:\program files\embarcadero\rad studio\11.0\source\rtl\common\System.Generics.Collections.pas',0,1,434,58,444,0,0,,
     4File_2=TSourceModule,'c:\program files\embarcadero\rad studio\11.0\source\rtl\common\System.Generics.Defaults.pas',0,1,142,1,9,0,0,,
     5File_3=TSourceModule,'C:\Projekty\LibreDevelop_\branches\Xvcl\Drivers\Driver.SystemVCL.pas',0,1,1,1,1,0,0,,
     6File_4=TSourceModule,'C:\Projekty\LibreDevelop_\branches\Xvcl\Drivers\Driver.VideoVCL.pas',0,1,32,11,40,0,0,,
     7File_5=TSourceModule,'c:\program files\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.Graphics.pas',0,1,3391,1,3431,0,0,,
     8File_6=TSourceModule,'C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Graphics.pas',0,1,3,5,26,0,0,,
     9File_7=TSourceModule,'C:\Projekty\LibreDevelop_\branches\Xvcl\UFormMain.pas',0,1,1,65,16,0,0,,
     10File_8=TSourceModule,'C:\Projekty\LibreDevelop\os\trunk\System\LDOS.Kernel.pas',0,1,102,3,120,0,0,,
     11File_9=TSourceModule,'C:\Projekty\LibreDevelop\os\trunk\System\LDOS.Mem.pas',0,1,1,1,28,0,0,,
     12File_10=TSourceModule,'C:\Projekty\LibreDevelop\os\trunk\System\LDOS.Task.pas',0,1,1,3,7,0,0,,
     13File_11=TSourceModule,'C:\Projekty\LibreDevelop\os\trunk\Drivers\Driver.VideoVCL.pas',0,1,3,51,61,0,0,,
     14File_12=TSourceModule,'C:\Projekty\LibreDevelop\os\trunk\Drivers\Driver.SystemVCL.pas',0,1,27,1,50,0,0,,
     15File_13=TSourceModule,'C:\Projekty\LibreDevelop\os\trunk\Drivers\Driver.MouseVCL.pas',0,1,1,115,16,0,0,,
    1616
    1717[Modules]
    18 Module0=C:\Projekty\LibreDevelop\os\trunk\UFormMain.pas
    19 Module1=default.htm
    20 Module2=C:\Projekty\LibreDevelop\os\trunk\lddesktop.dproj
    21 Module3=C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Classes.pas
    22 Module4=C:\Projekty\LibreDevelop\os\trunk\Applications\UDesktop.pas
    23 Module5=C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Controls.pas
    24 Module6=C:\Projekty\LibreDevelop\os\trunk\Drivers\Driver.SystemVCL.pas
    25 Module7=C:\Projekty\LibreDevelop\os\trunk\System\LDOS.Kernel.pas
    26 Module8=C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Forms.pas
    27 Module9=C:\Projekty\LibreDevelop\os\trunk\Drivers\Driver.VideoVCL.pas
    28 Module10=C:\Projekty\LibreDevelop\os\trunk\Applications\TestApplication.pas
    29 Module11=C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Generics.pas
    30 Module12=C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Graphics.pas
    31 Module13=c:\program files\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.Graphics.pas
    32 Module14=C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Classes.pas
    33 Module15=C:\Projekty\LibreDevelop\os\trunk\System\LDOS.Task.pas
    34 Module16=C:\Projekty\LibreDevelop\os\trunk\Drivers\Driver.KeyboardVCL.pas
    35 Module17=C:\Projekty\LibreDevelop\os\trunk\Drivers\Driver.MouseVCL.pas
    36 Module18=C:\Projekty\LibreDevelop_\branches\Xvcl\UFormMain.pas
    37 Module19=C:\Projekty\LibreDevelop_\branches\Xvcl\Drivers\Driver.VideoVCL.pas
    38 Module20=c:\program files\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.Forms.pas
    39 Module21=C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Kernel.pas
    40 Module22=c:\program files\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.Controls.pas
    41 Module23=C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Graphics.pas
    42 Module24=C:\Projekty\LibreDevelop_\branches\Xvcl\Drivers\Driver.SystemVCL.pas
    43 Module25=C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Controls.pas
    44 Count=26
     18Module0=C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Classes.pas
     19Module1=c:\program files\embarcadero\rad studio\11.0\SOURCE\RTL\SYS\System.pas
     20Module2=c:\program files\embarcadero\rad studio\11.0\source\rtl\common\System.Classes.pas
     21Module3=C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Generics.pas
     22Module4=c:\program files\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.Controls.pas
     23Module5=c:\program files\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.ExtCtrls.pas
     24Module6=C:\Projekty\LibreDevelop\os\trunk\UFormMain.pas
     25Module7=C:\Projekty\LibreDevelop\os\trunk\Applications\UDesktop.pas
     26Module8=C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Controls.pas
     27Module9=C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Graphics.pas
     28Count=10
    4529EditWindowCount=1
    4630
     31[C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Classes.pas]
     32ModuleType=TSourceModule
     33FormState=0
     34FormOnTop=0
     35
     36[c:\program files\embarcadero\rad studio\11.0\SOURCE\RTL\SYS\System.pas]
     37ModuleType=TSourceModule
     38FormState=0
     39FormOnTop=0
     40
     41[c:\program files\embarcadero\rad studio\11.0\source\rtl\common\System.Classes.pas]
     42ModuleType=TSourceModule
     43FormState=0
     44FormOnTop=0
     45
     46[C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Generics.pas]
     47ModuleType=TSourceModule
     48FormState=0
     49FormOnTop=0
     50
     51[c:\program files\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.Controls.pas]
     52ModuleType=TSourceModule
     53FormState=0
     54FormOnTop=0
     55
     56[c:\program files\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.ExtCtrls.pas]
     57ModuleType=TSourceModule
     58FormState=0
     59FormOnTop=0
     60
    4761[C:\Projekty\LibreDevelop\os\trunk\UFormMain.pas]
    4862ModuleType=TSourceModule
    … …  
    5064FormOnTop=0
    5165
    52 [default.htm]
    53 ModuleType=TURLModule
    54 
    55 [C:\Projekty\LibreDevelop\os\trunk\lddesktop.dproj]
    56 ModuleType=TBaseProject
    57 
    58 [C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Classes.pas]
     66[C:\Projekty\LibreDevelop\os\trunk\Applications\UDesktop.pas]
    5967ModuleType=TSourceModule
    6068FormState=0
    6169FormOnTop=0
    6270
    63 [C:\Projekty\LibreDevelop\os\trunk\Applications\UDesktop.pas]
     71[C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Controls.pas]
    6472ModuleType=TSourceModule
    6573FormState=0
    6674FormOnTop=0
    6775
    68 [C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Controls.pas]
     76[C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Graphics.pas]
    6977ModuleType=TSourceModule
    7078FormState=0
    7179FormOnTop=0
    7280
    73 [C:\Projekty\LibreDevelop\os\trunk\Drivers\Driver.SystemVCL.pas]
    74 ModuleType=TSourceModule
    75 FormState=0
    76 FormOnTop=0
    77 
    78 [C:\Projekty\LibreDevelop\os\trunk\System\LDOS.Kernel.pas]
    79 ModuleType=TSourceModule
    80 FormState=0
    81 FormOnTop=0
    82 
    83 [C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Forms.pas]
    84 ModuleType=TSourceModule
    85 FormState=0
    86 FormOnTop=0
    87 
    88 [C:\Projekty\LibreDevelop\os\trunk\Drivers\Driver.VideoVCL.pas]
    89 ModuleType=TSourceModule
    90 FormState=0
    91 FormOnTop=0
    92 
    93 [C:\Projekty\LibreDevelop\os\trunk\Applications\TestApplication.pas]
    94 ModuleType=TSourceModule
    95 FormState=0
    96 FormOnTop=0
    97 
    98 [C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Generics.pas]
    99 ModuleType=TSourceModule
    100 FormState=0
    101 FormOnTop=0
    102 
    103 [C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Graphics.pas]
    104 ModuleType=TSourceModule
    105 FormState=0
    106 FormOnTop=0
    107 
    108 [c:\program files\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.Graphics.pas]
    109 ModuleType=TSourceModule
    110 FormState=0
    111 FormOnTop=0
    112 
    113 [C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Classes.pas]
    114 ModuleType=TSourceModule
    115 FormState=0
    116 FormOnTop=0
    117 
    118 [C:\Projekty\LibreDevelop\os\trunk\System\LDOS.Task.pas]
    119 ModuleType=TSourceModule
    120 FormState=0
    121 FormOnTop=0
    122 
    123 [C:\Projekty\LibreDevelop\os\trunk\Drivers\Driver.KeyboardVCL.pas]
    124 ModuleType=TSourceModule
    125 FormState=0
    126 FormOnTop=0
    127 
    128 [C:\Projekty\LibreDevelop\os\trunk\Drivers\Driver.MouseVCL.pas]
    129 ModuleType=TSourceModule
    130 FormState=0
    131 FormOnTop=0
    132 
    133 [C:\Projekty\LibreDevelop_\branches\Xvcl\UFormMain.pas]
    134 ModuleType=TSourceModule
    135 FormState=1
    136 FormOnTop=0
    137 
    138 [C:\Projekty\LibreDevelop_\branches\Xvcl\Drivers\Driver.VideoVCL.pas]
    139 ModuleType=TSourceModule
    140 FormState=0
    141 FormOnTop=0
    142 
    143 [c:\program files\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.Forms.pas]
    144 ModuleType=TSourceModule
    145 FormState=0
    146 FormOnTop=0
    147 
    148 [C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Kernel.pas]
    149 ModuleType=TSourceModule
    150 FormState=0
    151 FormOnTop=0
    152 
    153 [c:\program files\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.Controls.pas]
    154 ModuleType=TSourceModule
    155 FormState=0
    156 FormOnTop=0
    157 
    158 [C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Graphics.pas]
    159 ModuleType=TSourceModule
    160 FormState=0
    161 FormOnTop=0
    162 
    163 [C:\Projekty\LibreDevelop_\branches\Xvcl\Drivers\Driver.SystemVCL.pas]
    164 ModuleType=TSourceModule
    165 FormState=0
    166 FormOnTop=0
    167 
    168 [C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Controls.pas]
    169 ModuleType=TSourceModule
    170 FormState=0
    171 FormOnTop=0
    172 
    17381[EditWindow0]
    174 ViewCount=26
    175 CurrentEditView=C:\Projekty\LibreDevelop\os\trunk\UFormMain.pas
     82ViewCount=10
     83CurrentEditView=C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Classes.pas
    17684View0=0
    17785View1=1
    … …  
    18492View8=8
    18593View9=9
    186 View10=10
    187 View11=11
    188 View12=12
    189 View13=13
    190 View14=14
    191 View15=15
    192 View16=16
    193 View17=17
    194 View18=18
    195 View19=19
    196 View20=20
    197 View21=21
    198 View22=22
    199 View23=23
    200 View24=24
    201 View25=25
    20294PercentageSizes=1
    20395Create=1
    … …  
    232124
    233125[View0]
    234 CustomEditViewType=TWelcomePageView
    235 WelcomePageURL=bds:/default.htm
     126CustomEditViewType=TEditView
     127Module=C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Graphics.pas
     128CursorX=88
     129CursorY=149
     130TopLine=125
     131LeftCol=1
     132Elisions=
     133Bookmarks=
     134EditViewName=C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Graphics.pas
    236135
    237136[View1]
    238137CustomEditViewType=TEditView
    239 Module=C:\Projekty\LibreDevelop_\branches\Xvcl\Drivers\Driver.SystemVCL.pas
     138Module=C:\Projekty\LibreDevelop\os\trunk\UFormMain.pas
     139CursorX=18
     140CursorY=11
     141TopLine=1
     142LeftCol=1
     143Elisions=
     144Bookmarks=
     145EditViewName=C:\Projekty\LibreDevelop\os\trunk\UFormMain.pas
     146
     147[View2]
     148CustomEditViewType=TEditView
     149Module=c:\program files\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.ExtCtrls.pas
     150CursorX=24
     151CursorY=119
     152TopLine=96
     153LeftCol=1
     154Elisions=
     155Bookmarks=
     156EditViewName=c:\program files\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.ExtCtrls.pas
     157
     158[View3]
     159CustomEditViewType=TEditView
     160Module=c:\program files\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.Controls.pas
     161CursorX=29
     162CursorY=1605
     163TopLine=1582
     164LeftCol=1
     165Elisions=
     166Bookmarks=
     167EditViewName=c:\program files\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.Controls.pas
     168
     169[View4]
     170CustomEditViewType=TEditView
     171Module=c:\program files\embarcadero\rad studio\11.0\source\rtl\common\System.Classes.pas
     172CursorX=29
     173CursorY=55
     174TopLine=16
     175LeftCol=1
     176Elisions=
     177Bookmarks=
     178EditViewName=c:\program files\embarcadero\rad studio\11.0\source\rtl\common\System.Classes.pas
     179
     180[View5]
     181CustomEditViewType=TEditView
     182Module=c:\program files\embarcadero\rad studio\11.0\SOURCE\RTL\SYS\System.pas
    240183CursorX=1
    241 CursorY=1
    242 TopLine=1
    243 LeftCol=1
    244 Elisions=
    245 Bookmarks=
    246 EditViewName=C:\Projekty\LibreDevelop_\branches\Xvcl\Drivers\Driver.SystemVCL.pas
    247 
    248 [View2]
    249 CustomEditViewType=TEditView
    250 Module=C:\Projekty\LibreDevelop_\branches\Xvcl\Drivers\Driver.VideoVCL.pas
    251 CursorX=11
    252 CursorY=40
    253 TopLine=32
    254 LeftCol=1
    255 Elisions=
    256 Bookmarks=
    257 EditViewName=C:\Projekty\LibreDevelop_\branches\Xvcl\Drivers\Driver.VideoVCL.pas
    258 
    259 [View3]
    260 CustomEditViewType=TEditView
    261 Module=c:\program files\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.Forms.pas
    262 CursorX=1
    263 CursorY=1642
    264 TopLine=1619
    265 LeftCol=1
    266 Elisions={{1709,4},{1725,15},{'TScrollWindow'}}{{1812,4},{1912,15},{'TMainMenuBarStyleHook'}}
    267 Bookmarks=
    268 EditViewName=c:\program files\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.Forms.pas
    269 
    270 [View4]
    271 CustomEditViewType=TEditView
    272 Module=c:\program files\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.Controls.pas
    273 CursorX=5
    274 CursorY=1658
    275 TopLine=1636
    276 LeftCol=1
    277 Elisions=
    278 Bookmarks=
    279 EditViewName=c:\program files\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.Controls.pas
    280 
    281 [View5]
    282 CustomEditViewType=TEditView
    283 Module=c:\program files\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.Graphics.pas
    284 CursorX=1
    285 CursorY=3431
    286 TopLine=3391
    287 LeftCol=1
    288 Elisions=
    289 Bookmarks=
    290 EditViewName=c:\program files\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.Graphics.pas
     184CursorY=15255
     185TopLine=15232
     186LeftCol=1
     187Elisions=
     188Bookmarks=
     189EditViewName=c:\program files\embarcadero\rad studio\11.0\SOURCE\RTL\SYS\System.pas
    291190
    292191[View6]
    293192CustomEditViewType=TEditView
    294 Module=C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Graphics.pas
    295 CursorX=5
    296 CursorY=26
    297 TopLine=3
    298 LeftCol=1
    299 Elisions=
    300 Bookmarks=
    301 EditViewName=C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Graphics.pas
     193Module=C:\Projekty\LibreDevelop\os\trunk\Applications\UDesktop.pas
     194CursorX=25
     195CursorY=78
     196TopLine=61
     197LeftCol=1
     198Elisions=
     199Bookmarks=
     200EditViewName=C:\Projekty\LibreDevelop\os\trunk\Applications\UDesktop.pas
    302201
    303202[View7]
    304 CustomEditViewType=TEditView
    305 Module=C:\Projekty\LibreDevelop_\branches\Xvcl\UFormMain.pas
    306 CursorX=65
    307 CursorY=16
    308 TopLine=1
    309 LeftCol=1
    310 Elisions=
    311 Bookmarks=
    312 EditViewName=Borland.FormDesignerView
    313 
    314 [View8]
    315 CustomEditViewType=TEditView
    316 Module=C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Classes.pas
    317 CursorX=17
    318 CursorY=49
    319 TopLine=49
    320 LeftCol=1
    321 Elisions=
    322 Bookmarks=
    323 EditViewName=C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Classes.pas
    324 
    325 [View9]
    326 CustomEditViewType=TEditView
    327 Module=C:\Projekty\LibreDevelop\os\trunk\System\LDOS.Kernel.pas
    328 CursorX=46
    329 CursorY=184
    330 TopLine=171
    331 LeftCol=1
    332 Elisions=
    333 Bookmarks=
    334 EditViewName=C:\Projekty\LibreDevelop\os\trunk\System\LDOS.Kernel.pas
    335 
    336 [View10]
    337 CustomEditViewType=TEditView
    338 Module=C:\Projekty\LibreDevelop\os\trunk\Applications\UDesktop.pas
    339 CursorX=16
    340 CursorY=84
    341 TopLine=58
    342 LeftCol=1
    343 Elisions=
    344 Bookmarks=
    345 EditViewName=C:\Projekty\LibreDevelop\os\trunk\Applications\UDesktop.pas
    346 
    347 [View11]
    348 CustomEditViewType=TEditView
    349 Module=C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Graphics.pas
    350 CursorX=1
    351 CursorY=189
    352 TopLine=166
    353 LeftCol=1
    354 Elisions=
    355 Bookmarks=
    356 EditViewName=C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Graphics.pas
    357 
    358 [View12]
    359 CustomEditViewType=TEditView
    360 Module=C:\Projekty\LibreDevelop\os\trunk\UFormMain.pas
    361 CursorX=112
    362 CursorY=14
    363 TopLine=1
    364 LeftCol=1
    365 Elisions=
    366 Bookmarks=
    367 EditViewName=C:\Projekty\LibreDevelop\os\trunk\UFormMain.pas
    368 
    369 [View13]
    370 CustomEditViewType=TEditView
    371 Module=C:\Projekty\LibreDevelop\os\trunk\System\LDOS.Task.pas
    372 CursorX=3
    373 CursorY=7
    374 TopLine=1
    375 LeftCol=1
    376 Elisions=
    377 Bookmarks=
    378 EditViewName=C:\Projekty\LibreDevelop\os\trunk\System\LDOS.Task.pas
    379 
    380 [View14]
    381 CustomEditViewType=TEditView
    382 Module=C:\Projekty\LibreDevelop\os\trunk\lddesktop.dpr
    383 CursorX=1
    384 CursorY=29
    385 TopLine=16
    386 LeftCol=1
    387 Elisions=
    388 Bookmarks=
    389 EditViewName=C:\Projekty\LibreDevelop\os\trunk\lddesktop.dpr
    390 
    391 [View15]
    392 CustomEditViewType=TEditView
    393 Module=C:\Projekty\LibreDevelop\os\trunk\Drivers\Driver.VideoVCL.pas
    394 CursorX=32
    395 CursorY=40
    396 TopLine=24
    397 LeftCol=1
    398 Elisions=
    399 Bookmarks=
    400 EditViewName=C:\Projekty\LibreDevelop\os\trunk\Drivers\Driver.VideoVCL.pas
    401 
    402 [View16]
    403 CustomEditViewType=TEditView
    404 Module=C:\Projekty\LibreDevelop\os\trunk\Drivers\Driver.SystemVCL.pas
    405 CursorX=18
    406 CursorY=6
    407 TopLine=1
    408 LeftCol=1
    409 Elisions=
    410 Bookmarks=
    411 EditViewName=C:\Projekty\LibreDevelop\os\trunk\Drivers\Driver.SystemVCL.pas
    412 
    413 [View17]
    414 CustomEditViewType=TEditView
    415 Module=C:\Projekty\LibreDevelop\os\trunk\Drivers\Driver.MouseVCL.pas
    416 CursorX=73
    417 CursorY=6
    418 TopLine=1
    419 LeftCol=1
    420 Elisions=
    421 Bookmarks=
    422 EditViewName=C:\Projekty\LibreDevelop\os\trunk\Drivers\Driver.MouseVCL.pas
    423 
    424 [View18]
    425 CustomEditViewType=TEditView
    426 Module=C:\Projekty\LibreDevelop\os\trunk\Drivers\Driver.KeyboardVCL.pas
    427 CursorX=73
    428 CursorY=6
    429 TopLine=1
    430 LeftCol=1
    431 Elisions=
    432 Bookmarks=
    433 EditViewName=C:\Projekty\LibreDevelop\os\trunk\Drivers\Driver.KeyboardVCL.pas
    434 
    435 [View19]
    436 CustomEditViewType=TEditView
    437 Module=C:\Projekty\LibreDevelop\os\trunk\Applications\TestApplication.pas
    438 CursorX=19
    439 CursorY=33
    440 TopLine=7
    441 LeftCol=1
    442 Elisions=
    443 Bookmarks=
    444 EditViewName=C:\Projekty\LibreDevelop\os\trunk\Applications\TestApplication.pas
    445 
    446 [View20]
    447203CustomEditViewType=TEditView
    448204Module=C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Controls.pas
    449205CursorX=14
    450 CursorY=74
    451 TopLine=53
     206CursorY=77
     207TopLine=54
    452208LeftCol=1
    453209Elisions=
    … …  
    455211EditViewName=C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Controls.pas
    456212
    457 [View21]
     213[View8]
     214CustomEditViewType=TEditView
     215Module=C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Classes.pas
     216CursorX=35
     217CursorY=244
     218TopLine=1
     219LeftCol=1
     220Elisions=
     221Bookmarks=
     222EditViewName=C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Classes.pas
     223
     224[View9]
    458225CustomEditViewType=TEditView
    459226Module=C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Generics.pas
    460 CursorX=1
    461 CursorY=1
    462 TopLine=4
     227CursorX=56
     228CursorY=174
     229TopLine=164
    463230LeftCol=1
    464231Elisions=
    465232Bookmarks=
    466233EditViewName=C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Generics.pas
    467 
    468 [View22]
    469 CustomEditViewType=TEditView
    470 Module=C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Forms.pas
    471 CursorX=50
    472 CursorY=151
    473 TopLine=109
    474 LeftCol=1
    475 Elisions=
    476 Bookmarks=
    477 EditViewName=C:\Projekty\LibreDevelop\os\trunk\Xvcl\Xvcl.Forms.pas
    478 
    479 [View23]
    480 CustomEditViewType=TEditView
    481 Module=C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Classes.pas
    482 CursorX=3
    483 CursorY=9
    484 TopLine=1
    485 LeftCol=1
    486 Elisions=
    487 Bookmarks=
    488 EditViewName=C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Classes.pas
    489 
    490 [View24]
    491 CustomEditViewType=TEditView
    492 Module=C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Controls.pas
    493 CursorX=48
    494 CursorY=22
    495 TopLine=85
    496 LeftCol=1
    497 Elisions=
    498 Bookmarks=
    499 EditViewName=C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Controls.pas
    500 
    501 [View25]
    502 CustomEditViewType=TEditView
    503 Module=C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Kernel.pas
    504 CursorX=21
    505 CursorY=39
    506 TopLine=1
    507 LeftCol=1
    508 Elisions=
    509 Bookmarks=
    510 EditViewName=C:\Projekty\LibreDevelop_\branches\Xvcl\Xvcl.Kernel.pas
    511234
    512235[Watches]
    … …  
    857580Docked=1
    858581State=0
    859 Left=-32699
    860 Top=-2492
     582Left=-8853
     583Top=-309
    861584Width=5307
    862585Height=4876
    … …  
    876599Docked=1
    877600State=0
    878 Left=-11386
    879 Top=-324
     601Left=-9489
     602Top=-274
    880603Width=1844
    881604Height=3143
    … …  
    1069792Docked=1
    1070793State=0
    1071 Left=11386
    1072 Top=324
     794Left=9489
     795Top=274
    1073796Width=1896
    1074797Height=7029
    … …  
    1131854TabPosition=1
    1132855ActiveTabID=PropertyInspector
    1133 TabDockClients=PropertyInspector,ModelViewTool,DataExplorerContainer,TFileExplorerForm
    1134 
     856TabDockClients=PropertyInspector,TFileExplorerForm,DataExplorerContainer,ModelViewTool
     857
Note: See TracChangeset for help on using the changeset viewer.