paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-20 09:20:10 +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 if csDesigning in ComponentState then
DebugLn('TWinControl.Repaint A ',Name,':',ClassName); DebugLn('TWinControl.Repaint A ',Name,':',ClassName);
{$ENDIF} {$ENDIF}
{ TODO: check what to do with LM_PAINT message, neither gtk nor win32 Invalidate;
interface responded to it } Update;
//CNSendMessage(LM_PAINT, Self, nil);
// Invalidate;
// Update;
end; end;
{------------------------------------------------------------------------------} {------------------------------------------------------------------------------}
@ -5629,7 +5626,7 @@ begin
' Cur='+dbgs(Width)+'x'+dbgs(Height)+ ' Cur='+dbgs(Width)+'x'+dbgs(Height)+
' Client='+dbgs(OldClientRect.Right)+'x'+dbgs(OldClientRect.Bottom), ' Client='+dbgs(OldClientRect.Right)+'x'+dbgs(OldClientRect.Bottom),
' Adjusted='+dbgs(OldAdjustedClientRect), ' Adjusted='+dbgs(OldAdjustedClientRect),
' NewWidth='+dbgs(NewWidth)+' NewHeight=',+dbgs(NewHeight)); ' NewWidth='+dbgs(NewWidth)+' NewHeight=',dbgs(NewHeight));
{$ENDIF} {$ENDIF}
PreferredWidth:=Max(PreferredWidth,NewWidth); PreferredWidth:=Max(PreferredWidth,NewWidth);
PreferredHeight:=Max(PreferredHeight,NewHeight); PreferredHeight:=Max(PreferredHeight,NewHeight);