fixed aligning controls

git-svn-id: trunk@4251 -

lcl/comctrls.pp

@@ -119,7 +119,7 @@ type
     procedure InvalidatePanel(PanelIndex: integer; PanelParts: TPanelParts); virtual;
     procedure GetPanelRect(PanelIndex: integer; var ARect: TRect);
   public
-    property Canvas : TCanvas read FCanvas;
+    property Canvas: TCanvas read FCanvas;
   published
     property Panels: TStatusPanels read FPanels write SetPanels;
     property SimpleText: String read FSimpleText write SetSimpleText;
@@ -1758,6 +1758,9 @@ end.
 { =============================================================================
 
   $Log$
+  Revision 1.74  2003/06/10 00:46:16  mattias
+  fixed aligning controls
+
   Revision 1.73  2003/04/16 17:20:24  mattias
   implemented package check broken dependency on compile
 

lcl/include/buttons.inc

@@ -35,7 +35,7 @@ begin
   {set default alignment}
   Align := alNone;
   {setup default sizes}
-  SetBounds(1, 1, 75, 25);
+  SetInitialBounds(1, 1, 75, 25);
 end;
 
 {------------------------------------------------------------------------------
@@ -165,6 +165,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.13  2003/06/10 00:46:16  mattias
+  fixed aligning controls
+
   Revision 1.12  2002/12/25 14:21:28  mattias
   fixed setting activecontrol to nil when removing component
 

lcl/include/customform.inc

@@ -982,7 +982,7 @@ Begin
 
   ControlStyle := ControlStyle + [csAcceptsControls, csCaptureMouse,
                                   csClickEvents, csSetCaption, csDoubleClicks];
-  SetBounds(0,0,320,240);
+  SetInitialBounds(0,0,320,240);
   Visible := False;
   ParentColor := False;
   ParentFont := False;
@@ -1426,6 +1426,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.101  2003/06/10 00:46:16  mattias
+  fixed aligning controls
+
   Revision 1.100  2003/06/01 21:09:09  mattias
   implemented datamodules
 

lcl/include/scrollingwincontrol.inc

@@ -153,7 +153,7 @@ begin
 
   ControlStyle := [csAcceptsControls, csClickEvents, csDoubleClicks];
 
-  SetBounds(0,0, 150, 150);
+  SetInitialBounds(0,0, 150, 150);
 end;
 
 Destructor TScrollingWinControl.Destroy;

lcl/include/statusbar.inc

@@ -22,15 +22,13 @@ begin
   inherited Create(AOwner);
   fCompStyle := csStatusBar;
   ControlStyle := [csCaptureMouse, csClickEvents, csDoubleClicks, csOpaque];
-  Color := clBtnFace;
-  Height := 19;
-  SetBounds(0,TWinControl(AOwner).ClientHeight-21,
-            TWinControl(AOwner).ClientWidth,20);
-  Align := alBottom;
+  FSimplePanel := True;
   FPanels := TStatusPanels.Create(Self);
   FCanvas := TControlCanvas.Create;
   TControlCanvas(FCanvas).Control := Self;
-  FSimplePanel := True;
+  Color := clBtnFace;
+  Height:=20;
+  Align := alBottom;
 end;
 
 
@@ -61,7 +59,6 @@ begin
 end;
 
 
-
 {------------------------------------------------------------------------------}
 {   TStatusBar Destructor                                                      }
 {------------------------------------------------------------------------------}