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

finished implementation of TWinControl.Repaint (fixes issue #1890)

Browse Source 
git-svn-id: trunk@8968 -
This commit is contained in:
vincents 2006-03-20 19:13:16 +00:00
parent 2826cea395
commit 380fa81917
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/include/wincontrol.inc
View File

@ -3981,11 +3981,8 @@ Begin
if csDesigning in ComponentState then
DebugLn('TWinControl.Repaint A ',Name,':',ClassName);
{$ENDIF}
{ TODO: check what to do with LM_PAINT message, neither gtk nor win32
interface responded to it }
//CNSendMessage(LM_PAINT, Self, nil);
// Invalidate;
// Update;
Invalidate;
Update;
end;
{------------------------------------------------------------------------------}
@ -5629,7 +5626,7 @@ begin
' Cur='+dbgs(Width)+'x'+dbgs(Height)+
' Client='+dbgs(OldClientRect.Right)+'x'+dbgs(OldClientRect.Bottom),
' Adjusted='+dbgs(OldAdjustedClientRect),
' NewWidth='+dbgs(NewWidth)+' NewHeight=',+dbgs(NewHeight));
' NewWidth='+dbgs(NewWidth)+' NewHeight=',dbgs(NewHeight));
{$ENDIF}
PreferredWidth:=Max(PreferredWidth,NewWidth);
PreferredHeight:=Max(PreferredHeight,NewHeight);