From dfbe4b526d6099abfbb4c161f7f3bf7727b8131b Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Tue, 19 Apr 2005 15:06:30 +0000
Subject: [PATCH] fixed small aesthetical editoroptions bugs

git-svn-id: trunk@7089 -
---
 components/printers/linux/udlgpropertiesprinter.pp | 5 +++++
 ide/editoroptions.pp                               | 8 ++++----
 lcl/include/customlabel.inc                        | 4 ++++
 lcl/include/wincontrol.inc                         | 6 +++++-
 lcl/stdctrls.pp                                    | 4 ++++
 5 files changed, 22 insertions(+), 5 deletions(-)

diff --git a/components/printers/linux/udlgpropertiesprinter.pp b/components/printers/linux/udlgpropertiesprinter.pp
index da72b46bbc..6f82aa8250 100644
--- a/components/printers/linux/udlgpropertiesprinter.pp
+++ b/components/printers/linux/udlgpropertiesprinter.pp
@@ -97,12 +97,14 @@ Type
 
 procedure Tdlgpropertiesprinter.dlgpropertiesprinterSHOW(Sender: TObject);
 begin
+  if Sender=nil then ;
   RefreshInfos;
 end;
 
 procedure Tdlgpropertiesprinter.cbPaperSizeKEYPRESS(Sender: TObject;
   var Key: Char);
 begin
+  if Sender=nil then ;
   Key:=#0;
 end;
 
@@ -126,6 +128,8 @@ Var Lst : TStringList;
     pOr : TPrinterOrientation;
     St  : String;
 begin
+  if Sender=nil then ;
+
   InitCombo(cbPaperSize,'PageSize',Printer.PaperSize.PaperName);
   InitCombo(cbPaperType,'MediaType','Plain Paper');
   InitCombo(cbPaperSrc ,'InputSlot','Auto Sheet Feeder');
@@ -194,6 +198,7 @@ end;
 
 procedure Tdlgpropertiesprinter.rbPortraitCLICK(Sender: TObject);
 begin
+  if Sender=nil then ;
   RefreshInfos;
 end;
 
diff --git a/ide/editoroptions.pp b/ide/editoroptions.pp
index 42ccf3e483..3f7a764de8 100644
--- a/ide/editoroptions.pp
+++ b/ide/editoroptions.pp
@@ -4755,7 +4755,7 @@ begin
   begin
     Name:='TextBoldCheckBox';
     Parent:=TextAttributesGroupBox;
-    Top:=5;
+    Top:=0;
     Left:=5;
     Width:=50;
     Height:=16;
@@ -4889,7 +4889,7 @@ begin
   end;
 
   with ForegroundColorButton do begin
-    Top:=2;
+    Top:=0;
     Left:=5;
     Width:=70;
     Height:=20;
@@ -4910,7 +4910,7 @@ begin
   end;
 
   with BackgroundColorButton do begin
-    Top:=2;
+    Top:=0;
     Left:=5;
     Width:=70;
     Height:=20;
@@ -4932,7 +4932,7 @@ begin
 
   w:=(TextBoldCheckBox.Parent.ClientWidth-20) div 3;
   with TextBoldCheckBox do begin
-    Top:=5;
+    Top:=0;
     Left:=5;
     Width:=w;
     Height:=16;
diff --git a/lcl/include/customlabel.inc b/lcl/include/customlabel.inc
index 3ac31d4549..7cbbeae5ee 100644
--- a/lcl/include/customlabel.inc
+++ b/lcl/include/customlabel.inc
@@ -137,6 +137,7 @@ begin
   Height := 17;
   FShowAccelChar := True;
   Color := clNone;
+  AutoSize:=true;
 end;
 
 function TCustomLabel.GetTransparent: boolean;
@@ -271,6 +272,9 @@ end;
 
 {
   $Log$
+  Revision 1.29  2005/04/19 15:06:30  mattias
+  fixed small aesthetical editoroptions bugs
+
   Revision 1.28  2005/02/03 15:10:23  micha
   implement shortcut handling, tcustomlabel accelerator focuscontrol functionality
 
diff --git a/lcl/include/wincontrol.inc b/lcl/include/wincontrol.inc
index 764633112b..f64eea3006 100644
--- a/lcl/include/wincontrol.inc
+++ b/lcl/include/wincontrol.inc
@@ -55,7 +55,8 @@ end;
 ------------------------------------------------------------------------------}
 function TWinControl.AutoSizeDelayed: boolean;
 begin
-  Result:=(wcfCreatingChildHandles in FWinControlFlags)
+  Result:=(not HandleAllocated)
+          or (wcfCreatingChildHandles in FWinControlFlags)
           or (inherited AutoSizeDelayed);
   //if Result then debugln('TWinControl.AutoSizeDelayed A ',DbgSName(Self),' wcfCreatingChildHandles=',dbgs(wcfCreatingChildHandles in FWinControlFlags),' csLoading=',dbgs(csLoading in ComponentState));
 end;
@@ -4481,6 +4482,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.322  2005/04/19 15:06:30  mattias
+  fixed small aesthetical editoroptions bugs
+
   Revision 1.321  2005/04/01 19:10:42  micha
   make method Hide a member of TControl (fixes bug 707)
 
diff --git a/lcl/stdctrls.pp b/lcl/stdctrls.pp
index c43a4ae39a..d5b27b2b4c 100644
--- a/lcl/stdctrls.pp
+++ b/lcl/stdctrls.pp
@@ -1133,6 +1133,7 @@ type
   public
     constructor Create(AOwner: TComponent); override;
     procedure Paint; override;
+    property AutoSize default True;
   end;
   
   
@@ -1237,6 +1238,9 @@ end.
 { =============================================================================
 
   $Log$
+  Revision 1.201  2005/04/19 15:06:30  mattias
+  fixed small aesthetical editoroptions bugs
+
   Revision 1.200  2005/04/05 19:41:19  mattias
   accelerated TMemo on gtk, gtk2 and win32 interface  from Andrew Haines