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/jobs/IMG/

Upload File : current_dir [ Writeable ] document_root [ Writeable ]

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 } ======================================================