Einzelnen Beitrag anzeigen

Benutzerbild von haentschman
haentschman

Registriert seit: 24. Okt 2006
Ort: Seifhennersdorf / Sachsen
5.390 Beiträge
 
Delphi 12 Athens
 
#1

Version des Printer Dialoges

  Alt 9. Mai 2022, 12:47
Hallöle...

Ich habe eine Funktion die mir den HDC des Printers liefert...soweit so gut.
Delphi-Quellcode:
function TBla.GetPrinterDC: HDC;
var
  PrintDialog: TPrintDlg;
begin
  FillChar(PrintDialog, SizeOf(PrintDialog), 0);
  PrintDialog.lStructSize := SizeOf(PrintDialog);
  PrintDialog.Flags := PD_RETURNDC or PD_HIDEPRINTTOFILE or PD_DISABLEPRINTTOFILE or PD_NOSELECTION;
  if PrintDlg(PrintDialog) then
    Result := PrintDialog.HDC
  else
    Result := 0;
end;
PS: DynaPDF braucht den HDC für den Druck.

Den Dialog (TPrintDlg) finde ich W95 mäßig. ...sprich alt.
TPrintDialog ist auch 'alt'. Imho ein Wrapper für TPrintDlg aus der API.

Ich hätte gern etwas "modernes" wie Bild "neu" (MSSQL Studio, Notepad++). Wo finde ich den? Wie komme ich an den HDC?
Oder der Dialog ist VCL mäßig coloriert... Bild FastReport

Danke für Infos...
Miniaturansicht angehängter Grafiken
alt.png   neu.png   fast.png  

Geändert von haentschman ( 9. Mai 2022 um 13:16 Uhr)
  Mit Zitat antworten Zitat