canvas - lineto

[moodle]

Hallo, ich hab für ein Program zur Berechnung des Wildbestandes folgenden Code getipst,
um ein Liniendiagramm in einer TPaintBox zu erstellen:

Code: Alles auswählen

factx:=Form2.pbxErgebnis.Width/Jahre;
  facty:=Form2.pbxErgebnis.Height/max;
  Form2.pbxErgebnis.Color:=clWhite;
  for i:=1 to jahre do begin
    Form2.pbxErgebnis.Canvas.Pen.Color:=clBlack;  // Tier 1
    Form2.pbxErgebnis.Canvas.MoveTo(Round(factx*i-1),Form2.pbxErgebnis.Height-Round(wildbestand[1,1,i]*facty));
    Form2.pbxErgebnis.Canvas.LineTo(Round(factx*i),Form2.pbxErgebnis.Height-Round(wildbestand[1,1,i+1]*facty));
    Form2.pbxErgebnis.Canvas.Pen.Color:=clRed;    // Tier 2
    Form2.pbxErgebnis.Canvas.MoveTo(Round(factx*i-1),Form2.pbxErgebnis.Height-Round(wildbestand[2,1,i]*facty));
    Form2.pbxErgebnis.Canvas.LineTo(Round(factx*i),Form2.pbxErgebnis.Height-Round(wildbestand[2,1,i+1]*facty));
    Form2.pbxErgebnis.Canvas.Pen.Color:=clGreen;  // Tier 3
    Form2.pbxErgebnis.Canvas.MoveTo(Round(factx*i-1),Form2.pbxErgebnis.Height-Round(wildbestand[5,1,i]*facty));
    Form2.pbxErgebnis.Canvas.LineTo(Round(factx*i),Form2.pbxErgebnis.Height-Round(wildbestand[5,1,i+1]*facty));
    Form2.pbxErgebnis.Canvas.Pen.Color:=clBlue;   // Tier 4
    Form2.pbxErgebnis.Canvas.MoveTo(Round(factx*i-1),Form2.pbxErgebnis.Height-Round(wildbestand[6,1,i]*facty));
    Form2.pbxErgebnis.Canvas.LineTo(Round(factx*i),Form2.pbxErgebnis.Height-Round(wildbestand[6,1,i+1]*facty));
  end; {for i}

Ich bekomme keine Fehlermeldung, aber Linien sehe ich auch keine, vielleicht weiss von euch wer Abhilfe? (die Werte in den Array stimmen und sind vorhanden). Fehlt da Repaint (hat auch nichts gebracht) oder was Anderes?

Zudem hab ich nch ein Probelm mit dem Drucken.
Ich hab den Code aus dem Forum zum Drucken eines StringGrids verwenden wollen, aber ich bekomme immer Fehlermeldungen wegen dem Befehl:

Code: Alles auswählen

getcapsdevice

, die Unit Printers habe ich eingebunden. Weiss vielleicht auch hier jemand Rat?

Danke im Vorraus für Antworten.

[Christian]

Ich hab jetzt nicht näher nach deinem Code geschaut, aber warum nimmst du nicht einfach TChart oder eine der anderen Chartkomponenten die in der Wiki gelistet sind ?

Zum Drucken würde ich LazReport nehmen das funktioniert schon ganz gut.

[theo]

Hallo moodle.

Wie immer: man muss im OnPaint Ereignis zeichnen.

Frag bitte nicht als nächstes warum die Programmdatei so gross ist....

[moodle]

Ich hab jetzt nicht näher nach deinem Code geschaut, aber warum nimmst du nicht einfach TChart oder eine der anderen Chartkomponenten die in der Wiki gelistet sind ?

Zum Drucken würde ich LazReport nehmen das funktioniert schon ganz gut.

Danke für den Tip, Barchart arbeitet super.

LazReport muß ich mir mal angucken, kenn ich net keine Ahnung wie man dass einbindet.

Hallo moodle.

Wie immer: man muss im OnPaint Ereignis zeichnen.

Frag bitte nicht als nächstes warum die Programmdatei so gross ist....

Danke, hat sich mit Barchart erledigt. Ich weiss dass der Code nicht "optimal" ist, habs aber schon bereinigt mit Schleifen (konnte erst keine schleife nehmen da das ein 3D array war mit Zeilen die nicht ausgegeben werden sollten -> Neuanordnung )

Aber allen mal Danke für die Antwort, hat mir echt weitergeholfen

[Euklid]

Theo meinte: Du kannst die .exe-Datei mit den Programmen strip und upx auf Größen unter 1 MB bringen...