From 713bd9d4390b4fa166006d0b5ef7a67789728dea Mon Sep 17 00:00:00 2001 From: mattias Date: Thu, 5 Feb 2009 13:02:56 +0000 Subject: [PATCH] IDE: added resourcestrings git-svn-id: trunk@18580 - --- ide/lazarusidestrconsts.pas | 5 +++++ .../frames/compiler_buildmodes_options.lfm | 5 +++-- .../frames/compiler_buildmodes_options.lrs | 14 ++++++------- .../frames/compiler_buildmodes_options.pas | 21 +++++++++++++------ 4 files changed, 30 insertions(+), 15 deletions(-) diff --git a/ide/lazarusidestrconsts.pas b/ide/lazarusidestrconsts.pas index a30cc3e668..86f187fe49 100644 --- a/ide/lazarusidestrconsts.pas +++ b/ide/lazarusidestrconsts.pas @@ -4038,6 +4038,11 @@ resourcestring lisDeleteBuildMode = 'Delete build mode %s%s%s?'; lisValue2 = 'Value%s'; lisDeleteValue = 'Delete value %s%s%s'; + lisInvalidBuildModeTheBuildModeMustBeAPascalIdentifie = 'Invalid build ' + +'mode %s%s%s. The build mode must be a pascal identifier.'; + lisThereIsAlreadyABuildModeWithTheName = 'There is already a build mode ' + +'with the name %s%s%s.'; + lisDuplicateFoundOfValue = 'Duplicate found of value %s%s%s.'; implementation diff --git a/packager/frames/compiler_buildmodes_options.lfm b/packager/frames/compiler_buildmodes_options.lfm index 69dbaca99b..52a4e3364a 100644 --- a/packager/frames/compiler_buildmodes_options.lfm +++ b/packager/frames/compiler_buildmodes_options.lfm @@ -7,8 +7,8 @@ object CompOptBuildModesFrame: TCompOptBuildModesFrame ClientWidth = 488 TabOrder = 0 Visible = False - DesignLeft = 344 - DesignTop = 496 + DesignLeft = 349 + DesignTop = 520 object BuildModesGroupBox: TGroupBox Left = 0 Height = 229 @@ -31,6 +31,7 @@ object CompOptBuildModesFrame: TCompOptBuildModesFrame TabOrder = 0 OnEdited = BuildModesTreeViewEdited OnEditing = BuildModesTreeViewEditing + OnStartDrag = BuildModesTreeViewStartDrag Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoRightClickSelect, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips] end end diff --git a/packager/frames/compiler_buildmodes_options.lrs b/packager/frames/compiler_buildmodes_options.lrs index 2f90bf0b3f..3cc882eb37 100644 --- a/packager/frames/compiler_buildmodes_options.lrs +++ b/packager/frames/compiler_buildmodes_options.lrs @@ -3,17 +3,17 @@ LazarusResources.Add('TCompOptBuildModesFrame','FORMDATA',[ 'TPF0'#23'TCompOptBuildModesFrame'#22'CompOptBuildModesFrame'#4'Left'#2#0#6'H' +'eight'#3#233#0#3'Top'#2#0#5'Width'#3#236#1#12'ClientHeight'#3#229#0#11'Clie' - +'ntWidth'#3#232#1#8'TabOrder'#2#0#7'Visible'#8#10'DesignLeft'#3'X'#1#9'Desig' - +'nTop'#3#240#1#0#9'TGroupBox'#18'BuildModesGroupBox'#4'Left'#2#0#6'Height'#3 + +'ntWidth'#3#232#1#8'TabOrder'#2#0#7'Visible'#8#10'DesignLeft'#3']'#1#9'Desig' + +'nTop'#3#8#2#0#9'TGroupBox'#18'BuildModesGroupBox'#4'Left'#2#0#6'Height'#3 +#229#0#3'Top'#2#0#5'Width'#3#232#1#5'Align'#7#8'alClient'#7'Caption'#6#18'Bu' +'ildModesGroupBox'#12'ClientHeight'#3#210#0#11'ClientWidth'#3#228#1#8'TabOrd' +'er'#2#0#0#9'TTreeView'#18'BuildModesTreeView'#4'Left'#2#0#6'Height'#3#210#0 +#3'Top'#2#0#5'Width'#3#228#1#5'Align'#7#8'alClient'#17'DefaultItemHeight'#2 +#19#9'PopupMenu'#7#20'BuildModeTVPopupMenu'#16'RightClickSelect'#9#8'TabOrde' +'r'#2#0#8'OnEdited'#7#24'BuildModesTreeViewEdited'#9'OnEditing'#7#25'BuildMo' - +'desTreeViewEditing'#7'Options'#11#17'tvoAutoItemHeight'#16'tvoHideSelection' - +#21'tvoKeepCollapsedNodes'#19'tvoRightClickSelect'#14'tvoShowButtons'#12'tvo' - +'ShowLines'#11'tvoShowRoot'#11'tvoToolTips'#0#0#0#0#10'TPopupMenu'#20'BuildM' - +'odeTVPopupMenu'#7'OnPopup'#7#25'BuildModeTVPopupMenuPopup'#4'left'#2'c'#3't' - +'op'#2'M'#0#0#0 + +'desTreeViewEditing'#11'OnStartDrag'#7#27'BuildModesTreeViewStartDrag'#7'Opt' + +'ions'#11#17'tvoAutoItemHeight'#16'tvoHideSelection'#21'tvoKeepCollapsedNode' + +'s'#19'tvoRightClickSelect'#14'tvoShowButtons'#12'tvoShowLines'#11'tvoShowRo' + +'ot'#11'tvoToolTips'#0#0#0#0#10'TPopupMenu'#20'BuildModeTVPopupMenu'#7'OnPop' + +'up'#7#25'BuildModeTVPopupMenuPopup'#4'left'#2'c'#3'top'#2'M'#0#0#0 ]); diff --git a/packager/frames/compiler_buildmodes_options.pas b/packager/frames/compiler_buildmodes_options.pas index 639cc4e7b2..a4c28b46b0 100644 --- a/packager/frames/compiler_buildmodes_options.pas +++ b/packager/frames/compiler_buildmodes_options.pas @@ -48,6 +48,8 @@ type var S: string); procedure BuildModesTreeViewEditing(Sender: TObject; Node: TTreeNode; var AllowEdit: Boolean); + procedure BuildModesTreeViewStartDrag(Sender: TObject; + var DragObject: TDragObject); procedure BuildModeTVPopupMenuPopup(Sender: TObject); procedure DeleteBuildModeClick(Sender: TObject); procedure NewBuildModeClick(Sender: TObject); @@ -202,6 +204,12 @@ begin AllowEdit:=NodeType in [cbmntBuildMode,cbmntValue]; end; +procedure TCompOptBuildModesFrame.BuildModesTreeViewStartDrag(Sender: TObject; + var DragObject: TDragObject); +begin + +end; + procedure TCompOptBuildModesFrame.BuildModesTreeViewEdited(Sender: TObject; Node: TTreeNode; var S: string); var @@ -217,8 +225,9 @@ begin if S<>BuildMode.Identifier then begin // rename build mode if (S='') or (not IsValidIdent(S)) then begin - MessageDlg('Error', - 'Invalid build mode "'+S+'". The build mode must be a pascal identifier.', + MessageDlg(lisCCOErrorCaption, + Format(lisInvalidBuildModeTheBuildModeMustBeAPascalIdentifie, ['"', + S, '"']), mtError,[mbCancel],0); S:=BuildMode.Identifier; exit; @@ -226,8 +235,8 @@ begin ConflictBuildMode:=BuildModes.ModeWithIdentifier(S); if (ConflictBuildMode<>nil) and (ConflictBuildMode<>BuildMode) then begin - MessageDlg('Error', - 'There is already a build mode with the name "'+S+'".', + MessageDlg(lisCCOErrorCaption, + Format(lisThereIsAlreadyABuildModeWithTheName, ['"', S, '"']), mtError,[mbCancel],0); S:=BuildMode.Identifier; exit; @@ -240,8 +249,8 @@ begin Index:=Node.Index; Index:=BuildMode.Values.IndexOf(S); if (Index>=0) and (Index<>Node.Index) then begin - MessageDlg('Error', - 'Duplicate found of value "'+S+'".', + MessageDlg(lisCCOErrorCaption, + Format(lisDuplicateFoundOfValue, ['"', S, '"']), mtError,[mbCancel],0); S:=BuildMode.Values[Node.Index]; exit;