pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-11-23 21:34:53 +02:00
Code Issues Actions Releases Activity

Added a Linux version of the SubProcess demo for Lazarus

Browse Source 
GlobalCEFApp now uses the custom "ShowX11Message" procedure to show messages when the WidgetSet is not initialized.
This commit is contained in:
Salvador Diaz Fau
2020-12-31 12:15:10 +01:00
parent 05680d5abc
commit 5fd5dc79f0
16 changed files with 1797 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
source/uCEFApplicationCore.pas
View File

@@ -588,7 +588,7 @@ uses
Math, {$IFDEF DELPHI14_UP}IOUtils,{$ENDIF} SysUtils,
{$IFDEF FPC}
{$IFDEF MSWINDOWS}jwatlhelp32, jwapsapi,{$ENDIF}
{$IFDEF LINUX}lcltype, Forms,{$ENDIF}
{$IFDEF LINUX}lcltype, Forms, InterfaceBase,{$ENDIF}
{$ELSE}
TlHelp32, {$IFDEF MSWINDOWS}PSAPI,{$ENDIF}
{$ENDIF}
@@ -1483,7 +1483,12 @@ begin
MessageBox(0, PChar(aError + #0), PChar('Error' + #0), MB_ICONERROR or MB_OK or MB_TOPMOST);
{$ELSE}
{$IFDEF LINUX}
Application.MessageBox(PChar(aError + #0), PChar('Error' + #0), MB_ICONERROR or MB_OK);
{$IFDEF FPC}
if (WidgetSet <> nil) then
Application.MessageBox(PChar(aError + #0), PChar('Error' + #0), MB_ICONERROR or MB_OK)
else
ShowX11Message(aError);
{$ENDIF}
{$ENDIF}
{$ENDIF}
end;