ListBox, выход текста за пределы видимости

[_-Re@l-_]

Вот такая проблема. Как сделать, чтобы текст не выходил за пределы видимости? Ведь перенос строк здесь не выполняется.

[Stilet]

Если не ошибаюсь нужно просто описать события отрисовки OnDrawItem и OnMeasureItem установив стиль lbOwnerDrawVariable
Тогда можно задавать высоту строк Листа и функциями Win API например DrawText с параметром DT_WORDBREAK отрисовывать строки с переносом

[_-Re@l-_]

Тема опять актуальна.
И всё-таки, как сделать перенос с помощью этих OnDrawItem, DrawText? Порылся на форуме, в Яндексе, в Гугле - безрезультатно. Хотелось бы увидеть примеры использования.

[Аватар]

Можно так попробовать, высота текста правда корявым способом определяется да и глянец наводить нужно. В List Box предварительно вставить строки, чтобы пустым не был и не забыть lbOwnerDrawVariable

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    ListBox: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure ListBoxDrawItem(Control: TWinControl; Index: Integer; 
        Rect: TRect; State: TOwnerDrawState);
    procedure ListBoxClick(Sender: TObject);
  private
    { Private declarations }
    lPaintBox: TPaintBox;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
begin
  lPaintBox:=TPaintBox.Create(Self);
  lPaintBox.Parent:=Self;
  lPaintBox.Left:=0;
  lPaintBox.Top:=0;
  lPaintBox.ClientWidth:=ListBox.ClientWidth;
  lPaintBox.ClientHeight:=ListBox.ClientHeight;
  lPaintBox.Font.Assign(ListBox.Font);
  for i:=0 to ListBox.Items.Count-1 do begin
    ListBox.ItemIndex:=i;
    ListBoxClick(ListBox);
  end;
  ListBox.ItemIndex:=0;
end;

procedure TForm1.ListBoxDrawItem(Control: TWinControl; Index: Integer;
    Rect: TRect; State: TOwnerDrawState);
var s: String;
begin
  s:=ListBox.Items.Strings[Index];
  DrawText(ListBox.Canvas.Handle,PChar(s),Length(s),Rect,DT_WORDBREAK);
end;

procedure TForm1.ListBoxClick(Sender: TObject);
var h: Integer;
    s: String;
    Rect: TRect;
begin
  s:=ListBox.Items.Strings[ListBox.ItemIndex];
  Rect:=lPaintBox.ClientRect;
  h:=DrawText(lPaintBox.Canvas.Handle,PChar(s),Length(s),Rect,DT_WORDBREAK);
  Repaint;
  SendMessage(ListBox.Handle,LB_SetItemHeight,ListBox.ItemIndex,h);
end;

end.