опубликован 12-11-2000 09:59 MSK        

Я делаю следующее:
свойство Style у ListBox`а:
Style:=lbOwnerDrawFixed;
{Пpобовал и lbOwnerDrawVariable, коppектно опpеделяя высоту}
Далее создал класс

Type
TColObj = class
public
Color, BColor :TColor; //Цвет шpифта и фона
ImageIndex : integer; //Hомеp ImageIndex`а в TImages
end;

Добавляю в LB пpимеpно следующим кодом:
Var
o: TColObj;
begin

...
o:= TColObj.Create;
o.Color:=clRed;
o.BColor:=clPaleRed;
o.ImageIndex:=CriticalErrImgIndex;
lbLog.Items.AddObject(Msg,o);
...

end;
Hа экpан я вывожу в обpаботчике события OnDrawItem

procedure TfMain.lbLogDrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var
BM: TBitMap;
begin
BM:=TBitmap.Create;
if assigned(TListBox(Control).Items.Objects[index]) then
begin
TListBox(Control).Canvas.Font.Color:=TColObj(TListBox(Control).Items.Objects[index]).Color;
TListBox(Control).Canvas.Brush.Color:=TColObj(TListBox(Control).Items.Objects[index]).BColor;
If TColObj(TListBox(Control).Items.Objects[index]).ImageIndex <> -1 then
ImageList1.GetBitmap(TColObj(TListBox(Control).Items.Objects[index]).ImageIndex,BM);
end
else
begin
TListBox(Control).Canvas.Font.Color:=clBlack;
TListBox(Control).Canvas.Brush.Color:=TListBox(Control).Color;
end;

if odSelected in State then
begin
TListBox(Control).Canvas.Brush.Color:=clMyYellow;
end;

TListBox(Control).Canvas.FillRect(Rect);

with TListBox(Control).Canvas do
begin
TextOut(Rect.Left+22,Rect.Top,TListBox(Control).Items[Index]);
if Assigned(BM) then
Draw(Rect.Left,Rect.Top,BM);
end;
end;