converted environment options to lfm from Darius

git-svn-id: trunk@7726 -
This commit is contained in:
mattias 2005-09-17 13:50:59 +00:00
parent 7295127ad7
commit d78f4a688c
17 changed files with 2073 additions and 1814 deletions

2
.gitattributes vendored
View File

@ -833,6 +833,8 @@ ide/editoroptions.pp svneol=native#text/pascal
ide/encloseselectiondlg.lfm svneol=native#text/plain
ide/encloseselectiondlg.lrs svneol=native#text/pascal
ide/encloseselectiondlg.pas svneol=native#text/pascal
ide/environmentopts.lfm svneol=native#text/plain
ide/environmentopts.lrs svneol=native#text/plain
ide/environmentopts.pp svneol=native#text/pascal
ide/extractprocdlg.lfm svneol=native#text/plain
ide/extractprocdlg.lrs svneol=native#text/pascal

1294
ide/environmentopts.lfm Normal file

File diff suppressed because it is too large Load Diff

377
ide/environmentopts.lrs Normal file
View File

@ -0,0 +1,377 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TForm','FORMDATA',[
'TPF0'#25'TForm'#24'EnvironmentOptionsDialog'#7'Caption'#6
+#24'EnvironmentOptionsDialog'#12'ClientHeight'#3#244#1#11'ClientWidth'#3#244
+#1#13'PixelsPerInch'#2'`'#8'Position'#7#14'poScreenCenter'#18'HorzScrollBar.'
+'Page'#3#243#1#18'VertScrollBar.Page'#3#243#1#4'Left'#3'"'#1#6'Height'#3#244
+#1#3'Top'#3#180#0#5'Width'#3#244#1#0#9'TNotebook'#9'Notebook1'#4'Left'#2#8#6
+'Height'#3#200#0#3'Top'#2#8#5'Width'#3#200#0#0#0#0
]);
LazarusResources.Add('TEnvironmentOptionsDialog','FORMDATA',[
'TPF0'#25'TEnvironmentOptionsDialog'#24'EnvironmentOptionsDialog'#7'Caption'#6
+#24'EnvironmentOptionsDialog'#12'ClientHeight'#3''''#2#11'ClientWidth'#3#138
+#2#8'OnResize'#7#10'FormResize'#13'PixelsPerInch'#2'p'#8'Position'#7#14'poSc'
+'reenCenter'#18'HorzScrollBar.Page'#3#137#2#18'VertScrollBar.Page'#3'&'#2#4
+'Left'#3'<'#1#6'Height'#3''''#2#3'Top'#3'#'#1#5'Width'#3#138#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'NotebookChangeBounds'#9'PageIndex'#2#3
+#6'Height'#3#252#1#5'Width'#3#138#2#0#5'TPage'#9'FilesPage'#7'Caption'#6#9'F'
+'ilesPage'#11'ClientWidth'#3#134#2#12'ClientHeight'#3#222#1#4'Left'#2#2#6'He'
+'ight'#3#222#1#3'Top'#2#28#5'Width'#3#134#2#0#6'TLabel'#23'MaxRecentOpenFile'
+'sLabel'#22'BorderSpacing.OnChange'#13#7'Caption'#6#23'MaxRecentOpenFilesLab'
+'el'#5'Color'#7#6'clNone'#4'Left'#2#4#6'Height'#2#12#3'Top'#2#10#5'Width'#3
+#152#0#0#0#6'TLabel'#26'MaxRecentProjectFilesLabel'#22'BorderSpacing.OnChang'
+'e'#13#7'Caption'#6#26'MaxRecentProjectFilesLabel'#5'Color'#7#6'clNone'#4'Le'
+'ft'#2#4#6'Height'#2#12#3'Top'#2':'#5'Width'#3#160#0#0#0#9'TComboBox'#26'Max'
+'RecentOpenFilesComboBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#22'B'
+'orderSpacing.OnChange'#13#13'Items.Strings'#1#6#1'5'#6#2'10'#6#2'15'#6#2'20'
+#6#2'25'#6#2'30'#0#9'MaxLength'#2#0#8'TabOrder'#2#0#4'Left'#2#4#6'Height'#2
+#21#3'Top'#2#26#5'Width'#3'z'#2#0#0#9'TComboBox'#29'MaxRecentProjectFilesCom'
+'boBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#22'BorderSpacing.OnCha'
+'nge'#13#13'Items.Strings'#1#6#1'5'#6#2'10'#6#2'15'#6#2'20'#6#2'25'#6#2'30'#0
+#9'MaxLength'#2#0#8'TabOrder'#2#1#4'Left'#2#4#6'Height'#2#21#3'Top'#2'J'#5'W'
+'idth'#3'z'#2#0#0#9'TCheckBox'#30'OpenLastProjectAtStartCheckBox'#7'Anchors'
+#11#5'akTop'#6'akLeft'#7'akRight'#0#22'BorderSpacing.OnChange'#13#7'Caption'
+#6#30'OpenLastProjectAtStartCheckBox'#8'TabOrder'#2#2#4'Left'#2#4#6'Height'#2
+#24#3'Top'#2'j'#5'Width'#3'z'#2#0#0#9'TGroupBox'#18'LazarusDirGroupBox'#7'An'
+'chors'#11#5'akTop'#6'akLeft'#7'akRight'#0#22'BorderSpacing.OnChange'#13#7'C'
+'aption'#6#18'LazarusDirGroupBox'#12'ClientHeight'#2'%'#11'ClientWidth'#3'v'
+#2#11'ParentColor'#9#8'TabOrder'#2#3#4'Left'#2#4#6'Height'#2'6'#3'Top'#3#142
+#0#5'Width'#3'z'#2#0#9'TComboBox'#18'LazarusDirComboBox'#7'Anchors'#11#5'akT'
+'op'#6'akLeft'#7'akRight'#0#22'BorderSpacing.OnChange'#13#9'MaxLength'#2#0#8
+'TabOrder'#2#0#4'Text'#6#18'LazarusDirComboBox'#4'Left'#2#6#6'Height'#2#21#3
+'Top'#2#3#5'Width'#3'N'#2#0#0#7'TButton'#16'LazarusDirButton'#7'Anchors'#11#5
+'akTop'#7'akRight'#0#22'BorderSpacing.OnChange'#13#7'Caption'#6#3'...'#7'OnC'
+'lick'#7#22'DirectoriesButtonClick'#8'TabOrder'#2#1#4'Left'#3'\'#2#6'Height'
+#2#21#3'Top'#2#3#5'Width'#2#20#0#0#0#9'TGroupBox'#20'CompilerPathGroupBox'#7
+'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#20'CompilerPathGro'
+'upBox'#12'ClientHeight'#2'%'#11'ClientWidth'#3'v'#2#11'ParentColor'#9#8'Tab'
+'Order'#2#4#4'Left'#2#4#6'Height'#2'6'#3'Top'#3#197#0#5'Width'#3'z'#2#0#9'TC'
+'omboBox'#20'CompilerPathComboBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRigh'
+'t'#0#9'MaxLength'#2#0#8'TabOrder'#2#0#4'Text'#6#20'CompilerPathComboBox'#4
+'Left'#2#6#6'Height'#2#21#3'Top'#2#3#5'Width'#3'N'#2#0#0#7'TButton'#18'Compi'
+'lerPathButton'#7'Anchors'#11#5'akTop'#7'akRight'#0#7'Caption'#6#3'...'#7'On'
+'Click'#7#16'FilesButtonClick'#8'TabOrder'#2#1#4'Left'#3'\'#2#6'Height'#2#21
+#3'Top'#2#2#5'Width'#2#20#0#0#0#9'TGroupBox'#20'FPCSourceDirGroupBox'#7'Anch'
+'ors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#20'FPCSourceDirGroupBo'
+'x'#12'ClientHeight'#2'%'#11'ClientWidth'#3'v'#2#11'ParentColor'#9#8'TabOrde'
+'r'#2#5#4'Left'#2#4#6'Height'#2'6'#3'Top'#3#252#0#5'Width'#3'z'#2#0#9'TCombo'
+'Box'#20'FPCSourceDirComboBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0
+#9'MaxLength'#2#0#8'TabOrder'#2#0#4'Text'#6#20'FPCSourceDirComboBox'#4'Left'
+#2#6#6'Height'#2#21#3'Top'#2#2#5'Width'#3'N'#2#0#0#7'TButton'#18'FPCSourceDi'
+'rButton'#7'Anchors'#11#5'akTop'#7'akRight'#0#7'Caption'#6#3'...'#7'OnClick'
+#7#22'DirectoriesButtonClick'#8'TabOrder'#2#1#4'Left'#3'\'#2#6'Height'#2#21#3
+'Top'#2#3#5'Width'#2#20#0#0#0#9'TGroupBox'#16'MakePathGroupBox'#7'Anchors'#11
+#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#16'MakePathGroupBox'#12'Client'
+'Height'#2'%'#11'ClientWidth'#3'v'#2#11'ParentColor'#9#8'TabOrder'#2#6#4'Lef'
+'t'#2#4#6'Height'#2'6'#3'Top'#3'3'#1#5'Width'#3'z'#2#0#9'TComboBox'#16'MakeP'
+'athComboBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#9'MaxLength'#2#0
+#8'TabOrder'#2#0#4'Text'#6#16'MakePathComboBox'#4'Left'#2#6#6'Height'#2#21#3
+'Top'#2#3#5'Width'#3'N'#2#0#0#7'TButton'#14'MakePathButton'#7'Anchors'#11#5
+'akTop'#7'akRight'#0#7'Caption'#6#3'...'#7'OnClick'#7#16'FilesButtonClick'#8
+'TabOrder'#2#1#4'Left'#3'\'#2#6'Height'#2#21#3'Top'#2#3#5'Width'#2#20#0#0#0#9
+'TGroupBox'#20'TestBuildDirGroupBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRi'
+'ght'#0#7'Caption'#6#20'TestBuildDirGroupBox'#12'ClientHeight'#2'%'#11'Clien'
,'tWidth'#3'v'#2#11'ParentColor'#9#8'TabOrder'#2#7#4'Left'#2#4#6'Height'#2'6'
+#3'Top'#3'j'#1#5'Width'#3'z'#2#0#9'TComboBox'#20'TestBuildDirComboBox'#7'Anc'
+'hors'#11#5'akTop'#6'akLeft'#7'akRight'#0#9'MaxLength'#2#0#8'TabOrder'#2#0#4
+'Text'#6#20'TestBuildDirComboBox'#4'Left'#2#6#6'Height'#2#21#3'Top'#2#3#5'Wi'
+'dth'#3'N'#2#0#0#7'TButton'#18'TestBuildDirButton'#7'Anchors'#11#5'akTop'#7
+'akRight'#0#7'Caption'#6#3'...'#7'OnClick'#7#22'DirectoriesButtonClick'#8'Ta'
+'bOrder'#2#1#4'Left'#3'\'#2#6'Height'#2#21#3'Top'#2#2#5'Width'#2#20#0#0#0#0#5
+'TPage'#11'DesktopPage'#7'Caption'#6#11'DesktopPage'#11'ClientWidth'#3#134#2
+#12'ClientHeight'#3#222#1#4'Left'#2#2#6'Height'#3#222#1#3'Top'#2#28#5'Width'
+#3#134#2#0#9'TGroupBox'#16'LanguageGroupBox'#7'Anchors'#11#5'akTop'#6'akLeft'
+#7'akRight'#0#22'BorderSpacing.OnChange'#13#7'Caption'#6#16'LanguageGroupBox'
+#12'ClientHeight'#2'8'#11'ClientWidth'#3'x'#2#11'ParentColor'#9#8'TabOrder'#2
+#0#4'Left'#2#4#6'Height'#2'8'#3'Top'#2#10#5'Width'#3'x'#2#0#9'TComboBox'#16
+'LanguageComboBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#22'BorderSp'
+'acing.OnChange'#13#9'MaxLength'#2#0#8'TabOrder'#2#0#4'Text'#6#16'LanguageCo'
+'mboBox'#4'Left'#2#6#6'Height'#2#21#3'Top'#2#8#5'Width'#3'd'#2#0#0#0#9'TChec'
+'kBox$ShowHintsForComponentPaletteCheckBox'#22'BorderSpacing.OnChange'#13#7
+'Caption'#6'$ShowHintsForComponentPaletteCheckBox'#8'TabOrder'#2#1#4'Left'#2
+#4#6'Height'#2#24#3'Top'#3'J'#1#5'Width'#3'x'#2#0#0#9'TGroupBox'#16'AutoSave'
+'GroupBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#22'BorderSpacing.On'
+'Change'#13#7'Caption'#6#16'AutoSaveGroupBox'#12'ClientHeight'#3#136#0#11'Cl'
+'ientWidth'#3'x'#2#11'ParentColor'#9#8'TabOrder'#2#2#4'Left'#2#4#6'Height'#3
+#136#0#3'Top'#2'J'#5'Width'#3'x'#2#0#6'TLabel'#27'AutoSaveIntervalInSecsLabe'
+'l'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#22'BorderSpacing.OnChange'
+#13#7'Caption'#6#27'AutoSaveIntervalInSecsLabel'#5'Color'#7#6'clNone'#7'Enab'
+'led'#8#4'Left'#2#6#6'Height'#2#17#3'Top'#2'C'#5'Width'#3'\'#2#0#0#9'TCheckB'
+'ox'#27'AutoSaveEditorFilesCheckBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRi'
+'ght'#0#22'BorderSpacing.OnChange'#13#7'Caption'#6#27'AutoSaveEditorFilesChe'
+'ckBox'#7'Enabled'#8#8'TabOrder'#2#0#4'Left'#2#6#6'Height'#2#24#3'Top'#2#4#5
+'Width'#3'd'#2#0#0#9'TCheckBox'#23'AutoSaveProjectCheckBox'#7'Anchors'#11#5
+'akTop'#6'akLeft'#7'akRight'#0#22'BorderSpacing.OnChange'#13#7'Caption'#6#23
+'AutoSaveProjectCheckBox'#7'Enabled'#8#8'TabOrder'#2#1#4'Left'#2#6#6'Height'
+#2#24#3'Top'#2#30#5'Width'#3'd'#2#0#0#9'TComboBox'#30'AutoSaveIntervalInSecs'
+'ComboBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#22'BorderSpacing.On'
+'Change'#13#7'Enabled'#8#13'Items.Strings'#1#6#4'1200'#6#3'600'#6#3'300'#6#3
+'120'#0#9'MaxLength'#2#0#8'TabOrder'#2#2#4'Left'#2#6#6'Height'#2#21#3'Top'#2
+'W'#5'Width'#3'd'#2#0#0#0#9'TGroupBox'#20'DesktopFilesGroupBox'#7'Anchors'#11
+#5'akTop'#6'akLeft'#7'akRight'#0#22'BorderSpacing.OnChange'#13#7'Caption'#6
+#20'DesktopFilesGroupBox'#12'ClientHeight'#2'a'#11'ClientWidth'#3'x'#2#11'Pa'
+'rentColor'#9#8'TabOrder'#2#3#4'Left'#2#4#6'Height'#2'a'#3'Top'#3#218#0#5'Wi'
+'dth'#3'x'#2#0#7'TButton'#31'SaveDesktopSettingsToFileButton'#7'Anchors'#11#5
+'akTop'#6'akLeft'#7'akRight'#0#22'BorderSpacing.OnChange'#13#7'Caption'#6#31
+'SaveDesktopSettingsToFileButton'#7'OnClick'#7'$SaveDesktopSettingsToFileBut'
+'tonClick'#8'TabOrder'#2#0#4'Left'#2#6#6'Height'#2#25#3'Top'#2#8#5'Width'#3
+'d'#2#0#0#7'TButton!LoadDesktopSettingsFromFileButton'#7'Anchors'#11#5'akTop'
+#6'akLeft'#7'akRight'#0#22'BorderSpacing.OnChange'#13#7'Caption'#6'!LoadDesk'
+'topSettingsFromFileButton'#7'OnEnter'#7'&LoadDesktopSettingsFromFileButtonC'
+'lick'#8'TabOrder'#2#1#4'Left'#2#6#6'Height'#2#25#3'Top'#2'+'#5'Width'#3'd'#2
+#0#0#0#9'TCheckBox$ShowHintsForMainSpeedButtonsCheckBox'#7'Caption'#6'$ShowH'
+'intsForMainSpeedButtonsCheckBox'#8'TabOrder'#2#4#4'Left'#2#4#6'Height'#2#24
+#3'Top'#3'b'#1#5'Width'#3'x'#2#0#0#9'TCheckBox'#28'MsgViewDblClickJumpsCheck'
+'Box'#7'Caption'#6#28'MsgViewDblClickJumpsCheckBox'#8'TabOrder'#2#5#4'Left'#2
+#4#6'Height'#2#24#3'Top'#3'z'#1#5'Width'#3'x'#2#0#0#0#5'TPage'#11'WindowsPag'
+'e'#7'Caption'#6#11'WindowsPage'#11'ClientWidth'#3#134#2#12'ClientHeight'#3
+#222#1#4'Left'#2#2#6'Height'#3#222#1#3'Top'#2#28#5'Width'#3#134#2#0#9'TCheck'
+'Box!MinimizeAllOnMinimizeMainCheckBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'a'
+'kRight'#0#7'Caption'#6'!MinimizeAllOnMinimizeMainCheckBox'#7'Enabled'#8#8'T'
+'abOrder'#2#0#4'Left'#2#4#6'Height'#2#24#3'Top'#2#10#5'Width'#3'|'#2#0#0#9'T'
+'CheckBox'#20'HideIDEOnRunCheckBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRig'
+'ht'#0#7'Caption'#6#20'HideIDEOnRunCheckBox'#8'TabOrder'#2#1#4'Left'#2#4#6'H'
+'eight'#2#24#3'Top'#2'"'#5'Width'#3'|'#2#0#0#9'TGroupBox'#23'WindowPositions'
+'GroupBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#7'Capti'
+'on'#6#23'WindowPositionsGroupBox'#12'ClientHeight'#3#143#1#11'ClientWidth'#3
+'|'#2#11'ParentColor'#9#8'TabOrder'#2#2#4'Left'#2#4#6'Height'#3#143#1#3'Top'
,#2'D'#5'Width'#3'|'#2#0#8'TListBox'#22'WindowPositionsListBox'#7'Anchors'#11
+#5'akTop'#6'akLeft'#7'akRight'#0#9'OnMouseUp'#7#29'WindowPositionsListBoxMou'
+'seUp'#8'TabOrder'#2#0#8'TopIndex'#2#255#4'Left'#2#6#6'Height'#2'd'#3'Top'#2
+#6#5'Width'#3'l'#2#0#0#0#0#5'TPage'#14'FormEditorPage'#7'Caption'#6#14'FormE'
+'ditorPage'#11'ClientWidth'#3#134#2#12'ClientHeight'#3#222#1#8'OnResize'#7#20
+'FormEditorPageResize'#4'Left'#2#2#6'Height'#3#222#1#3'Top'#2#28#5'Width'#3
+#134#2#0#9'TGroupBox'#12'GridGroupBox'#5'Align'#7#5'alTop'#22'BorderSpacing.'
+'OnChange'#13#20'BorderSpacing.Around'#2#6#7'Caption'#6#12'GridGroupBox'#12
+'ClientHeight'#2'q'#11'ClientWidth'#3'v'#2#11'ParentColor'#9#8'TabOrder'#2#0
+#4'Left'#2#6#6'Height'#3#130#0#3'Top'#2#6#5'Width'#3'z'#2#0#6'TLabel'#14'Gri'
+'dColorLabel'#22'BorderSpacing.OnChange'#13#7'Caption'#6#14'GridColorLabel'#5
+'Color'#7#6'clNone'#4'Left'#3'"'#1#6'Height'#2#17#3'Top'#2#6#5'Width'#3#145#0
+#0#0#6'TLabel'#14'GridSizeXLabel'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'
+#0#22'BorderSpacing.OnChange'#13#7'Caption'#6#14'GridSizeXLabel'#5'Color'#7#6
+'clNone'#4'Left'#2'u'#6'Height'#2#17#3'Top'#2'<'#5'Width'#3#247#1#0#0#6'TLab'
+'el'#14'GridSizeYLabel'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#22'Bor'
+'derSpacing.OnChange'#13#7'Caption'#6#14'GridSizeYLabel'#5'Color'#7#6'clNone'
+#4'Left'#2'u'#6'Height'#2#17#3'Top'#2'T'#5'Width'#3#247#1#0#0#12'TColorButto'
+'n'#15'GridColorButton'#22'BorderSpacing.OnChange'#13#11'BorderWidth'#2#2#4
+'Left'#3#230#0#6'Height'#2#23#5'Width'#2'2'#0#0#9'TCheckBox'#18'SnapToGridCh'
+'eckBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#22'BorderSpacing.OnCh'
+'ange'#13#7'Caption'#6#18'SnapToGridCheckBox'#8'TabOrder'#2#1#4'Left'#2#6#6
+'Height'#2#24#3'Top'#2#26#5'Width'#3'f'#2#0#0#9'TCheckBox'#16'ShowGridCheckB'
+'ox'#22'BorderSpacing.OnChange'#13#7'Caption'#6#16'ShowGridCheckBox'#8'TabOr'
+'der'#2#0#4'Left'#2#6#6'Height'#2#24#5'Width'#3#138#0#0#0#9'TComboBox'#17'Gr'
+'idSizeXComboBox'#22'BorderSpacing.OnChange'#13#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'TabOrder'#2#2#4'Left'#2#6#6'Height'#2
+#21#3'Top'#2':'#5'Width'#2'd'#0#0#9'TComboBox'#17'GridSizeYComboBox'#22'Bord'
+'erSpacing.OnChange'#13#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'TabOrder'#2#3#4'Left'#2#6#6'Height'#2#21#3'Top'#2'R'#5'Widt'
+'h'#2'd'#0#0#0#9'TGroupBox'#18'GuideLinesGroupBox'#5'Align'#7#6'alLeft'#7'An'
+'chors'#11#5'akTop'#6'akLeft'#0#22'BorderSpacing.OnChange'#13#20'BorderSpaci'
+'ng.Around'#2#6#7'Caption'#6#18'GuideLinesGroupBox'#12'ClientHeight'#3'9'#1
+#11'ClientWidth'#3#202#0#11'ParentColor'#9#8'TabOrder'#2#1#4'Left'#3#222#0#6
+'Height'#3'J'#1#3'Top'#3#142#0#5'Width'#3#206#0#0#12'TColorButton'#27'GuideL'
+'ineColorLeftTopButton'#22'BorderSpacing.OnChange'#13#11'BorderWidth'#2#2#4
+'Left'#2#6#6'Height'#2#23#3'Top'#2'F'#5'Width'#2'2'#0#0#12'TColorButton'#31
+'GuideLineColorRightBottomButton'#22'BorderSpacing.OnChange'#13#11'BorderWid'
+'th'#2#2#4'Left'#2#6#6'Height'#2#23#3'Top'#2'v'#5'Width'#2'2'#0#0#6'TLabel'
+#26'GuideLineColorLeftTopLabel'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0
+#22'BorderSpacing.OnChange'#13#7'Caption'#6#26'GuideLineColorLeftTopLabel'#5
+'Color'#7#6'clNone'#4'Left'#2#6#6'Height'#2#17#3'Top'#2'9'#5'Width'#3#188#0#0
+#0#6'TLabel'#30'GuideLineColorRightBottomLabel'#7'Anchors'#11#5'akTop'#6'akL'
+'eft'#7'akRight'#0#22'BorderSpacing.OnChange'#13#7'Caption'#6#30'GuideLineCo'
+'lorRightBottomLabel'#5'Color'#7#6'clNone'#4'Left'#2#6#6'Height'#2#17#3'Top'
+#2'f'#5'Width'#3#188#0#0#0#9'TCheckBox'#22'ShowGuideLinesCheckBox'#7'Anchors'
+#11#5'akTop'#6'akLeft'#7'akRight'#0#22'BorderSpacing.OnChange'#13#7'Caption'
+#6#22'ShowGuideLinesCheckBox'#8'TabOrder'#2#0#4'Left'#2#6#6'Height'#2#24#5'W'
+'idth'#3#188#0#0#0#9'TCheckBox'#24'SnapToGuideLinesCheckBox'#7'Anchors'#11#5
+'akTop'#6'akLeft'#7'akRight'#0#22'BorderSpacing.OnChange'#13#7'Caption'#6#24
+'SnapToGuideLinesCheckBox'#8'TabOrder'#2#1#4'Left'#2#6#6'Height'#2#24#3'Top'
+#2#19#5'Width'#3#188#0#0#0#0#9'TGroupBox'#20'FormEditMiscGroupBox'#5'Align'#7
+#6'alLeft'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Ar'
+'ound'#2#6#7'Caption'#6#20'FormEditMiscGroupBox'#12'ClientHeight'#3'9'#1#11
+'ClientWidth'#3#202#0#11'ParentColor'#9#8'TabOrder'#2#2#23'AnchorSideRight.C'
+'ontrol'#7#14'FormEditorPage'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'
+#3#178#1#6'Height'#3'J'#1#3'Top'#3#142#0#5'Width'#3#206#0#0#12'TColorButton'
+#18'GrabberColorButton'#11'BorderWidth'#2#2#4'Left'#2#6#6'Height'#2#23#3'Top'
+#2'f'#5'Width'#2'2'#0#0#12'TColorButton'#17'MarkerColorButton'#11'BorderWidt'
+'h'#2#2#4'Left'#2#6#6'Height'#2#23#3'Top'#3#150#0#5'Width'#2'2'#0#0#6'TLabel'
+#17'GrabberColorLabel'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Capti'
+'on'#6#17'GrabberColorLabel'#5'Color'#7#6'clNone'#4'Left'#2#6#6'Height'#2#14
,#3'Top'#2'Y'#5'Width'#3#186#0#0#0#6'TLabel'#16'MarkerColorLabel'#7'Anchors'
+#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#16'MarkerColorLabel'#5'Colo'
+'r'#7#6'clNone'#4'Left'#2#6#6'Height'#2#14#3'Top'#3#134#0#5'Width'#3#186#0#0
+#0#9'TCheckBox'#29'ShowComponentCaptionsCheckBox'#7'Anchors'#11#5'akTop'#6'a'
+'kLeft'#7'akRight'#0#7'Caption'#6#29'ShowComponentCaptionsCheckBox'#8'TabOrd'
+'er'#2#0#4'Left'#2#6#6'Height'#2#24#5'Width'#3#186#0#0#0#9'TCheckBox'#23'Sho'
+'wEditorHintsCheckBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Capti'
+'on'#6#23'ShowEditorHintsCheckBox'#8'TabOrder'#2#1#4'Left'#2#6#6'Height'#2#24
+#3'Top'#2#19#5'Width'#3#186#0#0#0#9'TCheckBox'#29'AutoCreateFormsOnOpenCheck'
+'Box'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#22'BorderSpacing.OnChang'
+'e'#13#7'Caption'#6#29'AutoCreateFormsOnOpenCheckBox'#8'TabOrder'#2#2#4'Left'
+#2#6#6'Height'#2#24#3'Top'#2'&'#5'Width'#3#186#0#0#0#9'TCheckBox'#25'RightCl'
+'ickSelectsCheckBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#22'Border'
+'Spacing.OnChange'#13#7'Caption'#6#25'RightClickSelectsCheckBox'#8'TabOrder'
+#2#3#4'Left'#2#6#6'Height'#2#24#3'Top'#2'9'#5'Width'#3#186#0#0#0#9'TCheckBox'
+#25'DesignerPaintLazyCheckBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0
+#7'Caption'#6#25'DesignerPaintLazyCheckBox'#14'ParentShowHint'#8#8'ShowHint'
+#9#8'TabOrder'#2#4#4'Left'#2#6#6'Height'#2#24#3'Top'#3#182#0#5'Width'#3#186#0
+#0#0#0#9'TGroupBox'#18'RubberbandGroupBox'#5'Align'#7#6'alLeft'#7'Anchors'#11
+#5'akTop'#6'akLeft'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#18'Rubberban'
+'dGroupBox'#12'ClientHeight'#3'9'#1#11'ClientWidth'#3#206#0#11'ParentColor'#9
+#8'TabOrder'#2#3#4'Left'#2#6#6'Height'#3'J'#1#3'Top'#3#142#0#5'Width'#3#210#0
+#0#12'TColorButton'#27'RubberbandSelectColorButton'#11'BorderWidth'#2#2#4'Le'
+'ft'#2#6#6'Height'#2#23#3'Top'#2#19#5'Width'#2'2'#0#0#12'TColorButton'#27'Ru'
+'bberbandCreateColorButton'#11'BorderWidth'#2#2#4'Left'#2#6#6'Height'#2#23#3
+'Top'#2'F'#5'Width'#2'2'#0#0#6'TLabel'#26'RubberbandSelectColorLabel'#7'Anch'
+'ors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#26'RubberbandSelectCol'
+'orLabel'#5'Color'#7#6'clNone'#4'Left'#2#6#6'Height'#2#17#3'Top'#2#3#5'Width'
+#3#184#0#0#0#6'TLabel'#26'RubberbandCreateColorLabel'#7'Anchors'#11#5'akTop'
+#6'akLeft'#7'akRight'#0#7'Caption'#6#26'RubberbandCreateColorLabel'#5'Color'
+#7#6'clNone'#4'Left'#2#6#6'Height'#2#17#3'Top'#2'6'#5'Width'#3#184#0#0#0#9'T'
+'CheckBox$RubberbandSelectsGrandChildsCheckBox'#7'Anchors'#11#5'akTop'#6'akL'
+'eft'#7'akRight'#0#22'BorderSpacing.OnChange'#13#7'Caption'#6'$RubberbandSel'
+'ectsGrandChildsCheckBox'#8'TabOrder'#2#0#6'Height'#2#24#3'Top'#2'f'#5'Width'
+#3#190#0#0#0#0#0#5'TPage'#19'ObjectInspectorPage'#7'Caption'#6#19'ObjectInsp'
+'ectorPage'#11'ClientWidth'#3#134#2#12'ClientHeight'#3#222#1#4'Left'#2#2#6'H'
+'eight'#3#222#1#3'Top'#2#28#5'Width'#3#134#2#0#9'TGroupBox'#29'ObjectInspect'
+'orColorsGroupBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6
+#29'ObjectInspectorColorsGroupBox'#12'ClientHeight'#3#173#0#11'ClientWidth'#3
+'{'#2#11'ParentColor'#9#8'TabOrder'#2#0#4'Left'#2#5#6'Height'#3#173#0#3'Top'
+#2#7#5'Width'#3'{'#2#0#12'TColorButton'#23'OIBackgroundColorButton'#11'Borde'
+'rWidth'#2#2#4'Left'#2#6#6'Height'#2#23#3'Top'#2#5#5'Width'#2'2'#0#0#12'TCol'
+'orButton'#21'OISubPropsColorButton'#11'BorderWidth'#2#2#4'Left'#2#6#6'Heigh'
+'t'#2#23#3'Top'#2#29#5'Width'#2'2'#0#0#12'TColorButton'#23'OIReferencesColor'
+'Button'#11'BorderWidth'#2#2#4'Left'#2#6#6'Height'#2#23#3'Top'#2'5'#5'Width'
+#2'2'#0#0#12'TColorButton'#18'OIValueColorButton'#11'BorderWidth'#2#2#4'Left'
+#2#6#6'Height'#2#23#3'Top'#2'M'#5'Width'#2'2'#0#0#12'TColorButton'#25'OIDefa'
+'ultValueColorButton'#11'BorderWidth'#2#2#4'Left'#2#6#6'Height'#2#23#3'Top'#2
+'e'#5'Width'#2'2'#0#0#12'TColorButton'#21'OIPropNameColorButton'#11'BorderWi'
+'dth'#2#2#4'Left'#2#6#6'Height'#2#23#3'Top'#2'}'#5'Width'#2'2'#0#0#6'TLabel'
+#22'OIBackgroundColorLabel'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7
+'Caption'#6#22'OIBackgroundColorLabel'#5'Color'#7#6'clNone'#4'Left'#2'A'#6'H'
+'eight'#2#17#3'Top'#2#11#5'Width'#3'$'#2#0#0#6'TLabel'#20'OISubPropsColorLab'
+'el'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#20'OISubProp'
+'sColorLabel'#5'Color'#7#6'clNone'#4'Left'#2'A'#6'Height'#2#17#3'Top'#2'#'#5
+'Width'#3'$'#2#0#0#6'TLabel'#22'OIReferencesColorLabel'#7'Anchors'#11#5'akTo'
+'p'#6'akLeft'#7'akRight'#0#7'Caption'#6#22'OIReferencesColorLabel'#5'Color'#7
+#6'clNone'#4'Left'#2'A'#6'Height'#2#17#3'Top'#2';'#5'Width'#3'$'#2#0#0#6'TLa'
+'bel'#17'OIValueColorLabel'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7
+'Caption'#6#17'OIValueColorLabel'#5'Color'#7#6'clNone'#4'Left'#2'A'#6'Height'
+#2#17#3'Top'#2'S'#5'Width'#3'$'#2#0#0#6'TLabel'#24'OIDefaultValueColorLabel'
+#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#24'OIDefaultValu'
+'eColorLabel'#5'Color'#7#6'clNone'#4'Left'#2'A'#6'Height'#2#17#3'Top'#2'k'#5
+'Width'#3'$'#2#0#0#6'TLabel'#20'OIPropNameColorLabel'#7'Anchors'#11#5'akTop'
,#6'akLeft'#7'akRight'#0#7'Caption'#6#20'OIPropNameColorLabel'#5'Color'#7#6'c'
+'lNone'#4'Left'#2'A'#6'Height'#2#17#3'Top'#3#131#0#5'Width'#3'$'#2#0#0#0#9'T'
+'GroupBox'#14'OIMiscGroupBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7
+'Caption'#6#14'OIMiscGroupBox'#12'ClientHeight'#2'i'#11'ClientWidth'#3'{'#2
+#11'ParentColor'#9#8'TabOrder'#2#1#4'Left'#2#5#6'Height'#2'i'#3'Top'#3#186#0
+#5'Width'#3'{'#2#0#6'TLabel'#24'OIDefaultItemHeightLabel'#7'Anchors'#11#5'ak'
+'Top'#6'akLeft'#7'akRight'#0#7'Caption'#6#24'OIDefaultItemHeightLabel'#5'Col'
+'or'#7#6'clNone'#4'Left'#2#6#6'Height'#2#17#3'Top'#2#6#5'Width'#3'_'#2#0#0#9
+'TCheckBox'#18'OIShowHintCheckBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRigh'
+'t'#0#7'Caption'#6#18'OIShowHintCheckBox'#8'TabOrder'#2#0#4'Left'#2#6#6'Heig'
+'ht'#2#24#3'Top'#2'7'#5'Width'#3'_'#2#0#0#9'TSpinEdit'#27'OIDefaultItemHeigh'
+'tSpinEdit'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'MaxValue'#5#0#0#0
+#0#0#0#0#200#5'@'#8'TabOrder'#2#1#4'Left'#2#6#6'Height'#2#20#3'Top'#2#24#5'W'
+'idth'#3'e'#2#0#0#0#0#5'TPage'#10'BackupPage'#7'Caption'#6#10'BackupPage'#11
+'ClientWidth'#3#134#2#12'ClientHeight'#3#222#1#4'Left'#2#2#6'Height'#3#222#1
+#3'Top'#2#28#5'Width'#3#134#2#0#6'TLabel'#15'BackupHelpLabel'#7'Anchors'#11#5
+'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#15'BackupHelpLabel'#5'Color'#7#6
+'clNone'#4'Left'#2#4#6'Height'#2#17#3'Top'#2#7#5'Width'#3'x'#2#0#0#9'TGroupB'
+'ox'#21'BackupProjectGroupBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0
+#7'Caption'#6#21'BackupProjectGroupBox'#12'ClientHeight'#3#201#0#11'ClientWi'
+'dth'#3'x'#2#11'ParentColor'#9#8'TabOrder'#2#0#4'Left'#2#4#6'Height'#3#201#0
+#3'Top'#2'"'#5'Width'#3'x'#2#0#6'TLabel'#18'BakProjAddExtLabel'#7'Anchors'#11
+#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#18'BakProjAddExtLabel'#5'Color'
+#7#6'clNone'#4'Left'#2'u'#6'Height'#2#17#3'Top'#2'd'#5'Width'#3#245#1#0#0#6
+'TLabel'#22'BakProjMaxCounterLabel'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRig'
+'ht'#0#22'BorderSpacing.OnChange'#13#7'Caption'#6#22'BakProjMaxCounterLabel'
+#5'Color'#7#6'clNone'#4'Left'#2'v'#6'Height'#2#17#3'Top'#2'}'#5'Width'#3#244
+#1#0#0#6'TLabel'#18'BakProjSubDirLabel'#7'Anchors'#11#5'akTop'#6'akLeft'#7'a'
+'kRight'#0#22'BorderSpacing.OnChange'#13#7'Caption'#6#18'BakProjSubDirLabel'
+#5'Color'#7#6'clNone'#4'Left'#2'u'#6'Height'#2#17#3'Top'#3#154#0#5'Width'#3
+#245#1#0#0#11'TRadioGroup'#21'BakProjTypeRadioGroup'#7'Anchors'#11#5'akTop'#6
+'akLeft'#7'akRight'#0#7'Caption'#6#21'BakProjTypeRadioGroup'#7'Columns'#2#2#7
+'OnClick'#7#22'BakTypeRadioGroupClick'#11'ParentColor'#9#4'Left'#2#6#6'Heigh'
+'t'#2'X'#5'Width'#3'd'#2#0#0#9'TComboBox'#21'BakProjAddExtComboBox'#9'MaxLen'
+'gth'#2#0#8'TabOrder'#2#1#4'Text'#6#21'BakProjAddExtComboBox'#4'Left'#2#10#6
+'Height'#2#21#3'Top'#2'b'#5'Width'#2'd'#0#0#9'TComboBox'#25'BakProjMaxCounte'
+'rComboBox'#22'BorderSpacing.OnChange'#13#9'MaxLength'#2#0#8'TabOrder'#2#2#4
+'Text'#6#25'BakProjMaxCounterComboBox'#4'Left'#2#10#6'Height'#2#21#3'Top'#2
+'}'#5'Width'#2'd'#0#0#9'TComboBox'#21'BakProjSubDirComboBox'#22'BorderSpacin'
+'g.OnChange'#13#9'MaxLength'#2#0#8'TabOrder'#2#3#4'Text'#6#21'BakProjSubDirC'
+'omboBox'#4'Left'#2#10#6'Height'#2#21#3'Top'#3#152#0#5'Width'#2'd'#0#0#0#9'T'
+'GroupBox'#19'BackupOtherGroupBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRigh'
+'t'#0#22'BorderSpacing.OnChange'#13#7'Caption'#6#19'BackupOtherGroupBox'#12
+'ClientHeight'#3#196#0#11'ClientWidth'#3'x'#2#11'ParentColor'#9#8'TabOrder'#2
+#1#4'Left'#2#4#6'Height'#3#196#0#3'Top'#3#242#0#5'Width'#3'x'#2#0#6'TLabel'
+#19'BakOtherAddExtLabel'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#22'Bo'
+'rderSpacing.OnChange'#13#7'Caption'#6#19'BakOtherAddExtLabel'#5'Color'#7#6
+'clNone'#4'Left'#2'u'#6'Height'#2#17#3'Top'#2'a'#5'Width'#3#245#1#0#0#6'TLab'
+'el'#23'BakOtherMaxCounterLabel'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'
+#0#7'Caption'#6#23'BakOtherMaxCounterLabel'#5'Color'#7#6'clNone'#4'Left'#2'u'
+#6'Height'#2#17#3'Top'#2'|'#5'Width'#3#245#1#0#0#6'TLabel'#19'BakOtherSubDir'
+'Label'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#19'BakOth'
+'erSubDirLabel'#5'Color'#7#6'clNone'#4'Left'#2'u'#6'Height'#2#17#3'Top'#3#151
+#0#5'Width'#3#245#1#0#0#11'TRadioGroup'#22'BakOtherTypeRadioGroup'#7'Anchors'
+#11#5'akTop'#6'akLeft'#7'akRight'#0#22'BorderSpacing.OnChange'#13#7'Caption'
+#6#22'BakOtherTypeRadioGroup'#7'Columns'#2#2#7'OnClick'#7#22'BakTypeRadioGro'
+'upClick'#11'ParentColor'#9#4'Left'#2#6#6'Height'#2'T'#5'Width'#3'd'#2#0#0#9
+'TComboBox'#22'BakOtherAddExtComboBox'#22'BorderSpacing.OnChange'#13#9'MaxLe'
+'ngth'#2#0#8'TabOrder'#2#1#4'Text'#6#22'BakOtherAddExtComboBox'#4'Left'#2#10
+#6'Height'#2#21#3'Top'#2'_'#5'Width'#2'd'#0#0#9'TComboBox'#26'BakOtherMaxCou'
+'nterComboBox'#9'MaxLength'#2#0#8'TabOrder'#2#2#4'Text'#6#26'BakOtherMaxCoun'
+'terComboBox'#4'Left'#2#10#6'Height'#2#21#3'Top'#2'z'#5'Width'#2'd'#0#0#9'TC'
+'omboBox'#22'BakOtherSubDirComboBox'#9'MaxLength'#2#0#8'TabOrder'#2#3#4'Text'
+#6#22'BakOtherSubDirComboBox'#4'Left'#2#10#6'Height'#2#21#3'Top'#3#149#0#5'W'
,'idth'#2'd'#0#0#0#0#5'TPage'#10'NamingPage'#7'Caption'#6#10'NamingPage'#11'C'
+'lientWidth'#3#134#2#12'ClientHeight'#3#222#1#4'Left'#2#2#6'Height'#3#222#1#3
+'Top'#2#28#5'Width'#3#134#2#0#11'TRadioGroup'#23'PascalFileExtRadiogroup'#7
+'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#22'BorderSpacing.OnChange'#13#7
+'Caption'#6#23'PascalFileExtRadiogroup'#7'Columns'#2#2#11'ParentColor'#9#4'L'
+'eft'#2#4#6'Height'#2'/'#3'Top'#2#10#5'Width'#3'|'#2#0#0#11'TRadioGroup'#28
+'CharcaseFileActionRadioGroup'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0
+#22'BorderSpacing.OnChange'#13#7'Caption'#6#28'CharcaseFileActionRadioGroup'
+#7'Columns'#2#2#11'ParentColor'#9#4'Left'#2#4#6'Height'#2'U'#3'Top'#2'>'#5'W'
+'idth'#3'|'#2#0#0#11'TRadioGroup'#29'AmbiguousFileActionRadioGroup'#7'Anchor'
+'s'#11#5'akTop'#6'akLeft'#7'akRight'#0#22'BorderSpacing.OnChange'#13#7'Capti'
+'on'#6#29'AmbiguousFileActionRadioGroup'#7'Columns'#2#2#11'ParentColor'#9#4
+'Left'#2#3#6'Height'#2'd'#3'Top'#3#152#0#5'Width'#3'|'#2#0#0#0#5'TPage'#10'L'
+'azDocPage'#7'Caption'#6#10'LazDocPage'#11'ClientWidth'#3#134#2#12'ClientHei'
+'ght'#3#222#1#4'Left'#2#2#6'Height'#3#222#1#3'Top'#2#28#5'Width'#3#134#2#0#6
+'TLabel'#6'Label1'#7'Caption'#6'+NOTE: only absolute paths are supported now'
+#5'Color'#7#6'clNone'#4'Left'#2#8#6'Height'#2#17#3'Top'#3#226#0#5'Width'#3't'
+#2#0#0#9'TGroupBox'#19'LazDocPathsGroupBox'#5'Align'#7#5'alTop'#22'BorderSpa'
+'cing.OnChange'#13#20'BorderSpacing.Around'#2#6#7'Caption'#6#19'LazDocPathsG'
+'roupBox'#12'ClientHeight'#3#210#0#11'ClientWidth'#3'z'#2#11'ParentColor'#9#8
+'TabOrder'#2#0#4'Left'#2#6#6'Height'#3#210#0#3'Top'#2#6#5'Width'#3'z'#2#0#8
+'TListBox'#13'LazDocListBox'#5'Align'#7#5'alTop'#22'BorderSpacing.OnChange'
+#13#20'BorderSpacing.Around'#2#6#8'TabOrder'#2#0#8'TopIndex'#2#255#4'Left'#2
+#6#6'Height'#2'l'#3'Top'#2#6#5'Width'#3'n'#2#0#0#7'TButton'#19'LazDocAddPath'
+'Button'#22'BorderSpacing.OnChange'#13#7'Caption'#6#19'LazDocAddPathButton'#7
+'OnClick'#7#24'LazDocAddPathButtonClick'#8'TabOrder'#2#1#4'Left'#2#6#6'Heigh'
+'t'#2#25#3'Top'#2'z'#5'Width'#2'K'#0#0#7'TButton'#22'LazDocDeletePathButton'
+#22'BorderSpacing.OnChange'#13#7'Caption'#6#22'LazDocDeletePathButton'#7'OnC'
+'lick'#7#27'LazDocDeletePathButtonClick'#8'TabOrder'#2#2#4'Left'#2'Z'#6'Heig'
+'ht'#2#25#3'Top'#2'z'#5'Width'#2'K'#0#0#5'TEdit'#14'LazDocPathEdit'#7'Anchor'
+'s'#11#5'akTop'#6'akLeft'#7'akRight'#0#22'BorderSpacing.OnChange'#13#8'TabOr'
+'der'#2#3#4'Text'#6#14'LazDocPathEdit'#4'Left'#2#6#6'Height'#2#23#3'Top'#3
+#154#0#5'Width'#3'N'#2#0#0#7'TButton'#18'LazDocBrowseButton'#7'Anchors'#11#5
+'akTop'#7'akRight'#0#22'BorderSpacing.OnChange'#13#7'Caption'#6#3'...'#7'OnC'
+'lick'#7#23'LazDocBrowseButtonClick'#8'TabOrder'#2#4#4'Left'#3'Y'#2#6'Height'
+#2#23#3'Top'#3#154#0#5'Width'#2#23#0#0#0#0#0#7'TButton'#12'CancelButton'#7'A'
+'nchors'#11#7'akRight'#8'akBottom'#0#22'BorderSpacing.OnChange'#13#7'Caption'
+#6#12'CancelButton'#7'OnClick'#7#17'CancelButtonClick'#8'TabOrder'#2#1#4'Lef'
+'t'#3'7'#2#6'Height'#2#25#3'Top'#3#4#2#5'Width'#2'K'#0#0#7'TButton'#8'OkButt'
+'on'#7'Anchors'#11#7'akRight'#8'akBottom'#0#7'Caption'#6#2'Ok'#7'OnClick'#7
+#13'OkButtonClick'#8'TabOrder'#2#2#4'Left'#3#229#1#6'Height'#2#25#3'Top'#3#4
+#2#5'Width'#2'K'#0#0#22'TSelectDirectoryDialog'#21'SelectDirectoryDialog'#5
+'Title'#6#16'Select Directory'#11'FilterIndex'#2#0#5'Title'#6#16'Select Dire'
+'ctory'#4'left'#3#0#2#3'top'#2#8#0#0#0
]);

File diff suppressed because it is too large Load Diff

View File

@ -177,7 +177,7 @@ function BinaryStrToText(const s: string): string;
function SplitString(const s: string; Delimiter: char): TStringList;
function SpecialCharsToSpaces(const s: string): string;
function StringListToText(List: TStrings; const Delimiter: string;
IgnoreEmptyLines: boolean): string;
IgnoreEmptyLines: boolean = false): string;
// environment
function EnvironmentAsStringList: TStringList;

View File

@ -686,6 +686,7 @@ resourcestring
lisIncludeFilter = 'Include Filter';
dlgEnvBckup = 'Backup';
dlgNaming = 'Naming';
lisLazDoc = 'LazDoc';
dlgCancel = 'Cancel';
lisA2PCreateNewFile = 'Create new file';
dlgEnvLanguage = 'Language';
@ -2835,14 +2836,17 @@ resourcestring
lisCEOWhenSwitchingFile = 'When switching file in source editor';
lisCEOOnIdle = 'On idle';
lisMenuLazDoc = 'LazDoc';
lisMenuLazDoc = 'LazDoc Editor';
lisLazDocMainFormCaption = 'LazDoc editor';
lisLazDocNoTagCaption = '<NONE>';
lisLazDocNoDocumentation = 'Documentation entry does not exist';
lisLazDocShortTag = 'Short';
lisLazDocDescrTag = 'Description';
lisLazDocErrorsTag = 'Errors';
lisLazDocAddPathButton = 'Add path';
lisLazDocDeletePathButton = 'Remove path';
lisLazDocPathsGroupBox = 'LazDoc settings';
implementation
end.

View File

@ -15,6 +15,7 @@ object LazDocForm: TLazDocForm
object PageControl: TPageControl
ActivePage = ShortTabSheet
Align = alClient
BorderSpacing.OnChange = nil
TabIndex = 0
TabOrder = 0
TabPosition = tpBottom
@ -28,8 +29,7 @@ object LazDocForm: TLazDocForm
Width = 745
object ShortEdit: TEdit
Align = alTop
BorderSpacing.OnChange = nil
OnChange = DescrMemoChange
OnChange = DocumentationTagChange
TabOrder = 0
Text = 'ShortEdit'
Height = 23
@ -44,6 +44,7 @@ object LazDocForm: TLazDocForm
Width = 745
object DescrMemo: TMemo
Align = alClient
BorderSpacing.OnChange = nil
Font.CharSet = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
@ -52,7 +53,7 @@ object LazDocForm: TLazDocForm
Lines.Strings = (
'DescrMemo'
)
OnChange = DescrMemoChange
OnChange = DocumentationTagChange
TabOrder = 0
Height = 91
Width = 745
@ -66,7 +67,6 @@ object LazDocForm: TLazDocForm
Width = 745
object ErrorsMemo: TMemo
Align = alClient
BorderSpacing.OnChange = nil
Font.CharSet = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
@ -75,7 +75,7 @@ object LazDocForm: TLazDocForm
Lines.Strings = (
'ErrorsMemo'
)
OnChange = DescrMemoChange
OnChange = DocumentationTagChange
TabOrder = 0
Height = 91
Width = 745

View File

@ -6,24 +6,24 @@ LazarusResources.Add('TLazDocForm','FORMDATA',[
+'ight'#2'u'#11'ClientWidth'#3#241#2#8'OnCreate'#7#10'FormCreate'#13'PixelsPe'
+'rInch'#2'`'#18'HorzScrollBar.Page'#3#240#2#18'VertScrollBar.Page'#2't'#4'Le'
+'ft'#3#4#1#6'Height'#2'u'#3'Top'#3'H'#2#5'Width'#3#241#2#0#12'TPageControl'
+#11'PageControl'#10'ActivePage'#7#13'ShortTabSheet'#5'Align'#7#8'alClient'#8
+'TabIndex'#2#0#8'TabOrder'#2#0#11'TabPosition'#7#8'tpBottom'#6'Height'#2'u'#5
+'Width'#3#241#2#0#9'TTabSheet'#13'ShortTabSheet'#7'Caption'#6#13'ShortTabShe'
+'et'#12'ClientHeight'#2'['#11'ClientWidth'#3#233#2#6'Height'#2'['#5'Width'#3
+#233#2#0#5'TEdit'#9'ShortEdit'#5'Align'#7#5'alTop'#22'BorderSpacing.OnChange'
+#13#8'OnChange'#7#15'DescrMemoChange'#8'TabOrder'#2#0#4'Text'#6#9'ShortEdit'
+#6'Height'#2#23#5'Width'#3#233#2#0#0#0#9'TTabSheet'#13'DescrTabSheet'#7'Capt'
+'ion'#6#13'DescrTabSheet'#12'ClientHeight'#2'['#11'ClientWidth'#3#233#2#6'He'
+'ight'#2'['#5'Width'#3#233#2#0#5'TMemo'#9'DescrMemo'#5'Align'#7#8'alClient'
+#12'Font.CharSet'#7#12'ANSI_CHARSET'#10'Font.Color'#7#7'clBlack'#11'Font.Hei'
+'ght'#2#244#9'Font.Name'#6#11'Courier New'#10'Font.Pitch'#7#7'fpFixed'#13'Li'
+'nes.Strings'#1#6#9'DescrMemo'#0#8'OnChange'#7#15'DescrMemoChange'#8'TabOrde'
+'r'#2#0#6'Height'#2'['#5'Width'#3#233#2#0#0#0#9'TTabSheet'#14'ErrorsTabSheet'
+#7'Caption'#6#14'ErrorsTabSheet'#12'ClientHeight'#2'['#11'ClientWidth'#3#233
+#2#6'Height'#2'['#5'Width'#3#233#2#0#5'TMemo'#10'ErrorsMemo'#5'Align'#7#8'al'
+'Client'#22'BorderSpacing.OnChange'#13#12'Font.CharSet'#7#12'ANSI_CHARSET'#10
+'Font.Color'#7#7'clBlack'#11'Font.Height'#2#244#9'Font.Name'#6#11'Courier Ne'
+'w'#10'Font.Pitch'#7#7'fpFixed'#13'Lines.Strings'#1#6#10'ErrorsMemo'#0#8'OnC'
+'hange'#7#15'DescrMemoChange'#8'TabOrder'#2#0#6'Height'#2'['#5'Width'#3#233#2
+#0#0#0#0#0
+#11'PageControl'#10'ActivePage'#7#13'ShortTabSheet'#5'Align'#7#8'alClient'#22
+'BorderSpacing.OnChange'#13#8'TabIndex'#2#0#8'TabOrder'#2#0#11'TabPosition'#7
+#8'tpBottom'#6'Height'#2'u'#5'Width'#3#241#2#0#9'TTabSheet'#13'ShortTabSheet'
+#7'Caption'#6#13'ShortTabSheet'#12'ClientHeight'#2'['#11'ClientWidth'#3#233#2
+#6'Height'#2'['#5'Width'#3#233#2#0#5'TEdit'#9'ShortEdit'#5'Align'#7#5'alTop'
+#8'OnChange'#7#22'DocumentationTagChange'#8'TabOrder'#2#0#4'Text'#6#9'ShortE'
+'dit'#6'Height'#2#23#5'Width'#3#233#2#0#0#0#9'TTabSheet'#13'DescrTabSheet'#7
+'Caption'#6#13'DescrTabSheet'#12'ClientHeight'#2'['#11'ClientWidth'#3#233#2#6
+'Height'#2'['#5'Width'#3#233#2#0#5'TMemo'#9'DescrMemo'#5'Align'#7#8'alClient'
+#22'BorderSpacing.OnChange'#13#12'Font.CharSet'#7#12'ANSI_CHARSET'#10'Font.C'
+'olor'#7#7'clBlack'#11'Font.Height'#2#244#9'Font.Name'#6#11'Courier New'#10
+'Font.Pitch'#7#7'fpFixed'#13'Lines.Strings'#1#6#9'DescrMemo'#0#8'OnChange'#7
+#22'DocumentationTagChange'#8'TabOrder'#2#0#6'Height'#2'['#5'Width'#3#233#2#0
+#0#0#9'TTabSheet'#14'ErrorsTabSheet'#7'Caption'#6#14'ErrorsTabSheet'#12'Clie'
+'ntHeight'#2'['#11'ClientWidth'#3#233#2#6'Height'#2'['#5'Width'#3#233#2#0#5
+'TMemo'#10'ErrorsMemo'#5'Align'#7#8'alClient'#12'Font.CharSet'#7#12'ANSI_CHA'
+'RSET'#10'Font.Color'#7#7'clBlack'#11'Font.Height'#2#244#9'Font.Name'#6#11'C'
+'ourier New'#10'Font.Pitch'#7#7'fpFixed'#13'Lines.Strings'#1#6#10'ErrorsMemo'
+#0#8'OnChange'#7#22'DocumentationTagChange'#8'TabOrder'#2#0#6'Height'#2'['#5
+'Width'#3#233#2#0#0#0#0#0
]);

View File

@ -24,6 +24,11 @@
* *
***************************************************************************
}
{
see for todo list: http://wiki.lazarus.freepascal.org/index.php/LazDoc
}
unit LazDocFrm;
{$mode objfpc}{$H+}
@ -48,6 +53,7 @@ uses
StrUtils,
SynEdit,
SysUtils,
IDEProcs,
XMLread,
XMLwrite;
@ -68,10 +74,11 @@ type
DescrTabSheet: TTabSheet;
ErrorsTabSheet: TTabSheet;
ShortTabSheet: TTabSheet;
procedure DescrMemoChange(Sender: TObject);
procedure DocumentationTagChange(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ private declarations }
FChanged: boolean;
FDocFileName: String;
FCurrentElement: String;
FLastElement: String;
@ -84,8 +91,10 @@ type
function GetNearestSourceElement(source: tStrings;
caretpos: tpoint): String;
procedure SetCaption;
procedure Save;
public
{ public declarations }
procedure Reset;
procedure UpdateLazDoc(source: TStrings; pos: TPoint);
property DocFileName: String read FDocFileName write SetDocFileName;
end;
@ -112,7 +121,9 @@ procedure TLazDocForm.SetDocFileName(Value: String);
begin
if FileExists(Value) and (Value <> FDocFileName) then
begin
//reset Self
Reset;
FDocFileName := Value;
if Assigned(doc) then
@ -150,6 +161,8 @@ begin
ShortEdit.Clear;
DescrMemo.Clear;
ErrorsMemo.Clear;
FChanged := False;
end;
function TLazDocForm.NodeByName(ElementName: String): TDOMNode;
@ -326,6 +339,13 @@ begin
Caption := strCaption + FDocFileName;
end;
procedure TLazDocForm.Reset;
begin
FreeAndNil(Doc);
FCurrentElement := '';
SetCaption;
end;
procedure TLazDocForm.UpdateLazDoc(source: TStrings; pos: TPoint);
var
dn: TFPDocNode;
@ -360,12 +380,6 @@ begin
DescrMemo.Enabled := True;
ErrorsMemo.Enabled := True;
//detach the update method, because changing the text already
//commits to XML. Fix later, hack now ;)
ShortEdit.OnChange := nil;
DescrMemo.OnChange := nil;
ErrorsMemo.OnChange := nil;
if Assigned(n) then
begin
dn := ElementFromNode(n);
@ -381,29 +395,22 @@ begin
ErrorsMemo.Lines.Text := lisLazDocNoDocumentation;
end;
//attach the update method again
ShortEdit.OnChange := @DescrMemoChange;
DescrMemo.OnChange := @DescrMemoChange;
ErrorsMemo.OnChange := @DescrMemoChange;
FChanged := False;
ShortEdit.Enabled := EnabledState;
DescrMemo.Enabled := EnabledState;
ErrorsMemo.Enabled := EnabledState;
end;
procedure TLazDocForm.DescrMemoChange(Sender: TObject);
procedure TLazDocForm.Save;
var
n: TDOMNode;
S: String;
child: TDOMNode;
function ToUnixLineEnding(s: string): string;
begin
if LineEnding=#10 then
Result := s
else
Result := StringReplace(s, LineEnding, #10, [rfReplaceAll]);
end;
begin
//nothing changed, so exit
if not FChanged then Exit;
n := NodeByName(FCurrentElement);
if not Assigned(n) then
@ -431,22 +438,22 @@ begin
begin
if not Assigned(n.FirstChild) then
begin
child := doc.CreateTextNode(ToUnixLineEnding(DescrMemo.Lines.Text));
child := doc.CreateTextNode(StringListToText(DescrMemo.Lines,#10));
n.AppendChild(child);
end
else
n.FirstChild.NodeValue := ToUnixLineEnding(DescrMemo.Lines.Text);
n.FirstChild.NodeValue := StringListToText(DescrMemo.Lines,#10);
end;
if S = 'errors' then
begin
if not Assigned(n.FirstChild) then
begin
child := doc.CreateTextNode(ToUnixLineEnding(ErrorsMemo.Lines.Text));
child := doc.CreateTextNode(StringListToText(ErrorsMemo.Lines,#10));
n.AppendChild(child);
end
else
n.FirstChild.NodeValue := ToUnixLineEnding(ErrorsMemo.Lines.Text);
n.FirstChild.NodeValue := StringListToText(ErrorsMemo.Lines,#10);
end;
end;
@ -454,6 +461,13 @@ begin
end;
WriteXMLFile(doc, FDocFileName);
FChanged := False;
end;
procedure TLazDocForm.DocumentationTagChange(Sender: TObject);
begin
FChanged := True;
end;
initialization

View File

@ -1849,6 +1849,12 @@ begin
itmViewInspector.OnClick := @mnuViewInspectorClicked;
itmViewSourceEditor.OnClick := @mnuViewSourceEditorClicked;
itmViewCodeExplorer.OnClick := @mnuViewCodeExplorerClick;
{$IFDEF EnableLazDoc}
itmViewLazDoc.OnClick := @mnuToolLazDocClicked; //DBlaszijk 5-sep-05
{$ELSE}
itmViewLazDoc.Visible := false;
itmViewLazDoc.Enabled := false;
{$ENDIF}
itmViewUnits.OnClick := @mnuViewUnitsClicked;
itmViewForms.OnClick := @mnuViewFormsClicked;
itmViewUnitDependencies.OnClick := @mnuViewUnitDependenciesClicked;
@ -1921,12 +1927,6 @@ begin
itmToolGuessMisplacedIFDEF.OnClick := @mnuToolGuessMisplacedIFDEFClicked;
itmToolMakeResourceString.OnClick := @mnuToolMakeResourceStringClicked;
itmToolDiff.OnClick := @mnuToolDiffClicked;
{$IFDEF EnableLazDoc}
itmToolLazDoc.OnClick := @mnuToolLazDocClicked; //DBlaszijk 5-sep-05
{$ELSE}
itmToolLazDoc.Visible := false;
itmToolLazDoc.Enabled := false;
{$ENDIF}
itmToolConvertDFMtoLFM.OnClick := @mnuToolConvertDFMtoLFMClicked;
itmToolConvertDelphiUnit.OnClick := @mnuToolConvertDelphiUnitClicked;
itmToolConvertDelphiProject.OnClick := @mnuToolConvertDelphiProjectClicked;

View File

@ -170,6 +170,7 @@ type
itmViewInspector: TMenuItem;
itmViewSourceEditor: TMenuItem;
itmViewCodeExplorer : TMenuItem;
itmViewLazDoc: TMenuItem; //DBlaszijk 5-sep-05
itmViewUnits : TMenuItem;
itmViewForms : TMenuItem;
itmViewUnitDependencies : TMenuItem;
@ -249,7 +250,6 @@ type
itmToolConvertDFMtoLFM: TMenuItem;
itmToolMakeResourceString: TMenuItem;
itmToolDiff: TMenuItem;
itmToolLazDoc: TMenuItem; //DBlaszijk 5-sep-05
itmToolBuildLazarus: TMenuItem;
itmToolConfigureBuildLazarus: TMenuItem;

View File

@ -510,6 +510,7 @@ begin
CreateMenuItem(ParentMI,itmViewInspector,'itmViewInspector',lisMenuViewObjectInspector);
CreateMenuItem(ParentMI,itmViewSourceEditor,'itmViewSourceEditor',lisMenuViewSourceEditor);
CreateMenuItem(ParentMI,itmViewCodeExplorer,'itmViewCodeExplorer',lisMenuViewCodeExplorer);
CreateMenuItem(ParentMI,itmViewLazDoc,'itmViewLazDoc',lisMenuLazDoc); //DBlaszijk 5-sep-05
ParentMI.Add(CreateMenuSeparator);
CreateMenuItem(ParentMI,itmViewUnits,'itmViewUnits',lisMenuViewUnits);
@ -653,7 +654,6 @@ begin
CreateMenuItem(ParentMI,itmToolGuessMisplacedIFDEF,'itmToolGuessMisplacedIFDEF',lisMenuGuessMisplacedIFDEF);
CreateMenuItem(ParentMI,itmToolMakeResourceString,'itmToolMakeResourceString',lisMenuMakeResourceString);
CreateMenuItem(ParentMI,itmToolDiff,'itmToolDiff',lisMenuDiff);
CreateMenuItem(ParentMI,itmToolLazDoc,'itmToolLazDoc',lisMenuLazDoc); //DBlaszijk 5-sep-05
ParentMI.Add(CreateMenuSeparator);
CreateMenuItem(ParentMI,itmToolCheckLFM,'itmToolCheckLFM',lisMenuCheckLFM);
@ -799,6 +799,7 @@ begin
itmViewSourceEditor.ShortCut:=CommandToShortCut(ecToggleSourceEditor);
itmViewUnits.ShortCut:=CommandToShortCut(ecViewUnits);
itmViewCodeExplorer.ShortCut:=CommandToShortCut(ecToggleCodeExpl);
//itmViewLazDoc.ShortCut:=CommandToShortCut(ecLazDoc); //DBlaszijk 5-sep-05
itmViewUnitDependencies.ShortCut:=CommandToShortCut(ecViewUnitDependencies);
itmViewUnitInfo.ShortCut:=CommandToShortCut(ecViewUnitInfo);
itmViewForms.ShortCut:=CommandToShortCut(ecViewForms);
@ -855,7 +856,6 @@ begin
itmToolGuessMisplacedIFDEF.ShortCut:=CommandToShortCut(ecGuessMisplacedIFDEF);
itmToolMakeResourceString.ShortCut:=CommandToShortCut(ecMakeResourceString);
itmToolDiff.ShortCut:=CommandToShortCut(ecDiff);
//itmToolLazDoc.ShortCut:=CommandToShortCut(ecLazDoc); //DBlaszijk 5-sep-05
itmToolConvertDFMtoLFM.ShortCut:=CommandToShortCut(ecConvertDFM2LFM);
itmToolCheckLFM.ShortCut:=CommandToShortCut(ecCheckLFM);
itmToolConvertDelphiUnit.ShortCut:=CommandToShortCut(ecConvertDelphiUnit);

View File

@ -2494,9 +2494,25 @@ begin
LazDocNewPage;
end;
function FindPathFromFile(FileNamePath: string): string;
var
i: integer;
fn: string;
begin
Result := '';
fn := SetDirSeparators('/') + ChangeFileExt(ExtractFileName(FileNamePath), '.xml');
for i:= 0 to Pred(EnvironmentOptions.LazDocPathList.Count) do
if FileExists(EnvironmentOptions.LazDocPathList[i] + fn) then
begin
Result := EnvironmentOptions.LazDocPathList[i];
Exit;
end;
end;
procedure TSourceNotebook.LazDocNewPage;
var
SrcEdit: TSourceEditor;
DocPath: string;
begin
{$IFNDEF EnableLazDoc}
exit;
@ -2508,11 +2524,11 @@ begin
begin
SrcEdit:=GetActiveSE;
if FileIsInPath(SrcEdit.FileName,EnvironmentOptions.LazarusDirectory+'lcl')
then
DocPath := FindPathFromFile(SrcEdit.FileName);
if DocPath <> '' then
//load the XML file
LazDocForm.DocFileName := EnvironmentOptions.LazarusDirectory +
SetDirSeparators('docs/xml/lcl/')+
LazDocForm.DocFileName := DocPath + SetDirSeparators('/') +
ChangeFileExt(ExtractFileName(SrcEdit.FileName),'.xml');
end;
end;
@ -2520,14 +2536,16 @@ end;
procedure TSourceNotebook.UpdateLazDoc;
var
SrcEdit: TSourceEditor;
DocPath: string;
begin
SrcEdit:=GetActiveSE;
//try to find if the file belongs to LCL
//for other projects the location of the doc file could
//be found through the lpi file
if FileIsInPath(SrcEdit.FileName,EnvironmentOptions.LazarusDirectory+'lcl')
then
DocPath := FindPathFromFile(SrcEdit.FileName);
if DocPath <> '' then
LazDocForm.UpdateLazDoc(SrcEdit.EditorComponent.Lines,
SrcEdit.EditorComponent.CaretXY);
end;

View File

@ -71,7 +71,8 @@ type
constructor Create;
destructor Destroy; override;
procedure ApplyLayout(ADialog: TControl;
DefaultWidth, DefaultHeight: integer);
DefaultWidth, DefaultHeight: integer;
UseAsMin: boolean = true);
procedure ApplyLayout(ADialog: TControl);
procedure SaveLayout(ADialog: TControl);
procedure Clear;
@ -198,7 +199,7 @@ begin
end;
procedure TIDEDialogLayoutList.ApplyLayout(ADialog: TControl;
DefaultWidth, DefaultHeight: integer);
DefaultWidth, DefaultHeight: integer; UseAsMin: boolean);
var
ALayout: TIDEDialogLayout;
NewWidth, NewHeight: integer;
@ -212,6 +213,10 @@ begin
NewWidth:=DefaultWidth;
NewHeight:=DefaultHeight;
end;
if UseAsMin then begin
if NewWidth<DefaultWidth then NewWidth:=DefaultWidth;
if NewHeight<DefaultHeight then NewHeight:=DefaultHeight;
end;
ADialog.SetBounds(ADialog.Left,ADialog.Top,NewWidth,NewHeight);
end;

View File

@ -52,6 +52,7 @@ end;
Procedure TCustomLabel.DoAutoSize;
var
NewWidth, NewHeight: integer;
CurAnchors: TAnchors;
begin
//debugln('TCustomLabel.DoAutoSize ',DbgSName(Self),' AutoSizing=',dbgs(AutoSizing),' AutoSize=',dbgs(AutoSize),' Parent=',DbgSName(Parent),' csLoading=',dbgs(csLoading in ComponentState),' Parnet.HandleAllocated=',dbgs((Parent<>nil) and (Parent.HandleAllocated)));
if OptimalFill and (not AutoSize) then begin
@ -65,7 +66,16 @@ begin
try
CalcSize(NewWidth, NewHeight);
//debugln('TCustomLabel.DoAutoSize ',dbgs(Left),' ',dbgs(Top),' ',dbgs(NewWidth),' ',dbgs(NewHeight));
SetBounds(Left, Top, NewWidth, NewHeight);
CurAnchors:=[];
if Align in [alLeft,alRight,alBottom,alTop,alClient] then
CurAnchors:=AnchorAlign[Align];
CurAnchors:=Anchors+CurAnchors;
if CurAnchors*[akLeft,akRight]=[akLeft,akRight] then
NewWidth:=Width;
if CurAnchors*[akTop,akBottom]=[akTop,akBottom] then
NewHeight:=Height;
SetBoundsKeepBase(Left, Top, NewWidth, NewHeight);
finally
AutoSizing := False;
end;

View File

@ -221,7 +221,7 @@ var
CurAlignAnchors:=[];
if Align in [alLeft,alRight,alBottom,alTop,alClient] then
CurAlignAnchors:=AnchorAlign[Align];
CurAnchors:=Control.Anchors+CurAlignAnchors;
CurAnchors:=Anchors+CurAlignAnchors;
//WidthIsFixed:=[akLeft,akRight]*CurAnchors=[akLeft,akRight];
//HeightIsFixed:=[akTop,akBottom]*CurAnchors=[akTop,akBottom];

View File

@ -330,7 +330,7 @@ procedure TWin32WSStatusBar.GetPreferredSize(const AWinControl: TWinControl;
var
R: TRect;
begin
// statusbars cannot be resized by the LCL, so actual size is prefered size
// statusbars cannot be resized by the LCL, so actual size is preferred size
if Windows.GetWindowRect(AWinControl.Handle, R) then begin
PreferredHeight:= R.Bottom - R.Top;
PreferredWidth:= R.Right - R.Left;