Forum: Programmieren allgemein
by Luckie,
23. Jul 2004
Was geht nicht? Also mein Code erfüllt alle deine Wünsche, so wie ich sie verstanden habe.
Forum: Programmieren allgemein
by Luckie,
23. Jul 2004
Falls es der Threadersteller übersehen hat, will ich es noch mal nach oben holen. ;)
Forum: Programmieren allgemein
by Luckie,
22. Jul 2004
Moment habe es gleiche, da habe ich irgendwo vergessen mit den Konstanten zu arbeiten.
DrawHorzMarker(Bmp.Canvas, pt, Origin.X+10); // so stimmt es
Und:
cntVerMarkers := (LEN_X - ORG_X) div SCALE;
Es lag also nicht an den Prozeduren, sondern wie ich sie benutzt habe, ich habe ihnen falsche Werte übergeben.
Forum: Programmieren allgemein
by Luckie,
22. Jul 2004
Nö. ORG_X, ORG_Y und LEN_X, LEN_Y kann er ja beliebig wählen. Ich habe es nur eben der übersichtlichkeithalber als Konstanten deklariert.
Forum: Programmieren allgemein
by Luckie,
22. Jul 2004
So habe dir mal eben was schnell gemacht. Sollte so ziemlich von allen unabhängig sein.
Der Knackpunkt ist der, dass du deine logischen Koordinaten des Koordinatenkreuzes in "physische" Pixel zum Eintragen umrechnen musst. Und das macht diese Funktion:
function Coordinates2Pixel(Origin, cords: TPoint; Interval: Integer): TPoint;
begin
result.X := Origin.X + (cords.X * Interval);
...