Anfängerfrage: Unterschiedliche Koordinaten von TForm und Canvas Objekt

[Bemi]

Hallo nochmal,

stellt euch einfach ein Blatt Papier vor, auf das so ziemlich genau in die Mitte ein Bild hin kommen soll. Ich lege also irgendwas als Beispiel auf das Blatt Papier und schiebe es so lange hin und her, bis es optisch passt. Dann nehme ich ein Lineal und lese die cm und mm ab... Sowas geht ja nicht am PC.


Damit ich meine Koordinaten für z.B. ein Canvas.Rectangular(x1, y1, x2, y2) bekomme,
hatte ich im Designer auf ein TForm, ein TShape auf die (für mich) passende Stelle gelegt und im Objektinspektor die Positionsdaten gelesen.

Diese hatte ich dann als Grundlage für die Position meines Canvas Objektes genommen. Das Shape wird nur für die Position genommen und kommt sofort wieder weg!


Nur lag dieses Canvas Objekt an einer ganz anderen Stelle als das Shape!

Mir geht es nur um die Frage, warum die Position beim Canvas Objekt ganz wo anders ist. Die Koordinaten passen nicht. In ein und derselben TForm!


Der Code im angehängten Bild ist etwa so:

Canvas.Brush.Color := clYellow;
Canvas.Brush.Style := bsSolid;

// Set the border color
Canvas.Pen.Color := clBlue;
Canvas.Pen.Width := 3;
Canvas.Pen.Style := psSolid;
x1 := 369; y1 := 170; x2 := 630; y2 := 431; // x2 := left + width, y2 := top + height (shape vom Objektinspektor)

R := Rect(x1, y1, x2, y2);
Canvas.Rectangle(R);


// 2 Linien durchkreuzen das Rechteck/Quadrat

Canvas.MoveTo(x1, y1);
Canvas.LineTo(x2, y2);

Canvas.MoveTo(x1, y2);
Canvas.LineTo(x2, y1);

Im Anhang simd zwei Screenshots: der erste zeigt, wie es wird, wenn ich die Koordinaten vom Platzhalter "Shape" nehme.
Im zweiten, wenn ich es selber herausfinde, und mich mühsam annähere. Genauso sollte es ja nicht sein! Nix RAD. Das ist wie KC Basic vor 35 Jahren.

[peterbelow]

Zitat von Bemi:

Hallo nochmal,

Nix RAD. Das ist wie KC Basic vor 35 Jahren.

Das liegt nur daran, dass Du die Sache völlig falsch angehst. Plaziere anstelle des TShapes eine TPaintbox auf das form und zeichne dann ausschließlich im Handler für den OnPaint-Event der Paintbox, auf den Canvas der Paintbox, nicht dem des Forms. Die Koordinaten sind dann relativ zur oberen linken Ecke der Paintbox, völlig unabhängig von der Position der Paintbox auf dem Form. Du brauchst also nicht irgendwelche Koordinaten aus dem Objektinspektor umzurechnen, da mußt Du nur die Paintbox wie gewünscht plazieren und die Größe anpassen wie nötig.

In der VCL ist die Position eines Controls (alle Abkömmlinge von TControl) relativ zur client area des Parents des Controls; d.h. der Punkt (0,0) für Left und Top des Controls ist die linke obere Ecke der client area des Parents und nicht Left und Top des Parents!

[jaenicke]

Kann es sein, dass du die Bildschirmskalierung auf einem anderen Wert als 100% hast? Das kann dabei auch noch eine Rolle spielen. Aber peterbelow hat ja die Alternative TPaintBox noch einmal genauer erklärt. Das ist ohnehin sinnvoller.

[Bemi]

Vielen Dank für die Hinweise. Ich muss es erstmal verinnerlichen. Und ausprobieren.

Danke. Thema kann geschlossen werden.



P.S. Danke jaenicke, das war's. Die Skalierung war auch auf 120% wegen meiner Augen. Das Alter...