For-Schleife mit Canvas umsetzten

[Chris211183]

Im Anhang findet Ihr die .pas mit meinem Code,

das Problem liegt darin, dass die Skalierung nicht gezeichnet wird. Finde den Fehler selbst nicht !

[DeddyH]

Zitat:

for i := 0 to round(LabelingGap -1) do

Wozu die Anzahl der Striche angeben, wenn dann eine ganz andere Anzahl gezeichnet wird?

[Chris211183]

ja seh ich jetzt auch, brauch ich ja garnicht, dennoch zeichnet er nichts ! Die Anzahl der Striche ergeben sich ja aus dem Verhältnis von Breite und Abstand und der Laufvariablen...

[DeddyH]

Verstehe ich nicht. Willst Du eine fixe Strichanzahl mit variablem Abstand oder einen fixen Abstand mit variabler Strichanzahl? Andere Kombinationen erscheinen mir ziemlich sinnfrei.
[edit] Kleines Beispiel: ein Formular (TForm29 in diesem Fall), OnPaint und OnResize sind diese Methoden zugewiesen.

Delphi-Quellcode:

procedure TForm29.FormPaint(Sender: TObject);
const
  ANZ_STRICHE = 20;
var
  Abstand: double;
  i, X: integer;
begin
  Abstand := ClientWidth / (ANZ_STRICHE + 1);
  for i := 1 to ANZ_STRICHE do
    begin
      X := round(Abstand * i);
      Canvas.MoveTo(X, ClientHeight);
      Canvas.LineTo(X, ClientHeight - 20);
    end;
end;

procedure TForm29.FormResize(Sender: TObject);
begin
  Invalidate;
end;

Soll es ungefähr darauf hinauslaufen?[/edit]

[TiGü]

Zitat von Chris211183:

...dennoch zeichnet er nichts !

Schreibe im Konstruktor bitte folgendes:
LabelingStyle := lbsLines; Zur Zeit steht dort lbsLabels und das kann ja natürlich nicht funktionieren, weil das Zeichnen für FLabelingStyle = lbsLabels noch nicht implementiert ist!

Übrigens ist das die schlimmste Quelltext-Formatierung aller Zeiten!!!

[TiGü]

Ach ja, und falls du dich fragst, warum er immer wieder unten links anfängt mit zeichnen ("äääähhhm, es geht nicht!"), schau dir doch bitte genau an, wo du immer anfängst die Linie zu zeichnen!

Ein gutes Debugger-Tutorial wäre jetzt mal angesagt!

[DeddyH]

Hamwa doch: http://www.delphipraxis.net/41047-tu...ortgeschr.html

[TiGü]

Zitat von DeddyH:

Hamwa doch: http://www.delphipraxis.net/41047-tu...ortgeschr.html

Obacht, er muss es auch lesen und verstehen!