From 6b20f997be24f3139601638a6a7f900cfb70dac3 Mon Sep 17 00:00:00 2001 From: vincents Date: Tue, 27 May 2008 09:41:31 +0000 Subject: [PATCH] IDE, path editor: double clicking on a template path, adds it to the selected paths. git-svn-id: trunk@15256 - --- ide/exttooldialog.pas | 2 +- ide/patheditordlg.lfm | 6 ++ ide/patheditordlg.lrs | 231 +++++++++++++++++++++--------------------- ide/patheditordlg.pas | 12 +++ 4 files changed, 136 insertions(+), 115 deletions(-) diff --git a/ide/exttooldialog.pas b/ide/exttooldialog.pas index a20dbf64ef..a62bf29b3f 100644 --- a/ide/exttooldialog.pas +++ b/ide/exttooldialog.pas @@ -287,7 +287,7 @@ function TExternalToolList.Run(Index: integer; begin Result:=mrCancel; if (Index<0) or (Index>=Count) then exit; - Run(Items[Index],Macros); + Result:=Run(Items[Index],Macros); end; function TExternalToolList.Run(ExtTool: TIDEExternalToolOptions; diff --git a/ide/patheditordlg.lfm b/ide/patheditordlg.lfm index f21f75db31..5638cfbe75 100644 --- a/ide/patheditordlg.lfm +++ b/ide/patheditordlg.lfm @@ -5,6 +5,7 @@ object PathEditorDialog: TPathEditorDialog Width = 500 HorzScrollBar.Page = 499 VertScrollBar.Page = 399 + ActiveControl = TemplatesListBox Caption = 'PathEditorDialog' ClientHeight = 400 ClientWidth = 500 @@ -13,6 +14,7 @@ object PathEditorDialog: TPathEditorDialog OnCreate = FormCreate OnResize = FormResize Position = poScreenCenter + LCLVersion = '0.9.25' object PathGroupBox: TGroupBox AnchorSideLeft.Control = Owner AnchorSideTop.Control = Owner @@ -47,7 +49,9 @@ object PathEditorDialog: TPathEditorDialog ParentColor = False TabOrder = 0 BookMarkOptions.Xoffset = -18 + BookMarkOptions.OnChange = nil Gutter.Visible = False + Gutter.OnChange = nil Gutter.CodeFoldingWidth = 14 Keystrokes = < item @@ -374,6 +378,7 @@ object PathEditorDialog: TPathEditorDialog 'PathEdit' ) Options = [eoDragDropEditing, eoHalfPageScroll, eoScrollByOneLess, eoScrollPastEol, eoSmartTabs, eoTabsToSpaces, eoTrimTrailingSpaces, eoBracketHighlight, eoHideRightMargin] + SelectedColor.OnChange = nil end object MoveUpButton: TButton AnchorSideLeft.Control = PathGroupBox @@ -469,6 +474,7 @@ object PathEditorDialog: TPathEditorDialog Anchors = [akTop, akLeft, akRight, akBottom] BorderSpacing.Around = 6 MultiSelect = True + OnDblClick = TemplatesListBoxDblClick TabOrder = 0 end object AddTemplateButton: TButton diff --git a/ide/patheditordlg.lrs b/ide/patheditordlg.lrs index 8eb7ec5774..09bcad50c5 100644 --- a/ide/patheditordlg.lrs +++ b/ide/patheditordlg.lrs @@ -3,120 +3,123 @@ LazarusResources.Add('TPathEditorDialog','FORMDATA',[ 'TPF0'#17'TPathEditorDialog'#16'PathEditorDialog'#4'Left'#3'"'#1#6'Height'#3 +#144#1#3'Top'#3#155#0#5'Width'#3#244#1#18'HorzScrollBar.Page'#3#243#1#18'Ver' - +'tScrollBar.Page'#3#143#1#7'Caption'#6#16'PathEditorDialog'#12'ClientHeight' - +#3#144#1#11'ClientWidth'#3#244#1#21'Constraints.MinHeight'#3#144#1#20'Constr' - +'aints.MinWidth'#3#244#1#8'OnCreate'#7#10'FormCreate'#8'OnResize'#7#10'FormR' - +'esize'#8'Position'#7#14'poScreenCenter'#0#9'TGroupBox'#12'PathGroupBox'#22 - +'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#23 - +'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom' - +#4'Left'#2#6#6'Height'#3#194#0#3'Top'#2#6#5'Width'#3#232#1#7'Anchors'#11#5'a' - +'kTop'#6'akLeft'#7'akRight'#0#18'BorderSpacing.Left'#2#6#17'BorderSpacing.To' - +'p'#2#6#19'BorderSpacing.Right'#2#6#7'Caption'#6#12'PathGroupBox'#12'ClientH' - +'eight'#3#176#0#11'ClientWidth'#3#228#1#8'TabOrder'#2#0#0#8'TSynEdit'#8'Path' - +'Edit'#22'AnchorSideLeft.Control'#7#12'PathGroupBox'#21'AnchorSideTop.Contro' - +'l'#7#12'PathGroupBox'#23'AnchorSideRight.Control'#7#12'PathGroupBox'#20'Anc' - +'horSideRight.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#12'MoveUpB' - +'utton'#4'Left'#2#6#6'Height'#3#135#0#3'Top'#2#6#5'Width'#3#216#1#20'BorderS' - +'pacing.Around'#2#6#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0 - +#11'Font.Height'#2#240#9'Font.Name'#6#7'courier'#11'ParentColor'#8#8'TabOrde' - +'r'#2#0#23'BookMarkOptions.Xoffset'#2#238#14'Gutter.Visible'#8#23'Gutter.Cod' - +'eFoldingWidth'#2#14#10'Keystrokes'#14#1#7'Command'#2#3#8'ShortCut'#2'&'#0#1 - +#7'Command'#2'g'#8'ShortCut'#3'& '#0#1#7'Command'#3#211#0#8'ShortCut'#3'&@'#0 - +#1#7'Command'#2#4#8'ShortCut'#2'('#0#1#7'Command'#2'h'#8'ShortCut'#3'( '#0#1 - +#7'Command'#3#212#0#8'ShortCut'#3'(@'#0#1#7'Command'#2#1#8'ShortCut'#2'%'#0#1 - +#7'Command'#2'e'#8'ShortCut'#3'% '#0#1#7'Command'#2#5#8'ShortCut'#3'%@'#0#1#7 - +'Command'#2'i'#8'ShortCut'#3'%`'#0#1#7'Command'#2#2#8'ShortCut'#2''''#0#1#7 - +'Command'#2'f'#8'ShortCut'#3''' '#0#1#7'Command'#2#6#8'ShortCut'#3'''@'#0#1#7 - +'Command'#2'j'#8'ShortCut'#3'''`'#0#1#7'Command'#2#10#8'ShortCut'#2'"'#0#1#7 - +'Command'#2'n'#8'ShortCut'#3'" '#0#1#7'Command'#2#14#8'ShortCut'#3'"@'#0#1#7 - +'Command'#2'r'#8'ShortCut'#3'"`'#0#1#7'Command'#2#9#8'ShortCut'#2'!'#0#1#7'C' - +'ommand'#2'm'#8'ShortCut'#3'! '#0#1#7'Command'#2#13#8'ShortCut'#3'!@'#0#1#7 - +'Command'#2'q'#8'ShortCut'#3'!`'#0#1#7'Command'#2#7#8'ShortCut'#2'$'#0#1#7'C' - +'ommand'#2'k'#8'ShortCut'#3'$ '#0#1#7'Command'#2#15#8'ShortCut'#3'$@'#0#1#7 - +'Command'#2's'#8'ShortCut'#3'$`'#0#1#7'Command'#2#8#8'ShortCut'#2'#'#0#1#7'C' - +'ommand'#2'l'#8'ShortCut'#3'# '#0#1#7'Command'#2#16#8'ShortCut'#3'#@'#0#1#7 - +'Command'#2't'#8'ShortCut'#3'#`'#0#1#7'Command'#3#223#0#8'ShortCut'#2'-'#0#1 - +#7'Command'#3#201#0#8'ShortCut'#3'-@'#0#1#7'Command'#3'\'#2#8'ShortCut'#3'- ' - +#0#1#7'Command'#3#246#1#8'ShortCut'#2'.'#0#1#7'Command'#3'['#2#8'ShortCut'#3 - +'. '#0#1#7'Command'#3#245#1#8'ShortCut'#2#8#0#1#7'Command'#3#245#1#8'ShortCu' - +'t'#3#8' '#0#1#7'Command'#3#248#1#8'ShortCut'#3#8'@'#0#1#7'Command'#3'Y'#2#8 - +'ShortCut'#4#8#128#0#0#0#1#7'Command'#3'Z'#2#8'ShortCut'#4#8#160#0#0#0#1#7'C' - +'ommand'#3#253#1#8'ShortCut'#2#13#0#1#7'Command'#3#199#0#8'ShortCut'#3'A@'#0 - +#1#7'Command'#3#201#0#8'ShortCut'#3'C@'#0#1#7'Command'#3'b'#2#8'ShortCut'#3 - +'I`'#0#1#7'Command'#3#253#1#8'ShortCut'#3'M@'#0#1#7'Command'#3#254#1#8'Short' - +'Cut'#3'N@'#0#1#7'Command'#3#247#1#8'ShortCut'#3'T@'#0#1#7'Command'#3'c'#2#8 - +'ShortCut'#3'U`'#0#1#7'Command'#3'\'#2#8'ShortCut'#3'V@'#0#1#7'Command'#3'[' - +#2#8'ShortCut'#3'X@'#0#1#7'Command'#3#251#1#8'ShortCut'#3'Y@'#0#1#7'Command' - +#3#250#1#8'ShortCut'#3'Y`'#0#1#7'Command'#3'Y'#2#8'ShortCut'#3'Z@'#0#1#7'Com' - +'mand'#3'Z'#2#8'ShortCut'#3'Z`'#0#1#7'Command'#3'-'#1#8'ShortCut'#3'0@'#0#1#7 - +'Command'#3'.'#1#8'ShortCut'#3'1@'#0#1#7'Command'#3'/'#1#8'ShortCut'#3'2@'#0 - +#1#7'Command'#3'0'#1#8'ShortCut'#3'3@'#0#1#7'Command'#3'1'#1#8'ShortCut'#3'4' - +'@'#0#1#7'Command'#3'2'#1#8'ShortCut'#3'5@'#0#1#7'Command'#3'3'#1#8'ShortCut' - +#3'6@'#0#1#7'Command'#3'4'#1#8'ShortCut'#3'7@'#0#1#7'Command'#3'5'#1#8'Short' - +'Cut'#3'8@'#0#1#7'Command'#3'6'#1#8'ShortCut'#3'9@'#0#1#7'Command'#3'_'#1#8 - +'ShortCut'#3'0`'#0#1#7'Command'#3'`'#1#8'ShortCut'#3'1`'#0#1#7'Command'#3'a' - +#1#8'ShortCut'#3'2`'#0#1#7'Command'#3'b'#1#8'ShortCut'#3'3`'#0#1#7'Command'#3 - +'c'#1#8'ShortCut'#3'4`'#0#1#7'Command'#3'd'#1#8'ShortCut'#3'5`'#0#1#7'Comman' - +'d'#3'e'#1#8'ShortCut'#3'6`'#0#1#7'Command'#3'f'#1#8'ShortCut'#3'7`'#0#1#7'C' - +'ommand'#3'g'#1#8'ShortCut'#3'8`'#0#1#7'Command'#3'h'#1#8'ShortCut'#3'9`'#0#1 - +#7'Command'#3#231#0#8'ShortCut'#3'N`'#0#1#7'Command'#3#232#0#8'ShortCut'#3'C' - +'`'#0#1#7'Command'#3#233#0#8'ShortCut'#3'L`'#0#1#7'Command'#3'd'#2#8'ShortCu' - +'t'#2#9#0#1#7'Command'#3'e'#2#8'ShortCut'#3#9' '#0#1#7'Command'#3#250#0#8'Sh' - +'ortCut'#3'B`'#0#0#13'Lines.Strings'#1#6#8'PathEdit'#0#7'Options'#11#17'eoDr' - +'agDropEditing'#16'eoHalfPageScroll'#17'eoScrollByOneLess'#15'eoScrollPastEo' - +'l'#11'eoSmartTabs'#14'eoTabsToSpaces'#20'eoTrimTrailingSpaces'#18'eoBracket' - ,'Highlight'#17'eoHideRightMargin'#0#0#0#7'TButton'#12'MoveUpButton'#22'Ancho' - +'rSideLeft.Control'#7#12'PathGroupBox'#24'AnchorSideBottom.Control'#7#12'Pat' - +'hGroupBox'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2 - +#23#3'Top'#3#147#0#5'Width'#2'b'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#8'Aut' - +'oSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#12'MoveUpButton'#7'OnCli' - +'ck'#7#17'MoveUpButtonClick'#8'TabOrder'#2#1#0#0#7'TButton'#14'MoveDownButto' - +'n'#22'AnchorSideLeft.Control'#7#12'MoveUpButton'#19'AnchorSideLeft.Side'#7#9 - +'asrBottom'#24'AnchorSideBottom.Control'#7#12'PathGroupBox'#21'AnchorSideBot' - +'tom.Side'#7#9'asrBottom'#4'Left'#2'n'#6'Height'#2#23#3'Top'#3#147#0#5'Width' - +#2'p'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#8'AutoSize'#9#20'BorderSpacing.A' - +'round'#2#6#7'Caption'#6#14'MoveDownButton'#7'OnClick'#7#19'MoveDownButtonCl' - +'ick'#8'TabOrder'#2#2#0#0#7'TButton'#12'BrowseButton'#22'AnchorSideLeft.Cont' - +'rol'#7#14'MoveDownButton'#19'AnchorSideLeft.Side'#7#9'asrBottom'#24'AnchorS' - +'ideBottom.Control'#7#12'PathGroupBox'#21'AnchorSideBottom.Side'#7#9'asrBott' - +'om'#4'Left'#3#228#0#6'Height'#2#23#3'Top'#3#147#0#5'Width'#2'\'#7'Anchors' - +#11#6'akLeft'#8'akBottom'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Cap' - +'tion'#6#12'BrowseButton'#7'OnClick'#7#17'BrowseButtonClick'#8'TabOrder'#2#3 - +#0#0#7'TButton'#12'DeleteButton'#22'AnchorSideLeft.Control'#7#12'BrowseButto' - +'n'#19'AnchorSideLeft.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#12 - +'PathGroupBox'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#3'F'#1#6'Hei' - +'ght'#2#23#3'Top'#3#147#0#5'Width'#2'X'#7'Anchors'#11#6'akLeft'#8'akBottom'#0 - +#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#12'DeleteButton'#7 - +'OnClick'#7#17'DeleteButtonClick'#8'TabOrder'#2#4#0#0#0#9'TGroupBox'#16'Temp' - +'lateGroupBox'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Contro' - +'l'#7#12'PathGroupBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRi' - +'ght.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSi' - +'deBottom.Control'#7#8'OKBitBtn'#4'Left'#2#6#6'Height'#3#152#0#3'Top'#3#206#0 - +#5'Width'#3#232#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0 - +#20'BorderSpacing.Around'#2#6#7'Caption'#6#16'TemplateGroupBox'#12'ClientHei' - +'ght'#3#134#0#11'ClientWidth'#3#228#1#8'TabOrder'#2#1#0#8'TListBox'#16'Templ' - +'atesListBox'#22'AnchorSideLeft.Control'#7#16'TemplateGroupBox'#21'AnchorSid' - +'eTop.Control'#7#16'TemplateGroupBox'#23'AnchorSideRight.Control'#7#16'Templ' - +'ateGroupBox'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBottom.Co' - +'ntrol'#7#17'AddTemplateButton'#4'Left'#2#6#6'Height'#2']'#3'Top'#2#6#5'Widt' - +'h'#3#216#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#20'Bor' - +'derSpacing.Around'#2#6#11'MultiSelect'#9#8'TabOrder'#2#0#0#0#7'TButton'#17 - +'AddTemplateButton'#22'AnchorSideLeft.Control'#7#16'TemplateGroupBox'#24'Anc' - +'horSideBottom.Control'#7#16'TemplateGroupBox'#21'AnchorSideBottom.Side'#7#9 - +'asrBottom'#4'Left'#2#6#6'Height'#2#23#3'Top'#2'i'#5'Width'#2'x'#7'Anchors' - +#11#6'akLeft'#8'akBottom'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Cap' - +'tion'#6#17'AddTemplateButton'#7'OnClick'#7#22'AddTemplateButtonClick'#8'Tab' - +'Order'#2#1#0#0#0#7'TBitBtn'#8'OKBitBtn'#23'AnchorSideRight.Control'#7#12'Ca' - +'ncelBitBtn'#24'AnchorSideBottom.Control'#7#5'Owner'#21'AnchorSideBottom.Sid' - +'e'#7#9'asrBottom'#4'Left'#3'4'#1#6'Height'#2#30#3'Top'#3'l'#1#5'Width'#2'Z' - +#7'Anchors'#11#7'akRight'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#7'Capti' - +'on'#6#3'&'#206#202#7'Default'#9#4'Kind'#7#4'bkOK'#11'ModalResult'#2#1#9'Num' - +'Glyphs'#2#0#8'TabOrder'#2#2#0#0#7'TBitBtn'#12'CancelBitBtn'#23'AnchorSideRi' - +'ght.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSi' - +'deBottom.Control'#7#5'Owner'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Lef' - +'t'#3#148#1#6'Height'#2#30#3'Top'#3'l'#1#5'Width'#2'Z'#7'Anchors'#11#7'akRig' - +'ht'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#6'Cancel'#9#7'Caption'#6#6 - +#206#242#236#229#237#224#4'Kind'#7#8'bkCancel'#11'ModalResult'#2#2#9'NumGlyp' + +'tScrollBar.Page'#3#143#1#13'ActiveControl'#7#16'TemplatesListBox'#7'Caption' + +#6#16'PathEditorDialog'#12'ClientHeight'#3#144#1#11'ClientWidth'#3#244#1#21 + +'Constraints.MinHeight'#3#144#1#20'Constraints.MinWidth'#3#244#1#8'OnCreate' + +#7#10'FormCreate'#8'OnResize'#7#10'FormResize'#8'Position'#7#14'poScreenCent' + +'er'#10'LCLVersion'#6#6'0.9.25'#0#9'TGroupBox'#12'PathGroupBox'#22'AnchorSid' + +'eLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSid' + +'eRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2 + +#6#6'Height'#3#194#0#3'Top'#2#6#5'Width'#3#232#1#7'Anchors'#11#5'akTop'#6'ak' + +'Left'#7'akRight'#0#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#19 + +'BorderSpacing.Right'#2#6#7'Caption'#6#12'PathGroupBox'#12'ClientHeight'#3 + +#176#0#11'ClientWidth'#3#228#1#8'TabOrder'#2#0#0#8'TSynEdit'#8'PathEdit'#22 + +'AnchorSideLeft.Control'#7#12'PathGroupBox'#21'AnchorSideTop.Control'#7#12'P' + +'athGroupBox'#23'AnchorSideRight.Control'#7#12'PathGroupBox'#20'AnchorSideRi' + +'ght.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#12'MoveUpButton'#4 + +'Left'#2#6#6'Height'#3#135#0#3'Top'#2#6#5'Width'#3#216#1#20'BorderSpacing.Ar' + +'ound'#2#6#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#11'Font' + +'.Height'#2#240#9'Font.Name'#6#7'courier'#11'ParentColor'#8#8'TabOrder'#2#0 + +#23'BookMarkOptions.Xoffset'#2#238#24'BookMarkOptions.OnChange'#13#14'Gutter' + +'.Visible'#8#15'Gutter.OnChange'#13#23'Gutter.CodeFoldingWidth'#2#14#10'Keys' + +'trokes'#14#1#7'Command'#2#3#8'ShortCut'#2'&'#0#1#7'Command'#2'g'#8'ShortCut' + +#3'& '#0#1#7'Command'#3#211#0#8'ShortCut'#3'&@'#0#1#7'Command'#2#4#8'ShortCu' + +'t'#2'('#0#1#7'Command'#2'h'#8'ShortCut'#3'( '#0#1#7'Command'#3#212#0#8'Shor' + +'tCut'#3'(@'#0#1#7'Command'#2#1#8'ShortCut'#2'%'#0#1#7'Command'#2'e'#8'Short' + +'Cut'#3'% '#0#1#7'Command'#2#5#8'ShortCut'#3'%@'#0#1#7'Command'#2'i'#8'Short' + +'Cut'#3'%`'#0#1#7'Command'#2#2#8'ShortCut'#2''''#0#1#7'Command'#2'f'#8'Short' + +'Cut'#3''' '#0#1#7'Command'#2#6#8'ShortCut'#3'''@'#0#1#7'Command'#2'j'#8'Sho' + +'rtCut'#3'''`'#0#1#7'Command'#2#10#8'ShortCut'#2'"'#0#1#7'Command'#2'n'#8'Sh' + +'ortCut'#3'" '#0#1#7'Command'#2#14#8'ShortCut'#3'"@'#0#1#7'Command'#2'r'#8'S' + +'hortCut'#3'"`'#0#1#7'Command'#2#9#8'ShortCut'#2'!'#0#1#7'Command'#2'm'#8'Sh' + +'ortCut'#3'! '#0#1#7'Command'#2#13#8'ShortCut'#3'!@'#0#1#7'Command'#2'q'#8'S' + +'hortCut'#3'!`'#0#1#7'Command'#2#7#8'ShortCut'#2'$'#0#1#7'Command'#2'k'#8'Sh' + +'ortCut'#3'$ '#0#1#7'Command'#2#15#8'ShortCut'#3'$@'#0#1#7'Command'#2's'#8'S' + +'hortCut'#3'$`'#0#1#7'Command'#2#8#8'ShortCut'#2'#'#0#1#7'Command'#2'l'#8'Sh' + +'ortCut'#3'# '#0#1#7'Command'#2#16#8'ShortCut'#3'#@'#0#1#7'Command'#2't'#8'S' + +'hortCut'#3'#`'#0#1#7'Command'#3#223#0#8'ShortCut'#2'-'#0#1#7'Command'#3#201 + +#0#8'ShortCut'#3'-@'#0#1#7'Command'#3'\'#2#8'ShortCut'#3'- '#0#1#7'Command'#3 + +#246#1#8'ShortCut'#2'.'#0#1#7'Command'#3'['#2#8'ShortCut'#3'. '#0#1#7'Comman' + +'d'#3#245#1#8'ShortCut'#2#8#0#1#7'Command'#3#245#1#8'ShortCut'#3#8' '#0#1#7 + +'Command'#3#248#1#8'ShortCut'#3#8'@'#0#1#7'Command'#3'Y'#2#8'ShortCut'#4#8 + +#128#0#0#0#1#7'Command'#3'Z'#2#8'ShortCut'#4#8#160#0#0#0#1#7'Command'#3#253#1 + +#8'ShortCut'#2#13#0#1#7'Command'#3#199#0#8'ShortCut'#3'A@'#0#1#7'Command'#3 + +#201#0#8'ShortCut'#3'C@'#0#1#7'Command'#3'b'#2#8'ShortCut'#3'I`'#0#1#7'Comma' + +'nd'#3#253#1#8'ShortCut'#3'M@'#0#1#7'Command'#3#254#1#8'ShortCut'#3'N@'#0#1#7 + +'Command'#3#247#1#8'ShortCut'#3'T@'#0#1#7'Command'#3'c'#2#8'ShortCut'#3'U`'#0 + +#1#7'Command'#3'\'#2#8'ShortCut'#3'V@'#0#1#7'Command'#3'['#2#8'ShortCut'#3'X' + +'@'#0#1#7'Command'#3#251#1#8'ShortCut'#3'Y@'#0#1#7'Command'#3#250#1#8'ShortC' + +'ut'#3'Y`'#0#1#7'Command'#3'Y'#2#8'ShortCut'#3'Z@'#0#1#7'Command'#3'Z'#2#8'S' + +'hortCut'#3'Z`'#0#1#7'Command'#3'-'#1#8'ShortCut'#3'0@'#0#1#7'Command'#3'.'#1 + +#8'ShortCut'#3'1@'#0#1#7'Command'#3'/'#1#8'ShortCut'#3'2@'#0#1#7'Command'#3 + +'0'#1#8'ShortCut'#3'3@'#0#1#7'Command'#3'1'#1#8'ShortCut'#3'4@'#0#1#7'Comman' + +'d'#3'2'#1#8'ShortCut'#3'5@'#0#1#7'Command'#3'3'#1#8'ShortCut'#3'6@'#0#1#7'C' + +'ommand'#3'4'#1#8'ShortCut'#3'7@'#0#1#7'Command'#3'5'#1#8'ShortCut'#3'8@'#0#1 + +#7'Command'#3'6'#1#8'ShortCut'#3'9@'#0#1#7'Command'#3'_'#1#8'ShortCut'#3'0`' + +#0#1#7'Command'#3'`'#1#8'ShortCut'#3'1`'#0#1#7'Command'#3'a'#1#8'ShortCut'#3 + +'2`'#0#1#7'Command'#3'b'#1#8'ShortCut'#3'3`'#0#1#7'Command'#3'c'#1#8'ShortCu' + +'t'#3'4`'#0#1#7'Command'#3'd'#1#8'ShortCut'#3'5`'#0#1#7'Command'#3'e'#1#8'Sh' + +'ortCut'#3'6`'#0#1#7'Command'#3'f'#1#8'ShortCut'#3'7`'#0#1#7'Command'#3'g'#1 + +#8'ShortCut'#3'8`'#0#1#7'Command'#3'h'#1#8'ShortCut'#3'9`'#0#1#7'Command'#3 + +#231#0#8'ShortCut'#3'N`'#0#1#7'Command'#3#232#0#8'ShortCut'#3'C`'#0#1#7'Comm' + +'and'#3#233#0#8'ShortCut'#3'L`'#0#1#7'Command'#3'd'#2#8'ShortCut'#2#9#0#1#7 + +'Command'#3'e'#2#8'ShortCut'#3#9' '#0#1#7'Command'#3#250#0#8'ShortCut'#3'B`' + +#0#0#13'Lines.Strings'#1#6#8'PathEdit'#0#7'Options'#11#17'eoDragDropEditing' + ,#16'eoHalfPageScroll'#17'eoScrollByOneLess'#15'eoScrollPastEol'#11'eoSmartTa' + +'bs'#14'eoTabsToSpaces'#20'eoTrimTrailingSpaces'#18'eoBracketHighlight'#17'e' + +'oHideRightMargin'#0#22'SelectedColor.OnChange'#13#0#0#7'TButton'#12'MoveUpB' + +'utton'#22'AnchorSideLeft.Control'#7#12'PathGroupBox'#24'AnchorSideBottom.Co' + +'ntrol'#7#12'PathGroupBox'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#2 + +#6#6'Height'#2#23#3'Top'#3#147#0#5'Width'#2'b'#7'Anchors'#11#6'akLeft'#8'akB' + +'ottom'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#12'MoveUpB' + +'utton'#7'OnClick'#7#17'MoveUpButtonClick'#8'TabOrder'#2#1#0#0#7'TButton'#14 + +'MoveDownButton'#22'AnchorSideLeft.Control'#7#12'MoveUpButton'#19'AnchorSide' + +'Left.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#12'PathGroupBox'#21 + +'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#2'n'#6'Height'#2#23#3'Top'#3 + +#147#0#5'Width'#2'p'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#8'AutoSize'#9#20 + +'BorderSpacing.Around'#2#6#7'Caption'#6#14'MoveDownButton'#7'OnClick'#7#19'M' + +'oveDownButtonClick'#8'TabOrder'#2#2#0#0#7'TButton'#12'BrowseButton'#22'Anch' + +'orSideLeft.Control'#7#14'MoveDownButton'#19'AnchorSideLeft.Side'#7#9'asrBot' + +'tom'#24'AnchorSideBottom.Control'#7#12'PathGroupBox'#21'AnchorSideBottom.Si' + +'de'#7#9'asrBottom'#4'Left'#3#228#0#6'Height'#2#23#3'Top'#3#147#0#5'Width'#2 + +'\'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#8'AutoSize'#9#20'BorderSpacing.Aro' + +'und'#2#6#7'Caption'#6#12'BrowseButton'#7'OnClick'#7#17'BrowseButtonClick'#8 + +'TabOrder'#2#3#0#0#7'TButton'#12'DeleteButton'#22'AnchorSideLeft.Control'#7 + +#12'BrowseButton'#19'AnchorSideLeft.Side'#7#9'asrBottom'#24'AnchorSideBottom' + +'.Control'#7#12'PathGroupBox'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Lef' + +'t'#3'F'#1#6'Height'#2#23#3'Top'#3#147#0#5'Width'#2'X'#7'Anchors'#11#6'akLef' + +'t'#8'akBottom'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#12 + +'DeleteButton'#7'OnClick'#7#17'DeleteButtonClick'#8'TabOrder'#2#4#0#0#0#9'TG' + +'roupBox'#16'TemplateGroupBox'#22'AnchorSideLeft.Control'#7#5'Owner'#21'Anch' + +'orSideTop.Control'#7#12'PathGroupBox'#18'AnchorSideTop.Side'#7#9'asrBottom' + +#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBott' + +'om'#24'AnchorSideBottom.Control'#7#8'OKBitBtn'#4'Left'#2#6#6'Height'#3#152#0 + +#3'Top'#3#206#0#5'Width'#3#232#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight' + +#8'akBottom'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#16'TemplateGroupBox' + +#12'ClientHeight'#3#134#0#11'ClientWidth'#3#228#1#8'TabOrder'#2#1#0#8'TListB' + +'ox'#16'TemplatesListBox'#22'AnchorSideLeft.Control'#7#16'TemplateGroupBox' + +#21'AnchorSideTop.Control'#7#16'TemplateGroupBox'#23'AnchorSideRight.Control' + +#7#16'TemplateGroupBox'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSid' + +'eBottom.Control'#7#17'AddTemplateButton'#4'Left'#2#6#6'Height'#2']'#3'Top'#2 + +#6#5'Width'#3#216#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0 + +#20'BorderSpacing.Around'#2#6#11'MultiSelect'#9#10'OnDblClick'#7#24'Template' + +'sListBoxDblClick'#8'TabOrder'#2#0#0#0#7'TButton'#17'AddTemplateButton'#22'A' + +'nchorSideLeft.Control'#7#16'TemplateGroupBox'#24'AnchorSideBottom.Control'#7 + +#16'TemplateGroupBox'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#2#6#6 + +'Height'#2#23#3'Top'#2'i'#5'Width'#2'x'#7'Anchors'#11#6'akLeft'#8'akBottom'#0 + +#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#17'AddTemplateButto' + +'n'#7'OnClick'#7#22'AddTemplateButtonClick'#8'TabOrder'#2#1#0#0#0#7'TBitBtn' + +#8'OKBitBtn'#23'AnchorSideRight.Control'#7#12'CancelBitBtn'#24'AnchorSideBot' + +'tom.Control'#7#5'Owner'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#3 + +'4'#1#6'Height'#2#30#3'Top'#3'l'#1#5'Width'#2'Z'#7'Anchors'#11#7'akRight'#8 + +'akBottom'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#5'&'#195#142#195#138#7 + +'Default'#9#4'Kind'#7#4'bkOK'#11'ModalResult'#2#1#9'NumGlyphs'#2#0#8'TabOrde' + +'r'#2#2#0#0#7'TBitBtn'#12'CancelBitBtn'#23'AnchorSideRight.Control'#7#5'Owne' + +'r'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#5 + +'Owner'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#3#148#1#6'Height'#2 + +#30#3'Top'#3'l'#1#5'Width'#2'Z'#7'Anchors'#11#7'akRight'#8'akBottom'#0#20'Bo' + +'rderSpacing.Around'#2#6#6'Cancel'#9#7'Caption'#6#12#195#142#195#178#195#172 + +#195#165#195#173#195#160#4'Kind'#7#8'bkCancel'#11'ModalResult'#2#2#9'NumGlyp' +'hs'#2#0#8'TabOrder'#2#3#0#0#22'TSelectDirectoryDialog'#12'BrowseDialog'#7'O' +'ptions'#11#15'ofFileMustExist'#14'ofEnableSizing'#12'ofViewDetail'#0#4'left' +#3#184#1#3'top'#3#168#0#0#0#0 diff --git a/ide/patheditordlg.pas b/ide/patheditordlg.pas index 644dd30296..f67f300db3 100644 --- a/ide/patheditordlg.pas +++ b/ide/patheditordlg.pas @@ -55,6 +55,7 @@ type procedure FormResize(Sender: TObject); procedure MoveDownButtonClick(Sender: TObject); procedure MoveUpButtonClick(Sender: TObject); + procedure TemplatesListBoxDblClick(Sender: TObject); private function GetPath: string; function GetTemplates: string; @@ -188,6 +189,17 @@ begin end; end; +procedure TPathEditorDialog.TemplatesListBoxDblClick(Sender: TObject); +var i: integer; +begin + i := TemplatesListBox.ItemIndex; + if i>=0 then begin + PathEdit.Lines.Add(TemplatesListBox.Items[i]); + PathEdit.CaretY:=PathEdit.Lines.Count; + SelectCurrentPath; + end; +end; + function TPathEditorDialog.GetPath: string; begin Result:=TextToPath(PathEdit.Text);