|
From: Jens F. <jfu...@us...> - 2004-12-28 18:04:05
|
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 ---- |