diff --git a/lcl/interfaces/win32/win32object.inc b/lcl/interfaces/win32/win32object.inc
index b99fe800a8..79464f8edd 100644
--- a/lcl/interfaces/win32/win32object.inc
+++ b/lcl/interfaces/win32/win32object.inc
@@ -1894,7 +1894,7 @@ Begin
     End;
     csFrame, csGroupBox, csPanel:
     Begin
-      Window := CreateWindow('BUTTON', StrTemp, Flags Or BS_GROUPBOX Or BS_TOP, Left, Top, Width, Height, Parent, HMENU(Nil), HInstance, Nil);
+      Window := CreateWindow('BUTTON', StrTemp, Flags Or BS_GROUPBOX, Left, Top, Width, Height, Parent, HMENU(Nil), HInstance, Nil);
       SetProp(Window, 'Lazarus', Sender);
       SetName(Window, StrTemp);
     End;
@@ -1956,7 +1956,7 @@ Begin
     End;
     csNotebook:
     Begin
-      Window := CreateWindow(WC_TABCONTROL, Nil, Flags Or WS_CLIPSIBLINGS, Left, Top, Width, Height, Parent, HMENU(Nil), HInstance, Nil);
+      Window := CreateWindow(WC_TABCONTROL, Nil, Flags, Left, Top, Width, Height, Parent, HMENU(Nil), HInstance, Nil);
       SetProp(Window, 'Lazarus', Sender);
       SetName(Window, StrTemp);
     End;
@@ -1991,13 +1991,6 @@ Begin
       SetProp(Window, 'Lazarus', Sender);
       SetName(Window, strTemp);
     End;
-    csSpeedButton:
-    Begin
-      Assert(False, 'Trace:TODO: Code the speed button control');
-      Window := CreateWindow('Button', StrTemp, Flags Or BS_PUSHBUTTON, Left, Top, Width, Height, Parent, HMENU(Nil), HInstance, Nil);
-      SetProp(Window, 'Lazarus', Sender);
-      SetName(Window, StrTemp);
-    End;
     csSpinEdit:
     Begin
       Assert(False, 'Trace:TODO: Create a spin edit control.  What is a spin edit contol anyway?');
@@ -2708,6 +2701,9 @@ End;
 
 {
   $Log$
+  Revision 1.70  2003/07/03 17:19:19  mattias
+  added RectVisible from Micha
+
   Revision 1.69  2003/07/03 08:05:53  mattias
   fixed Criticalsection from Vincent
 
diff --git a/lcl/interfaces/win32/win32winapi.inc b/lcl/interfaces/win32/win32winapi.inc
index 76cb5141fa..093a34f99a 100644
--- a/lcl/interfaces/win32/win32winapi.inc
+++ b/lcl/interfaces/win32/win32winapi.inc
@@ -1721,6 +1721,11 @@ Begin
   Assert(False, Format('Trace:< [TWin32Object.Rectangle] DC:0x%x, X1:%d, Y1:%d, X2:%d, Y2:%d', [DC, X1, Y1, X2, Y2]));
 End;
 
+function TWin32Object.RectVisible(dc : hdc; const ARect: TRect) : Boolean;
+begin
+  Result := Windows.RectVisible(DC, LPRECT(@ARect)^);
+end;
+
 {------------------------------------------------------------------------------
   Method:  ReleaseCapture
   Params:  none
@@ -2310,6 +2315,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.40  2003/07/03 17:19:20  mattias
+  added RectVisible from Micha
+
   Revision 1.39  2003/07/03 08:05:53  mattias
   fixed Criticalsection from Vincent
 
diff --git a/lcl/interfaces/win32/win32winapih.inc b/lcl/interfaces/win32/win32winapih.inc
index e660929aa4..4dbb620e25 100644
--- a/lcl/interfaces/win32/win32winapih.inc
+++ b/lcl/interfaces/win32/win32winapih.inc
@@ -129,6 +129,7 @@ function RadialChord(DC: HDC; x,y,width,height,sx,sy,ex,ey : Integer): Boolean;
 function RadialPie(DC: HDC; x,y,width,height,sx,sy,ex,ey : Integer): Boolean; override;
 Function RealizePalette(DC: HDC): Cardinal; Override;
 Function Rectangle(DC: HDC; X1, Y1, X2, Y2: Integer): Boolean; Override;
+function RectVisible(dc : hdc; const ARect: TRect) : Boolean; Override;
 Function ReleaseCapture: Boolean; Override;
 Function ReleaseDC(HWnd: HWND; DC: HDC): Integer; Override;
 Function RestoreDC(DC: HDC; SavedDC: Integer): Boolean; Override;
@@ -175,6 +176,9 @@ Procedure DeleteCriticalSection(var CritSection: TCriticalSection); Override;
 { =============================================================================
 
   $Log$
+  Revision 1.25  2003/07/03 17:19:20  mattias
+  added RectVisible from Micha
+
   Revision 1.24  2003/07/02 15:56:15  mattias
   fixed win32 painting and started creating bitmaps from rawimages