<div dir="ltr">On Sat, Feb 28, 2015 at 12:33 PM, FreeMan <span dir="ltr"><<a href="mailto:freeman35@delphiturkiye.com" target="_blank">freeman35@delphiturkiye.com</a>></span> wrote:<br><div class="gmail_extra"><div class="gmail_quote"><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex">
  

    
  
  <div bgcolor="#FFFFFF" text="#000000">
    fpc & lazarus svn yosemite qt x64<br>
    Is it possible change tick color ?, 'cos hard viewing if its checked
    and not row focused. <br></div></blockquote><div><br></div><div style>It is drawn using theme services. It is supposed to look identical with the other ticks in your system. Does it not?</div><div style>I copy below the function used for drawing the boolean editor checkboxes. BTW, now it also works for Set element types.</div><div style><br></div><div style>Sandro Cumerlato and Vojtech Cihak planned to use a new customdrawn checkbox there.</div><div style>TCheckboxThemed is already added to LazControls but not yet used for anything.</div><div style>It will solve some alignment problems but likely not your tick's visual appearance because it also will use theme services.</div><div><br></div><div style>Anyway, if there is a bug then it is in theme services, not in property editor code.</div><div style><br></div><div style>Regards,</div><div style>Juha</div><div style><br></div><div><br></div><div>---</div><div><div>function TPropertyEditor.DrawCheckbox(ACanvas: TCanvas; const ARect: TRect;</div><div>  IsTrue: Boolean): TRect;</div><div>// Draws a Checkbox using theme services for editing booleans.</div><div>// Returns the output rectangle adjusted for new text location.</div><div>var</div><div>  Details: TThemedElementDetails;</div><div>  Check: TThemedButton;</div><div>  Sz: TSize;</div><div>  TopMargin: Integer;</div><div>  VisVal: String;</div><div>begin</div><div>  VisVal := GetVisualValue;</div><div>  // Draw the box using theme services.</div><div>  if (VisVal = '') or (VisVal = oisMixed) then</div><div>    Check := tbCheckBoxMixedNormal</div><div>  else if IsTrue then</div><div>    Check := tbCheckBoxCheckedNormal</div><div>  else</div><div>    Check := tbCheckBoxUncheckedNormal;</div><div>  Details := ThemeServices.GetElementDetails(Check);</div><div>  Sz := ThemeServices.GetDetailSize(Details);</div><div>  TopMargin := (ARect.Bottom - ARect.Top - Sz.cy) div 2;</div><div>  Result := ARect;</div><div>  Inc(Result.Top, TopMargin);</div><div>  // Left varies by widgetset and theme etc. Real Checkbox itself has a left margin.</div><div>  Inc(Result.Left, 2);                // ToDo: How to find out the real margin?</div><div>  Result.Right := Result.Left + Sz.cx;</div><div>  Result.Bottom := Result.Top + Sz.cy;</div><div>  ThemeServices.DrawElement(ACanvas.Handle, Details, Result, nil);</div><div>  // Text will be written after the box.</div><div>  Result := ARect;</div><div>  Inc(Result.Left, Sz.cx + 4);</div><div>end;</div></div><div><br></div></div></div></div>