mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-12-16 02:20:30 +01:00
Converter: improve a message little.
git-svn-id: trunk@28919 -
This commit is contained in:
parent
45134ce005
commit
2cf15714e5
@ -596,7 +596,7 @@ var
|
||||
DfmFilename: string; // Delphi .DFM file name.
|
||||
ConvTool: TConvDelphiCodeTool;
|
||||
begin
|
||||
IDEMessagesWindow.AddMsg(Format(lisConvDelphiConvertingUnitFile,
|
||||
IDEMessagesWindow.AddMsg(Format(lisConvDelphiConvertingFile,
|
||||
[fOrigUnitFilename]), '', -1);
|
||||
Application.ProcessMessages;
|
||||
// Get DFM file name and close it in editor.
|
||||
|
||||
@ -5050,7 +5050,7 @@ resourcestring
|
||||
lisConvDelphiBeginCodeToolsFailed = 'BeginCodeTools failed!';
|
||||
lisConvDelphiReady = 'Ready.';
|
||||
lisConvDelphiAborted = 'Aborted.';
|
||||
lisConvDelphiConvertingUnitFile = 'Converting unit file %s';
|
||||
lisConvDelphiConvertingFile = 'Converting file %s';
|
||||
lisConvDelphiRepairingFormFile = 'Repairing form file %s';
|
||||
lisConvDelphiErrorCanTFindUnit = '%s(%s,%s) Error: Can''t find unit %s';
|
||||
lisConvDelphiAllSubDirectoriesWillBeScannedForUnitFiles = 'All sub-directorie'
|
||||
|
||||
Loading…
Reference in New Issue
Block a user