[Lasse]

Any chance of getting an option for the TsColorBox color rectangle? I prefer square rather than rectangle (see TsColorBox.png).

I have fixed this in sComboBoxes.pas like this:

Code:

1721: InflateRect(gRect, -2, -1); // 0 => -1
1722: //gRect.Left := gRect.Left – 2;
1723: gRect.Right := gRect.Left + {2 *} (gRect.Bottom – gRect.Top); // square
1724:
1725: FillDC(Bmp.Canvas.Handle, gRect, C);
1726: Bmp.Canvas.Brush.Color := clBlack; // ColorToBorderColor(ColorToRGB(C));

[Support]

Hello!

New ColorRectWidth and ColorRectHeight properties were added in latest release, you can try it.

[Lasse]

Thanks, that is working. I did fix static border color thou.

Code:

Bmp.Canvas.Brush.Color := clBlack; // ColorToBorderColor(ColorToRGB(C));

[Author]

Posts