Changed TSpeedbutton in gtkobject so it erases itself when it's set to visible=false;

Shane

git-svn-id: trunk@174 -

ide/uniteditor.pp

@@ -805,6 +805,7 @@ if Command >= ecFirstParent then
                           except
                             GotoLine(0);
                           end;
+                          TMainIDE(TSourceNotebook(FAOwner).MainIDE).SpeedButton4.Visible := False;
                         end;
 
    ecPeriod : Begin

lcl/include/speedbutton.inc

@@ -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

lcl/include/wincontrol.inc

@@ -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
+  Revision 1.17  2001/02/06 14:52:47  lazarus
-  Changed the files from mode delphi to mode objfpc
+  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

lcl/interfaces/gtk/gtkobject.inc

@@ -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