Fastreport und TPrintDialog

[Karstadt]

..kann ich diesen Drucker Fettmarkieren?

Das Ereignis ist onDrawItem.. aber was nun...

[Sharky]

Neue Frage -> Neuer Thread.

Vorher aber mal die Suche benutzen. Ich bin fast sicher das wir das schon einmal hatten.

[Karstadt]

So. Nun habe ich alles was ich wissen wollte. Vielen Dank!

Delphi-Quellcode:

procedure bx_druckerDrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with cbx_drucker do
  begin
    Canvas.FillRect(Rect);
    If Index = Printer.PrinterIndex then
    Canvas.Font.Style := [fsBold] else Canvas.Font.Style := [];
    Canvas.TextOut(Rect.Left, Rect.Top, Items[Index]);
  end;
end

Du hast natürlich recht bezüglich der Suchfunktion! Wer suchen kann ist klar in Vorteil

[Karstadt]

[quote]
Printer.PrinterIndex gibt den Standarddrucker an.

Delphi-Quellcode:

begin
  ComboBox1.Items := Printer.Printers;
  ComboBox1.ItemIndex := Printer.PrinterIndex;
end;

nein. das ist der augewähle drucker. Wenn ich mit Printdialog einen anderen auswähle, dann ist dann wird das als STANDARD drucker angezeigt.

[Sharky]

Zitat von Karstadt:

... nein. das ist der augewähle drucker.

Okay, habe ich etwas unglücklich formuliert.
Beim Programmstart ist .PrinterIndex auf den Standarddrucker eingestellt.

Zitat von Karstadt:

Wenn ich mit Printdialog einen anderen auswähle, dann ist dann wird das als STANDARD drucker angezeigt.

Jup. Weil Delphi das ja intern in seinem "Objekt" Printer handelt. Du kannst dir jetzt also entweder beim Programmstart den Index des Standarddruckers merken (schlecht). Oder an einer gewünschten Stelle PrinterIndex wieder auf den Standarddrucker stellen und dann den Index auslesen (besser).