Wort in Listbox mit Fett anzeigen?

[DSeven]

Hallo

Ich möchte ein Wort in der ganzen IteList Fett anzeigen lassen. Wie geht das?

Also zum Beispiel steht in den Items
Hallo. Delphi Cool
Delphi is the best.

Und dann soll das Wört "Delphi" in beiden items fett angezeigt werden.
Danke

[CalganX]

Hi,
jetzt würde ich einfach mal sagen selber zeichnen.
Schau dir mal das Ereignis OnDrawItem an.

Chris

[T-Olli]

Um das in einer ListBox hinzubekommen wirst du die Ausgabe selber übernehmen müssen (style=lbOwnerDrawFixed). Die entsprechend OnDrawItem Routine könnte z.B. so aussehen:

Code:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
begin
  Rect: TRect; State: TOwnerDrawState);
  with (Control as TListBox).Canvas do
  begin
    FillRect(Rect);
    PenPos := Rect.TopLeft;
    TextOut(PenPos.x, PenPos.y, 'Normale Schrift ');
    Font.Style := Font.Style + [fsBold];
    TextOut(PenPos.x, PenPos.y, 'Fette Schrift');
    Font.Style := Font.Style - [fsBold];
    TextOut(PenPos.x, PenPos.y, ' und weiter mit normaler Schrift');
  end;
end;

[DSeven]

Hallo

Danke werds so machen.