Trotz Rundung prezise zeichnen

[Dunkelbunt27]

Hallo Delphi Praxis,

Ich rechne ein Netz aus Waagerechten udn Senkrechten Linien in einer Schleife aus.

Delphi-Quellcode:

KaestchenBreite       :=round((Zeichenflaeche.Width-RandLinks-RandRechts)/AnzahlSpalten);
KaestchenHoehe        :=round((Zeichenflaeche.Height-RandOben-RandUnten)/AnzahlZeilen);

Delphi-Quellcode:

for Zeilenzaehler := 0 to AnzahlZeilen do
   begin
      Form1.Canvas.MoveTo(RandLinks,RandOben + Zeilenzaehler*Kaestchenhoehe);
      Form1.Canvas.LineTo((Zeichenflaeche.Width-RandRechts),RandOben + Zeilenzaehler*Kaestchenhoehe);
    end;

   for Spaltenzaehler := 0 to AnzahlSpalten do
    begin
      Form1.Canvas.MoveTo(RandLinks + Spaltenzaehler*KaestchenBreite ,RandOben);
      Form1.Canvas.LineTo(RandLinks + Spaltenzaehler*KaestchenBreite ,(Zeichenflaeche.Height-RandOben));
    end;

Das Ganze sieht aus wie im Anhang.
Wenn ich die Größe des Programmsändere ändert sich auch die Größe des Rasters, bei einigen Größen treten durch die Rundung Fehler auf.
Es dürfen aber auch unten rechts nur volle Kästchen entstehen.

Weiß jemand, wie ich immer volle Kästchen bekomme?

FG Dunkelbunt

[Namenloser]

Das Problem ist das round() – änder mal den Variablentyp in single oder double und verschiebe das round() in die Berechnung in der Schleife:

Delphi-Quellcode:

KaestchenBreite := (Zeichenflaeche.Width  - RandLinks - RandRechts)/AnzahlSpalten;
KaestchenHoehe  := (Zeichenflaeche.Height - RandOben  - RandUnten)/AnzahlZeilen; 

for Zeilenzaehler := 0 to AnzahlZeilen do
   begin
      Form1.Canvas.MoveTo(RandLinks, round(RandOben + Zeilenzaehler*Kaestchenhoehe));
      Form1.Canvas.LineTo(Zeichenflaeche.Width-RandRechts, round(RandOben + Zeilenzaehler*Kaestchenhoehe));
   end;

{ ... }

[rollstuhlfahrer]

Deine Längen- und Höhenbestimmung für Zeilen und Spalten stimmt nicht.

Vermutlich ist (Zeichenflaeche.Width-RandRechts) keiner als RandLinks + AlzahlSpalten*KaestchenBreite .

Bernhard

[Dunkelbunt27]

@ rollstuhlfahrer
Doch, es stimmt so wie es ist, aber trotzdem danke, du hast ja nur einen kleinen Ausschnitt gesehen.

@ NamenLozer
Super! Nun funktioniert es genau wie es soll.

Danke euch beiden!