IDE: improved custom form editor localization

git-svn-id: trunk@29596 -

ide/customformeditor.pp

@@ -40,7 +40,7 @@ uses
 {$ENDIF}
   // LCL+FCL
   Classes, SysUtils, TypInfo, Math, LCLIntf, LCLType, LResources,
-  AVL_Tree, LCLMemManager,
+  AVL_Tree, LCLMemManager, FileUtil,
   LCLProc, Graphics, Controls, Forms, Menus, Dialogs,
   // IDEIntf
   PropEdits, PropEditUtils, ObjectInspector, IDECommands, FormEditingIntf,
@@ -349,10 +349,9 @@ Begin
       DebugLn('TryFreeComponent ERROR:',
         ' "'+OldName+':'+OldClassName+'" ',E.Message);
       DumpExceptionBackTrace;
-      MessageDlg('Error',
+      MessageDlg(lisCCOErrorCaption,
-        'An exception occured during deletion of'#13
+        Format(lisCFEAnExceptionOccuredDuringDeletionOf, [#13, OldName,
-        +'"'+OldName+':'+OldClassName+'"'#13
+          OldClassName, #13, E.Message]),
-        +E.Message,
         mtError,[mbOk],0);
     end;
   end;
@@ -475,7 +474,9 @@ Begin
       // free/unbind a non form component and its designer form
       AForm:=GetDesignerForm(AComponent);
       if (AForm<>nil) and (not (AForm is TCustomNonFormDesignerForm)) then
-        RaiseException('TCustomFormEditor.DeleteComponent  Where is the TCustomNonFormDesignerForm? '+AComponent.ClassName);
+        RaiseException(Format(
+          lisCFETCustomFormEditorDeleteComponentWhereIsTheTCustomN, [AComponent.
+          ClassName]));
 
       if (AForm <> nil) and (AForm is TCustomNonFormDesignerForm) then
       begin
@@ -559,9 +560,9 @@ begin
     Selection:=ASelection;
   except
     on E: Exception do begin
-      MessageDlg('Error',
+      MessageDlg(lisCCOErrorCaption,
-        'Unable to clear the form editing selection'#13
+        Format(lisCFEUnableToClearTheFormEditingSelection, [#13, E.Message]),
-        +E.Message,mtError,[mbCancel],0);
+          mtError, [mbCancel], 0);
     end;
   end;
   ASelection.Free;
@@ -584,8 +585,8 @@ begin
   end;
   Result:=Selection.Count=0;
   if Selection.Count>0 then begin
-    MessageDlg('Error',
+    MessageDlg(lisCCOErrorCaption,
-      'Do not know how to delete this form editing selection',
+      lisCFEDoNotKnowHowToDeleteThisFormEditingSelection,
       mtError,[mbCancel],0);
   end;
 end;
@@ -606,8 +607,8 @@ begin
   end;
   Result:=Selection.Count=0;
   if Selection.Count>0 then begin
-    MessageDlg('Error',
+    MessageDlg(lisCCOErrorCaption,
-      'Do not know how to copy this form editing selection',
+      lisCFEDoNotKnowHowToCopyThisFormEditingSelection,
       mtError,[mbCancel],0);
   end;
 end;
@@ -628,8 +629,8 @@ begin
   end;
   Result:=Selection.Count=0;
   if Selection.Count>0 then begin
-    MessageDlg('Error',
+    MessageDlg(lisCCOErrorCaption,
-      'Do not know how to cut this form editing selection',
+      lisCFEDoNotKnowHowToCutThisFormEditingSelection,
       mtError,[mbCancel],0);
   end;
 end;
@@ -728,7 +729,7 @@ var
   MediatorClass: TDesignerMediatorClass;
 begin
   if FindNonFormFormNode(LookupRoot) <> nil then
-    RaiseException('TCustomFormEditor.CreateNonFormForm already exists');
+    RaiseException(lisCFETCustomFormEditorCreateNonFormFormAlreadyExists);
   if LookupRoot is TComponent then
   begin
     if LookupRoot is TCustomFrame then
@@ -746,8 +747,8 @@ begin
         TNonControlDesignerForm(Result).Mediator:=MediatorClass.CreateMediator(nil,LookupRoot);
     end;
   end else
-    RaiseException('TCustomFormEditor.CreateNonFormForm Unknown type '
+    RaiseException(Format(lisCFETCustomFormEditorCreateNonFormFormUnknownType, [
-      +LookupRoot.ClassName);
+      LookupRoot.ClassName]));
 end;
 
 procedure TCustomFormEditor.RenameJITComponent(AComponent: TComponent;
@@ -1037,7 +1038,9 @@ procedure TCustomFormEditor.RegisterDesignerMediator(
   MediatorClass: TDesignerMediatorClass);
 begin
   if FDesignerMediatorClasses.IndexOf(MediatorClass)>=0 then
-    raise Exception.Create('TCustomFormEditor.RegisterDesignerMediator already registered: '+DbgSName(MediatorClass));
+    raise Exception.Create(Format(
+      lisCFETCustomFormEditorRegisterDesignerMediatorAlreadyRe, [DbgSName(
+      MediatorClass)]));
   FDesignerMediatorClasses.Add(MediatorClass);
   RegisterDesignerBaseClass(MediatorClass.FormClass);
 end;
@@ -1150,18 +1153,18 @@ begin
       except
         on e: Exception do begin
           DumpExceptionBackTrace;
-          MessageDlg('Error creating component',
+          MessageDlg(lisCFEErrorCreatingComponent,
-            'Error creating component: '+TypeClass.ClassName+#13+E.Message,
+            Format(lisCFEErrorCreatingComponent2, [TypeClass.ClassName, #13, E.
+              Message]),
             mtError,[mbCancel],0);
           exit;
         end;
       end;
       // check if Owner was properly set
       if NewComponent.Owner <> OwnerComponent then begin
-        MessageDlg('Invalid component owner',
+        MessageDlg(lisCFEInvalidComponentOwner,
-          'The component of type '+NewComponent.ClassName
+          Format(lisCFETheComponentOfTypeFailedToSetItsOwnerTo, [NewComponent.
-          +' failed to set its owner to '
+            ClassName, OwnerComponent.Name, OwnerComponent.ClassName]),
-          +OwnerComponent.Name+':'+OwnerComponent.ClassName,
           mtError,[mbCancel],0);
         exit;
       end;
@@ -1335,12 +1338,11 @@ begin
         FreeAndNil(Mediator);
       except
         on E: Exception do begin
-          s:='Error destroying mediator '+Mediator.ClassName
+          s:=Format(lisCFEErrorDestroyingMediatorOfUnit, [Mediator.ClassName,
-            +' of unit '+AUnitName+':'#13
+            AUnitName, #13, E.Message]);
-            +E.Message;
+          DebugLn(['TCustomFormEditor.CreateComponent ',UTF8ToConsole(s)]);
-          DebugLn(['TCustomFormEditor.CreateComponent ',s]);
           DumpExceptionBackTrace;
-          MessageDlg('Error destroying mediator',s,mtError,[mbCancel],0);
+          MessageDlg(lisCFEErrorDestroyingMediator, s, mtError, [mbCancel], 0);
         end;
       end;
     end;
@@ -1351,12 +1353,12 @@ begin
           NewComponent:=nil;
         except
           on E: Exception do begin
-            s:='Error destroying component of type '+TypeClass.ClassName
+            s:=Format(lisCFEErrorDestroyingComponentOfTypeOfUnit, [TypeClass.
-              +' of unit '+AUnitName+':'#13
+              ClassName, AUnitName, #13, E.Message]);
-              +E.Message;
+            DebugLn(['TCustomFormEditor.CreateComponent ',UTF8ToConsole(s)]);
-            DebugLn(['TCustomFormEditor.CreateComponent ',s]);
             DumpExceptionBackTrace;
-            MessageDlg('Error destroying component',s,mtError,[mbCancel],0);
+            MessageDlg(lisCFEErrorDestroyingComponent, s, mtError, [mbCancel], 0
+              );
           end;
         end;
       end;
@@ -1822,28 +1824,30 @@ begin
     end;
   end;
   if LFMFilename<>'' then
-    aCaption:='Error reading '+ExtractFilename(LFMFilename);
+    aCaption:=Format(lisCFEErrorReading, [ExtractFilename(LFMFilename)]);
   
   with JITComponentList do begin
     if LFMFilename<>'' then
       aMsg:=aMsg+LFMFilename
     else if CurReadStreamClass<>nil then
-      aMsg:=aMsg+'Stream='+CurReadStreamClass.ClassName
+      aMsg:=Format(lisCFEStream, [aMsg, CurReadStreamClass.ClassName])
     else
       aMsg:=aMsg+'JITList='+ClassName;
     aMsg:=aMsg+': ';
     if CurReadJITComponent<>nil then
-      aMsg:=aMsg+'Root='+CurReadJITComponent.Name+':'+CurReadJITComponent.ClassName;
+      aMsg:=Format(lisCFERoot, [aMsg, CurReadJITComponent.Name,
+        CurReadJITComponent.ClassName]);
     if CurReadChild<>nil then
-      aMsg:=aMsg+#13'Component: '
+      aMsg:=Format(lisCFEComponent, [aMsg, #13, CurReadChild.Name, CurReadChild.
-        +CurReadChild.Name+':'+CurReadChild.ClassName
+        ClassName])
     else if CurReadChildClass<>nil then
-      aMsg:=aMsg+#13'Component Class: '+CurReadChildClass.ClassName;
+      aMsg:=Format(lisCFEComponentClass, [aMsg, #13, CurReadChildClass.ClassName
+        ]);
     aMsg:=aMsg+#13+CurReadErrorMsg;
   end;
   if (Reader<>nil) and (Reader.Driver is TLRSObjectReader) then begin
     ErrorBinPos:=TLRSObjectReader(Reader.Driver).Stream.Position;
-    aMsg:=aMsg+#13+'Stream position: '+dbgs(ErrorBinPos);
+    aMsg:=Format(lisCFEStreamPosition, [aMsg, #13, dbgs(ErrorBinPos)]);
   end;
 
   case ErrorType of
@@ -1853,18 +1857,19 @@ begin
       end;
     jfeUnknownComponentClass:
       begin
-        aMsg:=aMsg+#13+'Class "'+JITComponentList.CurUnknownClass+'" not found.';
+        aMsg:=Format(lisCFEClassNotFound, [aMsg, #13, JITComponentList.
+          CurUnknownClass]);
       end;
   end;
   if Buttons=[mbIgnore,mbCancel] then begin
     Action:=QuestionDlg(aCaption,aMsg,DlgType,
-      [mrIgnore,'Continue loading',
+      [mrIgnore, lisCFEContinueLoading,
-       mrCancel,'Cancel loading this resource',
+       mrCancel, lisCFECancelLoadingThisResource,
-       mrAbort,'Stop all loading'],HelpCtx);
+       mrAbort, lisCFEStopAllLoading], HelpCtx);
   end else begin
     Action:=QuestionDlg(aCaption,aMsg,DlgType,
-      [mrCancel,'Cancel loading this resource',
+      [mrCancel, lisCFECancelLoadingThisResource,
-       mrAbort,'Stop all loading'],HelpCtx);
+       mrAbort, lisCFEStopAllLoading], HelpCtx);
   end;
 end;
 
@@ -1903,12 +1908,12 @@ begin
     LFMFilename:=ChangeFileExt(TUnitInfo(List.ContextObject).Filename,'.lfm');
   end;
   if LFMFilename<>'' then
-    Msg:=Msg+'In file '+LFMFilename+#13;
+    Msg:=Format(lisCFEInFile, [Msg, LFMFilename, #13]);
 
   if List.CurReadErrorMsg<>'' then
     Msg:=Msg+List.CurReadErrorMsg+#13;
   if E is EReadError then;
-  MessageDlg('Read error',Msg,mtError,[mbCancel],0);
+  MessageDlg(lisCodeToolsDefsReadError, Msg, mtError, [mbCancel], 0);
 end;
 
 procedure TCustomFormEditor.OnDesignerMenuItemClick(Sender: TObject);
@@ -1927,10 +1932,9 @@ begin
   except
     on E: Exception do begin
       DebugLn('TCustomFormEditor.OnDesignerMenuItemClick ERROR: ',E.Message);
-      MessageDlg('Error in '+CompEditor.ClassName,
+      MessageDlg(Format(lisErrorIn, [CompEditor.ClassName]),
-        'The component editor of class "'+CompEditor.ClassName+'"'
+        Format(lisCFETheComponentEditorOfClassHasCreatedTheError, [CompEditor.
-        +'has created the error:'#13
+          ClassName, #13, E.Message]),
-        +'"'+E.Message+'"',
         mtError,[mbOk],0);
     end;
   end;

ide/lazarusidestrconsts.pas

@@ -5180,6 +5180,50 @@ resourcestring
   lisInsteadOfCompilePackageCreateASimpleMakefile = 'Instead of compile '
     +'package create a simple Makefile.';
 
+  // Custom form editor
+  lisCFEAnExceptionOccuredDuringDeletionOf = 'An exception occured during '
+    +'deletion of%s"%s:%s"%s%s';
+  lisCFETCustomFormEditorDeleteComponentWhereIsTheTCustomN = 'TCustomFormEditor'
+    +'.DeleteComponent  Where is the TCustomNonFormDesignerForm? %s';
+  lisCFEUnableToClearTheFormEditingSelection = 'Unable to clear the form '
+    +'editing selection%s%s';
+  lisCFEDoNotKnowHowToDeleteThisFormEditingSelection = 'Do not know how to '
+    +'delete this form editing selection';
+  lisCFEDoNotKnowHowToCopyThisFormEditingSelection = 'Do not know how to copy '
+    +'this form editing selection';
+  lisCFEDoNotKnowHowToCutThisFormEditingSelection = 'Do not know how to cut '
+    +'this form editing selection';
+  lisCFETCustomFormEditorCreateNonFormFormUnknownType = 'TCustomFormEditor.'
+    +'CreateNonFormForm Unknown type %s';
+  lisCFETCustomFormEditorCreateNonFormFormAlreadyExists = 'TCustomFormEditor.'
+    +'CreateNonFormForm already exists';
+  lisCFETCustomFormEditorRegisterDesignerMediatorAlreadyRe = 'TCustomFormEditor'
+    +'.RegisterDesignerMediator already registered: %s';
+  lisCFEErrorCreatingComponent = 'Error creating component';
+  lisCFEErrorCreatingComponent2 = 'Error creating component: %s%s%s';
+  lisCFEInvalidComponentOwner = 'Invalid component owner';
+  lisCFETheComponentOfTypeFailedToSetItsOwnerTo = 'The component of type %s '
+    +'failed to set its owner to %s:%s';
+  lisCFEErrorDestroyingMediatorOfUnit = 'Error destroying mediator %s of '
+    +'unit %s:%s%s';
+  lisCFEErrorDestroyingMediator = 'Error destroying mediator';
+  lisCFEErrorDestroyingComponentOfTypeOfUnit = 'Error destroying component of '
+    +'type %s of unit %s:%s%s';
+  lisCFEErrorDestroyingComponent = 'Error destroying component';
+  lisCFEContinueLoading = 'Continue loading';
+  lisCFECancelLoadingThisResource = 'Cancel loading this resource';
+  lisCFEStopAllLoading = 'Stop all loading';
+  lisCFEErrorReading = 'Error reading %s';
+  lisCFEComponent = '%s%sComponent: %s:%s';
+  lisCFEComponentClass = '%s%sComponent Class: %s';
+  lisCFEStreamPosition = '%s%sStream position: %s';
+  lisCFEStream = '%sStream=%s';
+  lisCFERoot = '%sRoot=%s:%s';
+  lisCFEClassNotFound = '%s%sClass "%s" not found.';
+  lisCFEInFile = '%sIn file %s%s';
+  lisCFETheComponentEditorOfClassHasCreatedTheError = 'The component editor '
+    +'of class "%s"has created the error:%s"%s"';
+
 implementation
 
 end.