Il 15/12/2017 18:30, zeljko ha scritto:
It's bug in your code (range error). You're using aHandle:
System.THandle (longint) instead of LCLIntf.THandle which is of
ptruint type.
Best and correct usage would be to use HWND type which is what it
needs to be on all platforms and widgetsets.
When aH
On 15.12.2017 17:08, Giuliano Colla via Lazarus wrote:
This snippet of code, which executes as expected with GTK2 WS, fails
with QT WS:
procedure TForm1.btnWsizeClick(Sender: TObject);
var aHandle: THandle;
aWidth,aHeight: Integer;
aRect: TRect;
begin
aHandle:= Form1.Handle;
if Ge
On 15.12.2017 17:08, Giuliano Colla via Lazarus wrote:
This snippet of code, which executes as expected with GTK2 WS, fails
with QT WS:
procedure TForm1.btnWsizeClick(Sender: TObject);
var aHandle: THandle;
aWidth,aHeight: Integer;
aRect: TRect;
begin
aHandle:= Form1.Handle;
if Ge
This snippet of code, which executes as expected with GTK2 WS, fails
with QT WS:
procedure TForm1.btnWsizeClick(Sender: TObject);
var aHandle: THandle;
aWidth,aHeight: Integer;
aRect: TRect;
begin
aHandle:= Form1.Handle;
if GetWindowSize(aHandle,aWidth,aHeight) then begin
Labe
