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

gtk2 intf: implemented selection change for file dialogs

Browse Source 
git-svn-id: trunk@12632 -
This commit is contained in:
mattias 2007-10-29 22:47:46 +00:00
parent 1421f4f365
commit 0d29c31f7c
8 changed files with 226 additions and 180 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/compileroptionsdlg.lfm
View File

@ -21,7 +21,7 @@ object frmCompilerOptions: TfrmCompilerOptions
Width = 669 Width = 669
Align = alTop Align = alTop
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
PageIndex = 7 PageIndex = 0
TabOrder = 0 TabOrder = 0
object PathPage: TPage object PathPage: TPage
Caption = 'PathPage' Caption = 'PathPage'
@ -228,9 +228,10 @@ object frmCompilerOptions: TfrmCompilerOptions
AnchorSideLeft.Control = LCLWidgetTypeLabel AnchorSideLeft.Control = LCLWidgetTypeLabel
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = LCLWidgetTypeLabel AnchorSideTop.Control = LCLWidgetTypeLabel
AnchorSideTop.Side = asrCenter
Left = 139 Left = 139
Height = 25 Height = 25
Top = 306 Top = 304
Width = 155 Width = 155
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending] AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
BorderSpacing.Left = 6 BorderSpacing.Left = 6

328
ide/compileroptionsdlg.lrs
View File

@ -10,7 +10,7 @@ LazarusResources.Add('TfrmCompilerOptions','FORMDATA',[
+'ze'#7#10'FormResize'#8'Position'#7#14'poScreenCenter'#0#9'TNotebook'#12'Mai' +'ze'#7#10'FormResize'#8'Position'#7#14'poScreenCenter'#0#9'TNotebook'#12'Mai'
+'nNotebook'#24'AnchorSideBottom.Control'#7#8'BtnPanel'#6'Height'#3#224#1#5'W' +'nNotebook'#24'AnchorSideBottom.Control'#7#8'BtnPanel'#6'Height'#3#224#1#5'W'
+'idth'#3#157#2#5'Align'#7#5'alTop'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRigh' +'idth'#3#157#2#5'Align'#7#5'alTop'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRigh'
+'t'#8'akBottom'#0#9'PageIndex'#2#7#8'TabOrder'#2#0#0#5'TPage'#8'PathPage'#7 +'t'#8'akBottom'#0#9'PageIndex'#2#0#8'TabOrder'#2#0#0#5'TPage'#8'PathPage'#7
+'Caption'#6#8'PathPage'#11'ClientWidth'#3#153#2#12'ClientHeight'#3#193#1#0#6 +'Caption'#6#8'PathPage'#11'ClientWidth'#3#153#2#12'ClientHeight'#3#193#1#0#6
+'TLabel'#13'lblOtherUnits'#4'Left'#2#6#6'Height'#2#20#3'Top'#2#6#5'Width'#3 +'TLabel'#13'lblOtherUnits'#4'Left'#2#6#6'Height'#2#20#3'Top'#2#6#5'Width'#3
+#141#2#5'Align'#7#5'alTop'#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2 +#141#2#5'Align'#7#5'alTop'#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2
@ -82,169 +82,169 @@ LazarusResources.Add('TfrmCompilerOptions','FORMDATA',[
+'ing.Bottom'#2#6#8'TabOrder'#2#5#4'Text'#6#12'edtDebugPath'#0#0#9'TComboBox' +'ing.Bottom'#2#6#8'TabOrder'#2#5#4'Text'#6#12'edtDebugPath'#0#0#9'TComboBox'
+#21'LCLWidgetTypeComboBox'#22'AnchorSideLeft.Control'#7#18'LCLWidgetTypeLabe' +#21'LCLWidgetTypeComboBox'#22'AnchorSideLeft.Control'#7#18'LCLWidgetTypeLabe'
+'l'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#18'LC' +'l'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#18'LC'
+'LWidgetTypeLabel'#4'Left'#3#139#0#6'Height'#2#25#3'Top'#3'2'#1#5'Width'#3 +'LWidgetTypeLabel'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#3#139#0#6'H'
+#155#0#16'AutoCompleteText'#11#22'cbactEndOfLineComplete'#20'cbactSearchAsce' +'eight'#2#25#3'Top'#3'0'#1#5'Width'#3#155#0#16'AutoCompleteText'#11#22'cbact'
+'nding'#0#18'BorderSpacing.Left'#2#6#9'MaxLength'#2#0#8'TabOrder'#2#6#4'Text' +'EndOfLineComplete'#20'cbactSearchAscending'#0#18'BorderSpacing.Left'#2#6#9
+#6#21'LCLWidgetTypeComboBox'#0#0#0#5'TPage'#11'ParsingPage'#7'Caption'#6#11 +'MaxLength'#2#0#8'TabOrder'#2#6#4'Text'#6#21'LCLWidgetTypeComboBox'#0#0#0#5
+'ParsingPage'#11'ClientWidth'#3#153#2#12'ClientHeight'#3#193#1#0#11'TRadioGr' +'TPage'#11'ParsingPage'#7'Caption'#6#11'ParsingPage'#11'ClientWidth'#3#153#2
+'oup'#8'grpStyle'#4'Left'#2#6#6'Height'#2'('#3'Top'#2#6#5'Width'#3#141#2#5'A' +#12'ClientHeight'#3#193#1#0#11'TRadioGroup'#8'grpStyle'#4'Left'#2#6#6'Height'
+'lign'#7#5'alTop'#8'AutoFill'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#8 +#2'('#3'Top'#2#6#5'Width'#3#141#2#5'Align'#7#5'alTop'#8'AutoFill'#9#20'Borde'
+'grpStyle'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpac' +'rSpacing.Around'#2#6#7'Caption'#6#8'grpStyle'#28'ChildSizing.LeftRightSpaci'
+'ing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27 +'ng'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizont'
+'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.' +'al'#7#24'crsHomogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crs'
+'ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14 +'HomogenousChildResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'
+'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom' +#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7
+#27'ChildSizing.ControlsPerLine'#2#3#7'Columns'#2#3#8'TabOrder'#2#0#0#0#11'T' +#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#3#7'Col'
+'CheckGroup'#16'grpSyntaxOptions'#4'Left'#2#6#6'Height'#3#2#1#3'Top'#2'4'#5 +'umns'#2#3#8'TabOrder'#2#0#0#0#11'TCheckGroup'#16'grpSyntaxOptions'#4'Left'#2
+'Width'#3#141#2#5'Align'#7#5'alTop'#8'AutoFill'#9#20'BorderSpacing.Around'#2 +#6#6'Height'#3#2#1#3'Top'#2'4'#5'Width'#3#141#2#5'Align'#7#5'alTop'#8'AutoFi'
+#6#7'Caption'#6#16'grpSyntaxOptions'#28'ChildSizing.LeftRightSpacing'#2#6#28 +'ll'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#16'grpSyntaxOptions'#28'Chi'
+'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'cr' +'ldSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'Chil'
+'sHomogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousC' +'dSizing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.En'
+'hildResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildS' +'largeVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHorizont'
+'izing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclL' +'al'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'
+'eftToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#8'TabOrder'#2 +#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.C'
+#1#0#0#0#5'TPage'#11'CodeGenPage'#7'Caption'#6#11'CodeGenPage'#11'ClientWidt' +'ontrolsPerLine'#2#1#8'TabOrder'#2#1#0#0#0#5'TPage'#11'CodeGenPage'#7'Captio'
+'h'#3#153#2#12'ClientHeight'#3#193#1#0#9'TGroupBox'#16'grpSmartLinkUnit'#22 +'n'#6#11'CodeGenPage'#11'ClientWidth'#3#153#2#12'ClientHeight'#3#193#1#0#9'T'
+'AnchorSideLeft.Control'#7#9'grpChecks'#19'AnchorSideLeft.Side'#7#9'asrBotto' +'GroupBox'#16'grpSmartLinkUnit'#22'AnchorSideLeft.Control'#7#9'grpChecks'#19
+'m'#21'AnchorSideTop.Control'#7#11'CodeGenPage'#23'AnchorSideRight.Control'#7 +'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#11'CodeGenP'
+#11'CodeGenPage'#20'AnchorSideRight.Side'#7#9'asrBottom'#21'AnchorSideBottom' +'age'#23'AnchorSideRight.Control'#7#11'CodeGenPage'#20'AnchorSideRight.Side'
+'.Side'#7#9'asrBottom'#4'Left'#3#174#0#6'Height'#2'5'#3'Top'#2#6#5'Width'#3 +#7#9'asrBottom'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#3#174#0#6'H'
+#229#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoSize'#9#18'Border' +'eight'#2'5'#3'Top'#2#6#5'Width'#3#229#1#7'Anchors'#11#5'akTop'#6'akLeft'#7
+'Spacing.Left'#2#6#17'BorderSpacing.Top'#2#6#19'BorderSpacing.Right'#2#6#7'C' +'akRight'#0#8'AutoSize'#9#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2
+'aption'#6#16'grpSmartLinkUnit'#12'ClientHeight'#2'"'#11'ClientWidth'#3#225#1 +#6#19'BorderSpacing.Right'#2#6#7'Caption'#6#16'grpSmartLinkUnit'#12'ClientHe'
+#8'TabOrder'#2#0#0#9'TCheckBox'#16'chkSmartLinkUnit'#4'Left'#2#6#6'Height'#2 +'ight'#2'"'#11'ClientWidth'#3#225#1#8'TabOrder'#2#0#0#9'TCheckBox'#16'chkSma'
+#22#3'Top'#2#6#5'Width'#3#213#1#5'Align'#7#5'alTop'#20'BorderSpacing.Around' +'rtLinkUnit'#4'Left'#2#6#6'Height'#2#22#3'Top'#2#6#5'Width'#3#213#1#5'Align'
+#2#6#7'Caption'#6#16'chkSmartLinkUnit'#8'TabOrder'#2#0#0#0#0#9'TGroupBox'#9 +#7#5'alTop'#20'BorderSpacing.Around'#2#6#7'Caption'#6#16'chkSmartLinkUnit'#8
+'grpChecks'#22'AnchorSideLeft.Control'#7#11'CodeGenPage'#21'AnchorSideTop.Co' +'TabOrder'#2#0#0#0#0#9'TGroupBox'#9'grpChecks'#22'AnchorSideLeft.Control'#7
+'ntrol'#7#11'CodeGenPage'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#6 +#11'CodeGenPage'#21'AnchorSideTop.Control'#7#11'CodeGenPage'#20'AnchorSideRi'
+#6'Height'#3#137#0#3'Top'#2#6#5'Width'#3#162#0#8'AutoSize'#9#20'BorderSpacin' +'ght.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#3#137#0#3'Top'#2#6#5'Width'#3
+'g.Around'#2#6#7'Caption'#6#9'grpChecks'#12'ClientHeight'#2'v'#11'ClientWidt' +#162#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#9'grpChecks'
+'h'#3#158#0#8'TabOrder'#2#1#0#9'TCheckBox'#11'chkChecksIO'#4'Left'#2#6#6'Hei' +#12'ClientHeight'#2'v'#11'ClientWidth'#3#158#0#8'TabOrder'#2#1#0#9'TCheckBox'
+'ght'#2#22#3'Top'#2'"'#5'Width'#3#146#0#5'Align'#7#5'alTop'#20'BorderSpacing' +#11'chkChecksIO'#4'Left'#2#6#6'Height'#2#22#3'Top'#2'"'#5'Width'#3#146#0#5'A'
+'.Around'#2#6#7'Caption'#6#11'chkChecksIO'#8'TabOrder'#2#0#0#0#9'TCheckBox' +'lign'#7#5'alTop'#20'BorderSpacing.Around'#2#6#7'Caption'#6#11'chkChecksIO'#8
+#14'chkChecksRange'#4'Left'#2#6#6'Height'#2#22#3'Top'#2'Z'#5'Width'#3#146#0#5 +'TabOrder'#2#0#0#0#9'TCheckBox'#14'chkChecksRange'#4'Left'#2#6#6'Height'#2#22
+'Align'#7#5'alTop'#20'BorderSpacing.Around'#2#6#7'Caption'#6#14'chkChecksRan' +#3'Top'#2'Z'#5'Width'#3#146#0#5'Align'#7#5'alTop'#20'BorderSpacing.Around'#2
+'ge'#8'TabOrder'#2#1#0#0#9'TCheckBox'#17'chkChecksOverflow'#4'Left'#2#6#6'He' +#6#7'Caption'#6#14'chkChecksRange'#8'TabOrder'#2#1#0#0#9'TCheckBox'#17'chkCh'
+'ight'#2#22#3'Top'#2'>'#5'Width'#3#146#0#5'Align'#7#5'alTop'#20'BorderSpacin' +'ecksOverflow'#4'Left'#2#6#6'Height'#2#22#3'Top'#2'>'#5'Width'#3#146#0#5'Ali'
+'g.Around'#2#6#7'Caption'#6#17'chkChecksOverflow'#8'TabOrder'#2#2#0#0#9'TChe' +'gn'#7#5'alTop'#20'BorderSpacing.Around'#2#6#7'Caption'#6#17'chkChecksOverfl'
+'ckBox'#14'chkChecksStack'#4'Left'#2#6#6'Height'#2#22#3'Top'#2#6#5'Width'#3 +'ow'#8'TabOrder'#2#2#0#0#9'TCheckBox'#14'chkChecksStack'#4'Left'#2#6#6'Heigh'
+#146#0#5'Align'#7#5'alTop'#20'BorderSpacing.Around'#2#6#7'Caption'#6#14'chkC' +'t'#2#22#3'Top'#2#6#5'Width'#3#146#0#5'Align'#7#5'alTop'#20'BorderSpacing.Ar'
,'hecksStack'#8'TabOrder'#2#3#0#0#0#9'TGroupBox'#11'grpHeapSize'#22'AnchorSid' ,'ound'#2#6#7'Caption'#6#14'chkChecksStack'#8'TabOrder'#2#3#0#0#0#9'TGroupBox'
+'eLeft.Control'#7#9'grpChecks'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'Anc' +#11'grpHeapSize'#22'AnchorSideLeft.Control'#7#9'grpChecks'#19'AnchorSideLeft'
+'horSideTop.Control'#7#16'grpSmartLinkUnit'#18'AnchorSideTop.Side'#7#9'asrBo' +'.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#16'grpSmartLinkUnit'#18'A'
+'ttom'#23'AnchorSideRight.Control'#7#11'CodeGenPage'#20'AnchorSideRight.Side' +'nchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#11'CodeGenP'
+#7#9'asrBottom'#4'Left'#3#174#0#6'Height'#2'6'#3'Top'#2'A'#5'Width'#3#229#1#7 +'age'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#174#0#6'Height'#2'6'
+'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoSize'#9#20'BorderSpacing.' +#3'Top'#2'A'#5'Width'#3#229#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8
+'Around'#2#6#7'Caption'#6#11'grpHeapSize'#12'ClientHeight'#2'#'#11'ClientWid' +'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#11'grpHeapSize'#12'Cl'
+'th'#3#225#1#8'TabOrder'#2#2#0#5'TEdit'#11'edtHeapSize'#4'Left'#2#6#6'Height' +'ientHeight'#2'#'#11'ClientWidth'#3#225#1#8'TabOrder'#2#2#0#5'TEdit'#11'edtH'
+#2#23#3'Top'#2#6#5'Width'#3#213#1#5'Align'#7#5'alTop'#20'BorderSpacing.Aroun' +'eapSize'#4'Left'#2#6#6'Height'#2#23#3'Top'#2#6#5'Width'#3#213#1#5'Align'#7#5
+'d'#2#6#8'TabOrder'#2#0#4'Text'#6#11'edtHeapSize'#0#0#0#9'TGroupBox'#11'grpG' +'alTop'#20'BorderSpacing.Around'#2#6#8'TabOrder'#2#0#4'Text'#6#11'edtHeapSiz'
+'enerate'#22'AnchorSideLeft.Control'#7#11'CodeGenPage'#21'AnchorSideTop.Cont' +'e'#0#0#0#9'TGroupBox'#11'grpGenerate'#22'AnchorSideLeft.Control'#7#11'CodeG'
+'rol'#7#9'grpChecks'#18'AnchorSideTop.Side'#7#9'asrBottom'#24'AnchorSideBott' +'enPage'#21'AnchorSideTop.Control'#7#9'grpChecks'#18'AnchorSideTop.Side'#7#9
+'om.Control'#7#17'grpTargetPlatform'#21'AnchorSideBottom.Side'#7#9'asrBottom' +'asrBottom'#24'AnchorSideBottom.Control'#7#17'grpTargetPlatform'#21'AnchorSi'
+#4'Left'#2#6#6'Height'#2'v'#3'Top'#3#149#0#5'Width'#3#136#0#7'Anchors'#11#5 +'deBottom.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2'v'#3'Top'#3#149#0#5'W'
+'akTop'#6'akLeft'#8'akBottom'#0#8'AutoSize'#9#18'BorderSpacing.Left'#2#6#17 +'idth'#3#136#0#7'Anchors'#11#5'akTop'#6'akLeft'#8'akBottom'#0#8'AutoSize'#9
+'BorderSpacing.Top'#2#6#19'BorderSpacing.Right'#2#6#7'Caption'#6#11'grpGener' +#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#19'BorderSpacing.Right'
+'ate'#12'ClientHeight'#2'c'#11'ClientWidth'#3#132#0#8'TabOrder'#2#3#0#12'TRa' +#2#6#7'Caption'#6#11'grpGenerate'#12'ClientHeight'#2'c'#11'ClientWidth'#3#132
+'dioButton'#12'radGenNormal'#4'Left'#2#6#6'Height'#2#22#3'Top'#2#6#5'Width'#2 +#0#8'TabOrder'#2#3#0#12'TRadioButton'#12'radGenNormal'#4'Left'#2#6#6'Height'
+'x'#5'Align'#7#5'alTop'#20'BorderSpacing.Around'#2#6#7'Caption'#6#12'radGenN' +#2#22#3'Top'#2#6#5'Width'#2'x'#5'Align'#7#5'alTop'#20'BorderSpacing.Around'#2
+'ormal'#7'Checked'#9#5'State'#7#9'cbChecked'#8'TabOrder'#2#0#0#0#12'TRadioBu' +#6#7'Caption'#6#12'radGenNormal'#7'Checked'#9#5'State'#7#9'cbChecked'#8'TabO'
+'tton'#12'radGenFaster'#4'Left'#2#6#6'Height'#2#22#3'Top'#2'"'#5'Width'#2'x' +'rder'#2#0#0#0#12'TRadioButton'#12'radGenFaster'#4'Left'#2#6#6'Height'#2#22#3
+#5'Align'#7#5'alTop'#20'BorderSpacing.Around'#2#6#7'Caption'#6#12'radGenFast' +'Top'#2'"'#5'Width'#2'x'#5'Align'#7#5'alTop'#20'BorderSpacing.Around'#2#6#7
+'er'#8'TabOrder'#2#1#0#0#12'TRadioButton'#13'radGenSmaller'#4'Left'#2#6#6'He' +'Caption'#6#12'radGenFaster'#8'TabOrder'#2#1#0#0#12'TRadioButton'#13'radGenS'
+'ight'#2#22#3'Top'#2'>'#5'Width'#2'x'#5'Align'#7#5'alTop'#20'BorderSpacing.A' +'maller'#4'Left'#2#6#6'Height'#2#22#3'Top'#2'>'#5'Width'#2'x'#5'Align'#7#5'a'
+'round'#2#6#7'Caption'#6#13'radGenSmaller'#8'TabOrder'#2#2#0#0#0#9'TGroupBox' +'lTop'#20'BorderSpacing.Around'#2#6#7'Caption'#6#13'radGenSmaller'#8'TabOrde'
+#17'grpTargetPlatform'#22'AnchorSideLeft.Control'#7#11'grpGenerate'#19'Ancho' +'r'#2#2#0#0#0#9'TGroupBox'#17'grpTargetPlatform'#22'AnchorSideLeft.Control'#7
+'rSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#9'grpChecks'#18 +#11'grpGenerate'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Con'
+'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#11'CodeGen' +'trol'#7#9'grpChecks'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRig'
+'Page'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#148#0#6'Height'#2'v' +'ht.Control'#7#11'CodeGenPage'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Lef'
+#3'Top'#3#149#0#5'Width'#3#255#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight' +'t'#3#148#0#6'Height'#2'v'#3'Top'#3#149#0#5'Width'#3#255#1#7'Anchors'#11#5'a'
+#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#17'grpTargetPlatf' +'kTop'#6'akLeft'#7'akRight'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'C'
+'orm'#12'ClientHeight'#2'c'#11'ClientWidth'#3#251#1#8'TabOrder'#2#4#0#6'TLab' +'aption'#6#17'grpTargetPlatform'#12'ClientHeight'#2'c'#11'ClientWidth'#3#251
+'el'#11'lblTargetOS'#22'AnchorSideLeft.Control'#7#17'grpTargetPlatform'#21'A' +#1#8'TabOrder'#2#4#0#6'TLabel'#11'lblTargetOS'#22'AnchorSideLeft.Control'#7
+'nchorSideTop.Control'#7#17'grpTargetPlatform'#4'Left'#2#6#6'Height'#2#20#3 +#17'grpTargetPlatform'#21'AnchorSideTop.Control'#7#17'grpTargetPlatform'#4'L'
+'Top'#2#6#5'Width'#2'I'#20'BorderSpacing.Around'#2#6#7'Caption'#6#11'lblTarg' +'eft'#2#6#6'Height'#2#20#3'Top'#2#6#5'Width'#2'I'#20'BorderSpacing.Around'#2
+'etOS'#11'ParentColor'#8#0#0#6'TLabel'#12'lblTargetCPU'#22'AnchorSideLeft.Co' +#6#7'Caption'#6#11'lblTargetOS'#11'ParentColor'#8#0#0#6'TLabel'#12'lblTarget'
+'ntrol'#7#17'grpTargetPlatform'#21'AnchorSideTop.Control'#7#16'TargetOSCombo' +'CPU'#22'AnchorSideLeft.Control'#7#17'grpTargetPlatform'#21'AnchorSideTop.Co'
+'Box'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#20#3'Top' +'ntrol'#7#16'TargetOSComboBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'
+#2'%'#5'Width'#2'Q'#20'BorderSpacing.Around'#2#6#7'Caption'#6#12'lblTargetCP' +#2#6#6'Height'#2#20#3'Top'#2'%'#5'Width'#2'Q'#20'BorderSpacing.Around'#2#6#7
+'U'#11'ParentColor'#8#0#0#6'TLabel'#17'lblTargeti386Proc'#22'AnchorSideLeft.' +'Caption'#6#12'lblTargetCPU'#11'ParentColor'#8#0#0#6'TLabel'#17'lblTargeti38'
+'Control'#7#17'grpTargetPlatform'#21'AnchorSideTop.Control'#7#17'TargetCPUCo' +'6Proc'#22'AnchorSideLeft.Control'#7#17'grpTargetPlatform'#21'AnchorSideTop.'
+'mboBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#20#3 +'Control'#7#17'TargetCPUComboBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Le'
+'Top'#2'D'#5'Width'#2'l'#20'BorderSpacing.Around'#2#6#7'Caption'#6#17'lblTar' +'ft'#2#6#6'Height'#2#20#3'Top'#2'D'#5'Width'#2'l'#20'BorderSpacing.Around'#2
+'geti386Proc'#11'ParentColor'#8#0#0#9'TComboBox'#16'TargetOSComboBox'#22'Anc' +#6#7'Caption'#6#17'lblTargeti386Proc'#11'ParentColor'#8#0#0#9'TComboBox'#16
+'horSideLeft.Control'#7#11'lblTargetOS'#19'AnchorSideLeft.Side'#7#9'asrBotto' +'TargetOSComboBox'#22'AnchorSideLeft.Control'#7#11'lblTargetOS'#19'AnchorSid'
+'m'#21'AnchorSideTop.Control'#7#17'grpTargetPlatform'#23'AnchorSideRight.Con' +'eLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#17'grpTargetPlatform'
+'trol'#7#17'grpTargetPlatform'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Lef' +#23'AnchorSideRight.Control'#7#17'grpTargetPlatform'#20'AnchorSideRight.Side'
+'t'#2'['#6'Height'#2#25#3'Top'#2#6#5'Width'#3#154#1#7'Anchors'#11#5'akTop'#6 +#7#9'asrBottom'#4'Left'#2'['#6'Height'#2#25#3'Top'#2#6#5'Width'#3#154#1#7'An'
+'akLeft'#7'akRight'#0#16'AutoCompleteText'#11#22'cbactEndOfLineComplete'#20 +'chors'#11#5'akTop'#6'akLeft'#7'akRight'#0#16'AutoCompleteText'#11#22'cbactE'
+'cbactSearchAscending'#0#18'BorderSpacing.Left'#2#6#20'BorderSpacing.Around' +'ndOfLineComplete'#20'cbactSearchAscending'#0#18'BorderSpacing.Left'#2#6#20
+#2#6#9'MaxLength'#2#0#8'TabOrder'#2#0#4'Text'#6#16'TargetOSComboBox'#0#0#9'T' +'BorderSpacing.Around'#2#6#9'MaxLength'#2#0#8'TabOrder'#2#0#4'Text'#6#16'Tar'
+'ComboBox'#17'TargetCPUComboBox'#22'AnchorSideLeft.Control'#7#12'lblTargetCP' +'getOSComboBox'#0#0#9'TComboBox'#17'TargetCPUComboBox'#22'AnchorSideLeft.Con'
+'U'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#16'Ta' +'trol'#7#12'lblTargetCPU'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSi'
+'rgetOSComboBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Co' +'deTop.Control'#7#16'TargetOSComboBox'#18'AnchorSideTop.Side'#7#9'asrBottom'
+'ntrol'#7#17'grpTargetPlatform'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Le' +#23'AnchorSideRight.Control'#7#17'grpTargetPlatform'#20'AnchorSideRight.Side'
+'ft'#2'c'#6'Height'#2#25#3'Top'#2'%'#5'Width'#3#146#1#7'Anchors'#11#5'akTop' +#7#9'asrBottom'#4'Left'#2'c'#6'Height'#2#25#3'Top'#2'%'#5'Width'#3#146#1#7'A'
+#6'akLeft'#7'akRight'#0#16'AutoCompleteText'#11#22'cbactEndOfLineComplete'#20 +'nchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#16'AutoCompleteText'#11#22'cbact'
+'cbactSearchAscending'#0#18'BorderSpacing.Left'#2#6#20'BorderSpacing.Around' +'EndOfLineComplete'#20'cbactSearchAscending'#0#18'BorderSpacing.Left'#2#6#20
+#2#6#9'MaxLength'#2#0#8'TabOrder'#2#1#4'Text'#6#17'TargetCPUComboBox'#0#0#9 +'BorderSpacing.Around'#2#6#9'MaxLength'#2#0#8'TabOrder'#2#1#4'Text'#6#17'Tar'
+'TComboBox'#22'Targeti386ProcComboBox'#22'AnchorSideLeft.Control'#7#17'lblTa' +'getCPUComboBox'#0#0#9'TComboBox'#22'Targeti386ProcComboBox'#22'AnchorSideLe'
+'rgeti386Proc'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Contr' +'ft.Control'#7#17'lblTargeti386Proc'#19'AnchorSideLeft.Side'#7#9'asrBottom'
+'ol'#7#17'TargetCPUComboBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'Anchor' +#21'AnchorSideTop.Control'#7#17'TargetCPUComboBox'#18'AnchorSideTop.Side'#7#9
+'SideRight.Control'#7#17'grpTargetPlatform'#20'AnchorSideRight.Side'#7#9'asr' +'asrBottom'#23'AnchorSideRight.Control'#7#17'grpTargetPlatform'#20'AnchorSid'
+'Bottom'#4'Left'#2'~'#6'Height'#2#25#3'Top'#2'D'#5'Width'#3'w'#1#7'Anchors' +'eRight.Side'#7#9'asrBottom'#4'Left'#2'~'#6'Height'#2#25#3'Top'#2'D'#5'Width'
,#11#5'akTop'#6'akLeft'#7'akRight'#0#16'AutoCompleteText'#11#22'cbactEndOfLin' ,#3'w'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#16'AutoCompleteText'#11
+'eComplete'#20'cbactSearchAscending'#0#18'BorderSpacing.Left'#2#6#20'BorderS' +#22'cbactEndOfLineComplete'#20'cbactSearchAscending'#0#18'BorderSpacing.Left'
+'pacing.Around'#2#6#9'MaxLength'#2#0#8'TabOrder'#2#2#4'Text'#6#22'Targeti386' +#2#6#20'BorderSpacing.Around'#2#6#9'MaxLength'#2#0#8'TabOrder'#2#2#4'Text'#6
+'ProcComboBox'#0#0#0#9'TGroupBox'#16'grpOptimizations'#22'AnchorSideLeft.Con' +#22'Targeti386ProcComboBox'#0#0#0#9'TGroupBox'#16'grpOptimizations'#22'Ancho'
+'trol'#7#11'CodeGenPage'#21'AnchorSideTop.Control'#7#11'grpGenerate'#18'Anch' +'rSideLeft.Control'#7#11'CodeGenPage'#21'AnchorSideTop.Control'#7#11'grpGene'
+'orSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#11'CodeGenPage' +'rate'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#11
+#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#11'C' +'CodeGenPage'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBottom.Co'
+'odeGenPage'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#3 +'ntrol'#7#11'CodeGenPage'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#2
+#170#0#3'Top'#3#17#1#5'Width'#3#141#2#7'Anchors'#11#5'akTop'#6'akLeft'#7'akR' +#6#6'Height'#3#170#0#3'Top'#3#17#1#5'Width'#3#141#2#7'Anchors'#11#5'akTop'#6
+'ight'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#16'grpOptimiz' +'akLeft'#7'akRight'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6
+'ations'#12'ClientHeight'#3#151#0#11'ClientWidth'#3#137#2#8'TabOrder'#2#5#0 +#16'grpOptimizations'#12'ClientHeight'#3#151#0#11'ClientWidth'#3#137#2#8'Tab'
+#12'TRadioButton'#15'radOptLevelNone'#22'AnchorSideLeft.Control'#7#16'grpOpt' +'Order'#2#5#0#12'TRadioButton'#15'radOptLevelNone'#22'AnchorSideLeft.Control'
+'imizations'#21'AnchorSideTop.Control'#7#16'grpOptimizations'#4'Left'#2#6#6 +#7#16'grpOptimizations'#21'AnchorSideTop.Control'#7#16'grpOptimizations'#4'L'
+'Height'#2#22#3'Top'#2#6#5'Width'#3#135#0#20'BorderSpacing.Around'#2#6#7'Cap' +'eft'#2#6#6'Height'#2#22#3'Top'#2#6#5'Width'#3#135#0#20'BorderSpacing.Around'
+'tion'#6#15'radOptLevelNone'#7'Checked'#9#5'State'#7#9'cbChecked'#8'TabOrder' +#2#6#7'Caption'#6#15'radOptLevelNone'#7'Checked'#9#5'State'#7#9'cbChecked'#8
+#2#0#0#0#12'TRadioButton'#12'radOptLevel1'#22'AnchorSideLeft.Control'#7#16'g' +'TabOrder'#2#0#0#0#12'TRadioButton'#12'radOptLevel1'#22'AnchorSideLeft.Contr'
+'rpOptimizations'#21'AnchorSideTop.Control'#7#15'radOptLevelNone'#18'AnchorS' +'ol'#7#16'grpOptimizations'#21'AnchorSideTop.Control'#7#15'radOptLevelNone'
+'ideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#22#3'Top'#2'"'#5'Width' +#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#22#3'Top'#2'"'
+#2'm'#20'BorderSpacing.Around'#2#6#7'Caption'#6#12'radOptLevel1'#8'TabOrder' +#5'Width'#2'm'#20'BorderSpacing.Around'#2#6#7'Caption'#6#12'radOptLevel1'#8
+#2#1#0#0#12'TRadioButton'#12'radOptLevel2'#22'AnchorSideLeft.Control'#7#16'g' +'TabOrder'#2#1#0#0#12'TRadioButton'#12'radOptLevel2'#22'AnchorSideLeft.Contr'
+'rpOptimizations'#21'AnchorSideTop.Control'#7#12'radOptLevel1'#18'AnchorSide' +'ol'#7#16'grpOptimizations'#21'AnchorSideTop.Control'#7#12'radOptLevel1'#18
+'Top.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#22#3'Top'#2'>'#5'Width'#2 +'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#22#3'Top'#2'>'#5
+'m'#20'BorderSpacing.Around'#2#6#7'Caption'#6#12'radOptLevel2'#8'TabOrder'#2 +'Width'#2'm'#20'BorderSpacing.Around'#2#6#7'Caption'#6#12'radOptLevel2'#8'Ta'
+#2#0#0#12'TRadioButton'#12'radOptLevel3'#22'AnchorSideLeft.Control'#7#16'grp' +'bOrder'#2#2#0#0#12'TRadioButton'#12'radOptLevel3'#22'AnchorSideLeft.Control'
+'Optimizations'#21'AnchorSideTop.Control'#7#12'radOptLevel2'#18'AnchorSideTo' +#7#16'grpOptimizations'#21'AnchorSideTop.Control'#7#12'radOptLevel2'#18'Anch'
+'p.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#22#3'Top'#2'Z'#5'Width'#2'm' +'orSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#22#3'Top'#2'Z'#5'Wid'
+#20'BorderSpacing.Around'#2#6#7'Caption'#6#12'radOptLevel3'#8'TabOrder'#2#3#0 +'th'#2'm'#20'BorderSpacing.Around'#2#6#7'Caption'#6#12'radOptLevel3'#8'TabOr'
+#0#9'TCheckBox'#15'chkOptVarsInReg'#21'AnchorSideTop.Control'#7#16'grpOptimi' +'der'#2#3#0#0#9'TCheckBox'#15'chkOptVarsInReg'#21'AnchorSideTop.Control'#7#16
+'zations'#4'Left'#3#205#0#6'Height'#2#22#3'Top'#2#6#5'Width'#3#131#0#20'Bord' +'grpOptimizations'#4'Left'#3#205#0#6'Height'#2#22#3'Top'#2#6#5'Width'#3#131#0
+'erSpacing.Around'#2#6#7'Caption'#6#15'chkOptVarsInReg'#8'TabOrder'#2#4#0#0#9 +#20'BorderSpacing.Around'#2#6#7'Caption'#6#15'chkOptVarsInReg'#8'TabOrder'#2
+'TCheckBox'#15'chkOptUncertain'#21'AnchorSideTop.Control'#7#15'chkOptVarsInR' +#4#0#0#9'TCheckBox'#15'chkOptUncertain'#21'AnchorSideTop.Control'#7#15'chkOp'
+'eg'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#3#205#0#6'Height'#2#22#3 +'tVarsInReg'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#3#205#0#6'Height'
+'Top'#2'"'#5'Width'#3#131#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#15'chk' +#2#22#3'Top'#2'"'#5'Width'#3#131#0#20'BorderSpacing.Around'#2#6#7'Caption'#6
+'OptUncertain'#8'TabOrder'#2#5#0#0#0#0#5'TPage'#11'LinkingPage'#7'Caption'#6 +#15'chkOptUncertain'#8'TabOrder'#2#5#0#0#0#0#5'TPage'#11'LinkingPage'#7'Capt'
+#11'LinkingPage'#11'ClientWidth'#3#153#2#12'ClientHeight'#3#193#1#0#9'TGroup' +'ion'#6#11'LinkingPage'#11'ClientWidth'#3#153#2#12'ClientHeight'#3#193#1#0#9
+'Box'#16'grpLinkLibraries'#4'Left'#2#6#6'Height'#2'5'#3'Top'#3#233#0#5'Width' +'TGroupBox'#16'grpLinkLibraries'#4'Left'#2#6#6'Height'#2'5'#3'Top'#3#233#0#5
+#3#141#2#5'Align'#7#5'alTop'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Ca' +'Width'#3#141#2#5'Align'#7#5'alTop'#8'AutoSize'#9#20'BorderSpacing.Around'#2
+'ption'#6#16'grpLinkLibraries'#12'ClientHeight'#2'"'#11'ClientWidth'#3#137#2 +#6#7'Caption'#6#16'grpLinkLibraries'#12'ClientHeight'#2'"'#11'ClientWidth'#3
+#8'TabOrder'#2#0#0#9'TCheckBox'#12'chkLinkSmart'#4'Left'#2#6#6'Height'#2#22#3 +#137#2#8'TabOrder'#2#0#0#9'TCheckBox'#12'chkLinkSmart'#4'Left'#2#6#6'Height'
+'Top'#2#6#5'Width'#3'}'#2#5'Align'#7#5'alTop'#20'BorderSpacing.Around'#2#6#7 +#2#22#3'Top'#2#6#5'Width'#3'}'#2#5'Align'#7#5'alTop'#20'BorderSpacing.Around'
+'Caption'#6#12'chkLinkSmart'#8'TabOrder'#2#0#0#0#0#9'TGroupBox'#21'TargetSpe' +#2#6#7'Caption'#6#12'chkLinkSmart'#8'TabOrder'#2#0#0#0#0#9'TGroupBox'#21'Tar'
+'cificsGrpBox'#4'Left'#2#6#6'Height'#2'5'#3'Top'#3'$'#1#5'Width'#3#141#2#5'A' +'getSpecificsGrpBox'#4'Left'#2#6#6'Height'#2'5'#3'Top'#3'$'#1#5'Width'#3#141
+'lign'#7#5'alTop'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#21 +#2#5'Align'#7#5'alTop'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'
+'TargetSpecificsGrpBox'#12'ClientHeight'#2'"'#11'ClientWidth'#3#137#2#8'TabO' +#6#21'TargetSpecificsGrpBox'#12'ClientHeight'#2'"'#11'ClientWidth'#3#137#2#8
+'rder'#2#1#0#9'TCheckBox'#18'chkWin32GraphicApp'#4'Left'#2#6#6'Height'#2#22#3 +'TabOrder'#2#1#0#9'TCheckBox'#18'chkWin32GraphicApp'#4'Left'#2#6#6'Height'#2
+'Top'#2#6#5'Width'#3'}'#2#5'Align'#7#5'alTop'#20'BorderSpacing.Around'#2#6#7 +#22#3'Top'#2#6#5'Width'#3'}'#2#5'Align'#7#5'alTop'#20'BorderSpacing.Around'#2
+'Caption'#6#18'chkWin32GraphicApp'#8'TabOrder'#2#0#0#0#0#9'TGroupBox'#10'grp' +#6#7'Caption'#6#18'chkWin32GraphicApp'#8'TabOrder'#2#0#0#0#0#9'TGroupBox'#10
+'Options'#4'Left'#2#6#6'Height'#2'R'#3'Top'#3'_'#1#5'Width'#3#141#2#5'Align' +'grpOptions'#4'Left'#2#6#6'Height'#2'R'#3'Top'#3'_'#1#5'Width'#3#141#2#5'Ali'
+#7#5'alTop'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#10'grpOp' +'gn'#7#5'alTop'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#10'g'
+'tions'#12'ClientHeight'#2'?'#11'ClientWidth'#3#137#2#8'TabOrder'#2#2#0#9'TC' +'rpOptions'#12'ClientHeight'#2'?'#11'ClientWidth'#3#137#2#8'TabOrder'#2#2#0#9
+'heckBox'#17'chkOptionsLinkOpt'#4'Left'#2#6#6'Height'#2#22#3'Top'#2#6#5'Widt' +'TCheckBox'#17'chkOptionsLinkOpt'#4'Left'#2#6#6'Height'#2#22#3'Top'#2#6#5'Wi'
+'h'#3'}'#2#5'Align'#7#5'alTop'#20'BorderSpacing.Around'#2#6#7'Caption'#6#17 +'dth'#3'}'#2#5'Align'#7#5'alTop'#20'BorderSpacing.Around'#2#6#7'Caption'#6#17
+'chkOptionsLinkOpt'#8'TabOrder'#2#0#0#0#5'TEdit'#17'edtOptionsLinkOpt'#4'Lef' +'chkOptionsLinkOpt'#8'TabOrder'#2#0#0#0#5'TEdit'#17'edtOptionsLinkOpt'#4'Lef'
+'t'#2#6#6'Height'#2#23#3'Top'#2'"'#5'Width'#3'}'#2#5'Align'#7#5'alTop'#20'Bo' +'t'#2#6#6'Height'#2#23#3'Top'#2'"'#5'Width'#3'}'#2#5'Align'#7#5'alTop'#20'Bo'
+'rderSpacing.Around'#2#6#8'TabOrder'#2#1#4'Text'#6#17'edtOptionsLinkOpt'#0#0 +'rderSpacing.Around'#2#6#8'TabOrder'#2#1#4'Text'#6#17'edtOptionsLinkOpt'#0#0

16
ide/compileroptionsdlg.pp
View File

@ -42,7 +42,7 @@ uses
Graphics, LResources, FileUtil, Dialogs, Controls, GraphType, Graphics, LResources, FileUtil, Dialogs, Controls, GraphType,
ProjectIntf, IDEWindowIntf, IDEContextHelpEdit, ProjectIntf, IDEWindowIntf, IDEContextHelpEdit,
PathEditorDlg, LazarusIDEStrConsts, IDEOptionDefs, LazConf, IDEProcs, PathEditorDlg, LazarusIDEStrConsts, IDEOptionDefs, LazConf, IDEProcs,
CompilerOptions, ShowCompilerOpts, Project, PackageDefs; IDEImagesIntf, CompilerOptions, ShowCompilerOpts, Project, PackageDefs;
type type
{ Compiler options form } { Compiler options form }
@ -271,9 +271,6 @@ type
implementation implementation
uses
IDEImagesIntf;
type type
TInheritedNodeData = record TInheritedNodeData = record
FullText: string; FullText: string;
@ -319,15 +316,14 @@ begin
SetupCompilationTab(Page); SetupCompilationTab(Page);
inc(Page); inc(Page);
SetupButtonBar; SetupButtonBar;
MainNotebook.AnchorToNeighbour(akBottom,6,btnLoadSave);
finally finally
EnableAlign; EnableAlign;
end; end;
end; end;
{------------------------------------------------------------------------------} {------------------------------------------------------------------------------
{ TfrmCompilerOptions Destructor } TfrmCompilerOptions Destructor
{------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
destructor TfrmCompilerOptions.Destroy; destructor TfrmCompilerOptions.Destroy;
begin begin
ClearInheritedTree; ClearInheritedTree;
@ -1418,7 +1414,7 @@ begin
{------------------------------------------------------------} {------------------------------------------------------------}
lblIncludeFiles .Caption := dlgCOIncFiles; lblIncludeFiles.Caption := dlgCOIncFiles;
IncludeFilesPathEditBtn:=TPathEditorButton.Create(Self); IncludeFilesPathEditBtn:=TPathEditorButton.Create(Self);
with IncludeFilesPathEditBtn do begin with IncludeFilesPathEditBtn do begin
Name:='IncludeFilesPathEditBtn'; Name:='IncludeFilesPathEditBtn';
@ -1525,7 +1521,7 @@ begin
end; end;
ItemIndex:=1; ItemIndex:=1;
Constraints.MinWidth:=150; Constraints.MinWidth:=150;
AutoSize:=True; // MG: does not work in win32 intf: AutoSize:=True;
end; end;
end; end;

22
ideintf/ideimagesintf.pas
View File

@ -1,8 +1,29 @@
{
***************************************************************************
* *
* This source is free software; you can redistribute it and/or modify *
* it under the terms of the GNU General Public License as published by *
* the Free Software Foundation; either version 2 of the License, or *
* (at your option) any later version. *
* *
* This code is distributed in the hope that it will be useful, but *
* WITHOUT ANY WARRANTY; without even the implied warranty of *
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *
* General Public License for more details. *
* *
* A copy of the GNU General Public License is available on the World *
* Wide Web at <http://www.gnu.org/copyleft/gpl.html>. You can also *
* obtain it by writing to the Free Software Foundation, *
* Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *
* *
***************************************************************************
}
unit IDEImagesIntf; unit IDEImagesIntf;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
interface interface
uses uses
Classes, SysUtils, ImgList, Controls, Graphics, LResources; Classes, SysUtils, ImgList, Controls, Graphics, LResources;
@ -167,5 +188,6 @@ initialization
finalization finalization
FIDEImages.Free; FIDEImages.Free;
FIDEImages:=nil;
end. end.

7
lcl/extdlgs.pas
View File

@ -348,7 +348,6 @@ var
CurFilename: String; CurFilename: String;
FileIsValid: boolean; FileIsValid: boolean;
begin begin
//DebugLn(['TOpenPictureDialog.UpdatePreview ']);
CurFilename := FileName; CurFilename := FileName;
if CurFilename = FPreviewFilename then exit; if CurFilename = FPreviewFilename then exit;
@ -371,8 +370,8 @@ end;
constructor TOpenPictureDialog.Create(TheOwner: TComponent); constructor TOpenPictureDialog.Create(TheOwner: TComponent);
begin begin
inherited Create(TheOwner); inherited Create(TheOwner);
FDefaultFilter := GraphicFilter(TGraphic)+'|'+Format(rsAllFiles, FDefaultFilter := GraphicFilter(TGraphic)+'|'+
[GetAllFilesMask, GetAllFilesMask,'']); Format(rsAllFiles,[GetAllFilesMask, GetAllFilesMask,'']);
Filter:=FDefaultFilter; Filter:=FDefaultFilter;
FPictureGroupBox:=TGroupBox.Create(Self); FPictureGroupBox:=TGroupBox.Create(Self);
@ -437,7 +436,7 @@ const
); );
BtnCaptions: array[cbSgn..cbMC] of String = BtnCaptions: array[cbSgn..cbMC] of String =
('±', ',', '/', '*', '-', '+', 'sqrt', '%', '1/x', '=', '<-', 'C', ('±', ',', '/', '*', '-', '+', 'sqrt', '%', '1/x', '=', '<-', 'C',
'MP', 'MS', 'MR', 'MC'); 'MP','MS','MR','MC');
{ --------------------------------------------------------------------- { ---------------------------------------------------------------------
Auxiliary Auxiliary

2
lcl/interfaces/gtk/gtk1object.inc
View File

@ -4332,6 +4332,7 @@ var
FileSelWidget: PGtkFileSelection; FileSelWidget: PGtkFileSelection;
InitialFilter: string; InitialFilter: string;
begin begin
DebugLn(['TGtkWidgetSet.InitializeOpenDialog ']);
FileSelWidget:=GTK_FILE_SELECTION(SelWidget); FileSelWidget:=GTK_FILE_SELECTION(SelWidget);
// Help button // Help button
@ -4419,6 +4420,7 @@ end;
procedure TGtkWidgetSet.InitializeFileDialog(FileDialog: TFileDialog; procedure TGtkWidgetSet.InitializeFileDialog(FileDialog: TFileDialog;
var SelWidget: PGtkWidget; Title: PChar); var SelWidget: PGtkWidget; Title: PChar);
begin begin
//DebugLn(['TGtkWidgetSet.InitializeFileDialog ']);
SelWidget := gtk_file_selection_new(Title); SelWidget := gtk_file_selection_new(Title);
{****This is a major hack put by Cliff Baeseman to solve {****This is a major hack put by Cliff Baeseman to solve

1
lcl/interfaces/gtk/gtkcallback.inc
View File

@ -2283,6 +2283,7 @@ var
Filename, OldFilename, Details: string; Filename, OldFilename, Details: string;
Widget: PGtkWidget; Widget: PGtkWidget;
begin begin
//DebugLn(['UpdateDetailView ']);
Widget:=PGtkWidget(OpenDialog.Handle); Widget:=PGtkWidget(OpenDialog.Handle);
{$IfDef GTK2} {$IfDef GTK2}
FileName:=gtk_file_chooser_get_filename(PGtkFileChooser(Widget)); FileName:=gtk_file_chooser_get_filename(PGtkFileChooser(Widget));

25
lcl/interfaces/gtk2/gtk2object.inc
View File

@ -135,6 +135,7 @@ var
GtkFilterList: PGSList; GtkFilterList: PGSList;
NewFilterIndex: Integer; NewFilterIndex: Integer;
begin begin
//DebugLn(['Gtk2FileChooserNotifyCB ']);
if pspec^.name = 'filter' then if pspec^.name = 'filter' then
begin // filter changed begin // filter changed
theDialog := TFileDialog(user_data); theDialog := TFileDialog(user_data);
@ -165,6 +166,7 @@ var
cFilenames1: PGSList; cFilenames1: PGSList;
Files: TStringList; Files: TStringList;
begin begin
//DebugLn(['Gtk2FileChooserResponseCB ']);
theDialog := TFileDialog(data); theDialog := TFileDialog(data);
if arg1 = GTK_RESPONSE_CANCEL then begin if arg1 = GTK_RESPONSE_CANCEL then begin
@ -208,6 +210,24 @@ begin
theDialog.UserChoice := mrOK; theDialog.UserChoice := mrOK;
end; end;
procedure gtkFileChooserSelectionChangedCB(Chooser: PGtkFileChooser;
Data: Pointer); cdecl;
var
cFilename: Pgchar;
theDialog: TFileDialog;
begin
//DebugLn(['gtkFileChooserSelectionChangedCB ']);
cFilename := gtk_file_chooser_get_filename(Chooser);
theDialog:=TFileDialog(Data);
try
if theDialog is TOpenDialog then
UpdateDetailView(TOpenDialog(theDialog));
finally
if Assigned(cFilename) then
g_free(cFilename);
end;
end;
Procedure gtk_clb_toggle(cellrenderertoggle : PGtkCellRendererToggle; arg1 : PGChar; Procedure gtk_clb_toggle(cellrenderertoggle : PGtkCellRendererToggle; arg1 : PGChar;
WinControl: TWinControl); cdecl; WinControl: TWinControl); cdecl;
var var
@ -676,6 +696,11 @@ begin
// Filter // Filter
CreateOpenDialogFilter(OpenDialog,SelWidget); CreateOpenDialogFilter(OpenDialog,SelWidget);
// connect change event
g_signal_connect( gtk_object(FileSelWidget),
'selection-changed', gtk_signal_func(@gtkFileChooserSelectionChangedCB),
OpenDialog);
(* TODO (* TODO
// Details - a frame with a label // Details - a frame with a label
if (ofViewDetail in OpenDialog.Options) then begin if (ofViewDetail in OpenDialog.Options) then begin