mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-05 05:48:12 +02:00
17 lines
376 B
PHP
17 lines
376 B
PHP
{%MainUnit lclvlc.pp}
|
|
|
|
uses gtk2proc, gtk2extra, ctypes, gtk2;
|
|
|
|
Function GetXHandle(AWinControl : TWinControl) : culong;
|
|
|
|
var
|
|
Widget: PGtkWidget;
|
|
begin
|
|
Result:=0;
|
|
if (AWinControl=nil) or (not AWinControl.HandleAllocated) then exit;
|
|
Widget:={%H-}PGtkWidget(AWinControl.Handle);
|
|
if Widget^.window = nil then exit;
|
|
Result := gdk_window_xwindow(Widget^.window);
|
|
end;
|
|
|