pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* Implemented a way to pass a PGtkWidget to Gecko to draw the webpage on for Gtk2

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1349 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
Loesje_
2010-10-14 08:00:44 +00:00
parent 5e585221b0
commit a1121fb2ec
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/geckoport/Components/GeckoChromeWindow.pas
View File

@@ -53,6 +53,7 @@ uses
SysUtils, Variants, Classes, Graphics, Controls, Forms, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, CallbackInterfaces, nsXPCOM, nsTypes, nsXPCOM_std19 Dialogs, CallbackInterfaces, nsXPCOM, nsTypes, nsXPCOM_std19
{$IFDEF LCLCarbon}, CarbonPrivate {$ENDIF} {$IFDEF LCLCarbon}, CarbonPrivate {$ENDIF}
{$IFDEF LCLGtk2}, gtk2 {$ENDIF}
{$IFDEF LCLCocoa}, CocoaAll, CocoaUtils, CocoaPrivate {$ENDIF}; {$IFDEF LCLCocoa}, CocoaAll, CocoaUtils, CocoaPrivate {$ENDIF};
type type
@@ -187,7 +188,9 @@ begin
{$IFDEF LCLGtk}Result := Handle;{$ENDIF} //Is Handle same as GTK Window? {$IFDEF LCLGtk}Result := Handle;{$ENDIF} //Is Handle same as GTK Window?
{$IFDEF LCLGtk2}Result := Handle;{$ENDIF} //Is Handle same as GTK Window? {$IFDEF LCLGtk2}
Result := PtrInt(PGtkWindow(GeckoChromeForm.Handle)^.bin.child);
{$ENDIF} //Is Handle same as GTK Window?
end; end;
procedure TGeckoChromeForm.InitWebBrowser; procedure TGeckoChromeForm.InitWebBrowser;