You've already forked CEF4Delphi
							
							
				mirror of
				https://github.com/salvadordf/CEF4Delphi.git
				synced 2025-10-30 23:07:52 +02:00 
			
		
		
		
	Fixed build issue in Delphi 2007
This commit is contained in:
		| @@ -35,7 +35,7 @@ type | ||||
|   {$ENDIF} | ||||
|   {$IF DEFINED(LCLGTK2) or DEFINED(LCLGTK3)} | ||||
|   TOnGdkKeyEvent            = procedure(Sender: TObject; aEvent: PGdkEventKey; var aHandled: boolean) of object; | ||||
|   {$ENDIF} | ||||
|   {$IFEND} | ||||
|   {$IFDEF MSWINDOWS} | ||||
|   TOnHandledMessageEvent    = procedure(Sender: TObject; var aMessage: TMessage; var aHandled : boolean) of object; | ||||
|   {$ENDIF} | ||||
| @@ -80,7 +80,7 @@ type | ||||
|       {$IF DEFINED(LCLGTK2) or DEFINED(LCLGTK3)} | ||||
|       FOnGdkKeyPress           : TOnGdkKeyEvent; | ||||
|       FOnGdkKeyRelease         : TOnGdkKeyEvent; | ||||
|       {$ENDIF} | ||||
|       {$IFEND} | ||||
|  | ||||
|       procedure CreateSyncObj; | ||||
|  | ||||
| @@ -132,7 +132,7 @@ type | ||||
|       {$IF DEFINED(LCLGTK2) or DEFINED(LCLGTK3)} | ||||
|       function  DoOnGdkKeyPress(aEvent : PGdkEventKey) : boolean; virtual; | ||||
|       function  DoOnGdkKeyRelease(aEvent : PGdkEventKey) : boolean; virtual; | ||||
|       {$ENDIF} | ||||
|       {$IFEND} | ||||
|  | ||||
|     public | ||||
|       constructor Create(AOwner: TComponent); override; | ||||
| @@ -206,7 +206,7 @@ type | ||||
|       /// Connects the GTK signals used to receive key press events. | ||||
|       /// </summary> | ||||
|       function    ConnectSignals: boolean; | ||||
|       {$ENDIF} | ||||
|       {$IFEND} | ||||
|       {$IFDEF LCLGTK3}                | ||||
|       /// <summary> | ||||
|       /// 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> | ||||
|       /// </remarks> | ||||
|       property OnGdkKeyRelease           : TOnGdkKeyEvent            read FOnGdkKeyRelease           write FOnGdkKeyRelease; | ||||
|       {$ENDIF} | ||||
|       {$IFEND} | ||||
|       /// <summary> | ||||
|       /// Event triggered before the AlphaBlend call that transfer the web contents from the | ||||
|       /// bitmap buffer to the panel when the Transparent property is True. | ||||
| @@ -601,7 +601,7 @@ begin | ||||
|   FOnGdkKeyPress          := nil; | ||||
|   FOnGdkKeyRelease        := nil; | ||||
|   ControlStyle            := ControlStyle - [csNoFocus]; | ||||
|   {$ENDIF} | ||||
|   {$IFEND} | ||||
| end; | ||||
|  | ||||
| destructor TBufferPanel.Destroy; | ||||
| @@ -632,7 +632,7 @@ begin | ||||
|    else | ||||
|     Result := False; | ||||
| end; | ||||
| {$ENDIF} | ||||
| {$IFEND} | ||||
|  | ||||
| procedure TBufferPanel.AfterConstruction; | ||||
| begin | ||||
| @@ -679,7 +679,7 @@ begin | ||||
|     Result := (TempHandlerID1 > 0) and (TempHandlerID2 > 0); | ||||
|   end; | ||||
| end; | ||||
| {$ENDIF} | ||||
| {$IFEND} | ||||
|  | ||||
| {$IFDEF LCLGTK3} | ||||
| // This is just a workaround for the missing implementation of SendMessage in GTK3. | ||||
| @@ -1218,7 +1218,7 @@ begin | ||||
|   if assigned(FOnGdkKeyRelease) then | ||||
|      FOnGdkKeyRelease(self, aEvent, Result); | ||||
| end; | ||||
| {$ENDIF} | ||||
| {$IFEND} | ||||
|  | ||||
| function TBufferPanel.GetBufferBits : pointer; | ||||
| begin | ||||
|   | ||||
| @@ -2,7 +2,7 @@ | ||||
|   "UpdateLazPackages" : [ | ||||
|     { | ||||
|       "ForceNotify" : true, | ||||
|       "InternalVersion" : 776, | ||||
|       "InternalVersion" : 777, | ||||
|       "Name" : "cef4delphi_lazarus.lpk", | ||||
|       "Version" : "139.0.37" | ||||
|     } | ||||
|   | ||||
		Reference in New Issue
	
	Block a user