mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-13 10:29:29 +02:00
Converter: Give a converted binary DFM file a .lfm suffix. Issue #34811.
git-svn-id: trunk@60031 -
This commit is contained in:
parent
d7c35ad233
commit
abbb0f061a
@ -325,7 +325,7 @@ begin
|
|||||||
FixWideString(LFMStream, Utf8LFMStream);
|
FixWideString(LFMStream, Utf8LFMStream);
|
||||||
// Save the converted file.
|
// Save the converted file.
|
||||||
try
|
try
|
||||||
Utf8LFMStream.SaveToFile(aFilename);
|
Utf8LFMStream.SaveToFile(ChangeFileExt(aFilename, '.lfm'));
|
||||||
except
|
except
|
||||||
on E: Exception do begin
|
on E: Exception do begin
|
||||||
Result:=MessageDlg(lisCodeToolsDefsWriteError,
|
Result:=MessageDlg(lisCodeToolsDefsWriteError,
|
||||||
|
Loading…
Reference in New Issue
Block a user