paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-08 11:36:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

implemented showing borderspace in designer

Browse Source 
git-svn-id: trunk@8657 -
This commit is contained in:
mattias 2006-01-29 14:57:01 +00:00
parent fccbdd4734
commit ab36f3dace
9 changed files with 381 additions and 263 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
designer/controlselection.pp
View File

@ -551,7 +551,8 @@ var
ARect: TRect; ARect: TRect;
begin begin
GetRect(ARect); GetRect(ARect);
InvalidateDesignerRect(AForm.Handle,@ARect); if AForm.HandleAllocated then
InvalidateDesignerRect(AForm.Handle,@ARect);
end; end;
@ -700,7 +701,8 @@ begin
CompRect.Right:=CompRect.Left+NonVisualCompWidth; CompRect.Right:=CompRect.Left+NonVisualCompWidth;
CompRect.Bottom:=CompRect.Top+NonVisualCompWidth; CompRect.Bottom:=CompRect.Top+NonVisualCompWidth;
//writeln('TSelectedControl.InvalidateNonVisualComponent A ',CompRect.Left,',',CompRect.Top,',',CompRect.Right,',',CompRect.Bottom); //writeln('TSelectedControl.InvalidateNonVisualComponent A ',CompRect.Left,',',CompRect.Top,',',CompRect.Right,',',CompRect.Bottom);
InvalidateDesignerRect(AForm.Handle,@CompRect); if AForm.HandleAllocated then
InvalidateDesignerRect(AForm.Handle,@CompRect);
end; end;
function TSelectedControl.GetLeft: integer; function TSelectedControl.GetLeft: integer;
@ -916,8 +918,10 @@ begin
' NewRect=',NewRect.Left,',',NewRect.Top,',',NewRect.Right,',',NewRect.Bottom, ' NewRect=',NewRect.Left,',',NewRect.Top,',',NewRect.Right,',',NewRect.Bottom,
' '); ' ');
end;} end;}
InvalidateDesignerRect(FForm.Handle,@OldRect); if FForm.HandleAllocated then begin
InvalidateDesignerRect(FForm.Handle,@NewRect); InvalidateDesignerRect(FForm.Handle,@OldRect);
InvalidateDesignerRect(FForm.Handle,@NewRect);
end;
end; end;
function TControlSelection.GetCacheGuideLines: boolean; function TControlSelection.GetCacheGuideLines: boolean;
@ -1026,6 +1030,7 @@ var
g: TGuideLineType; g: TGuideLineType;
LineRect: TRect; LineRect: TRect;
begin begin
if (FForm=nil) or (not FForm.HandleAllocated) then exit;
if (cssGuideLinesPainted in FStates) then begin if (cssGuideLinesPainted in FStates) then begin
if (FForm<>nil) and CacheGuideLines then if (FForm<>nil) and CacheGuideLines then
for g:=Low(TGuideLineType) to High(TGuideLineType) do begin for g:=Low(TGuideLineType) to High(TGuideLineType) do begin
@ -2234,7 +2239,7 @@ var
RightMarker: Integer; RightMarker: Integer;
BottomMarker: Integer; BottomMarker: Integer;
begin begin
if (FForm=nil) then exit; if (FForm=nil) or (not FForm.HandleAllocated) then exit;
i:=IndexOf(AComponent); i:=IndexOf(AComponent);
if (i>=0) then begin if (i>=0) then begin
CurItem:=Items[i]; CurItem:=Items[i];
@ -2417,6 +2422,7 @@ var
i :integer; i :integer;
InvFrame: TRect; InvFrame: TRect;
begin begin
if (FForm=nil) or (not FForm.HandleAllocated) then exit;
with ARect do begin with ARect do begin
if Right<Left then begin if Right<Left then begin
i:=Left; i:=Left;

65
designer/designer.pp
View File

@ -126,23 +126,25 @@ type
FHintWIndow : THintWindow; FHintWIndow : THintWindow;
function GetGridColor: TColor; function GetGridColor: TColor;
function GetShowComponentCaptionHints: boolean;
function GetShowGrid: boolean;
function GetGridSizeX: integer; function GetGridSizeX: integer;
function GetGridSizeY: integer; function GetGridSizeY: integer;
function GetIsControl: Boolean; function GetIsControl: Boolean;
function GetShowBorderSpacing: boolean;
function GetShowComponentCaptionHints: boolean;
function GetShowEditorHints: boolean; function GetShowEditorHints: boolean;
function GetShowGrid: boolean;
function GetSnapToGrid: boolean; function GetSnapToGrid: boolean;
Procedure HintTimer(sender : TObject); Procedure HintTimer(sender : TObject);
procedure InvalidateWithParent(AComponent: TComponent); procedure InvalidateWithParent(AComponent: TComponent);
procedure SetDefaultFormBounds(const AValue: TRect); procedure SetDefaultFormBounds(const AValue: TRect);
procedure SetGridColor(const AValue: TColor); procedure SetGridColor(const AValue: TColor);
procedure SetShowComponentCaptionHints(const AValue: boolean);
procedure SetShowGrid(const AValue: boolean);
procedure SetGridSizeX(const AValue: integer); procedure SetGridSizeX(const AValue: integer);
procedure SetGridSizeY(const AValue: integer); procedure SetGridSizeY(const AValue: integer);
procedure SetIsControl(Value: Boolean); procedure SetIsControl(Value: Boolean);
procedure SetShowBorderSpacing(const AValue: boolean);
procedure SetShowComponentCaptionHints(const AValue: boolean);
procedure SetShowEditorHints(const AValue: boolean); procedure SetShowEditorHints(const AValue: boolean);
procedure SetShowGrid(const AValue: boolean);
procedure SetSnapToGrid(const AValue: boolean); procedure SetSnapToGrid(const AValue: boolean);
protected protected
MouseDownComponent: TComponent; MouseDownComponent: TComponent;
@ -316,6 +318,7 @@ type
read FOnShowOptions write FOnShowOptions; read FOnShowOptions write FOnShowOptions;
property OnViewLFM: TNotifyEvent read FOnViewLFM write FOnViewLFM; property OnViewLFM: TNotifyEvent read FOnViewLFM write FOnViewLFM;
property ShowGrid: boolean read GetShowGrid write SetShowGrid; property ShowGrid: boolean read GetShowGrid write SetShowGrid;
property ShowBorderSpacing: boolean read GetShowBorderSpacing write SetShowBorderSpacing;
property ShowEditorHints: boolean property ShowEditorHints: boolean
read GetShowEditorHints write SetShowEditorHints; read GetShowEditorHints write SetShowEditorHints;
property ShowComponentCaptionHints: boolean property ShowComponentCaptionHints: boolean
@ -1003,6 +1006,13 @@ begin
Form.Invalidate; Form.Invalidate;
end; end;
procedure TDesigner.SetShowBorderSpacing(const AValue: boolean);
begin
if ShowBorderSpacing=AValue then exit;
EnvironmentOptions.ShowBorderSpacing:=AValue;
Form.Invalidate;
end;
procedure TDesigner.SetShowComponentCaptionHints(const AValue: boolean); procedure TDesigner.SetShowComponentCaptionHints(const AValue: boolean);
begin begin
if AValue=ShowComponentCaptionHints then exit; if AValue=ShowComponentCaptionHints then exit;
@ -1899,16 +1909,17 @@ var
Count: integer; Count: integer;
x,y, StepX, StepY, MaxX, MaxY: integer; x,y, StepX, StepY, MaxX, MaxY: integer;
i: integer; i: integer;
CurControl: TControl;
begin begin
if (AWinControl=nil) if (AWinControl=nil)
or (not (csAcceptsControls in AWinControl.ControlStyle)) or (not (csAcceptsControls in AWinControl.ControlStyle))
or (not ShowGrid) then exit; or ((not ShowGrid) and (not ShowBorderSpacing)) then exit;
aDDC.Save; aDDC.Save;
try try
// exclude all child control areas // exclude all child control areas
Count:=AWinControl.ControlCount; Count:=AWinControl.ControlCount;
for I := 0 to Count - 1 do begin for i := 0 to Count - 1 do begin
with AWinControl.Controls[I] do begin with AWinControl.Controls[I] do begin
if (Visible or ((csDesigning in ComponentState) if (Visible or ((csDesigning in ComponentState)
and not (csNoDesignVisible in ControlStyle))) and not (csNoDesignVisible in ControlStyle)))
@ -1920,18 +1931,33 @@ begin
end; end;
// paint points // paint points
StepX:=GridSizeX; if ShowGrid then begin
StepY:=GridSizeY; StepX:=GridSizeX;
MaxX:=AWinControl.ClientWidth; StepY:=GridSizeY;
MaxY:=AWinControl.ClientHeight; MaxX:=AWinControl.ClientWidth;
x := 0; MaxY:=AWinControl.ClientHeight;
while x <= MaxX do begin x := 0;
y := 0; while x <= MaxX do begin
while y <= MaxY do begin y := 0;
aDDC.Canvas.Pixels[x, y] := GridColor; while y <= MaxY do begin
Inc(y, StepY); aDDC.Canvas.Pixels[x, y] := GridColor;
Inc(y, StepY);
end;
Inc(x, StepX);
end;
end;
if ShowBorderSpacing then begin
aDDC.Canvas.Brush.Color:=clRed;
for i:=0 to Count-1 do begin
CurControl:=AWinControl.Controls[i];
aDDC.Canvas.FrameRect(
CurControl.Left-CurControl.BorderSpacing.GetSpace(akLeft),
CurControl.Top-CurControl.BorderSpacing.GetSpace(akTop),
CurControl.Left+CurControl.Width+CurControl.BorderSpacing.GetSpace(akRight)-1,
CurControl.Top+CurControl.Height+CurControl.BorderSpacing.GetSpace(akBottom)-1
);
end; end;
Inc(x, StepX);
end; end;
finally finally
aDDC.Restore; aDDC.Restore;
@ -2044,6 +2070,11 @@ begin
Result:=EnvironmentOptions.GridColor; Result:=EnvironmentOptions.GridColor;
end; end;
function TDesigner.GetShowBorderSpacing: boolean;
begin
Result:=EnvironmentOptions.ShowBorderSpacing;
end;
function TDesigner.GetShowComponentCaptionHints: boolean; function TDesigner.GetShowComponentCaptionHints: boolean;
begin begin
Result:=dfShowComponentCaptionHints in FFlags; Result:=dfShowComponentCaptionHints in FFlags;

55
ide/environmentopts.lfm
View File

@ -16,7 +16,7 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
Align = alTop Align = alTop
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
OnChangeBounds = NotebookChangeBounds OnChangeBounds = NotebookChangeBounds
PageIndex = 1 PageIndex = 3
Height = 477 Height = 477
Width = 540 Width = 540
object FilesPage: TPage object FilesPage: TPage
@ -441,8 +441,8 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
object WindowPositionsGroupBox: TGroupBox object WindowPositionsGroupBox: TGroupBox
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
Caption = 'WindowPositionsGroupBox' Caption = 'WindowPositionsGroupBox'
ClientHeight = 328 ClientHeight = 311
ClientWidth = 530 ClientWidth = 526
TabOrder = 2 TabOrder = 2
Left = 4 Left = 4
Height = 328 Height = 328
@ -456,7 +456,7 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
Left = 6 Left = 6
Height = 100 Height = 100
Top = 6 Top = 6
Width = 502 Width = 498
end end
end end
end end
@ -575,6 +575,18 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
Top = 91 Top = 91
Width = 100 Width = 100
end end
object ShowBorderSpaceCheckBox: TCheckBox
BorderSpacing.Left = 10
Caption = 'ShowBorderSpaceCheckBox'
TabOrder = 4
AnchorSideLeft.Control = ShowGridCheckBox
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ShowGridCheckBox
AnchorSideTop.Side = asrCenter
Left = 154
Height = 24
Width = 188
end
end end
object GuideLinesGroupBox: TGroupBox object GuideLinesGroupBox: TGroupBox
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
@ -1015,7 +1027,12 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
end end
object BakProjTypeRadioGroup: TRadioGroup object BakProjTypeRadioGroup: TRadioGroup
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoFill = True
Caption = 'BakProjTypeRadioGroup' Caption = 'BakProjTypeRadioGroup'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
@ -1100,7 +1117,12 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
end end
object BakOtherTypeRadioGroup: TRadioGroup object BakOtherTypeRadioGroup: TRadioGroup
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoFill = True
Caption = 'BakOtherTypeRadioGroup' Caption = 'BakOtherTypeRadioGroup'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
@ -1155,8 +1177,13 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
object PascalFileExtRadiogroup: TRadioGroup object PascalFileExtRadiogroup: TRadioGroup
Align = alTop Align = alTop
Anchors = [akTop, akLeft] Anchors = [akTop, akLeft]
AutoFill = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'PascalFileExtRadiogroup' Caption = 'PascalFileExtRadiogroup'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
@ -1170,8 +1197,13 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
end end
object CharcaseFileActionRadioGroup: TRadioGroup object CharcaseFileActionRadioGroup: TRadioGroup
Align = alTop Align = alTop
AutoFill = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'CharcaseFileActionRadioGroup' Caption = 'CharcaseFileActionRadioGroup'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
@ -1185,8 +1217,13 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
end end
object AmbiguousFileActionRadioGroup: TRadioGroup object AmbiguousFileActionRadioGroup: TRadioGroup
Align = alTop Align = alTop
AutoFill = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'AmbiguousFileActionRadioGroup' Caption = 'AmbiguousFileActionRadioGroup'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
@ -1220,8 +1257,8 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
Align = alTop Align = alTop
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'LazDocPathsGroupBox' Caption = 'LazDocPathsGroupBox'
ClientHeight = 193 ClientHeight = 210
ClientWidth = 520 ClientWidth = 524
TabOrder = 0 TabOrder = 0
Left = 6 Left = 6
Height = 210 Height = 210
@ -1235,7 +1272,7 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
Left = 6 Left = 6
Height = 108 Height = 108
Top = 6 Top = 6
Width = 508 Width = 512
end end
object LazDocAddPathButton: TButton object LazDocAddPathButton: TButton
AutoSize = True AutoSize = True
@ -1272,7 +1309,7 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
Left = 6 Left = 6
Height = 23 Height = 23
Top = 154 Top = 154
Width = 484 Width = 488
end end
object LazDocBrowseButton: TButton object LazDocBrowseButton: TButton
BorderSpacing.Left = 6 BorderSpacing.Left = 6
@ -1282,7 +1319,7 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
TabOrder = 4 TabOrder = 4
AnchorSideLeft.Control = LazDocPathEdit AnchorSideLeft.Control = LazDocPathEdit
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
Left = 496 Left = 500
Height = 23 Height = 23
Top = 156 Top = 156
Width = 19 Width = 19

475
ide/environmentopts.lrs
View File

@ -17,7 +17,7 @@ LazarusResources.Add('TEnvironmentOptionsDialog','FORMDATA',[
+#2#18'VertScrollBar.Page'#3#7#2#4'Left'#3':'#1#6'Height'#3#8#2#3'Top'#2'|'#5 +#2#18'VertScrollBar.Page'#3#7#2#4'Left'#3':'#1#6'Height'#3#8#2#3'Top'#2'|'#5
+'Width'#3#28#2#0#9'TNotebook'#8'Notebook'#5'Align'#7#5'alTop'#7'Anchors'#11#5 +'Width'#3#28#2#0#9'TNotebook'#8'Notebook'#5'Align'#7#5'alTop'#7'Anchors'#11#5
+'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#14'OnChangeBounds'#7#20'NotebookC' +'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#14'OnChangeBounds'#7#20'NotebookC'
+'hangeBounds'#9'PageIndex'#2#1#6'Height'#3#221#1#5'Width'#3#28#2#0#5'TPage'#9 +'hangeBounds'#9'PageIndex'#2#3#6'Height'#3#221#1#5'Width'#3#28#2#0#5'TPage'#9
+'FilesPage'#7'Caption'#6#9'FilesPage'#11'ClientWidth'#3#24#2#12'ClientHeight' +'FilesPage'#7'Caption'#6#9'FilesPage'#11'ClientWidth'#3#24#2#12'ClientHeight'
+#3#191#1#4'Left'#2#2#6'Height'#3#191#1#3'Top'#2#28#5'Width'#3#24#2#0#6'TLabe' +#3#191#1#4'Left'#2#2#6'Height'#3#191#1#3'Top'#2#28#5'Width'#3#24#2#0#6'TLabe'
+'l'#23'MaxRecentOpenFilesLabel'#7'Caption'#6#23'MaxRecentOpenFilesLabel'#5'C' +'l'#23'MaxRecentOpenFilesLabel'#7'Caption'#6#23'MaxRecentOpenFilesLabel'#5'C'
@ -142,12 +142,12 @@ LazarusResources.Add('TEnvironmentOptionsDialog','FORMDATA',[
+'op'#6'akLeft'#7'akRight'#0#7'Caption'#6#20'HideIDEOnRunCheckBox'#8'TabOrder' +'op'#6'akLeft'#7'akRight'#0#7'Caption'#6#20'HideIDEOnRunCheckBox'#8'TabOrder'
+#2#1#4'Left'#2#4#6'Height'#2#24#3'Top'#2'"'#5'Width'#3#18#2#0#0#9'TGroupBox' +#2#1#4'Left'#2#4#6'Height'#2#24#3'Top'#2'"'#5'Width'#3#18#2#0#0#9'TGroupBox'
+#23'WindowPositionsGroupBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'a' +#23'WindowPositionsGroupBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'a'
+'kBottom'#0#7'Caption'#6#23'WindowPositionsGroupBox'#12'ClientHeight'#3'H'#1 +'kBottom'#0#7'Caption'#6#23'WindowPositionsGroupBox'#12'ClientHeight'#3'7'#1
+#11'ClientWidth'#3#18#2#8'TabOrder'#2#2#4'Left'#2#4#6'Height'#3'H'#1#3'Top'#2 +#11'ClientWidth'#3#14#2#8'TabOrder'#2#2#4'Left'#2#4#6'Height'#3'H'#1#3'Top'#2
+'D'#5'Width'#3#18#2#0#8'TListBox'#22'WindowPositionsListBox'#7'Anchors'#11#5 +'D'#5'Width'#3#18#2#0#8'TListBox'#22'WindowPositionsListBox'#7'Anchors'#11#5
+'akTop'#6'akLeft'#7'akRight'#0#9'OnMouseUp'#7#29'WindowPositionsListBoxMouse' +'akTop'#6'akLeft'#7'akRight'#0#9'OnMouseUp'#7#29'WindowPositionsListBoxMouse'
+'Up'#8'TabOrder'#2#0#8'TopIndex'#2#255#4'Left'#2#6#6'Height'#2'd'#3'Top'#2#6 +'Up'#8'TabOrder'#2#0#8'TopIndex'#2#255#4'Left'#2#6#6'Height'#2'd'#3'Top'#2#6
+#5'Width'#3#246#1#0#0#0#0#5'TPage'#14'FormEditorPage'#7'Caption'#6#14'FormEd' +#5'Width'#3#242#1#0#0#0#0#5'TPage'#14'FormEditorPage'#7'Caption'#6#14'FormEd'
+'itorPage'#11'ClientWidth'#3#24#2#12'ClientHeight'#3#191#1#8'OnResize'#7#20 +'itorPage'#11'ClientWidth'#3#24#2#12'ClientHeight'#3#191#1#8'OnResize'#7#20
+'FormEditorPageResize'#4'Left'#2#2#6'Height'#3#191#1#3'Top'#2#28#5'Width'#3 +'FormEditorPageResize'#4'Left'#2#2#6'Height'#3#191#1#3'Top'#2#28#5'Width'#3
+#24#2#0#9'TGroupBox'#12'GridGroupBox'#20'BorderSpacing.Around'#2#6#7'Caption' +#24#2#0#9'TGroupBox'#12'GridGroupBox'#20'BorderSpacing.Around'#2#6#7'Caption'
@ -174,230 +174,249 @@ LazarusResources.Add('TEnvironmentOptionsDialog','FORMDATA',[
+'Box'#16'AutoCompleteText'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscen' +'Box'#16'AutoCompleteText'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscen'
+'ding'#0#13'Items.Strings'#1#6#1'2'#6#1'5'#6#1'8'#6#2'10'#6#2'12'#6#2'15'#6#2 +'ding'#0#13'Items.Strings'#1#6#1'2'#6#1'5'#6#1'8'#6#2'10'#6#2'12'#6#2'15'#6#2
+'20'#6#2'25'#6#2'30'#0#9'MaxLength'#2#0#14'ParentShowHint'#8#8'ShowHint'#9#8 +'20'#6#2'25'#6#2'30'#0#9'MaxLength'#2#0#14'ParentShowHint'#8#8'ShowHint'#9#8
+'TabOrder'#2#3#4'Left'#2#6#6'Height'#2#21#3'Top'#2'['#5'Width'#2'd'#0#0#0#9 +'TabOrder'#2#3#4'Left'#2#6#6'Height'#2#21#3'Top'#2'['#5'Width'#2'd'#0#0#9'TC'
+'TGroupBox'#18'GuideLinesGroupBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRigh' +'heckBox'#23'ShowBorderSpaceCheckBox'#18'BorderSpacing.Left'#2#10#7'Caption'
+'t'#0#18'BorderSpacing.Left'#2#10#7'Caption'#6#18'GuideLinesGroupBox'#12'Cli' +#6#23'ShowBorderSpaceCheckBox'#8'TabOrder'#2#4#22'AnchorSideLeft.Control'#7
+'entHeight'#3#238#0#11'ClientWidth'#3#172#0#8'TabOrder'#2#1#22'AnchorSideLef' +#16'ShowGridCheckBox'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTo'
+'t.Control'#7#20'FormEditMiscGroupBox'#19'AnchorSideLeft.Side'#7#9'asrBottom' +'p.Control'#7#16'ShowGridCheckBox'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'L'
+#4'Left'#3'a'#1#6'Height'#3#255#0#3'Top'#3#187#0#5'Width'#3#176#0#0#12'TColo' +'eft'#3#154#0#6'Height'#2#24#5'Width'#3#188#0#0#0#0#9'TGroupBox'#18'GuideLin'
+'rButton'#27'GuideLineColorLeftTopButton'#11'BorderWidth'#2#2#4'Left'#2#6#6 +'esGroupBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#18'BorderSpacing.'
+'Height'#2#23#3'Top'#2'F'#5'Width'#2'2'#0#0#12'TColorButton'#31'GuideLineCol' +'Left'#2#10#7'Caption'#6#18'GuideLinesGroupBox'#12'ClientHeight'#3#238#0#11
+'orRightBottomButton'#11'BorderWidth'#2#2#4'Left'#2#6#6'Height'#2#23#3'Top'#2 +'ClientWidth'#3#172#0#8'TabOrder'#2#1#22'AnchorSideLeft.Control'#7#20'FormEd'
+'v'#5'Width'#2'2'#0#0#6'TLabel'#26'GuideLineColorLeftTopLabel'#7'Anchors'#11 +'itMiscGroupBox'#19'AnchorSideLeft.Side'#7#9'asrBottom'#4'Left'#3'a'#1#6'Hei'
+#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#26'GuideLineColorLeftTopLabel' +'ght'#3#255#0#3'Top'#3#187#0#5'Width'#3#176#0#0#12'TColorButton'#27'GuideLin'
+#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'#2#6#6'Height'#2#13#3'Top'#2 +'eColorLeftTopButton'#11'BorderWidth'#2#2#4'Left'#2#6#6'Height'#2#23#3'Top'#2
+'9'#5'Width'#3#142#0#0#0#6'TLabel'#30'GuideLineColorRightBottomLabel'#7'Anch' +'F'#5'Width'#2'2'#0#0#12'TColorButton'#31'GuideLineColorRightBottomButton'#11
+'ors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#30'GuideLineColorRight' +'BorderWidth'#2#2#4'Left'#2#6#6'Height'#2#23#3'Top'#2'v'#5'Width'#2'2'#0#0#6
+'BottomLabel'#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'#2#6#6'Height'#2 +'TLabel'#26'GuideLineColorLeftTopLabel'#7'Anchors'#11#5'akTop'#6'akLeft'#7'a'
+#13#3'Top'#2'f'#5'Width'#3#142#0#0#0#9'TCheckBox'#22'ShowGuideLinesCheckBox' +'kRight'#0#7'Caption'#6#26'GuideLineColorLeftTopLabel'#5'Color'#7#6'clNone'
+#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#22'ShowGuideLine' +#11'ParentColor'#8#4'Left'#2#6#6'Height'#2#13#3'Top'#2'9'#5'Width'#3#142#0#0
+'sCheckBox'#8'TabOrder'#2#0#4'Left'#2#6#6'Height'#2#24#5'Width'#3#142#0#0#0#9 +#0#6'TLabel'#30'GuideLineColorRightBottomLabel'#7'Anchors'#11#5'akTop'#6'akL'
+'TCheckBox'#24'SnapToGuideLinesCheckBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7 +'eft'#7'akRight'#0#7'Caption'#6#30'GuideLineColorRightBottomLabel'#5'Color'#7
+'akRight'#0#7'Caption'#6#24'SnapToGuideLinesCheckBox'#8'TabOrder'#2#1#4'Left' +#6'clNone'#11'ParentColor'#8#4'Left'#2#6#6'Height'#2#13#3'Top'#2'f'#5'Width'
+#2#6#6'Height'#2#24#3'Top'#2#19#5'Width'#3#142#0#0#0#0#9'TGroupBox'#20'FormE' +#3#142#0#0#0#9'TCheckBox'#22'ShowGuideLinesCheckBox'#7'Anchors'#11#5'akTop'#6
+'ditMiscGroupBox'#20'BorderSpacing.Around'#2#6#7'Caption'#6#20'FormEditMiscG' +'akLeft'#7'akRight'#0#7'Caption'#6#22'ShowGuideLinesCheckBox'#8'TabOrder'#2#0
+'roupBox'#12'ClientHeight'#3#238#0#11'ClientWidth'#3'M'#1#8'TabOrder'#2#2#23 +#4'Left'#2#6#6'Height'#2#24#5'Width'#3#142#0#0#0#9'TCheckBox'#24'SnapToGuide'
+'AnchorSideRight.Control'#7#14'FormEditorPage'#20'AnchorSideRight.Side'#7#9 +'LinesCheckBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#24
+'asrBottom'#4'Left'#2#6#6'Height'#3#255#0#3'Top'#3#187#0#5'Width'#3'Q'#1#0#12 +'SnapToGuideLinesCheckBox'#8'TabOrder'#2#1#4'Left'#2#6#6'Height'#2#24#3'Top'
+'TColorButton'#18'GrabberColorButton'#11'BorderWidth'#2#2#4'Left'#2#6#6'Heig' +#2#19#5'Width'#3#142#0#0#0#0#9'TGroupBox'#20'FormEditMiscGroupBox'#20'Border'
+'ht'#2#23#3'Top'#3#130#0#5'Width'#2'2'#0#0#12'TColorButton'#17'MarkerColorBu' +'Spacing.Around'#2#6#7'Caption'#6#20'FormEditMiscGroupBox'#12'ClientHeight'#3
+'tton'#11'BorderWidth'#2#2#4'Left'#2#6#6'Height'#2#23#3'Top'#3#180#0#5'Width' +#238#0#11'ClientWidth'#3'M'#1#8'TabOrder'#2#2#23'AnchorSideRight.Control'#7
,#2'2'#0#0#6'TLabel'#17'GrabberColorLabel'#7'Anchors'#11#5'akTop'#6'akLeft'#7 ,#14'FormEditorPage'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#6#6'He'
+'akRight'#0#7'Caption'#6#17'GrabberColorLabel'#5'Color'#7#6'clNone'#11'Paren' +'ight'#3#255#0#3'Top'#3#187#0#5'Width'#3'Q'#1#0#12'TColorButton'#18'GrabberC'
+'tColor'#8#4'Left'#2#6#6'Height'#2#13#3'Top'#2'n'#5'Width'#3'<'#1#0#0#6'TLab' +'olorButton'#11'BorderWidth'#2#2#4'Left'#2#6#6'Height'#2#23#3'Top'#3#130#0#5
+'el'#16'MarkerColorLabel'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Ca' +'Width'#2'2'#0#0#12'TColorButton'#17'MarkerColorButton'#11'BorderWidth'#2#2#4
+'ption'#6#16'MarkerColorLabel'#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Left' +'Left'#2#6#6'Height'#2#23#3'Top'#3#180#0#5'Width'#2'2'#0#0#6'TLabel'#17'Grab'
+#2#6#6'Height'#2#13#3'Top'#3#160#0#5'Width'#3'<'#1#0#0#9'TCheckBox'#29'ShowC' +'berColorLabel'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#17
+'omponentCaptionsCheckBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'C' +'GrabberColorLabel'#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'#2#6#6'Hei'
+'aption'#6#29'ShowComponentCaptionsCheckBox'#8'TabOrder'#2#0#4'Left'#2#6#6'H' +'ght'#2#13#3'Top'#2'n'#5'Width'#3'<'#1#0#0#6'TLabel'#16'MarkerColorLabel'#7
+'eight'#2#24#5'Width'#3'<'#1#0#0#9'TCheckBox'#23'ShowEditorHintsCheckBox'#7 +'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#16'MarkerColorLabe'
+'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#23'ShowEditorHints' +'l'#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'#2#6#6'Height'#2#13#3'Top'
+'CheckBox'#8'TabOrder'#2#1#4'Left'#2#6#6'Height'#2#24#3'Top'#2#25#5'Width'#3 +#3#160#0#5'Width'#3'<'#1#0#0#9'TCheckBox'#29'ShowComponentCaptionsCheckBox'#7
+'<'#1#0#0#9'TCheckBox'#29'AutoCreateFormsOnOpenCheckBox'#7'Anchors'#11#5'akT' +'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#29'ShowComponentCa'
+'op'#6'akLeft'#7'akRight'#0#7'Caption'#6#29'AutoCreateFormsOnOpenCheckBox'#8 +'ptionsCheckBox'#8'TabOrder'#2#0#4'Left'#2#6#6'Height'#2#24#5'Width'#3'<'#1#0
+'TabOrder'#2#2#4'Left'#2#6#6'Height'#2#24#3'Top'#2'2'#5'Width'#3'<'#1#0#0#9 +#0#9'TCheckBox'#23'ShowEditorHintsCheckBox'#7'Anchors'#11#5'akTop'#6'akLeft'
+'TCheckBox'#25'RightClickSelectsCheckBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7 +#7'akRight'#0#7'Caption'#6#23'ShowEditorHintsCheckBox'#8'TabOrder'#2#1#4'Lef'
+'akRight'#0#7'Caption'#6#25'RightClickSelectsCheckBox'#8'TabOrder'#2#3#4'Lef' +'t'#2#6#6'Height'#2#24#3'Top'#2#25#5'Width'#3'<'#1#0#0#9'TCheckBox'#29'AutoC'
+'t'#2#6#6'Height'#2#24#3'Top'#2'K'#5'Width'#3'<'#1#0#0#9'TCheckBox'#25'Desig' +'reateFormsOnOpenCheckBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'C'
+'nerPaintLazyCheckBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Capti' +'aption'#6#29'AutoCreateFormsOnOpenCheckBox'#8'TabOrder'#2#2#4'Left'#2#6#6'H'
+'on'#6#25'DesignerPaintLazyCheckBox'#14'ParentShowHint'#8#8'ShowHint'#9#8'Ta' +'eight'#2#24#3'Top'#2'2'#5'Width'#3'<'#1#0#0#9'TCheckBox'#25'RightClickSelec'
+'bOrder'#2#4#4'Left'#2#6#6'Height'#2#24#3'Top'#3#205#0#5'Width'#3'<'#1#0#0#0 +'tsCheckBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#25'R'
+#9'TGroupBox'#18'RubberbandGroupBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRi' +'ightClickSelectsCheckBox'#8'TabOrder'#2#3#4'Left'#2#6#6'Height'#2#24#3'Top'
+'ght'#0#18'BorderSpacing.Left'#2#10#7'Caption'#6#18'RubberbandGroupBox'#12'C' +#2'K'#5'Width'#3'<'#1#0#0#9'TCheckBox'#25'DesignerPaintLazyCheckBox'#7'Ancho'
+'lientHeight'#3#153#0#11'ClientWidth'#3#172#0#8'TabOrder'#2#3#22'AnchorSideL' +'rs'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#25'DesignerPaintLazyChe'
+'eft.Control'#7#12'GridGroupBox'#19'AnchorSideLeft.Side'#7#9'asrBottom'#4'Le' +'ckBox'#14'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder'#2#4#4'Left'#2#6#6'Hei'
+'ft'#3'a'#1#6'Height'#3#170#0#3'Top'#2#6#5'Width'#3#176#0#0#12'TColorButton' +'ght'#2#24#3'Top'#3#205#0#5'Width'#3'<'#1#0#0#0#9'TGroupBox'#18'RubberbandGr'
+#27'RubberbandSelectColorButton'#11'BorderWidth'#2#2#4'Left'#2#6#6'Height'#2 +'oupBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#18'BorderSpacing.Left'
+#23#3'Top'#2#19#5'Width'#2'2'#0#0#12'TColorButton'#27'RubberbandCreateColorB' +#2#10#7'Caption'#6#18'RubberbandGroupBox'#12'ClientHeight'#3#153#0#11'Client'
+'utton'#11'BorderWidth'#2#2#4'Left'#2#6#6'Height'#2#23#3'Top'#2'F'#5'Width'#2 +'Width'#3#172#0#8'TabOrder'#2#3#22'AnchorSideLeft.Control'#7#12'GridGroupBox'
+'2'#0#0#6'TLabel'#26'RubberbandSelectColorLabel'#7'Anchors'#11#5'akTop'#6'ak' +#19'AnchorSideLeft.Side'#7#9'asrBottom'#4'Left'#3'a'#1#6'Height'#3#170#0#3'T'
+'Left'#7'akRight'#0#7'Caption'#6#26'RubberbandSelectColorLabel'#5'Color'#7#6 +'op'#2#6#5'Width'#3#176#0#0#12'TColorButton'#27'RubberbandSelectColorButton'
+'clNone'#11'ParentColor'#8#4'Left'#2#6#6'Height'#2#13#3'Top'#2#3#5'Width'#3 +#11'BorderWidth'#2#2#4'Left'#2#6#6'Height'#2#23#3'Top'#2#19#5'Width'#2'2'#0#0
+#155#0#0#0#6'TLabel'#26'RubberbandCreateColorLabel'#7'Anchors'#11#5'akTop'#6 +#12'TColorButton'#27'RubberbandCreateColorButton'#11'BorderWidth'#2#2#4'Left'
+'akLeft'#7'akRight'#0#7'Caption'#6#26'RubberbandCreateColorLabel'#5'Color'#7 +#2#6#6'Height'#2#23#3'Top'#2'F'#5'Width'#2'2'#0#0#6'TLabel'#26'RubberbandSel'
+#6'clNone'#11'ParentColor'#8#4'Left'#2#6#6'Height'#2#13#3'Top'#2'6'#5'Width' +'ectColorLabel'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#26
+#3#155#0#0#0#9'TCheckBox$RubberbandSelectsGrandChildsCheckBox'#7'Anchors'#11 +'RubberbandSelectColorLabel'#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'#2
+#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6'$RubberbandSelectsGrandChildsC' +#6#6'Height'#2#13#3'Top'#2#3#5'Width'#3#155#0#0#0#6'TLabel'#26'RubberbandCre'
+'heckBox'#8'TabOrder'#2#0#4'Left'#2#6#6'Height'#2#24#3'Top'#2'f'#5'Width'#3 +'ateColorLabel'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#26
+#161#0#0#0#0#0#5'TPage'#19'ObjectInspectorPage'#7'Caption'#6#19'ObjectInspec' +'RubberbandCreateColorLabel'#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'#2
+'torPage'#11'ClientWidth'#3#24#2#12'ClientHeight'#3#191#1#4'Left'#2#2#6'Heig' +#6#6'Height'#2#13#3'Top'#2'6'#5'Width'#3#155#0#0#0#9'TCheckBox$RubberbandSel'
+'ht'#3#191#1#3'Top'#2#28#5'Width'#3#24#2#0#9'TGroupBox'#29'ObjectInspectorCo' +'ectsGrandChildsCheckBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Ca'
+'lorsGroupBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#18'BorderSpacin' +'ption'#6'$RubberbandSelectsGrandChildsCheckBox'#8'TabOrder'#2#0#4'Left'#2#6
+'g.Left'#2#5#17'BorderSpacing.Top'#2#5#19'BorderSpacing.Right'#2#5#7'Caption' +#6'Height'#2#24#3'Top'#2'f'#5'Width'#3#161#0#0#0#0#0#5'TPage'#19'ObjectInspe'
+#6#29'ObjectInspectorColorsGroupBox'#12'ClientHeight'#3#156#0#11'ClientWidth' +'ctorPage'#7'Caption'#6#19'ObjectInspectorPage'#11'ClientWidth'#3#24#2#12'Cl'
+#3#10#2#8'TabOrder'#2#0#4'Left'#2#5#6'Height'#3#173#0#3'Top'#2#7#5'Width'#3 +'ientHeight'#3#191#1#4'Left'#2#2#6'Height'#3#191#1#3'Top'#2#28#5'Width'#3#24
+#14#2#0#12'TColorButton'#23'OIBackgroundColorButton'#11'BorderWidth'#2#2#4'L' +#2#0#9'TGroupBox'#29'ObjectInspectorColorsGroupBox'#7'Anchors'#11#5'akTop'#6
+'eft'#2#6#6'Height'#2#23#3'Top'#2#5#5'Width'#2'2'#0#0#12'TColorButton'#21'OI' +'akLeft'#7'akRight'#0#18'BorderSpacing.Left'#2#5#17'BorderSpacing.Top'#2#5#19
+'SubPropsColorButton'#11'BorderWidth'#2#2#4'Left'#2#6#6'Height'#2#23#3'Top'#2 +'BorderSpacing.Right'#2#5#7'Caption'#6#29'ObjectInspectorColorsGroupBox'#12
+#29#5'Width'#2'2'#0#0#12'TColorButton'#23'OIReferencesColorButton'#11'Border' +'ClientHeight'#3#156#0#11'ClientWidth'#3#10#2#8'TabOrder'#2#0#4'Left'#2#5#6
+'Width'#2#2#4'Left'#2#6#6'Height'#2#23#3'Top'#2'5'#5'Width'#2'2'#0#0#12'TCol' +'Height'#3#173#0#3'Top'#2#7#5'Width'#3#14#2#0#12'TColorButton'#23'OIBackgrou'
+'orButton'#18'OIValueColorButton'#11'BorderWidth'#2#2#4'Left'#2#6#6'Height'#2 +'ndColorButton'#11'BorderWidth'#2#2#4'Left'#2#6#6'Height'#2#23#3'Top'#2#5#5
+#23#3'Top'#2'M'#5'Width'#2'2'#0#0#12'TColorButton'#25'OIDefaultValueColorBut' +'Width'#2'2'#0#0#12'TColorButton'#21'OISubPropsColorButton'#11'BorderWidth'#2
+'ton'#11'BorderWidth'#2#2#4'Left'#2#6#6'Height'#2#23#3'Top'#2'e'#5'Width'#2 +#2#4'Left'#2#6#6'Height'#2#23#3'Top'#2#29#5'Width'#2'2'#0#0#12'TColorButton'
+'2'#0#0#12'TColorButton'#21'OIPropNameColorButton'#11'BorderWidth'#2#2#4'Lef' +#23'OIReferencesColorButton'#11'BorderWidth'#2#2#4'Left'#2#6#6'Height'#2#23#3
+'t'#2#6#6'Height'#2#23#3'Top'#2'}'#5'Width'#2'2'#0#0#6'TLabel'#22'OIBackgrou' +'Top'#2'5'#5'Width'#2'2'#0#0#12'TColorButton'#18'OIValueColorButton'#11'Bord'
+'ndColorLabel'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#22 +'erWidth'#2#2#4'Left'#2#6#6'Height'#2#23#3'Top'#2'M'#5'Width'#2'2'#0#0#12'TC'
+'OIBackgroundColorLabel'#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'#2'A' +'olorButton'#25'OIDefaultValueColorButton'#11'BorderWidth'#2#2#4'Left'#2#6#6
+#6'Height'#2#13#3'Top'#2#11#5'Width'#3#171#1#0#0#6'TLabel'#20'OISubPropsColo' +'Height'#2#23#3'Top'#2'e'#5'Width'#2'2'#0#0#12'TColorButton'#21'OIPropNameCo'
+'rLabel'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#20'OISub' +'lorButton'#11'BorderWidth'#2#2#4'Left'#2#6#6'Height'#2#23#3'Top'#2'}'#5'Wid'
+'PropsColorLabel'#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'#2'A'#6'Heig' +'th'#2'2'#0#0#6'TLabel'#22'OIBackgroundColorLabel'#7'Anchors'#11#5'akTop'#6
+'ht'#2#13#3'Top'#2'#'#5'Width'#3#171#1#0#0#6'TLabel'#22'OIReferencesColorLab' +'akLeft'#7'akRight'#0#7'Caption'#6#22'OIBackgroundColorLabel'#5'Color'#7#6'c'
+'el'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#22'OIReferen' +'lNone'#11'ParentColor'#8#4'Left'#2'A'#6'Height'#2#13#3'Top'#2#11#5'Width'#3
+'cesColorLabel'#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'#2'A'#6'Height' +#171#1#0#0#6'TLabel'#20'OISubPropsColorLabel'#7'Anchors'#11#5'akTop'#6'akLef'
+#2#13#3'Top'#2';'#5'Width'#3#171#1#0#0#6'TLabel'#17'OIValueColorLabel'#7'Anc' +'t'#7'akRight'#0#7'Caption'#6#20'OISubPropsColorLabel'#5'Color'#7#6'clNone'
+'hors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#17'OIValueColorLabel' +#11'ParentColor'#8#4'Left'#2'A'#6'Height'#2#13#3'Top'#2'#'#5'Width'#3#171#1#0
,#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'#2'A'#6'Height'#2#13#3'Top'#2 ,#0#6'TLabel'#22'OIReferencesColorLabel'#7'Anchors'#11#5'akTop'#6'akLeft'#7'a'
+'S'#5'Width'#3#171#1#0#0#6'TLabel'#24'OIDefaultValueColorLabel'#7'Anchors'#11 +'kRight'#0#7'Caption'#6#22'OIReferencesColorLabel'#5'Color'#7#6'clNone'#11'P'
+#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#24'OIDefaultValueColorLabel'#5 +'arentColor'#8#4'Left'#2'A'#6'Height'#2#13#3'Top'#2';'#5'Width'#3#171#1#0#0#6
+'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'#2'A'#6'Height'#2#13#3'Top'#2'k' +'TLabel'#17'OIValueColorLabel'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0
+#5'Width'#3#171#1#0#0#6'TLabel'#20'OIPropNameColorLabel'#7'Anchors'#11#5'akT' +#7'Caption'#6#17'OIValueColorLabel'#5'Color'#7#6'clNone'#11'ParentColor'#8#4
+'op'#6'akLeft'#7'akRight'#0#7'Caption'#6#20'OIPropNameColorLabel'#5'Color'#7 +'Left'#2'A'#6'Height'#2#13#3'Top'#2'S'#5'Width'#3#171#1#0#0#6'TLabel'#24'OID'
+#6'clNone'#11'ParentColor'#8#4'Left'#2'A'#6'Height'#2#13#3'Top'#3#131#0#5'Wi' +'efaultValueColorLabel'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Capt'
+'dth'#3#171#1#0#0#0#9'TGroupBox'#14'OIMiscGroupBox'#7'Anchors'#11#5'akTop'#6 +'ion'#6#24'OIDefaultValueColorLabel'#5'Color'#7#6'clNone'#11'ParentColor'#8#4
+'akLeft'#7'akRight'#0#7'Caption'#6#14'OIMiscGroupBox'#12'ClientHeight'#2'X' +'Left'#2'A'#6'Height'#2#13#3'Top'#2'k'#5'Width'#3#171#1#0#0#6'TLabel'#20'OIP'
+#11'ClientWidth'#3#10#2#8'TabOrder'#2#1#4'Left'#2#5#6'Height'#2'i'#3'Top'#3 +'ropNameColorLabel'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'
+#186#0#5'Width'#3#14#2#0#6'TLabel'#24'OIDefaultItemHeightLabel'#7'Anchors'#11 +#6#20'OIPropNameColorLabel'#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'#2
+#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#24'OIDefaultItemHeightLabel'#5 +'A'#6'Height'#2#13#3'Top'#3#131#0#5'Width'#3#171#1#0#0#0#9'TGroupBox'#14'OIM'
+'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'#2#6#6'Height'#2#13#3'Top'#2#6#5 +'iscGroupBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#14
+'Width'#3#230#1#0#0#9'TCheckBox'#18'OIShowHintCheckBox'#7'Anchors'#11#5'akTo' +'OIMiscGroupBox'#12'ClientHeight'#2'X'#11'ClientWidth'#3#10#2#8'TabOrder'#2#1
+'p'#6'akLeft'#7'akRight'#0#7'Caption'#6#18'OIShowHintCheckBox'#8'TabOrder'#2 +#4'Left'#2#5#6'Height'#2'i'#3'Top'#3#186#0#5'Width'#3#14#2#0#6'TLabel'#24'OI'
+#0#4'Left'#2#6#6'Height'#2#24#3'Top'#2'7'#5'Width'#3#230#1#0#0#9'TSpinEdit' +'DefaultItemHeightLabel'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Cap'
+#27'OIDefaultItemHeightSpinEdit'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight' +'tion'#6#24'OIDefaultItemHeightLabel'#5'Color'#7#6'clNone'#11'ParentColor'#8
+#0#8'TabOrder'#2#1#4'Left'#2#6#6'Height'#2#20#3'Top'#2#24#5'Width'#3#250#1#0 +#4'Left'#2#6#6'Height'#2#13#3'Top'#2#6#5'Width'#3#230#1#0#0#9'TCheckBox'#18
+#0#0#0#5'TPage'#10'BackupPage'#7'Caption'#6#10'BackupPage'#11'ClientWidth'#3 +'OIShowHintCheckBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'
+#24#2#12'ClientHeight'#3#191#1#4'Left'#2#2#6'Height'#3#191#1#3'Top'#2#28#5'W' +#6#18'OIShowHintCheckBox'#8'TabOrder'#2#0#4'Left'#2#6#6'Height'#2#24#3'Top'#2
+'idth'#3#24#2#0#6'TLabel'#15'BackupHelpLabel'#7'Anchors'#11#5'akTop'#6'akLef' +'7'#5'Width'#3#230#1#0#0#9'TSpinEdit'#27'OIDefaultItemHeightSpinEdit'#7'Anch'
+'t'#7'akRight'#0#7'Caption'#6#15'BackupHelpLabel'#5'Color'#7#6'clNone'#11'Pa' +'ors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'TabOrder'#2#1#4'Left'#2#6#6'Heigh'
+'rentColor'#8#4'Left'#2#4#6'Height'#2#13#3'Top'#2#7#5'Width'#3#18#2#0#0#9'TG' +'t'#2#20#3'Top'#2#24#5'Width'#3#250#1#0#0#0#0#5'TPage'#10'BackupPage'#7'Capt'
+'roupBox'#21'BackupProjectGroupBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRig' +'ion'#6#10'BackupPage'#11'ClientWidth'#3#24#2#12'ClientHeight'#3#191#1#4'Lef'
+'ht'#0#7'Caption'#6#21'BackupProjectGroupBox'#12'ClientHeight'#3#184#0#11'Cl' +'t'#2#2#6'Height'#3#191#1#3'Top'#2#28#5'Width'#3#24#2#0#6'TLabel'#15'BackupH'
+'ientWidth'#3#14#2#8'TabOrder'#2#0#4'Left'#2#4#6'Height'#3#201#0#3'Top'#2'"' +'elpLabel'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#15'Bac'
+#5'Width'#3#18#2#0#6'TLabel'#18'BakProjAddExtLabel'#7'Anchors'#11#5'akTop'#6 +'kupHelpLabel'#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'#2#4#6'Height'#2
+'akLeft'#7'akRight'#0#7'Caption'#6#18'BakProjAddExtLabel'#5'Color'#7#6'clNon' +#13#3'Top'#2#7#5'Width'#3#18#2#0#0#9'TGroupBox'#21'BackupProjectGroupBox'#7
+'e'#11'ParentColor'#8#4'Left'#2'u'#6'Height'#2#13#3'Top'#2'd'#5'Width'#3''#1 +'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#21'BackupProjectGr'
+#0#0#6'TLabel'#22'BakProjMaxCounterLabel'#7'Anchors'#11#5'akTop'#6'akLeft'#7 +'oupBox'#12'ClientHeight'#3#184#0#11'ClientWidth'#3#14#2#8'TabOrder'#2#0#4'L'
+'akRight'#0#7'Caption'#6#22'BakProjMaxCounterLabel'#5'Color'#7#6'clNone'#11 +'eft'#2#4#6'Height'#3#201#0#3'Top'#2'"'#5'Width'#3#18#2#0#6'TLabel'#18'BakPr'
+'ParentColor'#8#4'Left'#2'v'#6'Height'#2#13#3'Top'#2'}'#5'Width'#3'~'#1#0#0#6 +'ojAddExtLabel'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#18
+'TLabel'#18'BakProjSubDirLabel'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0 +'BakProjAddExtLabel'#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'#2'u'#6'H'
+#7'Caption'#6#18'BakProjSubDirLabel'#5'Color'#7#6'clNone'#11'ParentColor'#8#4 +'eight'#2#13#3'Top'#2'd'#5'Width'#3''#1#0#0#6'TLabel'#22'BakProjMaxCounterL'
+'Left'#2'u'#6'Height'#2#13#3'Top'#3#154#0#5'Width'#3''#1#0#0#11'TRadioGroup' +'abel'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#22'BakProj'
+#21'BakProjTypeRadioGroup'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'C' +'MaxCounterLabel'#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'#2'v'#6'Heig'
+'aption'#6#21'BakProjTypeRadioGroup'#28'ChildSizing.ShrinkHorizontal'#7#14'c' +'ht'#2#13#3'Top'#2'}'#5'Width'#3'~'#1#0#0#6'TLabel'#18'BakProjSubDirLabel'#7
+'rsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'Child' +'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#18'BakProjSubDirLa'
+'Sizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.ControlsP' +'bel'#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'#2'u'#6'Height'#2#13#3'T'
+'erLine'#2#2#7'Columns'#2#2#7'OnClick'#7#22'BakTypeRadioGroupClick'#8'TabOrd' +'op'#3#154#0#5'Width'#3''#1#0#0#11'TRadioGroup'#21'BakProjTypeRadioGroup'#7
+'er'#2#0#4'Left'#2#6#6'Height'#2'X'#5'Width'#3#238#1#0#0#9'TComboBox'#21'Bak' +'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoFill'#9#7'Caption'#6#21'B'
+'ProjAddExtComboBox'#16'AutoCompleteText'#11#22'cbactEndOfLineComplete'#20'c' +'akProjTypeRadioGroup'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.T'
+'bactSearchAscending'#0#9'MaxLength'#2#0#8'TabOrder'#2#1#4'Text'#6#21'BakPro' +'opBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousCh'
+'jAddExtComboBox'#4'Left'#2#10#6'Height'#2#21#3'Top'#2'b'#5'Width'#2'd'#0#0#9 +'ildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChildResize'#28
+'TComboBox'#25'BakProjMaxCounterComboBox'#16'AutoCompleteText'#11#22'cbactEn' +'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVer'
+'dOfLineComplete'#20'cbactSearchAscending'#0#9'MaxLength'#2#0#8'TabOrder'#2#2 +'tical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenT'
+#4'Text'#6#25'BakProjMaxCounterComboBox'#4'Left'#2#10#6'Height'#2#21#3'Top'#2 +'opToBottom'#27'ChildSizing.ControlsPerLine'#2#2#7'Columns'#2#2#7'OnClick'#7
+'}'#5'Width'#2'd'#0#0#9'TComboBox'#21'BakProjSubDirComboBox'#16'AutoComplete' +#22'BakTypeRadioGroupClick'#8'TabOrder'#2#0#4'Left'#2#6#6'Height'#2'X'#5'Wid'
+'Text'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending'#0#9'MaxLength' +'th'#3#238#1#0#0#9'TComboBox'#21'BakProjAddExtComboBox'#16'AutoCompleteText'
+#2#0#8'TabOrder'#2#3#4'Text'#6#21'BakProjSubDirComboBox'#4'Left'#2#10#6'Heig' +#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending'#0#9'MaxLength'#2#0#8
+'ht'#2#21#3'Top'#3#152#0#5'Width'#2'd'#0#0#0#9'TGroupBox'#19'BackupOtherGrou' +'TabOrder'#2#1#4'Text'#6#21'BakProjAddExtComboBox'#4'Left'#2#10#6'Height'#2
+'pBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#19'BackupO' +#21#3'Top'#2'b'#5'Width'#2'd'#0#0#9'TComboBox'#25'BakProjMaxCounterComboBox'
+'therGroupBox'#12'ClientHeight'#3#179#0#11'ClientWidth'#3#14#2#8'TabOrder'#2 +#16'AutoCompleteText'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending'
+#1#4'Left'#2#4#6'Height'#3#196#0#3'Top'#3#242#0#5'Width'#3#18#2#0#6'TLabel' +#0#9'MaxLength'#2#0#8'TabOrder'#2#2#4'Text'#6#25'BakProjMaxCounterComboBox'#4
+#19'BakOtherAddExtLabel'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Cap' +'Left'#2#10#6'Height'#2#21#3'Top'#2'}'#5'Width'#2'd'#0#0#9'TComboBox'#21'Bak'
+'tion'#6#19'BakOtherAddExtLabel'#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Le' +'ProjSubDirComboBox'#16'AutoCompleteText'#11#22'cbactEndOfLineComplete'#20'c'
+'ft'#2'u'#6'Height'#2#13#3'Top'#2'a'#5'Width'#3''#1#0#0#6'TLabel'#23'BakOth' +'bactSearchAscending'#0#9'MaxLength'#2#0#8'TabOrder'#2#3#4'Text'#6#21'BakPro'
+'erMaxCounterLabel'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption' +'jSubDirComboBox'#4'Left'#2#10#6'Height'#2#21#3'Top'#3#152#0#5'Width'#2'd'#0
+#6#23'BakOtherMaxCounterLabel'#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Left' +#0#0#9'TGroupBox'#19'BackupOtherGroupBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7
+#2'u'#6'Height'#2#13#3'Top'#2'|'#5'Width'#3''#1#0#0#6'TLabel'#19'BakOtherSu' +'akRight'#0#7'Caption'#6#19'BackupOtherGroupBox'#12'ClientHeight'#3#179#0#11
+'bDirLabel'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#19'Ba' +'ClientWidth'#3#14#2#8'TabOrder'#2#1#4'Left'#2#4#6'Height'#3#196#0#3'Top'#3
+'kOtherSubDirLabel'#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'#2'u'#6'He' +#242#0#5'Width'#3#18#2#0#6'TLabel'#19'BakOtherAddExtLabel'#7'Anchors'#11#5'a'
+'ight'#2#13#3'Top'#3#151#0#5'Width'#3''#1#0#0#11'TRadioGroup'#22'BakOtherTy' +'kTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#19'BakOtherAddExtLabel'#5'Color'#7
+'peRadioGroup'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#22 +#6'clNone'#11'ParentColor'#8#4'Left'#2'u'#6'Height'#2#13#3'Top'#2'a'#5'Width'
,'BakOtherTypeRadioGroup'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChild' ,#3''#1#0#0#6'TLabel'#23'BakOtherMaxCounterLabel'#7'Anchors'#11#5'akTop'#6'a'
+'s'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layou' +'kLeft'#7'akRight'#0#7'Caption'#6#23'BakOtherMaxCounterLabel'#5'Color'#7#6'c'
+'t'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#2#7 +'lNone'#11'ParentColor'#8#4'Left'#2'u'#6'Height'#2#13#3'Top'#2'|'#5'Width'#3
+'Columns'#2#2#7'OnClick'#7#22'BakTypeRadioGroupClick'#8'TabOrder'#2#0#4'Left' +''#1#0#0#6'TLabel'#19'BakOtherSubDirLabel'#7'Anchors'#11#5'akTop'#6'akLeft'
+#2#6#6'Height'#2'T'#5'Width'#3#238#1#0#0#9'TComboBox'#22'BakOtherAddExtCombo' +#7'akRight'#0#7'Caption'#6#19'BakOtherSubDirLabel'#5'Color'#7#6'clNone'#11'P'
+'Box'#16'AutoCompleteText'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscen' +'arentColor'#8#4'Left'#2'u'#6'Height'#2#13#3'Top'#3#151#0#5'Width'#3''#1#0#0
+'ding'#0#9'MaxLength'#2#0#8'TabOrder'#2#1#4'Text'#6#22'BakOtherAddExtComboBo' +#11'TRadioGroup'#22'BakOtherTypeRadioGroup'#7'Anchors'#11#5'akTop'#6'akLeft'
+'x'#4'Left'#2#10#6'Height'#2#21#3'Top'#2'_'#5'Width'#2'd'#0#0#9'TComboBox'#26 +#7'akRight'#0#8'AutoFill'#9#7'Caption'#6#22'BakOtherTypeRadioGroup'#28'Child'
+'BakOtherMaxCounterComboBox'#16'AutoCompleteText'#11#22'cbactEndOfLineComple' +'Sizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildS'
+'te'#20'cbactSearchAscending'#0#9'MaxLength'#2#0#8'TabOrder'#2#2#4'Text'#6#26 +'izing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.Enla'
+'BakOtherMaxCounterComboBox'#4'Left'#2#10#6'Height'#2#21#3'Top'#2'z'#5'Width' +'rgeVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHorizontal'
+#2'd'#0#0#9'TComboBox'#22'BakOtherSubDirComboBox'#16'AutoCompleteText'#11#22 +#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18
+'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.Cont'
+'rolsPerLine'#2#2#7'Columns'#2#2#7'OnClick'#7#22'BakTypeRadioGroupClick'#8'T'
+'abOrder'#2#0#4'Left'#2#6#6'Height'#2'T'#5'Width'#3#238#1#0#0#9'TComboBox'#22
+'BakOtherAddExtComboBox'#16'AutoCompleteText'#11#22'cbactEndOfLineComplete'
+#20'cbactSearchAscending'#0#9'MaxLength'#2#0#8'TabOrder'#2#1#4'Text'#6#22'Ba'
+'kOtherAddExtComboBox'#4'Left'#2#10#6'Height'#2#21#3'Top'#2'_'#5'Width'#2'd'
+#0#0#9'TComboBox'#26'BakOtherMaxCounterComboBox'#16'AutoCompleteText'#11#22
+'cbactEndOfLineComplete'#20'cbactSearchAscending'#0#9'MaxLength'#2#0#8'TabOr' +'cbactEndOfLineComplete'#20'cbactSearchAscending'#0#9'MaxLength'#2#0#8'TabOr'
+'der'#2#3#4'Text'#6#22'BakOtherSubDirComboBox'#4'Left'#2#10#6'Height'#2#21#3 +'der'#2#2#4'Text'#6#26'BakOtherMaxCounterComboBox'#4'Left'#2#10#6'Height'#2
+'Top'#3#149#0#5'Width'#2'd'#0#0#0#0#5'TPage'#10'NamingPage'#7'Caption'#6#10 +#21#3'Top'#2'z'#5'Width'#2'd'#0#0#9'TComboBox'#22'BakOtherSubDirComboBox'#16
+'NamingPage'#11'ClientWidth'#3#24#2#12'ClientHeight'#3#191#1#4'Left'#2#2#6'H' +'AutoCompleteText'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending'#0#9
+'eight'#3#191#1#3'Top'#2#28#5'Width'#3#24#2#0#11'TRadioGroup'#23'PascalFileE' +'MaxLength'#2#0#8'TabOrder'#2#3#4'Text'#6#22'BakOtherSubDirComboBox'#4'Left'
+'xtRadiogroup'#5'Align'#7#5'alTop'#7'Anchors'#11#5'akTop'#6'akLeft'#0#20'Bor' +#2#10#6'Height'#2#21#3'Top'#3#149#0#5'Width'#2'd'#0#0#0#0#5'TPage'#10'Naming'
+'derSpacing.Around'#2#6#7'Caption'#6#23'PascalFileExtRadiogroup'#28'ChildSiz' +'Page'#7'Caption'#6#10'NamingPage'#11'ClientWidth'#3#24#2#12'ClientHeight'#3
+'ing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7 +#191#1#4'Left'#2#2#6'Height'#3#191#1#3'Top'#2#28#5'Width'#3#24#2#0#11'TRadio'
+#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBotto' +'Group'#23'PascalFileExtRadiogroup'#5'Align'#7#5'alTop'#7'Anchors'#11#5'akTo'
+'m'#27'ChildSizing.ControlsPerLine'#2#2#7'Columns'#2#2#8'TabOrder'#2#0#4'Lef' +'p'#6'akLeft'#0#8'AutoFill'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#23'P'
+'t'#2#6#6'Height'#2'/'#3'Top'#2#6#5'Width'#3#12#2#0#0#11'TRadioGroup'#28'Cha' +'ascalFileExtRadiogroup'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing'
+'rcaseFileActionRadioGroup'#5'Align'#7#5'alTop'#20'BorderSpacing.Around'#2#6 +'.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenous'
+#7'Caption'#6#28'CharcaseFileActionRadioGroup'#28'ChildSizing.ShrinkHorizont' +'ChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChildResize'
+'al'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds' +#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.Shrink'
+#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.C' +'Vertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightTh'
+'ontrolsPerLine'#2#2#7'Columns'#2#2#8'TabOrder'#2#1#4'Left'#2#6#6'Height'#2 +'enTopToBottom'#27'ChildSizing.ControlsPerLine'#2#2#7'Columns'#2#2#8'TabOrde'
+'U'#3'Top'#3#165#0#5'Width'#3#12#2#0#0#11'TRadioGroup'#29'AmbiguousFileActio' +'r'#2#0#4'Left'#2#6#6'Height'#2'/'#3'Top'#2#6#5'Width'#3#12#2#0#0#11'TRadioG'
+'nRadioGroup'#5'Align'#7#5'alTop'#20'BorderSpacing.Around'#2#6#7'Caption'#6 +'roup'#28'CharcaseFileActionRadioGroup'#5'Align'#7#5'alTop'#8'AutoFill'#9#20
+#29'AmbiguousFileActionRadioGroup'#28'ChildSizing.ShrinkHorizontal'#7#14'crs' +'BorderSpacing.Around'#2#6#7'Caption'#6#28'CharcaseFileActionRadioGroup'#28
+'ScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSi' +'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'C'
+'zing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.ControlsPer' +'hildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizing'
+'Line'#2#2#7'Columns'#2#2#8'TabOrder'#2#2#4'Left'#2#6#6'Height'#2'd'#3'Top'#2 +'.EnlargeVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHoriz'
+';'#5'Width'#3#12#2#0#0#0#5'TPage'#10'LazDocPage'#7'Caption'#6#10'LazDocPage' +'ontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChi'
+#11'ClientWidth'#3#24#2#12'ClientHeight'#3#191#1#4'Left'#2#2#6'Height'#3#191 +'lds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSiz'
+#1#3'Top'#2#28#5'Width'#3#24#2#0#6'TLabel'#6'Label1'#7'Caption'#6'+NOTE: onl' +'ing.ControlsPerLine'#2#2#7'Columns'#2#2#8'TabOrder'#2#1#4'Left'#2#6#6'Heigh'
+'y absolute paths are supported now'#5'Color'#7#6'clNone'#11'ParentColor'#8#4 +'t'#2'U'#3'Top'#3#165#0#5'Width'#3#12#2#0#0#11'TRadioGroup'#29'AmbiguousFile'
+'Left'#2#8#6'Height'#2#13#3'Top'#3#226#0#5'Width'#3#3#1#0#0#9'TGroupBox'#19 +'ActionRadioGroup'#5'Align'#7#5'alTop'#8'AutoFill'#9#20'BorderSpacing.Around'
+'LazDocPathsGroupBox'#5'Align'#7#5'alTop'#20'BorderSpacing.Around'#2#6#7'Cap' +#2#6#7'Caption'#6#29'AmbiguousFileActionRadioGroup'#28'ChildSizing.LeftRight'
+'tion'#6#19'LazDocPathsGroupBox'#12'ClientHeight'#3#193#0#11'ClientWidth'#3#8 +'Spacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHor'
+#2#8'TabOrder'#2#0#4'Left'#2#6#6'Height'#3#210#0#3'Top'#2#6#5'Width'#3#12#2#0 +'izontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24
+#8'TListBox'#13'LazDocListBox'#5'Align'#7#5'alTop'#20'BorderSpacing.Around'#2 +'crsHomogenousChildResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChi'
+#6#8'TabOrder'#2#0#8'TopIndex'#2#255#4'Left'#2#6#6'Height'#2'l'#3'Top'#2#6#5 +'lds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Lay'
+'Width'#3#252#1#0#0#7'TButton'#19'LazDocAddPathButton'#8'AutoSize'#9#25'Bord' +'out'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#2
+'erSpacing.InnerBorder'#2#2#7'Caption'#6#19'LazDocAddPathButton'#7'OnClick'#7 +#7'Columns'#2#2#8'TabOrder'#2#2#4'Left'#2#6#6'Height'#2'd'#3'Top'#2';'#5'Wid'
+#24'LazDocAddPathButtonClick'#8'TabOrder'#2#1#4'Left'#2#6#6'Height'#2#26#3'T' +'th'#3#12#2#0#0#0#5'TPage'#10'LazDocPage'#7'Caption'#6#10'LazDocPage'#11'Cli'
+'op'#2'z'#5'Width'#3#136#0#0#0#7'TButton'#22'LazDocDeletePathButton'#8'AutoS' +'entWidth'#3#24#2#12'ClientHeight'#3#191#1#4'Left'#2#2#6'Height'#3#191#1#3'T'
+'ize'#9#18'BorderSpacing.Left'#2#10#25'BorderSpacing.InnerBorder'#2#2#7'Capt' +'op'#2#28#5'Width'#3#24#2#0#6'TLabel'#6'Label1'#7'Caption'#6'+NOTE: only abs'
+'ion'#6#22'LazDocDeletePathButton'#7'OnClick'#7#27'LazDocDeletePathButtonCli' +'olute paths are supported now'#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Lef'
+'ck'#8'TabOrder'#2#2#22'AnchorSideLeft.Control'#7#19'LazDocAddPathButton'#19 +'t'#2#8#6'Height'#2#13#3'Top'#3#226#0#5'Width'#3#3#1#0#0#9'TGroupBox'#19'Laz'
+'AnchorSideLeft.Side'#7#9'asrBottom'#4'Left'#3#152#0#6'Height'#2#26#3'Top'#2 +'DocPathsGroupBox'#5'Align'#7#5'alTop'#20'BorderSpacing.Around'#2#6#7'Captio'
+'z'#5'Width'#3#149#0#0#0#5'TEdit'#14'LazDocPathEdit'#7'Anchors'#11#5'akTop'#6 +'n'#6#19'LazDocPathsGroupBox'#12'ClientHeight'#3#210#0#11'ClientWidth'#3#12#2
+'akLeft'#7'akRight'#0#17'BorderSpacing.Top'#2#6#8'TabOrder'#2#3#4'Text'#6#14 +#8'TabOrder'#2#0#4'Left'#2#6#6'Height'#3#210#0#3'Top'#2#6#5'Width'#3#12#2#0#8
+'LazDocPathEdit'#21'AnchorSideTop.Control'#7#19'LazDocAddPathButton'#18'Anch' +'TListBox'#13'LazDocListBox'#5'Align'#7#5'alTop'#20'BorderSpacing.Around'#2#6
+'orSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#23#3'Top'#3#154#0#5 +#8'TabOrder'#2#0#8'TopIndex'#2#255#4'Left'#2#6#6'Height'#2'l'#3'Top'#2#6#5'W'
+'Width'#3#228#1#0#0#7'TButton'#18'LazDocBrowseButton'#18'BorderSpacing.Left' +'idth'#3#0#2#0#0#7'TButton'#19'LazDocAddPathButton'#8'AutoSize'#9#25'BorderS'
+#2#6#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#3'...'#7'OnClick'#7#23'L' ,'pacing.InnerBorder'#2#2#7'Caption'#6#19'LazDocAddPathButton'#7'OnClick'#7#24
+'azDocBrowseButtonClick'#8'TabOrder'#2#4#22'AnchorSideLeft.Control'#7#14'Laz' +'LazDocAddPathButtonClick'#8'TabOrder'#2#1#4'Left'#2#6#6'Height'#2#26#3'Top'
+'DocPathEdit'#19'AnchorSideLeft.Side'#7#9'asrBottom'#4'Left'#3#240#1#6'Heigh' +#2'z'#5'Width'#3#136#0#0#0#7'TButton'#22'LazDocDeletePathButton'#8'AutoSize'
+'t'#2#23#3'Top'#3#156#0#5'Width'#2#19#0#0#0#0#0#7'TButton'#12'CancelButton'#7 +#9#18'BorderSpacing.Left'#2#10#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6
+'Anchors'#11#7'akRight'#8'akBottom'#0#25'BorderSpacing.InnerBorder'#2#2#6'Ca' +#22'LazDocDeletePathButton'#7'OnClick'#7#27'LazDocDeletePathButtonClick'#8'T'
+'ncel'#9#7'Caption'#6#12'CancelButton'#7'OnClick'#7#17'CancelButtonClick'#8 +'abOrder'#2#2#22'AnchorSideLeft.Control'#7#19'LazDocAddPathButton'#19'Anchor'
+'TabOrder'#2#1#4'Left'#3#201#1#6'Height'#2#25#3'Top'#3#229#1#5'Width'#2'K'#0 +'SideLeft.Side'#7#9'asrBottom'#4'Left'#3#152#0#6'Height'#2#26#3'Top'#2'z'#5
,#0#7'TButton'#8'OkButton'#7'Anchors'#11#7'akRight'#8'akBottom'#0#25'BorderSp' +'Width'#3#149#0#0#0#5'TEdit'#14'LazDocPathEdit'#7'Anchors'#11#5'akTop'#6'akL'
+'acing.InnerBorder'#2#2#7'Caption'#6#2'Ok'#7'Default'#9#7'OnClick'#7#13'OkBu' +'eft'#7'akRight'#0#17'BorderSpacing.Top'#2#6#8'TabOrder'#2#3#4'Text'#6#14'La'
+'ttonClick'#8'TabOrder'#2#2#4'Left'#3'w'#1#6'Height'#2#25#3'Top'#3#229#1#5'W' +'zDocPathEdit'#21'AnchorSideTop.Control'#7#19'LazDocAddPathButton'#18'Anchor'
+'idth'#2'K'#0#0#22'TSelectDirectoryDialog'#21'SelectDirectoryDialog'#5'Title' +'SideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#23#3'Top'#3#154#0#5'Wi'
+#6#16'Select Directory'#11'FilterIndex'#2#0#5'Title'#6#16'Select Directory'#4 +'dth'#3#232#1#0#0#7'TButton'#18'LazDocBrowseButton'#18'BorderSpacing.Left'#2
+#6#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#3'...'#7'OnClick'#7#23'Laz'
+'DocBrowseButtonClick'#8'TabOrder'#2#4#22'AnchorSideLeft.Control'#7#14'LazDo'
+'cPathEdit'#19'AnchorSideLeft.Side'#7#9'asrBottom'#4'Left'#3#244#1#6'Height'
+#2#23#3'Top'#3#156#0#5'Width'#2#19#0#0#0#0#0#7'TButton'#12'CancelButton'#7'A'
+'nchors'#11#7'akRight'#8'akBottom'#0#25'BorderSpacing.InnerBorder'#2#2#6'Can'
+'cel'#9#7'Caption'#6#12'CancelButton'#7'OnClick'#7#17'CancelButtonClick'#8'T'
+'abOrder'#2#1#4'Left'#3#201#1#6'Height'#2#25#3'Top'#3#229#1#5'Width'#2'K'#0#0
+#7'TButton'#8'OkButton'#7'Anchors'#11#7'akRight'#8'akBottom'#0#25'BorderSpac'
+'ing.InnerBorder'#2#2#7'Caption'#6#2'Ok'#7'Default'#9#7'OnClick'#7#13'OkButt'
+'onClick'#8'TabOrder'#2#2#4'Left'#3'w'#1#6'Height'#2#25#3'Top'#3#229#1#5'Wid'
+'th'#2'K'#0#0#22'TSelectDirectoryDialog'#21'SelectDirectoryDialog'#5'Title'#6
+#16'Select Directory'#11'FilterIndex'#2#0#5'Title'#6#16'Select Directory'#4
+'left'#3#232#1#3'top'#2#8#0#0#0 +'left'#3#232#1#3'top'#2#8#0#0#0
]); ]);

14
ide/environmentopts.pp
View File

@ -127,7 +127,6 @@ type
TEnvironmentOptions = class TEnvironmentOptions = class
private private
FDesignerPaintLazy: boolean;
FFilename: string; FFilename: string;
FFileAge: longint; FFileAge: longint;
FFileHasChangedOnDisk: boolean; FFileHasChangedOnDisk: boolean;
@ -152,6 +151,8 @@ type
FDebuggerSearchPath: string; FDebuggerSearchPath: string;
// EnvironmentOptionsDialog editor // EnvironmentOptionsDialog editor
FDesignerPaintLazy: boolean;
FShowBorderSpacing: boolean;
FShowGrid: boolean; FShowGrid: boolean;
FSnapToGrid: boolean; FSnapToGrid: boolean;
FGridSizeX: integer; FGridSizeX: integer;
@ -276,6 +277,7 @@ type
write FIDESpeedButtonsVisible; write FIDESpeedButtonsVisible;
// EnvironmentOptionsDialog editor // EnvironmentOptionsDialog editor
property ShowBorderSpacing: boolean read FShowBorderSpacing write FShowBorderSpacing;
property ShowGrid: boolean read FShowGrid write FShowGrid; property ShowGrid: boolean read FShowGrid write FShowGrid;
property SnapToGrid: boolean read FSnapToGrid write FSnapToGrid; property SnapToGrid: boolean read FSnapToGrid write FSnapToGrid;
property GridColor: TColor read FGridColor write FGridColor; property GridColor: TColor read FGridColor write FGridColor;
@ -420,6 +422,7 @@ type
{ TEnvironmentOptionsDialog } { TEnvironmentOptionsDialog }
TEnvironmentOptionsDialog = class(TForm) TEnvironmentOptionsDialog = class(TForm)
Label1: TLabel;
NoteBook: TNoteBook; NoteBook: TNoteBook;
FilesPage: TPage; FilesPage: TPage;
DesktopPage: TPage; DesktopPage: TPage;
@ -471,6 +474,7 @@ type
// EnvironmentOptionsDialog editor // EnvironmentOptionsDialog editor
GridGroupBox: TGroupBox; GridGroupBox: TGroupBox;
ShowGridCheckBox: TCheckBox; ShowGridCheckBox: TCheckBox;
ShowBorderSpaceCheckBox: TCheckBox;
GridColorLabel: TLabel; GridColorLabel: TLabel;
GridColorButton: TColorButton; GridColorButton: TColorButton;
SnapToGridCheckBox: TCheckBox; SnapToGridCheckBox: TCheckBox;
@ -813,6 +817,7 @@ begin
// EnvironmentOptionsDialog editor // EnvironmentOptionsDialog editor
FShowGrid:=true; FShowGrid:=true;
FShowBorderSpacing:=false;
FGridColor:=clBlack; FGridColor:=clBlack;
FSnapToGrid:=true; FSnapToGrid:=true;
FGridSizeX:=8; FGridSizeX:=8;
@ -1028,6 +1033,8 @@ begin
// EnvironmentOptionsDialog editor // EnvironmentOptionsDialog editor
FShowGrid:=XMLConfig.GetValue( FShowGrid:=XMLConfig.GetValue(
Path+'FormEditor/ShowGrid',true); Path+'FormEditor/ShowGrid',true);
FShowBorderSpacing:=XMLConfig.GetValue(
Path+'FormEditor/ShowBorderSpacing',false);
FGridColor:=XMLConfig.GetValue( FGridColor:=XMLConfig.GetValue(
Path+'FormEditor/GridColor',FGridColor); Path+'FormEditor/GridColor',FGridColor);
FSnapToGrid:=XMLConfig.GetValue( FSnapToGrid:=XMLConfig.GetValue(
@ -1270,6 +1277,8 @@ begin
FIDESpeedButtonsVisible,true); FIDESpeedButtonsVisible,true);
// EnvironmentOptionsDialog editor // EnvironmentOptionsDialog editor
XMLConfig.SetDeleteValue(Path+'FormEditor/ShowBorderSpacing',
FShowBorderSpacing,false);
XMLConfig.SetDeleteValue(Path+'FormEditor/ShowGrid',FShowGrid,true); XMLConfig.SetDeleteValue(Path+'FormEditor/ShowGrid',FShowGrid,true);
XMLConfig.SetDeleteValue(Path+'FormEditor/GridColor',FGridColor,clBlack); XMLConfig.SetDeleteValue(Path+'FormEditor/GridColor',FGridColor,clBlack);
XMLConfig.SetDeleteValue(Path+'FormEditor/SnapToGrid',FSnapToGrid,true); XMLConfig.SetDeleteValue(Path+'FormEditor/SnapToGrid',FSnapToGrid,true);
@ -1845,6 +1854,7 @@ procedure TEnvironmentOptionsDialog.SetupFormEditorPage(Page: integer);
procedure SetupGridGroupBox; procedure SetupGridGroupBox;
begin begin
ShowBorderSpaceCheckBox.Caption:=dlgQShowBorderSpacing;
ShowGridCheckBox.Caption:=dlgQShowGrid; ShowGridCheckBox.Caption:=dlgQShowGrid;
GridColorLabel.Caption:=dlgGridColor; GridColorLabel.Caption:=dlgGridColor;
SnapToGridCheckBox.Caption:=dlgQSnapToGrid; SnapToGridCheckBox.Caption:=dlgQSnapToGrid;
@ -2233,6 +2243,7 @@ begin
MsgViewDblClickJumpsCheckBox.Checked:=MsgViewDblClickJumps; MsgViewDblClickJumpsCheckBox.Checked:=MsgViewDblClickJumps;
// EnvironmentOptionsDialog editor // EnvironmentOptionsDialog editor
ShowBorderSpaceCheckBox.Checked:=ShowBorderSpacing;
ShowGridCheckBox.Checked:=ShowGrid; ShowGridCheckBox.Checked:=ShowGrid;
GridColorButton.ButtonColor:=GridColor; GridColorButton.ButtonColor:=GridColor;
SnapToGridCheckBox.Checked:=SnapToGrid; SnapToGridCheckBox.Checked:=SnapToGrid;
@ -2380,6 +2391,7 @@ begin
MsgViewDblClickJumps:=MsgViewDblClickJumpsCheckBox.Checked; MsgViewDblClickJumps:=MsgViewDblClickJumpsCheckBox.Checked;
// EnvironmentOptionsDialog editor // EnvironmentOptionsDialog editor
ShowBorderSpacing:=ShowBorderSpaceCheckBox.Checked;
ShowGrid:=ShowGridCheckBox.Checked; ShowGrid:=ShowGridCheckBox.Checked;
GridColor:=GridColorButton.ButtonColor; GridColor:=GridColorButton.ButtonColor;
SnapToGrid:=SnapToGridCheckBox.Checked; SnapToGrid:=SnapToGridCheckBox.Checked;

1
ide/lazarusidestrconsts.pas
View File

@ -762,6 +762,7 @@ resourcestring
dlgDebugType = 'Debugger type and path'; dlgDebugType = 'Debugger type and path';
dlgTestPrjDir = 'Directory for building test projects'; dlgTestPrjDir = 'Directory for building test projects';
dlgQShowGrid = 'Show grid'; dlgQShowGrid = 'Show grid';
dlgQShowBorderSpacing = 'Show border spacing';
dlgGridColor = 'Grid color'; dlgGridColor = 'Grid color';
dlgQSnapToGrid = 'Snap to grid'; dlgQSnapToGrid = 'Snap to grid';
dlgGridX = 'Grid size X'; dlgGridX = 'Grid size X';

9
lcl/controls.pp
View File

@ -465,8 +465,13 @@ type
TConstraintSize = 0..MaxInt; TConstraintSize = 0..MaxInt;
TSizeConstraintsOption = (scoAdviceWidthAsMin, scoAdviceWidthAsMax, TSizeConstraintsOption = (
scoAdviceHeightAsMin, scoAdviceHeightAsMax); // not yet used
scoAdviceWidthAsMin,
scoAdviceWidthAsMax,
scoAdviceHeightAsMin,
scoAdviceHeightAsMax
);
TSizeConstraintsOptions = set of TSizeConstraintsOption; TSizeConstraintsOptions = set of TSizeConstraintsOption;
TSizeConstraints = class(TPersistent) TSizeConstraints = class(TPersistent)

2
lcl/include/radiogroup.inc
View File

@ -86,7 +86,7 @@ begin
inherited InitializeWnd; inherited InitializeWnd;
if FHiddenButton<>nil then if (FHiddenButton<>nil) and (FHiddenButton.Parent=Self) then
FHiddenButton.HandleNeeded; FHiddenButton.HandleNeeded;
FCreatingWnd := false; FCreatingWnd := false;

7
lcl/include/sizeconstraints.inc
View File

@ -49,6 +49,13 @@ begin
GetControlConstraints(Self); GetControlConstraints(Self);
end; end;
{------------------------------------------------------------------------------
procedure TSizeConstraints.SetInterfaceConstraints(MinW, MinH,
MaxW, MaxH: integer);
Used by the interface to set the interface constraints.
Should only be used by custom components, not by applications.
------------------------------------------------------------------------------}
procedure TSizeConstraints.SetInterfaceConstraints(MinW, MinH, procedure TSizeConstraints.SetInterfaceConstraints(MinW, MinH,
MaxW, MaxH: integer); MaxW, MaxH: integer);
begin begin