[JVCL-Checkins] SF.net SVN: jvcl: [10920] trunk/jvcl/run/JvCaptionPanel.pas

[<ob...@us...>]

Revision: 10920
Author:   obones
Date:     2006-08-28 07:38:46 -0700 (Mon, 28 Aug 2006)
ViewCVS:  http://svn.sourceforge.net/jvcl/?rev=10920&view=rev

Log Message:
-----------
Now realigns controls when setting CaptionHeight

Modified Paths:
--------------
    trunk/jvcl/run/JvCaptionPanel.pas
Modified: trunk/jvcl/run/JvCaptionPanel.pas
===================================================================
--- trunk/jvcl/run/JvCaptionPanel.pas	2006-08-26 04:39:36 UTC (rev 10919)
+++ trunk/jvcl/run/JvCaptionPanel.pas	2006-08-28 14:38:46 UTC (rev 10920)
@@ -115,11 +115,11 @@
     FIcon: TIcon;
     {$IFDEF JVCAPTIONPANEL_STD_BEHAVE}
     FAnchorPos: TPoint;
-    FCaptionHeight: Integer;
     {$ENDIF JVCAPTIONPANEL_STD_BEHAVE}
     {$IFDEF VCL}
     FResizable: Boolean;
     {$ENDIF VCL}
+    FCaptionHeight: Integer;
     procedure SetIcon(Value: TIcon);
     procedure SetCaptionFont(Value: TFont);
     procedure SetCaptionColor(Value: TColor);
@@ -478,6 +478,7 @@
   begin
     FCaptionHeight := Value;
     Invalidate;
+    ReAlign;
   end;
 end;
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.