Цитата:
Сообщение от Kapitoshka438
Код:
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var
S: string;
begin
with TListBox(Control), Canvas do
begin
S := Items[Index];
FillRect(Rect);
SetBkMode(Handle, TRANSPARENT);
SetTextAlign(Handle, TA_CENTER);
TextOut(ClientWidth div 2, Rect.Top, S);
end;
end;
И еще установи у ListBox'а свойство свойство Style = lbOwnerDrawFixed.
|
Спасибо огромное! Все получилось!