Hi,
ich möchte gerne auf diese Panel "drucken". Leider finde ich weder ein Beispiel noch sonst irgendwas. Ich dachte erst, das ding hätte einen Canvas. Hat es aber nicht.

Hat schon jemand etwas mit diesem Panel gemacht, oder kann mir eine anderes PrintPreviewPanel empfehlen?

Vielen dank im voarus

Hallo,

Zitat:

ich möchte gerne auf diese Panel "drucken". Leider finde ich weder ein Beispiel noch sonst irgendwas [...]

Vielleicht hilft Dir folgendes weiter (TLMDPrintPreviewPanel, TLMDStringsPrintTask und TLMDPrinter auf 's Form klatschen):

zusammenfalten · markieren

Delphi-Quellcode:

  TForm1 = class(TForm)
    Button1: TButton;
    LMDPrintPreviewPanel1: TLMDPrintPreviewPanel;
    LMDStringsPrintTask1: TLMDStringsPrintTask;
    LMDPrinter1: TLMDPrinter;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  LMDStringsPrintTask1.Lines.Add ('Hallo DelTurbo,');
  LMDStringsPrintTask1.Lines.Add ('ein Beispiel für die Nutzung eines TLMDPrintPreviewPanel');
  LMDStringsPrintTask1.PreparePages;
  LMDPrintPreviewPanel1.PrinterHelper := LMDPrinter1.PrinterHelper
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  LMDStringsPrintTask1.Printer := LMDPrinter1 // oder im OI setzten
end;

Zitat:

[...] Ich dachte erst, das ding hätte einen Canvas. Hat es aber nicht.

Wenn Du unbedingt ein Canvas benötigst, dann könntest Du auch eine TLMDImagePrintTask nutzen.

Gruß

Geil. Klappt. Vielen dank und netten Gruß