pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-09-30 21:28:55 +02:00
Code Issues Actions Releases Activity

Fixed build issue in Delphi 2007

Browse Source
This commit is contained in:
Salvador Díaz Fau
2025-08-29 16:20:30 +02:00
parent 744c05d011
commit dbf556fd7d
2 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
source/uCEFBufferPanel.pas
View File

@@ -35,7 +35,7 @@ type
{$ENDIF} {$ENDIF}
{$IF DEFINED(LCLGTK2) or DEFINED(LCLGTK3)} {$IF DEFINED(LCLGTK2) or DEFINED(LCLGTK3)}
TOnGdkKeyEvent = procedure(Sender: TObject; aEvent: PGdkEventKey; var aHandled: boolean) of object; TOnGdkKeyEvent = procedure(Sender: TObject; aEvent: PGdkEventKey; var aHandled: boolean) of object;
{$ENDIF} {$IFEND}
{$IFDEF MSWINDOWS} {$IFDEF MSWINDOWS}
TOnHandledMessageEvent = procedure(Sender: TObject; var aMessage: TMessage; var aHandled : boolean) of object; TOnHandledMessageEvent = procedure(Sender: TObject; var aMessage: TMessage; var aHandled : boolean) of object;
{$ENDIF} {$ENDIF}
@@ -80,7 +80,7 @@ type
{$IF DEFINED(LCLGTK2) or DEFINED(LCLGTK3)} {$IF DEFINED(LCLGTK2) or DEFINED(LCLGTK3)}
FOnGdkKeyPress : TOnGdkKeyEvent; FOnGdkKeyPress : TOnGdkKeyEvent;
FOnGdkKeyRelease : TOnGdkKeyEvent; FOnGdkKeyRelease : TOnGdkKeyEvent;
{$ENDIF} {$IFEND}
procedure CreateSyncObj; procedure CreateSyncObj;
@@ -132,7 +132,7 @@ type
{$IF DEFINED(LCLGTK2) or DEFINED(LCLGTK3)} {$IF DEFINED(LCLGTK2) or DEFINED(LCLGTK3)}
function DoOnGdkKeyPress(aEvent : PGdkEventKey) : boolean; virtual; function DoOnGdkKeyPress(aEvent : PGdkEventKey) : boolean; virtual;
function DoOnGdkKeyRelease(aEvent : PGdkEventKey) : boolean; virtual; function DoOnGdkKeyRelease(aEvent : PGdkEventKey) : boolean; virtual;
{$ENDIF} {$IFEND}
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
@@ -206,7 +206,7 @@ type
/// Connects the GTK signals used to receive key press events. /// Connects the GTK signals used to receive key press events.
/// </summary> /// </summary>
function ConnectSignals: boolean; function ConnectSignals: boolean;
{$ENDIF} {$IFEND}
{$IFDEF LCLGTK3} {$IFDEF LCLGTK3}
/// <summary> /// <summary>
/// This is just a workaround for the missing implementation of SendMessage in GTK3. Don't use! /// This is just a workaround for the missing implementation of SendMessage in GTK3. Don't use!
@@ -423,7 +423,7 @@ type
/// <para>This event only works in GTK2 and GTK3 projects.</para> /// <para>This event only works in GTK2 and GTK3 projects.</para>
/// </remarks> /// </remarks>
property OnGdkKeyRelease : TOnGdkKeyEvent read FOnGdkKeyRelease write FOnGdkKeyRelease; property OnGdkKeyRelease : TOnGdkKeyEvent read FOnGdkKeyRelease write FOnGdkKeyRelease;
{$ENDIF} {$IFEND}
/// <summary> /// <summary>
/// Event triggered before the AlphaBlend call that transfer the web contents from the /// Event triggered before the AlphaBlend call that transfer the web contents from the
/// bitmap buffer to the panel when the Transparent property is True. /// bitmap buffer to the panel when the Transparent property is True.
@@ -601,7 +601,7 @@ begin
FOnGdkKeyPress := nil; FOnGdkKeyPress := nil;
FOnGdkKeyRelease := nil; FOnGdkKeyRelease := nil;
ControlStyle := ControlStyle - [csNoFocus]; ControlStyle := ControlStyle - [csNoFocus];
{$ENDIF} {$IFEND}
end; end;
destructor TBufferPanel.Destroy; destructor TBufferPanel.Destroy;
@@ -632,7 +632,7 @@ begin
else else
Result := False; Result := False;
end; end;
{$ENDIF} {$IFEND}
procedure TBufferPanel.AfterConstruction; procedure TBufferPanel.AfterConstruction;
begin begin
@@ -679,7 +679,7 @@ begin
Result := (TempHandlerID1 > 0) and (TempHandlerID2 > 0); Result := (TempHandlerID1 > 0) and (TempHandlerID2 > 0);
end; end;
end; end;
{$ENDIF} {$IFEND}
{$IFDEF LCLGTK3} {$IFDEF LCLGTK3}
// This is just a workaround for the missing implementation of SendMessage in GTK3. // This is just a workaround for the missing implementation of SendMessage in GTK3.
@@ -1218,7 +1218,7 @@ begin
if assigned(FOnGdkKeyRelease) then if assigned(FOnGdkKeyRelease) then
FOnGdkKeyRelease(self, aEvent, Result); FOnGdkKeyRelease(self, aEvent, Result);
end; end;
{$ENDIF} {$IFEND}
function TBufferPanel.GetBufferBits : pointer; function TBufferPanel.GetBufferBits : pointer;
begin begin

2
update_CEF4Delphi.json
View File

@@ -2,7 +2,7 @@
"UpdateLazPackages" : [ "UpdateLazPackages" : [
{ {
"ForceNotify" : true, "ForceNotify" : true,
"InternalVersion" : 776, "InternalVersion" : 777,
"Name" : "cef4delphi_lazarus.lpk", "Name" : "cef4delphi_lazarus.lpk",
"Version" : "139.0.37" "Version" : "139.0.37"
} }