[Delphi] Probleem met PageWidth en height ivm printers

[Verwijderd]

Ik ben een programma aan het schrijven voor een bedrijf..

Ik gebruik hiervoor Borland Delphi...

Maar nu zit het zo, dat ik een print-optie heb, en in mn source, teken en schrijf ik dus van alles op de canvas van de Printer... Maar De page-width en height hangt af van je printer.. en dat is wel op te vragen, maar dan zou ik dus voor lelke lijn, en elke positie, of coordinaat een berekening moeten neerletten...

Is er niet een mogelijkheid, om htegeen ik getekend heb, in 1 keer van grote te kunnen veranderen... In totalliteit dus...


Owja, nog een simpele vraag: Hoe verander ik Floating-point-values in Integers. Hoe ik het ook doe, de enige manier die me lukt, is om er eerst een string van te maken, en dan pas een integer... En dat is uiteraard onlogisch.

Integer1 := StrToInt(FloatToString(Float1));

[_Thanatos_]

Nee dat is niet mogelijk, tenzij je eerst alles in een windows metafile stopt, maar daarvoor zijn al die berekeningen ook nodig. Je kan evengoed alle berekeningen zelf doen. Wat is daar eigenlijk op tegen?

Wat betreft je tweede vraag: daar zijn verschillende functies voor, te weten Round(), Trunc() en Int(). Moet je maar ff in de manual kijken wat de verschillen zijn.

[Verwijderd]

Okee thanx. Hetgeen ik erop tegen had, had te maken met dat tweede.. anders zou ik voor elk lijntje 4x iets als

StrToInt(FloatToString(Float1)); moeten opgeven..

Maar als het met round oid kan is het beter natuurlijk.

[Paul]

Dit probleem heb ik ook gehad. Eerst werkte alles perfect, maar toen klanten nieuwere printers kochten, bleek dit niet meer te werken (vaste waarde geven).

We hebben het toen opgelost door een verhouding te berekenen. en die te gebruiken in de printopdracht

Delphi:

procedure printIets;
var xMod, yMod : double;

  function x(xWaarde : integer): integer;
  begin
    result := round(xwaarde * xMod);
  end;

  function y(yWaarde : integer): integer;
  begin
    result := round(ywaarde * yMod);
  end;

begin
  xMod := Printer.PageWidth / 2400;   // <-- Waarde waar oude X op gebaseerd was
  yMod := Printer.PageHeight / 3400;  // <-- Waarde waar oude y op gebaseerd was
  with Printer.Canvas do
    begin
      TextOut(x(50), y(50), 'Hello world');

      [..]

    end;
end;

[Verwijderd]

StrToInt(FloatToString(Float1));

Dit kan natuurlijk alleen maar goed gaan wanneer die Float in principe een integer waarde bevat, anders niet! Voorbeeld:

float = 1,33445533. Je converteert dit naar een string. De string krijg dus de waarde 1,33445533 (copy-paste ) en vervolgens ga je die string weer opzetten naar een integer, wat dan dus niet wil. Je zult dus wel een van de functies van _Thanatos_ moeten gebruiken als het echt mooi en goed wilt doen

[Verwijderd]

Bedankt!

[ProgrammerX]

Misschien heb ik iets gemist ofzo maar wat is het voordeel van het schrijven naar de canvas van de printer t.o.v. het gebruiken van een reportwriter zoals quickreport (niet dat quickreport zo'n geweldig product is ). Het gebruik van een reportwriter is misschien eenvoudiger ?

[Verwijderd]

Zal ik daar eens naar kijken...