paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-19 01:59:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

undo

Browse Source 
git-svn-id: trunk@25037 -
This commit is contained in:
mattias 2010-04-28 17:25:50 +00:00
parent 6aa0ac6216
commit c2424da316
6 changed files with 559 additions and 1127 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

90
components/synedit/synedithighlighter.pp
View File

@ -209,17 +209,6 @@ type
property OnChange: TNotifyEvent read fOnChange write fOnChange; property OnChange: TNotifyEvent read fOnChange write fOnChange;
end; end;
{ TSynEditLinesList }
TSynEditLinesList=class(TFPList)
private
function GetSynString(Index: Integer): TSynEditStringsBase;
procedure PutSynStrings(Index: Integer; const AValue: TSynEditStringsBase);
public
property Items[Index: Integer]: TSynEditStringsBase
read GetSynString write PutSynStrings; default;
end;
{ TSynCustomHighlighter } { TSynCustomHighlighter }
TSynCustomHighlighter = class(TComponent) TSynCustomHighlighter = class(TComponent)
@ -227,7 +216,6 @@ type
fAttributes: TStringList; fAttributes: TStringList;
fAttrChangeHooks: TMethodList; fAttrChangeHooks: TMethodList;
FCapabilities: TSynHighlighterCapabilities; FCapabilities: TSynHighlighterCapabilities;
FKnownLines: TSynEditLinesList;
FCurrentLines: TSynEditStringsBase; FCurrentLines: TSynEditStringsBase;
FCurrentRanges: TSynHighlighterRangeList; FCurrentRanges: TSynHighlighterRangeList;
FDrawDividerLevel: Integer; FDrawDividerLevel: Integer;
@ -237,7 +225,7 @@ type
fEnabled: Boolean; fEnabled: Boolean;
fWordBreakChars: TSynIdentChars; fWordBreakChars: TSynIdentChars;
FIsScanning: Boolean; FIsScanning: Boolean;
function GetKnownRanges(Index: Integer): TSynHighlighterRangeList; procedure SetCurrentLines(const AValue: TSynEditStringsBase);
procedure SetDrawDividerLevel(const AValue: Integer); procedure SetDrawDividerLevel(const AValue: Integer);
procedure SetEnabled(const Value: boolean); //DDH 2001-10-23 procedure SetEnabled(const Value: boolean); //DDH 2001-10-23
protected protected
@ -259,20 +247,15 @@ type
procedure SetAttributesOnChange(AEvent: TNotifyEvent); procedure SetAttributesOnChange(AEvent: TNotifyEvent);
procedure SetDefaultFilter(Value: string); virtual; procedure SetDefaultFilter(Value: string); virtual;
procedure SetSampleSource(Value: string); virtual; procedure SetSampleSource(Value: string); virtual;
function GetRangeIdentifier: Pointer; virtual;
function CreateRangeList: TSynHighlighterRangeList; virtual; function CreateRangeList: TSynHighlighterRangeList; virtual;
function UpdateRangeInfoAtLine(Index: Integer): Boolean; virtual; // Returns true if range changed function UpdateRangeInfoAtLine(Index: Integer): Boolean; virtual; // Returns true if range changed
// code fold - only valid if hcCodeFolding in Capabilities // code fold - only valid if hcCodeFolding in Capabilities
procedure SetCurrentLines(const AValue: TSynEditStringsBase); virtual;
property LineIndex: Integer read FLineIndex; property LineIndex: Integer read FLineIndex;
property CurrentRanges: TSynHighlighterRangeList read FCurrentRanges; property CurrentRanges: TSynHighlighterRangeList read FCurrentRanges;
function GetDrawDivider(Index: integer): TSynDividerDrawConfigSetting; virtual; function GetDrawDivider(Index: integer): TSynDividerDrawConfigSetting; virtual;
function GetDividerDrawConfig(Index: Integer): TSynDividerDrawConfig; virtual; function GetDividerDrawConfig(Index: Integer): TSynDividerDrawConfig; virtual;
function GetDividerDrawConfigCount: Integer; virtual; function GetDividerDrawConfigCount: Integer; virtual;
function PerformScan(StartIndex, EndIndex: Integer): Integer; virtual;
property IsScanning: Boolean read FIsScanning; property IsScanning: Boolean read FIsScanning;
property KnownRanges[Index: Integer]: TSynHighlighterRangeList read GetKnownRanges;
property KnownLines: TSynEditLinesList read FKnownLines;
public public
procedure DefHighlightChange(Sender: TObject); procedure DefHighlightChange(Sender: TObject);
property AttributeChangeNeedScan: Boolean read FAttributeChangeNeedScan; property AttributeChangeNeedScan: Boolean read FAttributeChangeNeedScan;
@ -903,18 +886,6 @@ begin
end; end;
{$ENDIF} {$ENDIF}
{ TSynEditLinesList }
function TSynEditLinesList.GetSynString(Index: Integer): TSynEditStringsBase;
begin
Result := TSynEditStringsBase(inherited Items[Index]);
end;
procedure TSynEditLinesList.PutSynStrings(Index: Integer; const AValue: TSynEditStringsBase);
begin
inherited Items[Index] := AValue;
end;
{ TSynCustomHighlighter } { TSynCustomHighlighter }
constructor TSynCustomHighlighter.Create(AOwner: TComponent); constructor TSynCustomHighlighter.Create(AOwner: TComponent);
@ -922,7 +893,6 @@ begin
{$IFDEF SYN_LAZARUS} {$IFDEF SYN_LAZARUS}
FCapabilities:=GetCapabilities; FCapabilities:=GetCapabilities;
{$ENDIF} {$ENDIF}
FKnownLines := TSynEditLinesList.Create;
inherited Create(AOwner); inherited Create(AOwner);
fWordBreakChars := TSynWordBreakChars; fWordBreakChars := TSynWordBreakChars;
fAttributes := TStringList.Create; fAttributes := TStringList.Create;
@ -938,7 +908,6 @@ begin
fAttributes.Free; fAttributes.Free;
fAttrChangeHooks.Free; fAttrChangeHooks.Free;
inherited Destroy; inherited Destroy;
FreeAndNil(FKnownLines);
end; end;
procedure TSynCustomHighlighter.BeginUpdate; procedure TSynCustomHighlighter.BeginUpdate;
@ -1246,11 +1215,6 @@ procedure TSynCustomHighlighter.SetSampleSource(Value: string);
begin begin
end; end;
function TSynCustomHighlighter.GetRangeIdentifier: Pointer;
begin
Result := self;
end;
function TSynCustomHighlighter.CreateRangeList: TSynHighlighterRangeList; function TSynCustomHighlighter.CreateRangeList: TSynHighlighterRangeList;
begin begin
Result := TSynHighlighterRangeList.Create; Result := TSynHighlighterRangeList.Create;
@ -1273,36 +1237,31 @@ end;
procedure TSynCustomHighlighter.ScanRanges; procedure TSynCustomHighlighter.ScanRanges;
var var
StartIndex, EndIndex: Integer; StartIndex, EndIndex, CurrentIndex, c: Integer;
begin begin
StartIndex := CurrentRanges.NeedsReScanStartIndex; StartIndex := CurrentRanges.NeedsReScanStartIndex;
if (StartIndex < 0) or (StartIndex >= CurrentRanges.Count) then exit; if (StartIndex < 0) or (StartIndex >= CurrentRanges.Count) then exit;
EndIndex := CurrentRanges.NeedsReScanEndIndex + 1; EndIndex := CurrentRanges.NeedsReScanEndIndex + 1;
CurrentIndex := StartIndex;
c := CurrentLines.Count;
FIsScanning := True; FIsScanning := True;
try try
EndIndex := PerformScan(StartIndex, EndIndex); StartAtLineIndex(CurrentIndex);
NextToEol;
while UpdateRangeInfoAtLine(CurrentIndex) or
(CurrentIndex <= EndIndex)
do begin
inc(CurrentIndex);
if CurrentIndex = c then
break;
ContinueNextLine;
NextToEol;
end;
finally finally
FIsScanning := False; FIsScanning := False;
end; end;
CurrentRanges.ClearReScanNeeded; CurrentRanges.ClearReScanNeeded;
CurrentLines.SendHighlightChanged(StartIndex, EndIndex - StartIndex + 1); CurrentLines.SendHighlightChanged(StartIndex, CurrentIndex - StartIndex + 1);
end;
function TSynCustomHighlighter.PerformScan(StartIndex, EndIndex: Integer): Integer;
var
c: Integer;
begin
Result := StartIndex;
c := CurrentLines.Count;
StartAtLineIndex(Result);
NextToEol;
while UpdateRangeInfoAtLine(Result) or (Result <= EndIndex) do begin
inc(Result);
if Result = c then
break;
ContinueNextLine;
NextToEol;
end;
end; end;
procedure TSynCustomHighlighter.ScanAllRanges; procedure TSynCustomHighlighter.ScanAllRanges;
@ -1328,20 +1287,19 @@ begin
if AValue = FCurrentLines then if AValue = FCurrentLines then
exit; exit;
FCurrentLines := AValue; FCurrentLines := AValue;
FCurrentRanges := TSynHighlighterRangeList(AValue.Ranges[GetRangeIdentifier]); FCurrentRanges := TSynHighlighterRangeList(AValue.Ranges[ClassType]);
end; end;
procedure TSynCustomHighlighter.AttachToLines(Lines: TSynEditStringsBase); procedure TSynCustomHighlighter.AttachToLines(Lines: TSynEditStringsBase);
var var
r: TSynHighlighterRangeList; r: TSynHighlighterRangeList;
begin begin
r := TSynHighlighterRangeList(Lines.Ranges[GetRangeIdentifier]); r := TSynHighlighterRangeList(Lines.Ranges[ClassType]);
if assigned(r) then if assigned(r) then
r.IncRefCount r.IncRefCount
else begin else begin
FKnownLines.Add(Lines);
r := CreateRangeList; r := CreateRangeList;
Lines.Ranges[GetRangeIdentifier] := r; Lines.Ranges[ClassType] := r;
r.InvalidateAll; r.InvalidateAll;
end; end;
FCurrentLines := nil; FCurrentLines := nil;
@ -1351,14 +1309,13 @@ procedure TSynCustomHighlighter.DetachFromLines(Lines: TSynEditStringsBase);
var var
r: TSynHighlighterRangeList; r: TSynHighlighterRangeList;
begin begin
r := TSynHighlighterRangeList(Lines.Ranges[GetRangeIdentifier]); r := TSynHighlighterRangeList(Lines.Ranges[ClassType]);
if not assigned(r) then exit; if not assigned(r) then exit;
r.DecRefCount; r.DecRefCount;
if r.RefCount = 0 then begin if r.RefCount = 0 then begin
Lines.Ranges[GetRangeIdentifier] := nil; Lines.Ranges[ClassType] := nil;
r.Free; r.Free;
end; end;
FKnownLines.Remove(Lines);
end; end;
procedure TSynCustomHighlighter.SetDrawDividerLevel(const AValue: Integer); procedure TSynCustomHighlighter.SetDrawDividerLevel(const AValue: Integer);
@ -1368,11 +1325,6 @@ begin
//DefHighlightChange(Self); //DefHighlightChange(Self);
end; end;
function TSynCustomHighlighter.GetKnownRanges(Index: Integer): TSynHighlighterRangeList;
begin
Result := TSynHighlighterRangeList(KnownLines[Index].Ranges[GetRangeIdentifier]);
end;
function TSynCustomHighlighter.GetDrawDivider(Index: integer): TSynDividerDrawConfigSetting; function TSynCustomHighlighter.GetDrawDivider(Index: integer): TSynDividerDrawConfigSetting;
begin begin
result := SynEmptyDividerDrawConfigSetting; result := SynEmptyDividerDrawConfigSetting;

48
components/synedit/synedittextbase.pas
View File

@ -78,7 +78,7 @@ type
procedure InsertRows(AIndex, ACount: Integer); virtual; procedure InsertRows(AIndex, ACount: Integer); virtual;
procedure DeleteRows(AIndex, ACount: Integer); virtual; procedure DeleteRows(AIndex, ACount: Integer); virtual;
property Capacity: Integer read FCapacity write SetCapacity; property Capacity: Integer read FCapacity write SetCapacity;
// Capacity must be maintained by owner (Shrink) // Count must be maintained by owner
property Count: Integer read FCount write SetCount; property Count: Integer read FCount write SetCount;
end; end;
@ -98,21 +98,19 @@ type
TSynManagedStorageMemList = class TSynManagedStorageMemList = class
private private
FStorageMemList: Array of TSynManagedStorageMem; FStorageMemList: Array of TSynManagedStorageMem;
FClassList: Array of Pointer; FClassList: Array of TClass;
function GetStorageMems(Index: Pointer): TSynManagedStorageMem; function GetStorageMems(Index: TClass): TSynManagedStorageMem;
procedure SetStorageMems(Index: Pointer; const AValue: TSynManagedStorageMem); procedure SetStorageMems(Index: TClass; const AValue: TSynManagedStorageMem);
procedure SetChildCapacities(const AValue: Integer); procedure SetChildCapacities(const AValue: Integer);
procedure SetChildCounts(const AValue: Integer); procedure SetChildCounts(const AValue: Integer);
public public
procedure ChildInsertRows(AIndex, ACount: Integer);
procedure ChildDeleteRows(AIndex, ACount: Integer);
procedure CallMove(AFrom, ATo, ALen: Integer); procedure CallMove(AFrom, ATo, ALen: Integer);
procedure CallLineTextChanged(AIndex: Integer); procedure CallLineTextChanged(AIndex: Integer);
procedure CallInsertedLines(AIndex, ACount: Integer); procedure CallInsertedLines(AIndex, ACount: Integer);
procedure CallDeletedLines(AIndex, ACount: Integer); procedure CallDeletedLines(AIndex, ACount: Integer);
property ChildCapacities: Integer write SetChildCapacities; property ChildCapacities: Integer write SetChildCapacities;
property ChildCounts: Integer write SetChildCounts; property ChildCounts: Integer write SetChildCounts;
property StorageMems[Index: Pointer]: TSynManagedStorageMem property StorageMems[Index: TClass]: TSynManagedStorageMem
read GetStorageMems write SetStorageMems; default; read GetStorageMems write SetStorageMems; default;
end; end;
@ -120,11 +118,11 @@ type
TSynEditStringsBase = class(TStrings) TSynEditStringsBase = class(TStrings)
protected protected
function GetRange(Index: Pointer): TSynManagedStorageMem; virtual; abstract; function GetRange(Index: TClass): TSynEditStorageMem; virtual; abstract;
procedure PutRange(Index: Pointer; const ARange: TSynManagedStorageMem); virtual; abstract; procedure PutRange(Index: TClass; const ARange: TSynEditStorageMem); virtual; abstract;
public public
procedure SendHighlightChanged(aIndex, aCount: Integer); virtual; abstract; procedure SendHighlightChanged(aIndex, aCount: Integer); virtual; abstract;
property Ranges[Index: Pointer]: TSynManagedStorageMem read GetRange write PutRange; property Ranges[Index: TClass]: TSynEditStorageMem read GetRange write PutRange;
end; end;
{ TSynEditStrings } { TSynEditStrings }
@ -221,8 +219,8 @@ type
function GetIsUtf8 : Boolean; override; function GetIsUtf8 : Boolean; override;
procedure SetIsUtf8(const AValue : Boolean); override; procedure SetIsUtf8(const AValue : Boolean); override;
function GetRange(Index: Pointer): TSynManagedStorageMem; override; function GetRange(Index: TClass): TSynEditStorageMem; override;
procedure PutRange(Index: Pointer; const ARange: TSynManagedStorageMem); override; procedure PutRange(Index: TClass; const ARange: TSynEditStorageMem); override;
function GetAttribute(const Owner: TClass; const Index: Integer): Pointer; override; function GetAttribute(const Owner: TClass; const Index: Integer): Pointer; override;
procedure SetAttribute(const Owner: TClass; const Index: Integer; const AValue: Pointer); override; procedure SetAttribute(const Owner: TClass; const Index: Integer; const AValue: Pointer); override;
@ -652,12 +650,12 @@ begin
end; end;
//Ranges //Ranges
function TSynEditStringsLinked.GetRange(Index: Pointer): TSynManagedStorageMem; function TSynEditStringsLinked.GetRange(Index: TClass): TSynEditStorageMem;
begin begin
Result:= fSynStrings.Ranges[Index]; Result:= fSynStrings.Ranges[Index];
end; end;
procedure TSynEditStringsLinked.PutRange(Index: Pointer; const ARange: TSynManagedStorageMem); procedure TSynEditStringsLinked.PutRange(Index: TClass; const ARange: TSynEditStorageMem);
begin begin
fSynStrings.Ranges[Index] := ARange; fSynStrings.Ranges[Index] := ARange;
end; end;
@ -1266,8 +1264,6 @@ begin
if LinesAfter > 0 then if LinesAfter > 0 then
Move(AIndex + ACount, AIndex, LinesAfter); Move(AIndex + ACount, AIndex, LinesAfter);
Count := Count - ACount; Count := Count - ACount;
if (Capacity > 16) and (Capacity > Count * 2) then
Capacity := Capacity - (Count div 2);
end; end;
procedure TSynEditStorageMem.Move(AFrom, ATo, ALen: Integer); procedure TSynEditStorageMem.Move(AFrom, ATo, ALen: Integer);
@ -1301,7 +1297,7 @@ end;
{ TSynManagedStorageMemList } { TSynManagedStorageMemList }
function TSynManagedStorageMemList.GetStorageMems(Index: Pointer): TSynManagedStorageMem; function TSynManagedStorageMemList.GetStorageMems(Index: TClass): TSynManagedStorageMem;
var var
i: Integer; i: Integer;
begin begin
@ -1314,7 +1310,7 @@ begin
end; end;
end; end;
procedure TSynManagedStorageMemList.SetStorageMems(Index: Pointer; procedure TSynManagedStorageMemList.SetStorageMems(Index: TClass;
const AValue: TSynManagedStorageMem); const AValue: TSynManagedStorageMem);
var var
i, j: Integer; i, j: Integer;
@ -1365,22 +1361,6 @@ begin
FStorageMemList[i].Count := AValue; FStorageMemList[i].Count := AValue;
end; end;
procedure TSynManagedStorageMemList.ChildInsertRows(AIndex, ACount: Integer);
var
i: Integer;
begin
for i := 0 to high(FStorageMemList) do
FStorageMemList[i].InsertRows(AIndex, ACount);
end;
procedure TSynManagedStorageMemList.ChildDeleteRows(AIndex, ACount: Integer);
var
i: Integer;
begin
for i := 0 to high(FStorageMemList) do
FStorageMemList[i].DeleteRows(AIndex, ACount);
end;
procedure TSynManagedStorageMemList.CallMove(AFrom, ATo, ALen: Integer); procedure TSynManagedStorageMemList.CallMove(AFrom, ATo, ALen: Integer);
var var
i: Integer; i: Integer;

20
components/synedit/synedittextbuffer.pp
View File

@ -90,12 +90,12 @@ type
function GetAttribute(Index: Integer; Pos: Integer; Size: Word): Pointer; function GetAttribute(Index: Integer; Pos: Integer; Size: Word): Pointer;
function GetAttributeSize: Integer; function GetAttributeSize: Integer;
function GetObject(Index: Integer): TObject; function GetObject(Index: Integer): TObject;
function GetRange(Index: Pointer): TSynManagedStorageMem; function GetRange(Index: TClass): TSynManagedStorageMem;
function GetString(Index: Integer): String; function GetString(Index: Integer): String;
procedure SetAttribute(Index: Integer; Pos: Integer; Size: Word; const AValue: Pointer); procedure SetAttribute(Index: Integer; Pos: Integer; Size: Word; const AValue: Pointer);
procedure SetAttributeSize(const AValue: Integer); procedure SetAttributeSize(const AValue: Integer);
procedure SetObject(Index: Integer; const AValue: TObject); procedure SetObject(Index: Integer; const AValue: TObject);
procedure SetRange(Index: Pointer; const AValue: TSynManagedStorageMem); procedure SetRange(Index: TClass; const AValue: TSynManagedStorageMem);
procedure SetString(Index: Integer; const AValue: String); procedure SetString(Index: Integer; const AValue: String);
protected protected
procedure Move(AFrom, ATo, ALen: Integer); override; procedure Move(AFrom, ATo, ALen: Integer); override;
@ -114,7 +114,7 @@ type
read GetAttribute write SetAttribute; read GetAttribute write SetAttribute;
property AttributeSize: Integer read GetAttributeSize write SetAttributeSize; property AttributeSize: Integer read GetAttributeSize write SetAttributeSize;
property RangeList[Index: Pointer]: TSynManagedStorageMem read GetRange write SetRange; property RangeList[Index: TClass]: TSynManagedStorageMem read GetRange write SetRange;
end; end;
{ TSynEditStringList } { TSynEditStringList }
@ -163,8 +163,8 @@ type
procedure IgnoreSendNotification(AReason: TSynEditNotifyReason; procedure IgnoreSendNotification(AReason: TSynEditNotifyReason;
IncIgnore: Boolean); override; IncIgnore: Boolean); override;
function GetRange(Index: Pointer): TSynManagedStorageMem; override; function GetRange(Index: TClass): TSynEditStorageMem; override;
procedure PutRange(Index: Pointer; const ARange: TSynManagedStorageMem); override; procedure PutRange(Index: TClass; const ARange: TSynEditStorageMem); override;
function GetAttribute(const Owner: TClass; const Index: Integer): Pointer; override; function GetAttribute(const Owner: TClass; const Index: Integer): Pointer; override;
procedure SetAttribute(const Owner: TClass; const Index: Integer; const AValue: Pointer); override; procedure SetAttribute(const Owner: TClass; const Index: Integer; const AValue: Pointer); override;
function Get(Index: integer): string; override; function Get(Index: integer): string; override;
@ -709,7 +709,7 @@ begin
Result := nil; Result := nil;
end; end;
function TSynEditStringList.GetRange(Index: Pointer): TSynManagedStorageMem; function TSynEditStringList.GetRange(Index: TClass): TSynEditStorageMem;
begin begin
Result := FList.RangeList[Index]; Result := FList.RangeList[Index];
end; end;
@ -820,9 +820,9 @@ begin
EndUpdate; EndUpdate;
end; end;
procedure TSynEditStringList.PutRange(Index: Pointer; const ARange: TSynManagedStorageMem); procedure TSynEditStringList.PutRange(Index: TClass; const ARange: TSynEditStorageMem);
begin begin
FList.RangeList[Index] := ARange; FList.RangeList[Index] := ARange as TSynManagedStorageMem;
end; end;
function TSynEditStringList.GetAttribute(const Owner: TClass; const Index: Integer): Pointer; function TSynEditStringList.GetAttribute(const Owner: TClass; const Index: Integer): Pointer;
@ -1213,7 +1213,7 @@ begin
Result := (PObject(Mem + Index * FAttributeSize + SizeOf(String)))^; Result := (PObject(Mem + Index * FAttributeSize + SizeOf(String)))^;
end; end;
function TSynEditStringMemory.GetRange(Index: Pointer): TSynManagedStorageMem; function TSynEditStringMemory.GetRange(Index: TClass): TSynManagedStorageMem;
begin begin
Result := FRangeList[Index]; Result := FRangeList[Index];
end; end;
@ -1223,7 +1223,7 @@ begin
(PObject(Mem + Index * FAttributeSize + SizeOf(String)))^ := AValue; (PObject(Mem + Index * FAttributeSize + SizeOf(String)))^ := AValue;
end; end;
procedure TSynEditStringMemory.SetRange(Index: Pointer; const AValue: TSynManagedStorageMem); procedure TSynEditStringMemory.SetRange(Index: TClass; const AValue: TSynManagedStorageMem);
begin begin
FRangeList[Index] := AValue; FRangeList[Index] := AValue;

1275
components/synedit/synhighlightermulti.pas
View File

File diff suppressed because it is too large Load Diff

124
ide/frames/files_options.lfm
View File

@ -11,9 +11,9 @@ inherited FilesOptionsFrame: TFilesOptionsFrame
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
Left = 0 Left = 0
Height = 18 Height = 16
Top = 0 Top = 0
Width = 165 Width = 139
Caption = 'MaxRecentOpenFilesLabel' Caption = 'MaxRecentOpenFilesLabel'
ParentColor = False ParentColor = False
end end
@ -22,9 +22,9 @@ inherited FilesOptionsFrame: TFilesOptionsFrame
AnchorSideTop.Control = MaxRecentOpenFilesComboBox AnchorSideTop.Control = MaxRecentOpenFilesComboBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 0 Left = 0
Height = 18 Height = 16
Top = 53 Top = 45
Width = 175 Width = 147
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'MaxRecentProjectFilesLabel' Caption = 'MaxRecentProjectFilesLabel'
ParentColor = False ParentColor = False
@ -36,11 +36,11 @@ inherited FilesOptionsFrame: TFilesOptionsFrame
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 0 Left = 0
Height = 29 Height = 23
Top = 18 Top = 16
Width = 569 Width = 569
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
ItemHeight = 0 ItemHeight = 15
Items.Strings = ( Items.Strings = (
'5' '5'
'10' '10'
@ -58,11 +58,11 @@ inherited FilesOptionsFrame: TFilesOptionsFrame
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 0 Left = 0
Height = 29 Height = 23
Top = 71 Top = 61
Width = 569 Width = 569
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
ItemHeight = 0 ItemHeight = 15
Items.Strings = ( Items.Strings = (
'5' '5'
'10' '10'
@ -79,9 +79,9 @@ inherited FilesOptionsFrame: TFilesOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 0 Left = 0
Height = 22 Height = 19
Top = 106 Top = 90
Width = 238 Width = 195
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'OpenLastProjectAtStartCheckBox' Caption = 'OpenLastProjectAtStartCheckBox'
TabOrder = 2 TabOrder = 2
@ -92,9 +92,9 @@ inherited FilesOptionsFrame: TFilesOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 0 Left = 0
Height = 22 Height = 19
Top = 128 Top = 109
Width = 213 Width = 180
Caption = 'ShowCompileDialogCheckBox' Caption = 'ShowCompileDialogCheckBox'
OnChange = ShowCompileDialogCheckBoxChange OnChange = ShowCompileDialogCheckBoxChange
TabOrder = 3 TabOrder = 3
@ -104,9 +104,9 @@ inherited FilesOptionsFrame: TFilesOptionsFrame
AnchorSideTop.Control = AutoCloseCompileDialogCheckBox AnchorSideTop.Control = AutoCloseCompileDialogCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 0 Left = 0
Height = 18 Height = 16
Top = 182 Top = 157
Width = 103 Width = 83
BorderSpacing.Top = 10 BorderSpacing.Top = 10
Caption = 'LazarusDirLabel' Caption = 'LazarusDirLabel'
ParentColor = False ParentColor = False
@ -119,8 +119,8 @@ inherited FilesOptionsFrame: TFilesOptionsFrame
AnchorSideBottom.Control = LazarusDirComboBox AnchorSideBottom.Control = LazarusDirComboBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 544 Left = 544
Height = 29 Height = 23
Top = 200 Top = 173
Width = 25 Width = 25
Anchors = [akTop, akRight, akBottom] Anchors = [akTop, akRight, akBottom]
Caption = '...' Caption = '...'
@ -133,11 +133,11 @@ inherited FilesOptionsFrame: TFilesOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = LazarusDirButton AnchorSideRight.Control = LazarusDirButton
Left = 0 Left = 0
Height = 29 Height = 23
Top = 200 Top = 173
Width = 544 Width = 544
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
ItemHeight = 0 ItemHeight = 15
TabOrder = 5 TabOrder = 5
Text = 'LazarusDirComboBox' Text = 'LazarusDirComboBox'
end end
@ -147,11 +147,11 @@ inherited FilesOptionsFrame: TFilesOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = CompilerPathButton AnchorSideRight.Control = CompilerPathButton
Left = 0 Left = 0
Height = 29 Height = 23
Top = 253 Top = 218
Width = 544 Width = 544
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
ItemHeight = 0 ItemHeight = 15
TabOrder = 6 TabOrder = 6
Text = 'CompilerPathComboBox' Text = 'CompilerPathComboBox'
end end
@ -162,8 +162,8 @@ inherited FilesOptionsFrame: TFilesOptionsFrame
AnchorSideBottom.Control = CompilerPathComboBox AnchorSideBottom.Control = CompilerPathComboBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 544 Left = 544
Height = 29 Height = 23
Top = 253 Top = 218
Width = 25 Width = 25
Anchors = [akTop, akRight, akBottom] Anchors = [akTop, akRight, akBottom]
Caption = '...' Caption = '...'
@ -175,9 +175,9 @@ inherited FilesOptionsFrame: TFilesOptionsFrame
AnchorSideTop.Control = LazarusDirComboBox AnchorSideTop.Control = LazarusDirComboBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 0 Left = 0
Height = 18 Height = 16
Top = 235 Top = 202
Width = 120 Width = 102
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'CompilerPathLabel' Caption = 'CompilerPathLabel'
ParentColor = False ParentColor = False
@ -188,11 +188,11 @@ inherited FilesOptionsFrame: TFilesOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = FPCSourceDirButton AnchorSideRight.Control = FPCSourceDirButton
Left = 0 Left = 0
Height = 29 Height = 23
Top = 306 Top = 263
Width = 544 Width = 544
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
ItemHeight = 0 ItemHeight = 15
TabOrder = 8 TabOrder = 8
Text = 'FPCSourceDirComboBox' Text = 'FPCSourceDirComboBox'
end end
@ -203,8 +203,8 @@ inherited FilesOptionsFrame: TFilesOptionsFrame
AnchorSideBottom.Control = FPCSourceDirComboBox AnchorSideBottom.Control = FPCSourceDirComboBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 544 Left = 544
Height = 29 Height = 23
Top = 306 Top = 263
Width = 25 Width = 25
Anchors = [akTop, akRight, akBottom] Anchors = [akTop, akRight, akBottom]
Caption = '...' Caption = '...'
@ -216,9 +216,9 @@ inherited FilesOptionsFrame: TFilesOptionsFrame
AnchorSideTop.Control = CompilerPathComboBox AnchorSideTop.Control = CompilerPathComboBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 0 Left = 0
Height = 18 Height = 16
Top = 288 Top = 247
Width = 122 Width = 101
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'FPCSourceDirLabel' Caption = 'FPCSourceDirLabel'
ParentColor = False ParentColor = False
@ -228,9 +228,9 @@ inherited FilesOptionsFrame: TFilesOptionsFrame
AnchorSideTop.Control = FPCSourceDirComboBox AnchorSideTop.Control = FPCSourceDirComboBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 0 Left = 0
Height = 18 Height = 16
Top = 341 Top = 292
Width = 97 Width = 82
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'MakePathLabel' Caption = 'MakePathLabel'
ParentColor = False ParentColor = False
@ -240,9 +240,9 @@ inherited FilesOptionsFrame: TFilesOptionsFrame
AnchorSideTop.Control = MakePathComboBox AnchorSideTop.Control = MakePathComboBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 0 Left = 0
Height = 18 Height = 16
Top = 394 Top = 337
Width = 109 Width = 93
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'TestBuildDirLabel' Caption = 'TestBuildDirLabel'
ParentColor = False ParentColor = False
@ -253,11 +253,11 @@ inherited FilesOptionsFrame: TFilesOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = MakePathButton AnchorSideRight.Control = MakePathButton
Left = 0 Left = 0
Height = 29 Height = 23
Top = 359 Top = 308
Width = 544 Width = 544
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
ItemHeight = 0 ItemHeight = 15
TabOrder = 10 TabOrder = 10
Text = 'MakePathComboBox' Text = 'MakePathComboBox'
end end
@ -268,8 +268,8 @@ inherited FilesOptionsFrame: TFilesOptionsFrame
AnchorSideBottom.Control = MakePathComboBox AnchorSideBottom.Control = MakePathComboBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 544 Left = 544
Height = 29 Height = 23
Top = 359 Top = 308
Width = 25 Width = 25
Anchors = [akTop, akRight, akBottom] Anchors = [akTop, akRight, akBottom]
Caption = '...' Caption = '...'
@ -282,11 +282,11 @@ inherited FilesOptionsFrame: TFilesOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = TestBuildDirButton AnchorSideRight.Control = TestBuildDirButton
Left = 0 Left = 0
Height = 29 Height = 23
Top = 412 Top = 353
Width = 544 Width = 544
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
ItemHeight = 0 ItemHeight = 15
TabOrder = 12 TabOrder = 12
Text = 'TestBuildDirComboBox' Text = 'TestBuildDirComboBox'
end end
@ -297,8 +297,8 @@ inherited FilesOptionsFrame: TFilesOptionsFrame
AnchorSideBottom.Control = TestBuildDirComboBox AnchorSideBottom.Control = TestBuildDirComboBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 544 Left = 544
Height = 29 Height = 23
Top = 412 Top = 353
Width = 25 Width = 25
Anchors = [akTop, akRight, akBottom] Anchors = [akTop, akRight, akBottom]
Caption = '...' Caption = '...'
@ -310,11 +310,11 @@ inherited FilesOptionsFrame: TFilesOptionsFrame
AnchorSideTop.Control = ShowCompileDialogCheckBox AnchorSideTop.Control = ShowCompileDialogCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 30 Left = 6
Height = 22 Height = 19
Top = 150 Top = 128
Width = 244 Width = 206
BorderSpacing.Left = 30 BorderSpacing.Left = 6
Caption = 'AutoCloseCompileDialogCheckBox' Caption = 'AutoCloseCompileDialogCheckBox'
TabOrder = 14 TabOrder = 14
end end

129
ide/frames/formed_options.lfm
View File

@ -15,14 +15,14 @@ inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 232 Left = 232
Height = 169 Height = 141
Top = 0 Top = 0
Width = 537 Width = 537
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'GridGroupBox' Caption = 'GridGroupBox'
ClientHeight = 150 ClientHeight = 123
ClientWidth = 533 ClientWidth = 533
TabOrder = 0 TabOrder = 0
object GridSizeXLabel: TLabel object GridSizeXLabel: TLabel
@ -30,9 +30,9 @@ inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
AnchorSideTop.Control = GridSizeXSpinEdit AnchorSideTop.Control = GridSizeXSpinEdit
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 6 Left = 6
Height = 18 Height = 14
Top = 88 Top = 72
Width = 96 Width = 70
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'GridSizeXLabel' Caption = 'GridSizeXLabel'
ParentColor = False ParentColor = False
@ -42,9 +42,9 @@ inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
AnchorSideTop.Control = GridSizeYSpinEdit AnchorSideTop.Control = GridSizeYSpinEdit
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 6 Left = 6
Height = 18 Height = 14
Top = 121 Top = 99
Width = 95 Width = 70
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'GridSizeYLabel' Caption = 'GridSizeYLabel'
ParentColor = False ParentColor = False
@ -56,9 +56,9 @@ inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
AnchorSideRight.Control = GridGroupBox AnchorSideRight.Control = GridGroupBox
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 22 Height = 17
Top = 56 Top = 46
Width = 159 Width = 120
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 3 BorderSpacing.Top = 3
BorderSpacing.Right = 6 BorderSpacing.Right = 6
@ -69,9 +69,9 @@ inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
AnchorSideLeft.Control = GridGroupBox AnchorSideLeft.Control = GridGroupBox
AnchorSideTop.Control = GridGroupBox AnchorSideTop.Control = GridGroupBox
Left = 6 Left = 6
Height = 22 Height = 17
Top = 6 Top = 6
Width = 147 Width = 110
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'ShowGridCheckBox' Caption = 'ShowGridCheckBox'
@ -82,9 +82,9 @@ inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
AnchorSideTop.Control = ShowGridCheckBox AnchorSideTop.Control = ShowGridCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 22 Height = 17
Top = 31 Top = 26
Width = 204 Width = 152
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 3 BorderSpacing.Top = 3
Caption = 'ShowBorderSpaceCheckBox' Caption = 'ShowBorderSpaceCheckBox'
@ -95,9 +95,9 @@ inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = SnapToGridCheckBox AnchorSideTop.Control = SnapToGridCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 108 Left = 82
Height = 27 Height = 21
Top = 84 Top = 69
Width = 64 Width = 64
BorderSpacing.Around = 6 BorderSpacing.Around = 6
MaxValue = 128 MaxValue = 128
@ -112,9 +112,9 @@ inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = GridSizeXSpinEdit AnchorSideTop.Control = GridSizeXSpinEdit
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 107 Left = 82
Height = 27 Height = 21
Top = 117 Top = 96
Width = 64 Width = 64
BorderSpacing.Around = 6 BorderSpacing.Around = 6
MaxValue = 128 MaxValue = 128
@ -134,14 +134,14 @@ inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
AnchorSideBottom.Control = Owner AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 0 Left = 0
Height = 253 Height = 207
Top = 259 Top = 220
Width = 769 Width = 769
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'FormEditMiscGroupBox' Caption = 'FormEditMiscGroupBox'
ClientHeight = 234 ClientHeight = 189
ClientWidth = 765 ClientWidth = 765
TabOrder = 1 TabOrder = 1
object ShowComponentCaptionsCheckBox: TCheckBox object ShowComponentCaptionsCheckBox: TCheckBox
@ -151,9 +151,9 @@ inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
AnchorSideRight.Control = FormEditMiscGroupBox AnchorSideRight.Control = FormEditMiscGroupBox
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 22 Height = 17
Top = 31 Top = 26
Width = 252 Width = 188
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 3 BorderSpacing.Top = 3
BorderSpacing.Right = 6 BorderSpacing.Right = 6
@ -167,9 +167,9 @@ inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
AnchorSideRight.Control = FormEditMiscGroupBox AnchorSideRight.Control = FormEditMiscGroupBox
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 22 Height = 17
Top = 56 Top = 46
Width = 191 Width = 143
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 3 BorderSpacing.Top = 3
BorderSpacing.Right = 6 BorderSpacing.Right = 6
@ -183,9 +183,9 @@ inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
AnchorSideRight.Control = FormEditMiscGroupBox AnchorSideRight.Control = FormEditMiscGroupBox
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 22 Height = 17
Top = 81 Top = 66
Width = 256 Width = 192
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 3 BorderSpacing.Top = 3
BorderSpacing.Right = 6 BorderSpacing.Right = 6
@ -199,9 +199,9 @@ inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
AnchorSideRight.Control = FormEditMiscGroupBox AnchorSideRight.Control = FormEditMiscGroupBox
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 22 Height = 17
Top = 106 Top = 86
Width = 195 Width = 145
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 3 BorderSpacing.Top = 3
Caption = 'RightClickSelectsCheckBox' Caption = 'RightClickSelectsCheckBox'
@ -214,9 +214,9 @@ inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
AnchorSideRight.Control = FormEditMiscGroupBox AnchorSideRight.Control = FormEditMiscGroupBox
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 22 Height = 17
Top = 131 Top = 106
Width = 204 Width = 153
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 3 BorderSpacing.Top = 3
Caption = 'DesignerPaintLazyCheckBox' Caption = 'DesignerPaintLazyCheckBox'
@ -229,9 +229,9 @@ inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
AnchorSideTop.Control = DesignerPaintLazyCheckBox AnchorSideTop.Control = DesignerPaintLazyCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 22 Height = 17
Top = 156 Top = 126
Width = 244 Width = 180
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 3 BorderSpacing.Top = 3
BorderSpacing.Bottom = 3 BorderSpacing.Bottom = 3
@ -247,7 +247,7 @@ inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
AnchorSideRight.Control = FormEditMiscGroupBox AnchorSideRight.Control = FormEditMiscGroupBox
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 22 Height = 17
Top = 6 Top = 6
Width = 759 Width = 759
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
@ -261,9 +261,9 @@ inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
AnchorSideTop.Control = SwitchToFavoritesOITabCheckBox AnchorSideTop.Control = SwitchToFavoritesOITabCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 22 Height = 17
Top = 206 Top = 166
Width = 280 Width = 210
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 3 BorderSpacing.Top = 3
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
@ -271,14 +271,14 @@ inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
TabOrder = 7 TabOrder = 7
end end
object SwitchToFavoritesOITabCheckBox: TCheckBox object SwitchToFavoritesOITabCheckBox: TCheckBox
AnchorSideLeft.Control = CreateCompFocusNameCheckBox AnchorSideLeft.Control = FormEditMiscGroupBox
AnchorSideTop.Control = CreateCompFocusNameCheckBox AnchorSideTop.Control = CreateCompFocusNameCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 36 Left = 12
Height = 22 Height = 17
Top = 181 Top = 146
Width = 232 Width = 183
BorderSpacing.Left = 30 BorderSpacing.Left = 12
BorderSpacing.Top = 3 BorderSpacing.Top = 3
Caption = 'SwitchToFavoritesOITabCheckBox' Caption = 'SwitchToFavoritesOITabCheckBox'
ParentShowHint = False ParentShowHint = False
@ -295,15 +295,15 @@ inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 232 Left = 232
Height = 78 Height = 67
Top = 175 Top = 147
Width = 537 Width = 537
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'GuideLinesGroupBox' Caption = 'GuideLinesGroupBox'
ClientHeight = 59 ClientHeight = 49
ClientWidth = 533 ClientWidth = 533
TabOrder = 2 TabOrder = 2
object ShowGuideLinesCheckBox: TCheckBox object ShowGuideLinesCheckBox: TCheckBox
@ -311,7 +311,7 @@ inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
AnchorSideRight.Control = GuideLinesGroupBox AnchorSideRight.Control = GuideLinesGroupBox
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 22 Height = 17
Top = 6 Top = 6
Width = 521 Width = 521
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
@ -328,8 +328,8 @@ inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
AnchorSideRight.Control = GuideLinesGroupBox AnchorSideRight.Control = GuideLinesGroupBox
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 22 Height = 17
Top = 31 Top = 26
Width = 521 Width = 521
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
@ -348,12 +348,12 @@ inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
AnchorSideBottom.Control = GuideLinesGroupBox AnchorSideBottom.Control = GuideLinesGroupBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 0 Left = 0
Height = 253 Height = 214
Top = 0 Top = 0
Width = 226 Width = 226
Anchors = [akTop, akLeft, akBottom] Anchors = [akTop, akLeft, akBottom]
Caption = 'DesignerColorsGroupBox' Caption = 'DesignerColorsGroupBox'
ClientHeight = 234 ClientHeight = 196
ClientWidth = 222 ClientWidth = 222
TabOrder = 3 TabOrder = 3
object ColorsListBox: TColorListBox object ColorsListBox: TColorListBox
@ -361,7 +361,7 @@ inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
AnchorSideTop.Control = DesignerColorsGroupBox AnchorSideTop.Control = DesignerColorsGroupBox
AnchorSideBottom.Control = ColorBox AnchorSideBottom.Control = ColorBox
Left = 6 Left = 6
Height = 185 Height = 156
Top = 6 Top = 6
Width = 210 Width = 210
Style = [cbCustomColors] Style = [cbCustomColors]
@ -371,7 +371,6 @@ inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
ItemHeight = 0 ItemHeight = 0
OnSelectionChange = ColorsListBoxSelectionChange OnSelectionChange = ColorsListBoxSelectionChange
TabOrder = 0 TabOrder = 0
TopIndex = -1
end end
object ColorBox: TColorBox object ColorBox: TColorBox
AnchorSideLeft.Control = DesignerColorsGroupBox AnchorSideLeft.Control = DesignerColorsGroupBox
@ -382,8 +381,8 @@ inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
AnchorSideBottom.Control = DesignerColorsGroupBox AnchorSideBottom.Control = DesignerColorsGroupBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 6 Left = 6
Height = 31 Height = 22
Top = 197 Top = 168
Width = 210 Width = 210
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbCustomColor, cbPrettyNames] Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbCustomColor, cbPrettyNames]
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]