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

Cleanups, extended TStatusBar, graphic control cleanups.

Browse Source 
git-svn-id: trunk@827 -
This commit is contained in:
lazarus 2002-02-09 01:46:57 +00:00
parent 0a0e8ad9f8
commit f2c02170fd
1 changed files with 12 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1448,25 +1448,19 @@ begin
end; end;
//SH: think of TCanvas.handle!!!! //SH: think of TCanvas.handle!!!!
LM_ReDraw : LM_REDRAW:
begin begin
Assert(False, Format('Trace: [TgtkObject.IntSendMessage3] %s --> Redraw', [Sender.ClassName])); Assert(False, Format('Trace: [TgtkObject.IntSendMessage3] %s --> Redraw', [Sender.ClassName]));
if (Sender is TCanvas) then if (Sender is TCanvas) then
ReDraw(PgtkWidget(TCanvas(Sender).Handle)) ReDraw(PgtkWidget(TCanvas(Sender).Handle))
else else begin
if not (Sender is TSpeedbutton) then begin if Sender is TWinControl then
if Sender is TWinControl then ReDraw(PgtkWidget(Handle))
ReDraw(PgtkWidget(Handle)) else begin
end else begin Rect := TControl(Sender).BoundsRect;
// ToDo: always invalidate instead of perform InvalidateRect(TControl(Sender).Parent.Handle, @Rect, true);
If TSpeedbutton(Sender).Visible then end;
TSpeedButton(Sender).Perform(LM_PAINT,0,0) end;
else
Begin
Rect := TSpeedButton(Sender).BoundsRect;
InvalidateRect(TSpeedButton(Sender).Parent.Handle,@Rect,True);
end;
end;
end; end;
LM_AddPage : LM_AddPage :
@ -5834,6 +5828,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.212 2002/09/13 11:49:47 lazarus
Cleanups, extended TStatusBar, graphic control cleanups.
Revision 1.211 2002/09/12 05:56:16 lazarus Revision 1.211 2002/09/12 05:56:16 lazarus
MG: gradient fill, minor issues from Andrew MG: gradient fill, minor issues from Andrew