paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 09:59:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: added resourcestrings

Browse Source 
git-svn-id: trunk@21423 -
This commit is contained in:
mattias 2009-08-23 12:55:04 +00:00
parent d5a845d99d
commit 07f4f08699
2 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/lazarusidestrconsts.pas
View File

@ -1050,6 +1050,7 @@ resourcestring
lisAlways = 'Always'; lisAlways = 'Always';
dlgAmbigWarn = 'Warn on compile'; dlgAmbigWarn = 'Warn on compile';
dlgIgnoreVerb = 'Ignore'; dlgIgnoreVerb = 'Ignore';
lisAlwaysIgnore = 'Always ignore';
// OI colors // OI colors
dlgBackColor = 'Background'; dlgBackColor = 'Background';
dlgSubPropColor = 'SubProperties'; dlgSubPropColor = 'SubProperties';
@ -1688,6 +1689,10 @@ resourcestring
+'abstract methods of the current class, because'; +'abstract methods of the current class, because';
lisCCOUnableToGetFileDate = 'Unable to get file date of %s.'; lisCCOUnableToGetFileDate = 'Unable to get file date of %s.';
lisCCOWarningCaption = 'Warning'; lisCCOWarningCaption = 'Warning';
lisTheProjectDoesNotUseTheLCLUnitInterfacesButItSeems = 'The project does '
+'not use the LCL unit interfaces, but it seems it needs it.%sYou will '
+'get strange linker errors if you use the LCL forms without interfaces.';
lisAddUnitInterfaces = 'Add unit interfaces';
lisCCODatesDiffer = 'The dates of the .ppu files of FPC' lisCCODatesDiffer = 'The dates of the .ppu files of FPC'
+' differ more than one hour.%s' +' differ more than one hour.%s'
+'This can mean, they are from two different installations.%s' +'This can mean, they are from two different installations.%s'

9
ide/main.pp
View File

@ -9500,11 +9500,10 @@ begin
exit; exit;
// project uses lcl unit Forms, but not unit interfaces // project uses lcl unit Forms, but not unit interfaces
// this will result in strange linker error // this will result in strange linker error
MsgResult:=IDEQuestionDialog('Warning', MsgResult:=IDEQuestionDialog(lisCCOWarningCaption,
'The project does not use the LCL unit interfaces, but it seems it needs it.'#13 Format(lisTheProjectDoesNotUseTheLCLUnitInterfacesButItSeems, [#13])
+'You will get strange linker errors if you use the LCL forms without interfaces.' , mtWarning, [mrYes, lisAddUnitInterfaces, mrNo, dlgIgnoreVerb,
,mtWarning,[mrYes,'Add unit interfaces',mrNo,'Ignore', mrNoToAll, lisAlwaysIgnore, mrCancel]);
mrNoToAll,'Always ignore',mrCancel]);
case MsgResult of case MsgResult of
mrNo: exit; mrNo: exit;
mrNoToAll: begin Project1.SkipCheckLCLInterfaces:=true; exit; end; mrNoToAll: begin Project1.SkipCheckLCLInterfaces:=true; exit; end;