You've already forked lazarus-ccr
15 lines
278 B
PHP
15 lines
278 B
PHP
|
{%MainUnit lclvlc.pp}
|
||
|
|
|
||
|
|
uses qt45;
|
||
|
|
|
||
|
|
Function GetXHandle(AWinControl : TWinControl) : culong;
|
||
|
|
|
||
|
|
var
|
||
|
|
Widget: PGtkWidget;
|
||
|
|
begin
|
||
|
|
Result:=0;
|
||
|
|
if (AWinControl=nil) or (not AWinControl.HandleAllocated) then exit;
|
||
|
|
Result:=QWidget_winID(TQtWidget(AWinControl.Handle).Widget);
|
||
|
|
end;
|
||
|
|
|