mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-12 02:16:14 +02:00
Changed TSpeedbutton in gtkobject so it erases itself when it's set to visible=false;
Shane git-svn-id: trunk@174 -
This commit is contained in:
parent
467b5fc459
commit
ee40879606
@ -805,6 +805,7 @@ if Command >= ecFirstParent then
|
||||
except
|
||||
GotoLine(0);
|
||||
end;
|
||||
TMainIDE(TSourceNotebook(FAOwner).MainIDE).SpeedButton4.Visible := False;
|
||||
end;
|
||||
|
||||
ecPeriod : Begin
|
||||
|
@ -236,6 +236,8 @@ begin
|
||||
FState := bsDisabled;
|
||||
FDragging := False;
|
||||
end
|
||||
// else
|
||||
// if not Visible then exit
|
||||
else begin
|
||||
if FState = bsDisabled
|
||||
then begin
|
||||
@ -524,6 +526,10 @@ end;
|
||||
{ =============================================================================
|
||||
|
||||
$Log$
|
||||
Revision 1.5 2001/02/06 14:52:47 lazarus
|
||||
Changed TSpeedbutton in gtkobject so it erases itself when it's set to visible=false;
|
||||
Shane
|
||||
|
||||
Revision 1.4 2001/01/12 18:46:50 lazarus
|
||||
Named the speedbuttons in MAINIDE and took out some writelns.
|
||||
Shane
|
||||
|
@ -1543,19 +1543,6 @@ end;
|
||||
------------------------------------------------------------------------------}
|
||||
procedure TWinControl.WMWindowPosChanged(var Message : TLMWindowPosChanged);
|
||||
begin
|
||||
|
||||
{ if Message.WindowPos <> nil
|
||||
then with Message.WindowPos^ do
|
||||
begin
|
||||
FLeft := X;
|
||||
FWidth := cX;
|
||||
FTop := Y;
|
||||
FHeight := cY;
|
||||
Assert(False, Format('Trace:[TWinControl.WMWindowPosChanged] %s --> Message.WindowPos(%d, %d)(%d, %d)', [ClassName, X, Y, cx, cy]));
|
||||
end
|
||||
else Assert(False, Format('Trace:[TWinControl.WMWindowPosChanged] %s --> Message.WindowPos = nil', [ClassName]));
|
||||
}
|
||||
|
||||
inherited WMWindowPosChanged(Message);
|
||||
end;
|
||||
|
||||
@ -1917,8 +1904,8 @@ end;
|
||||
{ =============================================================================
|
||||
|
||||
$Log$
|
||||
Revision 1.16 2001/02/06 13:55:23 lazarus
|
||||
Changed the files from mode delphi to mode objfpc
|
||||
Revision 1.17 2001/02/06 14:52:47 lazarus
|
||||
Changed TSpeedbutton in gtkobject so it erases itself when it's set to visible=false;
|
||||
Shane
|
||||
|
||||
Revision 1.15 2001/02/04 04:18:12 lazarus
|
||||
|
@ -227,6 +227,7 @@ var
|
||||
GList : pGList; // Only used for listboxes, replace with widget!!!!!
|
||||
SelectionMode : TGtkSelectionMode; // currently only used for listboxes
|
||||
ListItem : PGtkListItem; // currently only used for listboxes
|
||||
Rect : TRect;
|
||||
|
||||
begin
|
||||
result := 0; //default value just in case nothing sets it
|
||||
@ -525,7 +526,14 @@ activate_time : the time at which the activation event occurred.
|
||||
if not (sender is TSpeedbutton) then
|
||||
ReDraw(PgtkWidget(Handle))
|
||||
else
|
||||
(Sender as TSpeedButton).perform(LM_PAINT,0,0);
|
||||
if (sender is TSpeedButton) then
|
||||
If TSpeedbutton(sender).Visible then (Sender as TSpeedButton).perform(LM_PAINT,0,0)
|
||||
else
|
||||
Begin
|
||||
Rect := TSpeedButton(sender).BoundsRect;
|
||||
InvalidateRect(TSpeedButton(sender).Parent.Handle,@Rect,True);
|
||||
|
||||
end;
|
||||
end;
|
||||
|
||||
LM_AddPage :
|
||||
@ -2666,6 +2674,10 @@ end;
|
||||
{ =============================================================================
|
||||
|
||||
$Log$
|
||||
Revision 1.28 2001/02/06 14:52:47 lazarus
|
||||
Changed TSpeedbutton in gtkobject so it erases itself when it's set to visible=false;
|
||||
Shane
|
||||
|
||||
Revision 1.27 2001/02/04 04:18:12 lazarus
|
||||
Code cleanup and JITFOrms bug fix.
|
||||
Shane
|
||||
|
Loading…
Reference in New Issue
Block a user