[Lazarus] about checkbox in Object inspector
juha.manninen62 at gmail.com
Sat Feb 28 17:10:46 CET 2015
On Sat, Feb 28, 2015 at 12:33 PM, FreeMan <freeman35 at delphiturkiye.com>
> fpc & lazarus svn yosemite qt x64
> Is it possible change tick color ?, 'cos hard viewing if its checked and
> not row focused.
It is drawn using theme services. It is supposed to look identical with the
other ticks in your system. Does it not?
I copy below the function used for drawing the boolean editor checkboxes.
BTW, now it also works for Set element types.
Sandro Cumerlato and Vojtech Cihak planned to use a new customdrawn
TCheckboxThemed is already added to LazControls but not yet used for
It will solve some alignment problems but likely not your tick's visual
appearance because it also will use theme services.
Anyway, if there is a bug then it is in theme services, not in property
function TPropertyEditor.DrawCheckbox(ACanvas: TCanvas; const ARect: TRect;
IsTrue: Boolean): TRect;
// Draws a Checkbox using theme services for editing booleans.
// Returns the output rectangle adjusted for new text location.
VisVal := GetVisualValue;
// Draw the box using theme services.
if (VisVal = '') or (VisVal = oisMixed) then
Check := tbCheckBoxMixedNormal
else if IsTrue then
Check := tbCheckBoxCheckedNormal
Check := tbCheckBoxUncheckedNormal;
Details := ThemeServices.GetElementDetails(Check);
Sz := ThemeServices.GetDetailSize(Details);
TopMargin := (ARect.Bottom - ARect.Top - Sz.cy) div 2;
Result := ARect;
// Left varies by widgetset and theme etc. Real Checkbox itself has a
Inc(Result.Left, 2); // ToDo: How to find out the real
Result.Right := Result.Left + Sz.cx;
Result.Bottom := Result.Top + Sz.cy;
ThemeServices.DrawElement(ACanvas.Handle, Details, Result, nil);
// Text will be written after the box.
Result := ARect;
Inc(Result.Left, Sz.cx + 4);
-------------- next part --------------
An HTML attachment was scrubbed...
More information about the Lazarus