mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: DialogBoxParam function

Browse source
This commit is contained in:
Alexander Koblov 2024-05-05 00:32:40 +03:00
commit 8ea19a565c
2 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/fdialogbox.pas
View file

@ -236,13 +236,13 @@ begin
if (DataSize = 0) then Exit(0);
SetString(DataString, Data, DataSize);
if (Flags and DB_LRS = 0) then
begin
DataString:= LFMToLRS(DataString);
end
else if (Flags and DB_FILENAME <> 0) then
if (Flags and DB_FILENAME <> 0) then
begin
DataString:= LFMToLRS(mbReadFileToString(DataString));
end
else if (Flags and DB_LRS = 0) then
begin
DataString:= LFMToLRS(DataString);
end;
Result:= UIntPtr(DialogBox(DataString, DlgProc, UserData));

2
src/uextension.pas
View file

@ -75,7 +75,7 @@ end;
procedure TDcxModule.InitializeExtension(StartupInfo: PExtensionStartupInfo);
const
VERSION_API = 3;
VERSION_API = 4;
var
Language: String;
AFileName, APath: String;