Zitat von
bernau:
Ich finde alle bisherigen Post haben auch etwas zum Hintergrundwissen beigetragen. Und das ist gut so.
Gerd
Genau... DDT Rules...
Ansonsten...
[VORKAU=ON]
Delphi-Quellcode:
LogX := GetDeviceCaps(Printer.Handle, LOGPIXELSX);
LogY := GetDeviceCaps(Printer.Handle, LOGPIXELSY);
XMax := GetDeviceCaps(Printer.Handle, PHYSICALWIDTH);
YMax := GetDeviceCaps(Printer.Handle, PHYSICALHEIGHT);
DruckX := Printer.PageWidth;
DruckY := Printer.PageHeight;
Rand_Links := GetDeviceCaps(Printer.Handle, PHYSICALOFFSETX);
Rand_Oben := GetDeviceCaps(Printer.Handle, PHYSICALOFFSETY);
und eine Umrechnung als Beispiel...
Delphi-Quellcode:
function mmtoxpix(X:Extended):integer;
begin
X := X * logX / 25.4;
result := trunc(X)-Rand_Links;
end;
function .mmtoypix(Y:Extended):integer;
begin
Y := Y * logy / 25.4;
result := trunc(Y)-Rand_oben;
end;
[VORKAU=OFF]
Frank
