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

MG: activated InvalidateControl for TWinControls

Browse Source 
git-svn-id: trunk@803 -
This commit is contained in:
lazarus 2002-02-09 01:46:45 +00:00
parent c719a442ff
commit a5013f860e
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/gtk/gtkobject.inc
View File

@ -1317,7 +1317,7 @@ begin
ReDraw(PgtkWidget(TCanvas(Sender).Handle))
else
if not (Sender is TSpeedbutton) then begin
if Sender is TControl then
if Sender is TWinControl then
ReDraw(PgtkWidget(Handle))
end else begin
// ToDo: always invalidate instead of perform
@ -5724,6 +5724,9 @@ end;
{ =============================================================================
$Log$
Revision 1.200 2002/09/05 13:46:19 lazarus
MG: activated InvalidateControl for TWinControls
Revision 1.199 2002/09/05 12:11:44 lazarus
MG: TNotebook is now streamable