Checkbox

[DGL-luke]

ok. bei mir hat die listview einen Canvas. aber wenn du eh keinen text brauchst, kann man viel einfach weglassen:

Delphi-Quellcode:

function MakeBlankCheckBoxes(Container: TWinControl; Number: Cardinal; CBOnClick: TNotifyEvent = nil): TObjectList;
var i: Integer;
begin
  Result := TObjectList.Create;
  for i := 0 to number-1 do
  with Result[Result.Add(TCheckBox.Create(Container))] as TCheckBox do //sorry dafür. aber da mach ich jetzt kein extra faß variablen für auf.
  begin
    Parent := Container;
    Top := i * 16; //reicht 16?
    Left := 3; //das anpassen
    Height := 16;   
    Width := 16; //16 extra für die Box
    Tag := i;
    Caption := '';
    OnClick := CBOnClick;
  end;
end;

Du wirst aber vermutlich das Problem haben, dass die CheckBoxes nicht von alleine mitscrollen.