[Lazarus] WinCE: LCL bugs?

[denisgolovan]

>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  

-------------- next part --------------
A non-text attachment was scrubbed...
Name: capture.jpg
Type: image/jpeg
Size: 7362 bytes
Desc: not available
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20080218/06605523/attachment-0007.jpg>