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

fix clientrect size on show form with menu (lazarus ide, component palette height too great)

Browse Source 
git-svn-id: trunk@6377 -
This commit is contained in:
micha 2004-12-15 17:51:16 +00:00
parent afcc4fb7cd
commit 84f362ce52
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/win32/win32callback.inc
View File

@ -1166,6 +1166,7 @@ Begin
and (not lWinControl.ClientRectNeedsInterfaceUpdate) then
exit;
lWinControl.InvalidateClientRectCache(true);
lWinControl.DoAdjustClientRectChange;
end;
OverlayWindow := GetWindowInfo(Window)^.Overlay;
if OverlayWindow <> 0 then
@ -1482,6 +1483,9 @@ end;
{
$Log$
Revision 1.171 2004/12/15 17:51:16 micha
fix clientrect size on show form with menu (lazarus ide, component palette height too great)
Revision 1.170 2004/12/01 22:38:36 vincents
fixed error, when more than one timer was disabled in a timer callback.

5
lcl/interfaces/win32/win32object.inc
View File

@ -425,8 +425,6 @@ begin
begin
AWinControl := TWinControl(AMenu.Owner);
Windows.SetMenu(AWinControl.Handle, AMenu.Handle);
// inform LCL of changed client size
AWinControl.DoAdjustClientRectChange;
end;
end;
@ -711,6 +709,9 @@ end;
{
$Log$
Revision 1.300 2004/12/15 17:51:16 micha
fix clientrect size on show form with menu (lazarus ide, component palette height too great)
Revision 1.299 2004/11/04 16:57:32 micha
remove obsolete and unused method twin32widgetset.settext