[JVCL-Checkins] dev/JVCL3/run JvTabBar.pas,1.6,1.7 - Support for UnitVersioning

[Jens F. <jfu...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/run
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2407/JVCL3/run

Modified Files:
	JvTabBar.pas 
Log Message:
Support for UnitVersioning


Index: JvTabBar.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvTabBar.pas,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** JvTabBar.pas	27 Dec 2004 22:49:34 -0000	1.6
--- JvTabBar.pas	28 Dec 2004 18:03:56 -0000	1.7
***************
*** 409,412 ****
--- 409,417 ----
  implementation
  
+ {$IFDEF UNITVERSIONING}
+ uses
+   JclUnitVersioning;
+ {$ENDIF UNITVERSIONING}
+ 
  type
  {$IFDEF VCL}
***************
*** 1634,1637 ****
--- 1639,1647 ----
      InflateRect(R, -1, -1);
  
+     if Tab.Enabled then
+       Font.Assign(Self.Font)
+     else
+       Font.Assign(Self.DisabledFont);
+ 
      if not Tab.TabBar.CloseButton then
        Inc(R.Left, 2);
***************
*** 1644,1652 ****
      end;
  
-     if Tab.Enabled then
-       Font.Assign(Self.Font)
-     else
-       Font.Assign(Self.DisabledFont);
-     
      Brush.Style := bsClear;
      TextRect(R, R.Left + 3, R.Top + 3, Tab.Caption);
--- 1654,1657 ----