[Lazarus] Form Height with Windows XP Themes

[Gabor Boros]

Hi,

Form1.ClientHeight, Form1.ClientWidth not a good solution for you?

Gabor

faber írta:
> Hi,
> I need help with getting real size of window.
> No matter whether I use a Windows XP composition or not, heigh of
> Forms is always the same, without computing borders and title bar.
> I need this to get bitmap of my form:
> 
>    c.Handle := GetWindowDC(Form1.Handle);
>    r := Rect(0, 0, Form1.Width, Form1.Height);
>    BitM.Width := Form1.Width;
>    BitM.Height := Form1.Height;
>    BitM.Canvas.CopyRect(r, c, r);
> 
> it that case width and height are smaller then real window size (width
> - 7 , height - 26 in case without compositions)
> 
> How to get info about borders size and title bar (or if themes
> composition is used) ?