On 09/27/2014 04:01 PM, Luca Olivetti wrote:
El 27/09/14 14:32, zeljko ha escrit:
On 09/27/2014 12:26 PM, Luca Olivetti wrote:
El 27/09/14 12:23, Luca Olivetti ha escrit:
El 27/09/14 12:09, Luca Olivetti ha escrit:
I'm puzzled: with a test program I see no difference in the size in
both
cases (right after showing the form and after pressing the button)
*and*
the size is the right one (in FormShow is always 1,1 btw).
I must be doing something else wrong (though the tiling is the correct
on under windows, mmmh..).
Found it, nothing wrong on my part: the test program used an auto
created form, the real application creates the form at run time *and*
right after creating the form, after the show GetWindowRect only returns
the client size. I have to introduce a delay for it to return the whole
window's size (and even then, from time to time, it only returns the
client size), so you were correct and this is insane.
And, for the record, with qt it's the same (only it seems the delay have
to be bigger).
Under X11 nobody knows exact window size (except client size setted up
by LCL or widgetset) until window is decorated by wm (read mapped -
shown on screen). See
http://qt-project.org/doc/qt-4.8/application-windows.html#x11-peculiarities
Yes, I understand, the "insanity" I referred to was about the underlying
environment, not Lazarus.
Anyway, I tried with this snipped of code to measure the decoration
procedure TForm1.Button1Click(Sender: TObject);
var f:TForm;
i:integer;
wr: TRect;
h: Integer;
w: Integer;
begin
f:=TForm.Create(nil);
f.top:=10000;
f.left:=10000;
f.width:=100;
f.height:=100;
f.show;
i:=0;
while true do
begin
Application.ProcessMessages;
GetWindowRect(f.Handle,wr);
h:=wr.bottom-wr.top;
w:=wr.Right-wr.left;
if (w<>f.width) and (h<>f.height) then
break;
i:=i+1;
if i>1000 then
break;
end;
Label1.Caption:=format('%d w:%d h:%d',[i,w-f.width,h-f.height]);
f.free;
end;
The f.top and f.left assignment was a (futile) attempt to avoid flashing
the form on screen.
With gtk2 2 I consistently get the result at the first iteration (i=0),
while with qt it takes at least 2 cycles, on occasions i counted up to 20.
Just FYI.
I know about it. It's explained at the mentioned link, also gtk2lcl puts
size events in queue and process it via Application.ProcessMessages, qt
provides such event when it's ready.
zeljko
--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
