Server : Apache System : Linux webd348.cluster026.gra.hosting.ovh.net 5.15.148-ovh-vps-grsec-zfs-classid #1 SMP Thu Feb 8 09:41:04 UTC 2024 x86_64 User : hednacluml ( 122243) PHP Version : 8.3.9 Disable Function : _dyuweyrj4,_dyuweyrj4r,dl Directory : /home/hednacluml/info/IMG/ |
Index: JvXPCheckCtrls.pas =================================================================== --- JvXPCheckCtrls.pas (révision 6009) +++ JvXPCheckCtrls.pas (copie de travail) @@ -278,10 +278,10 @@ BoundColor: TColor; begin with Canvas do - begin + begin // clear background. Rect := GetClientRect; - Brush.Color := Color; + Brush.Color := Self.Color; FillRect(Rect); // draw designtime rect. if csDesigning in ComponentState then @@ -289,38 +289,41 @@ // draw boundlines. if BoundLines <> [] then - begin - if Style.GetTheme = WindowsXP then - BoundColor := dxColor_Btn_Enb_Border_WXP - else - BoundColor := dxColor_DotNetFrame; + begin + // if Style.GetTheme = WindowsXP then + // BoundColor := dxColor_Btn_Enb_Border_WXP + // else + BoundColor := dxColor_DotNetFrame; JvXPDrawBoundLines(Self.Canvas, BoundLines, BoundColor, Rect); - end; + end; // draw focusrect. if dsFocused in DrawState then - begin + begin Brush.Style := bsSolid; DrawFocusRect(Rect); - end; + end; // draw check symbol. DrawCheckSymbol(Rect); // draw caption. - SetBkMode(Handle, Transparent); + + SetBkMode(Handle, TRANSPARENT); Font.Assign(Self.Font); if BiDiMode = bdRightToLeft then - begin + begin Dec(Rect.Right, FCheckSize + 4 + Spacing); - JvXPPlaceText(Self, Canvas, Caption, Font, Enabled, True, taRightJustify, True, Rect) - end + JvXPPlaceText(Self, Canvas, Caption, Font, Enabled, True, + taRightJustify, True, Rect); + end else - begin + begin Inc(Rect.Left, FCheckSize + 4 + Spacing); - JvXPPlaceText(Self, Canvas, Caption, Font, Enabled, True, taLeftJustify, True, Rect); + JvXPPlaceText(Self, Canvas, Caption, Font, Enabled, True, + taLeftJustify, True, Rect); + end; end; - end; end; //=== { TJvXPCheckbox } ======================================================