From: Peter T. <pe...@us...> - 2004-04-23 11:26:19
|
Update of /cvsroot/jvcl/dev/JVCL3/run In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15305/run Modified Files: JvXPBar.pas Log Message: - ItemFrameColor from Dierk Index: JvXPBar.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvXPBar.pas,v retrieving revision 1.33 retrieving revision 1.34 diff -C2 -d -r1.33 -r1.34 *** JvXPBar.pas 23 Apr 2004 09:29:19 -0000 1.33 --- JvXPBar.pas 23 Apr 2004 11:26:10 -0000 1.34 *************** *** 22,28 **** --add GetBarItemsClass in TJvXPCustomWinXPBar. ! Contributor(s):dierk //dierk 2004-4-23 ! --add RoundedItemFrame property TJvXPCustomWinXPBar (Integer>0 is the edge radius) You may retrieve the latest version of this file at the Project JEDI's JVCL home page, --- 22,29 ---- --add GetBarItemsClass in TJvXPCustomWinXPBar. ! Contributor(s):dierk schmid //dierk 2004-4-23 ! --add property RoundedItemFrame in TJvXPCustomWinXPBar (Integer>0 is the edge radius) ! --add property ItemFrameColor in TJvXPBarColors You may retrieve the latest version of this file at the Project JEDI's JVCL home page, *************** *** 271,274 **** --- 272,276 ---- TJvXPBarColors = class(TPersistent) private + FItemFrameColor: TColor; FCheckedColor: TColor; FFocusedColor: TColor; *************** *** 284,287 **** --- 286,290 ---- procedure SetCheckedColor(const Value: TColor); procedure SetFocusedColor(const Value: TColor); + procedure SetItemFrameColor(const Value: TColor); public constructor Create; *************** *** 289,293 **** procedure Change; published ! property CheckedColor: TColor read FCheckedColor write SetCheckedColor default dxColor_CheckedColorXP; property FocusedColor: TColor read FFocusedColor write SetFocusedColor default dxColor_FocusedColorXP; --- 292,296 ---- procedure Change; published ! property ItemFrameColor: TColor read FItemFrameColor write SetItemFrameColor default clHighlight; property CheckedColor: TColor read FCheckedColor write SetCheckedColor default dxColor_CheckedColorXP; property FocusedColor: TColor read FFocusedColor write SetFocusedColor default dxColor_FocusedColorXP; *************** *** 821,829 **** Brush.Color := lBar.Colors.FocusedColor; if lBar.RoundedItemFrame>0 then ! RoundedFrame(ACanvas, Rect, clHighlight, lBar.RoundedItemFrame) else begin FillRect(Rect); ! Frame3D(ACanvas, Rect, clHighlight, clHighlight, 1) end; end; --- 824,835 ---- Brush.Color := lBar.Colors.FocusedColor; if lBar.RoundedItemFrame>0 then ! // RoundedFrame(ACanvas, Rect, clHighlight, lBar.RoundedItemFrame) ! RoundedFrame(ACanvas, Rect, lBar.Colors.ItemFrameColor, lBar.RoundedItemFrame) else begin FillRect(Rect); ! // Frame3D(ACanvas, Rect, clHighlight, clHighlight, 1) ! Frame3D(ACanvas, Rect, lBar.Colors.ItemFrameColor, lBar.Colors.ItemFrameColor, 1) ! end; end; *************** *** 1398,1401 **** --- 1404,1417 ---- end; + procedure TJvXPBarColors.SetItemFrameColor(const Value: TColor); + begin + if FItemFrameColor <> Value then + begin + FItemFrameColor := Value; + Change; + end; + end; + + //=== TJvXPCustomWinXPBar ==================================================== |