paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 15:48:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

TaskDialog: do not write to console

Browse Source
This commit is contained in:
Ondrej Pokorny 2023-08-23 14:48:14 +02:00
parent fe0ed266ce
commit e6fc6dca77
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lcl/interfaces/win32/win32wsdialogs.pp
View File

@ -1999,13 +1999,17 @@ begin
//We shouldn't however set CommCtrl.TaskDialogIndirect to nil, other (third party) code may rely on in not ever being nil.
Res := TaskDialogIndirect(nil,nil,nil,nil);
if IsConsole then
begin
write('InitTaskDialogIndirect: TaskDialogIndirect(nil,nil,nil,nil)=$',LongInt(Res).ToHexString);
if (Res = E_INVALIDARG) then writeln(' (=E_INVALIDARG)') else writeln;
end;
{$IFDEF VerboseTaskDialog}
DebugLn('InitTaskDialogIndirect: TaskDialogIndirect(nil,nil,nil,nil)=$',LongInt(Res).ToHexString);
if (Res = E_INVALIDARG) then DebugLn(' (=E_INVALIDARG)') else writeln;
{$ENDIF}
TaskDialogIndirectAvailable := (Res = E_INVALIDARG);//(Res <> E_NOTIMPL);
if IsConsole then writeln('InitTaskDialogIndirect: TaskDialogIndirectAvailable=',TaskDialogIndirectAvailable);
{$IFDEF VerboseTaskDialog}
DebugLn('InitTaskDialogIndirect: TaskDialogIndirectAvailable=',TaskDialogIndirectAvailable);
{$ENDIF}
//OSVersionInfo.dwOSVersionInfoSize := sizeof(OSVersionInfo);
//GetVersionEx(OSVersionInfo);