Schrifttyp der Items in ListBox

[mo_greene]

Hallo,

wie kann ich den Schrifttyp der Items in der ListBox während der Laufzeit des Programms auf Fett stellen?

Vielen Dank :-D

[DeddyH]

Selber zeichnen

[mo_greene]

Zitat:

Zitat von DeddyH

Selber zeichnen

Was bitte? :mrgreen:

[DeddyH]

Meine Delphi 7-Hilfe sagt zu "OnDrawItem":

Zitat:

Es folgt eine typische Behandlungsroutine für das Ereignis OnDrawItem. Hier wird in einem Listenfeld mit dem Stil lbOwnerDrawFixed ein Bitmap links neben jedem String gezeichnet.

Windows:

Delphi-Quellcode:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect:TRect;State: TOwnerDrawState);

var
   Bitmap: TBitmap;      { Temporäre Variable für Bitmap }
   Offset: Integer;      { Offset für Text }
begin
   with (Control as TListBox).Canvas do  { Ausgabe in Zeichenfläche der Liste, nicht im Formular }
   begin
   FillRect(Rect);       { Rechteck löschen }
   Offset := 2;          { Standard-Offset }
   Bitmap := TBitmap((Control as TListBox).Items.Objects[Index]);  { Bitmap abrufen }
   if Bitmap <> nil then

begin
      BrushCopy(Bounds(Rect.Left + Offset, Rect.Top, Bitmap.Width, Bitmap.Height),
         Bitmap, Bounds(0, 0, Bitmap.Width, Bitmap.Height), clRed);  { Bitmap anzeigen}
      Offset := Bitmap.width + 6;    { Vier Pixel zwischen Bitmap und Text einfügen}
   end;
   TextOut(Rect.Left + Offset, Rect.Top, (Control as TListBox).Items[Index])  { Text anzeigen }
   end;
end;

Plattformübergreifend:

Delphi-Quellcode:

procedure TForm1.ListBox1DrawItem(Sender: TObject; Index: Integer; Rect:TRect; State: TOwnerDrawState);

var
  Bitmap: TBitmap;      { Temporäre Variable für Bitmap }
  Offset: Integer;      { Offset für Text }
begin
  with (Sender as TListBox).Canvas do  { Ausgabe in Zeichenfläche der Liste, nicht im Formular }
  begin
  FillRect(Rect);       { Rechteck löschen }
  Offset := 2;          { Standard-Offset }
  Bitmap := TBitmap((Sender as TListBox).Items.Objects[Index]); { Bitmap abrufen }
  if Bitmap <> nil then

  begin
    Draw(Rect.Left + Offset, Rect.Top, Bitmap); { Bitmap anzeigen}
    Offset := Bitmap.width + 6;    { Vier Pixel zwischen Bitmap und Text einfügen}
  end;
  TextOut(Rect.Left + Offset, Rect.Top, (Sender as TListBox).Items[Index])  { Text anzeigen }
  end;
end;

[mkinzler]

Zu englisch OwnerDraw
Event: onDrawItem

[Fussball-Robby]

Wieso nicht einfach so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.Font.Style := ListBox1.Font.Style + [fsBold];
end;

:gruebel: :gruebel:
Es sei denn, er will nur einzelne Items fett machen.

[mo_greene]

Zitat:

Zitat von Fussball-Robby

Es sei denn, er will nur einzelne Items fett machen.

Ja, ich möchte nur einzelne Items fett machen. :)

[Fussball-Robby]

Na gut, dann kannst du dir z.B mal das angucken