paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-05 21:06:19 +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)) ReDraw(PgtkWidget(TCanvas(Sender).Handle))
else else
if not (Sender is TSpeedbutton) then begin if not (Sender is TSpeedbutton) then begin
if Sender is TControl then if Sender is TWinControl then
ReDraw(PgtkWidget(Handle)) ReDraw(PgtkWidget(Handle))
end else begin end else begin
// ToDo: always invalidate instead of perform // ToDo: always invalidate instead of perform
@ -5724,6 +5724,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $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 Revision 1.199 2002/09/05 12:11:44 lazarus
MG: TNotebook is now streamable MG: TNotebook is now streamable