paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 22:29:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

Makes GetWindowSize and GetClientBounds more robust to a lack of implementation in the backend

Browse Source 
git-svn-id: trunk@36573 -
This commit is contained in:
sekelsenmat 2012-04-05 09:29:26 +00:00
parent e9ca5ca089
commit 6f022b3bae
1 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lcl/interfaces/customdrawn/customdrawnwinapi.inc
View File

@ -2552,7 +2552,15 @@ begin
if Handle=0 then Exit;
lObject := TObject(Handle);
if lObject is TCDForm then
begin
// Initial size guessed
if TCDForm(lObject).Image <> nil then
ARect := Bounds(0, 0, TCDForm(lObject).Image.Width, TCDForm(lObject).Image.Height)
else ARect := Bounds(0, 0, 0, 0);
// Now ask for the real size
Result := BackendGetClientBounds(Handle, ARect)
end
else
begin
ARect := TCDWinControl(lObject).WinControl.BoundsRect;
@ -4353,6 +4361,19 @@ begin
lObject := TObject(Handle);
if lObject is TCDForm then
begin
// Initial size guessed
if TCDForm(lObject).Image <> nil then
begin
Width := TCDForm(lObject).Image.Width;
Height := TCDForm(lObject).Image.Height;
end
else
begin
Width := 0;
Height := 0;
end;
// Now ask the backend
Result := BackendGetWindowSize(Handle, Width, Height);
end
else if lObject is TCDWinControl then