>I Use this to fit in the screen. >----------- >procedure Resize; override;
>procedure TForm1.Resize;
>var
> r:TRect;
>begin
> inherited Resize;
> {$IFDEF WINCE}
> SystemParametersInfo(SPI_GETWORKAREA, 0, @r, 0);
>// r := Rect(0, 0, GetSystemMetrics(SM_CXFULLSCREEN) ,
>GetSystemMetrics(SM_CYFULLSCREEN));
> ClientHeight := GetSystemMetrics(SM_CYFULLSCREEN);
> ClientWidth := GetSystemMetrics(SM_CXFULLSCREEN) +
>GetSystemMetrics(SM_CXBORDER) * 2;
>// BoundsRect := r;
> {$ENDIF}
>end;
>--
>Zaher Dirkey
A little better sizing, but still...
See screenshot.
Thanks for help.
Regards,
Denis
<<attachment: capture.jpg>>
_______________________________________________ Lazarus mailing list [email protected] http://www.lazarus.freepascal.org/mailman/listinfo/lazarus
