Отображение CheckListBox Опции

[Vinchkovsky]

Возникло две проблемы с этим компонентом:
1) Как сделать, чтобы автоматично переводилась строка, если "нет места"? То есть, если строка длиннее компонента, та часть, что не влезает, должна "уйти" вниз.
2) Что надо поставить, чтобы "от руки" изменять размер компонента? ТИпа СкроллБокса, но для изменения размера.
Спасибо

[volvo]

1. Код можно и усовершенствовать, но идея такая:

Сначала

Style := lbOwnerDrawFixed;

Потом увеличиваешь ItemHeight для CheckListBox-а в 2 раза, и на событие OnDrawItem вешаешь код:

procedure TForm1.CheckListBox1DrawItem(Control: TWinControl;
  Index: Integer; Rect: TRect; State: TOwnerDrawState);
var

  Sentence,
  CurWord: string;
  SpacePos,
  CurX, CurY: Integer;
  EndOfSentence: Boolean;

begin

  with (Control as TCheckListBox) do begin
    Canvas.Font.Size:=8;
    Canvas.FillRect(Rect);

    CurX := Rect.Left;
    CurY := Rect.Top;

    Sentence := Items[Index];
    EndOfSentence := FALSE;

    while (not EndOfSentence) do begin

      SpacePos := Pos(' ', Sentence);
      if SpacePos > 0 then begin
        CurWord := Copy(Sentence, 0, SpacePos);
        Sentence := Copy(Sentence, SpacePos + 1, Length(Sentence) - SpacePos);
      end
      else begin
        EndOfSentence := TRUE;
        CurWord := Sentence;
      end;

      with Canvas do begin
        if (TextWidth(CurWord) + CurX) > Rect.Right then begin
          CurY := CurY + TextHeight(CurWord);
          CurX := Rect.Left;
        end;

        TextOut(CurX, CurY, CurWord);
        CurX := CurX + TextWidth(CurWord);
      end;
    end;

  end;
end;

(С) ViktorXP

Вот так оно выглядит: