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

MG: fixed speedbutton in designmode

Browse Source 
git-svn-id: trunk@761 -
This commit is contained in:
lazarus 2002-02-09 01:46:24 +00:00
parent de549bb207
commit 6a19dcfe33
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1223,19 +1223,20 @@ begin
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((Sender as TCanvas).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 TControl then
ReDraw(PgtkWidget(Handle)) ReDraw(PgtkWidget(Handle))
end else end else begin
If TSpeedbutton(sender).Visible then If TSpeedbutton(Sender).Visible then
(Sender as TSpeedButton).Perform(LM_PAINT,0,0) TSpeedButton(Sender).Perform(LM_PAINT,0,0)
else else
Begin Begin
Rect := TSpeedButton(sender).BoundsRect; Rect := TSpeedButton(Sender).BoundsRect;
InvalidateRect(TSpeedButton(sender).Parent.Handle,@Rect,True); InvalidateRect(TSpeedButton(Sender).Parent.Handle,@Rect,True);
end; end;
end;
end; end;
LM_AddPage : LM_AddPage :
@ -5356,6 +5357,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.179 2002/08/26 17:28:21 lazarus
MG: fixed speedbutton in designmode
Revision 1.178 2002/08/25 14:27:45 lazarus Revision 1.178 2002/08/25 14:27:45 lazarus
MG: fixed unallocated spinedit handle bug MG: fixed unallocated spinedit handle bug