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

IDE: added resourcestrings

Browse Source 
git-svn-id: trunk@21003 -
This commit is contained in:
mattias 2009-07-29 10:35:23 +00:00
parent 1948d12c9d
commit f66b3f0c94
2 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/lazarusidestrconsts.pas
View File

@ -4393,6 +4393,12 @@ resourcestring
lisInheritedComponent = 'Inherited Component'; lisInheritedComponent = 'Inherited Component';
lisFrame = 'Frame'; lisFrame = 'Frame';
lisDataModule = 'Data Module'; lisDataModule = 'Data Module';
lisNoLFMFile = 'No LFM file';
lisThisFunctionNeedsAnOpenLfmFileInTheSourceEditor = 'This function needs '
+'an open .lfm file in the source editor.';
lisNoPascalFile = 'No pascal file';
lisUnableToFindPascalUnitPasPpForLfmFile = 'Unable to find pascal unit (.'
+'pas,.pp) for .lfm file%s%s%s%s';
implementation implementation

10
ide/main.pp
View File

@ -10420,8 +10420,8 @@ begin
GetCurrentUnit(LFMSrcEdit,LFMUnitInfo); GetCurrentUnit(LFMSrcEdit,LFMUnitInfo);
if (LFMUnitInfo=nil) if (LFMUnitInfo=nil)
or (CompareFileExt(LFMUnitInfo.Filename,'.lfm',false)<>0) then begin or (CompareFileExt(LFMUnitInfo.Filename,'.lfm',false)<>0) then begin
MessageDlg('No LFM file', MessageDlg(lisNoLFMFile,
'This function needs an open .lfm file in the source editor.', lisThisFunctionNeedsAnOpenLfmFileInTheSourceEditor,
mtError,[mbCancel],0); mtError,[mbCancel],0);
Result:=mrCancel; Result:=mrCancel;
exit; exit;
@ -10435,9 +10435,9 @@ begin
UnitFilename:=''; UnitFilename:='';
end; end;
if UnitFilename='' then begin if UnitFilename='' then begin
MessageDlg('No pascal file', MessageDlg(lisNoPascalFile,
'Unable to find pascal unit (.pas,.pp) for .lfm file'#13 Format(lisUnableToFindPascalUnitPasPpForLfmFile, [#13, '"',
+'"'+LFMUnitInfo.Filename+'"', LFMUnitInfo.Filename, '"']),
mtError,[mbCancel],0); mtError,[mbCancel],0);
Result:=mrCancel; Result:=mrCancel;
exit; exit;