Check List Box einfärben

[Keldorn]

Delphi-Quellcode:

    if (cblb_statusinfo.Checked[Index]) then
    begin
      Hintergrund zeichnen
      text zeichnen
    end
    else
    begin
      text zeichnen
    end;

fällt dir was auf? im else zweig zeichnest du nur den text.
da fehlt das setzen der Hintergrundfarbe und das fillrect. mit dem state kannst du rausbekommen, ob der eintrag selektiert ist oder nicht, und entsprechend die farbe auf clwindow (nix selektiert) oder clhighlight (selektiert) setzen.

Mfg Frank