Fórum CheckListBox espaçamento entre check? #391564

procedure TForm1.FormCreate(Sender: TObject);
var
  iItem: Integer;
begin
  with CheckListBox1 do
  begin
    ItemHeight := (Height Div Items.Count);
    iItem := ItemHeight;
  end;
  CheckListBox1.ItemHeight := iItem -1;
end;

procedure TfrmTributos.chklistTributoDrawItem(
  Control: TWinControl; Index: Integer; Rect: TRect;
  State: TOwnerDrawState);
begin
   with (Control as TCheckListBox).Canvas do
   begin
     //Font.Color := clBlack; //aqui não deu certo esta negritando a fonte
     Brush.Style := bsSolid; //aqui testei todas constantes e não deu certo
     TextOut(Rect.Left + 4, Rect.Top + 10,(Control as TCheckListBox).Items[Index]) ;
   end;
end;

iTotalItem := chklistTributo.Items.Count;
     if iTotalItem = 7 then
     begin
       Brush.Style := bsSolid;
       TextOut(Rect.Left + 4, Rect.Top + 3,(Control as TCheckListBox).Items[Index])
     end else
     if iTotalItem = 4 then
     begin
       Brush.Style := bsSolid;
       TextOut(Rect.Left + 4, Rect.Top + 10,(Control as TCheckListBox).Items[Index]);
     end;