IDE: added resourcestrings

git-svn-id: trunk@18580 -

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
 

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

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
 ]);

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;