TChecklistbox : einzelne Zeilen ohne Checkbox?

[_frank_]

gut, bei D3 gibts das Property "Header" noch nicht. ich hab damals per ownerdraw die chekboxen übermalt

nur fix rauskopiert

Delphi-Quellcode:

procedure TForm_TsctMain.ChkLB_FoldFlagsDrawItem(Control: TWinControl;
  Index: Integer; Rect: TRect; State: TOwnerDrawState);
var r:TRect;
begin
  r:=rect;
  if ChkLB_FoldFlags.items[index]='' then
  begin
    rect:=classes.rect(0,rect.top,rect.right,rect.bottom);
    ChkLB_FoldFlags.Checked[index]:=false;
    ChkLB_FoldFlags.canvas.Brush.Color:=ChkLB_FoldFlags.color;
  end;
  //if (odSelected in State) and (ChkLB_FoldFlags.items[index]<>'') then ChkLB_FoldFlags.canvas.Brush.color:=clGreen;
  ChkLB_FoldFlags.canvas.FillRect(rect);
  if (odfocused in state) then
    ChkLB_FoldFlags.canvas.Rectangle(r.left,r.top,r.right,r.bottom);
  ChkLB_FoldFlags.canvas.TextOut(rect.left+2,rect.top+1,ChkLB_FoldFlags.items[index]);
end;

Gruß Frank