Можно ли в ListBox шрифт в одном Item сделать жирным, а в другом обычным?

[Washington]

Можно ли в ListBox'е один Item сделать жирным (шрифт), а другой обычным и т.д.?

[Квэнди]

procedure TForm1.ListBox1DrawItem
(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 := clSilver
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;

делает фон для разных строчек.
Это лучше чем цвет текста, можете поверить.

[Washington]

Так я пробовал. Как сделать это при добавлении элементов из ADOQuery?

[Квэнди]

TextOut(Rect.Left, Rect.Top,
(Control as TListBox).Items[Index]);

вы внимательно читали ?
какое имеет значение откуда вы берете текст ?

[Washington]

with ADOQuery3 do
begin
  close;
  SQL.Clear;
  SQL.Add('Select Plan,Punkt');
  SQL.Add('From Organaiser');
  open;
end;
m:=ADOQuery3.RecordCount;
for i:=1 to m do
begin
ListBox1.AddItem(ADOQuery3.FieldByName('Plan').asString,nil);
Label3.Caption:=IntToStr(i);
ADOQuery3.Next;
end;

Это я добавляю элементы в ListBox.]

Index:=StrToInt(Label3.Caption);
  if ADOQuery3.FieldByName('Punkt').AsInteger=1 then
  begin
   with (Control as TListBox).Canvas do
    begin
     Font.Style:=[fsBold];
     FillRect(Rect);
     TextOut(Rect.Left, Rect.Top, (Control as TListBox).Items[Index]);
    end;
  end;

Это событие onDrawItem.
В итоге вместо 5 элементов разного шрифта вылезает последний.

[Квэнди]

Index:=StrToInt(Label3.Caption);
ошибка.
Label3.caption статичен.
и делать преобразование strtoint , без try.. не совсем корректно

[Washington]

Подождите, а как это Label3.Caption статичен? В ходе добавления записей из ADOQuery курсор перемещается и Index изменяется!

[Квэнди]

Имхо самый нормальный выход для вас будет: выгрузка данных из базы в некий массив, с последующей вставкой их в listbox.

[mihali4]

Что-то вы мудрите...
При добавлении записи в ListBox нужно просто использовать не метод AddItem, а Items.AddObject, где в качестве параметра объекта использовать некий признак для "утолщения" или подкраски шрифта данной записи. Если я правильно понял, этот признак можно взять из ADOQuery3.FieldByName('Punkt').AsIn teger.
А анализировать ADOQuery3.FieldByName('Punkt').AsIn teger при прорисовке ListBox-а совершенно бесполезно - между ними никакой связи нет...

Если сделать так, то канва будет "дергаться" при перерисовке )

С какого лешего ей дергаться?
Вроде я не предлагал какого-то дополнительного прорисовывания...

[Квэнди]

Если сделать так, то канва будет "дергаться" при перерисовке )