Проблема с ListBox

← →
Tempora (2006-05-24 11:50) [0]

Пытаюсь выделить две строки в ListBox зеленым цветом. Использую указанный ниже код:
procedure TfWorking.log1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
if pos(log1.Items[index],"Соединение с FTP установлено") <> 0 then
log1.Canvas.Font.Color:=clGreen;
if pos(log1.Items[index],"Содержимое FTP получено") <> 0 then
log1.Canvas.Font.Color:=clGreen;
if odSelected in State then
log1.Canvas.Font.Color:=clHighlightText;
log1.Canvas.FillRect(Rect);
log1.Canvas.TextOut(Rect.Left,Rect.Top,log1.Items[Index]);
end;
Однако ничего не выделяется.
Просто сравнивать строки if log1.Items[index] ="Содержимое FTP получено" не могу, так как впереди идет текущее время, которое постоянно меняется.
Где я ошибся, подскажите пожалуйста.

← →
Tempora (2006-05-24 12:05) [1]

ыыыы.....
извиняюсь, перепутал местами что ищу и где ищу.

← →
Elen © (2006-05-24 12:21) [2]

Попробуй выставь свойство Listbox1.style:= lbOwnerDrawFixed

← →
Ladan (2006-05-24 16:41) [3]

> procedure TForm1.ListBox2DrawItem(Control: TWinControl;
> Index: Integer;
> Rect: TRect; State: TOwnerDrawState);
> var
> myColor: TColor;
> myBrush: TBrush;
> begin
> myBrush := TBrush.Create;
> with (Control as TListBox).Canvas do
> begin
> if not Odd(Index) then
> myColor := clRed
> else
> myColor := clYellow;
>
> myBrush.Style := bsSolid;
> myBrush.Color := myColor;
> Windows.FillRect(handle, Rect, myBrush.Handle);
> Brush.Style := bsClear;
> TextOut(Rect.Left, Rect.Top,
> (Control as TListBox).Items[Index]);
> MyBrush.Free;
> end;
> end;

Проблема с ListBox Найти похожие ветки