Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Dani,
1. Aug 2004
function TPrintMGR.GetXDPI: Integer;
begin
Result := GetDeviceCaps(Printer.Handle,LOGPIXELSX);
end;
function TPrintMGR.GetYDPI: Integer;
begin
Result := GetDeviceCaps(Printer.Handle,LOGPIXELSY);
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Dani,
1. Aug 2004
Merci!
Woher weiß ich aber, wie groß der in Pixel ist?
PS: Wenn ich DruckSkalierung verwende wie in diesem Codebeispiel, wirft der Drucker nur eine leere Seite aus... ich seh den Fehler nicht. :gruebel:
procedure TPrintMGR.PrintBitmap(aBitmap: TBitmap);
var i: Integer;
DrawRect: TRect;
begin
{... Drucker auswählen usw.}
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Dani,
31. Jul 2004
Danke!Die Prozedur zur Druckskalierung schaut sehr gut aus! Ein paar kleine Fragen hätte ich noch: Kann man für die Werte iBlattBreite und iBlattHoehe Printer.PageWidth und Printer.PageHeight verwenden? Entspricht (0|0) hier dem ersten Punkt auf der bedruckbaren Fläche? Falls nicht, wie komme ich an die Druckrandbreite in Pixel?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Dani,
30. Jul 2004
Hi!
Kennt jemand eine Komponente (oder alternativ eine elegante und unkomplizierte Methode mit TPrinter), mit der man Bitmaps ohne viel Trara auf eine (Papier-)Seite drucken kann? Beispielsweise sollte es möglich sein, die/das Bitmap auf Seitengröße zu stretchen, alternativ auch ohne Verlust des originalen Seitenverhältnisses. Die vom Drucker abhängigen Seitenränder sollten beachtet werden.
...