Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Ellipse - TImage (https://www.delphipraxis.net/75633-ellipse-timage.html)

Sh4d0w 22. Aug 2006 17:49


Ellipse - TImage
 
Moin,

Ich habe eine Frage. Und zwar habe ich mit Image.Canvas ein Rechteck gezeichnet. Siehe bild:

http://img247.imageshack.us/img247/4558/delphihc0.png

Nun möchte ich, eine Ellipse zeichnen. Und zwar dort, wo es im Bild auch zu sehen ist. Was sind die Koordinaten dazu? Wie bekomme ich das denn hin? Ich muss ja 4 koords angeben...
Schonmal vielen Dank im vorraus!!

mfg,
Sh4d0w

Neutral General 22. Aug 2006 17:56

Re: Ellipse - TImage
 
Liste der Anhänge anzeigen (Anzahl: 1)
Naja der Mittelpunkt des Kreises ist auf halber Strecke von dem Quadrat... Wie lang und von wo bis wo die Strecke geht müsstest du wissen weil du sie ja schon gezeichnet hast... und von da aus soll der Kreis einen Radius halb so groß haben wie die halbe Seite des Rechtecks... Naja das lässt sich doch schnell ausrechnen ;) Bei Canvas.Ellipse gibst du die gleichen Koords an wie bei Rectangle nur das dann der Innenkreis dieses Rechtecks gemalt wird.

Die Koords die du brauchst sind:

Delphi-Quellcode:
Canvas.Ellipse(Rect.x,Rect.y - (Rect.Width div 2), Rect.x + Rect.Width, Rect.y + (Rect.Width div 2));
Wenn ich mich nicht irre.

Rect.x ist die x-Koordinate vom Punkt oben links von deinem Rechteck
Rect.y ist die y-Koordinate vom Punkt oben links von deinem Rechteck

Rect.Width := Rect.x2 - Rect.x

Nochmal zur veranschaulischung

Gruß
Neutral General

Sh4d0w 22. Aug 2006 19:05

Re: Ellipse - TImage
 
Danke für die Antwort, aber irgendwie klappt das nicht... :(
Ich habe Image.Canvas.Rectangle(85,130,75,230). Habe versucht die ellipse so zu machen, wie dus geschrieben hast, aber die kommt da wo anders. :/

Neutral General 22. Aug 2006 19:12

Re: Ellipse - TImage
 
Zitat:

Zitat von Sh4d0w
Danke für die Antwort, aber irgendwie klappt das nicht... :(
Ich habe Image.Canvas.Rectangle(85,130,75,230). Habe versucht die ellipse so zu machen, wie dus geschrieben hast, aber die kommt da wo anders. :/

Müsste dann eigentlich

Delphi-Quellcode:
Canvas.Ellipse(75, 125, 85, 235)
sein...

Cöster 22. Aug 2006 19:25

Re: Ellipse - TImage
 
Zitat:

Zitat von Neutral General
Müsste dann eigentlich

Delphi-Quellcode:
Canvas.Ellipse(75, 125, 85, 235)
sein...

Ich würd eher sagen Ellipse(75, 125, 85, 135).

Neutral General 22. Aug 2006 19:26

Re: Ellipse - TImage
 
Zitat:

Zitat von Cöster
Zitat:

Zitat von Neutral General
Müsste dann eigentlich

Delphi-Quellcode:
Canvas.Ellipse(75, 125, 85, 235)
sein...

Ich würd eher sagen Ellipse(75, 125, 85, 135).

Ehm wieso ?

EDIT: STOPP! :wall:
Du hast recht :mrgreen:

Cöster 22. Aug 2006 19:28

Re: Ellipse - TImage
 
Zitat:

Zitat von Neutral General
Zitat:

Zitat von Cöster
Zitat:

Zitat von Neutral General
Müsste dann eigentlich

Delphi-Quellcode:
Canvas.Ellipse(75, 125, 85, 235)
sein...

Ich würd eher sagen Ellipse(75, 125, 85, 135).

Ehm wieso ?

Wie man im Bild oben sieht, soll die Ellipse ein Kreis sein, der nur auf der oberen Kante des Rechtecks liegt. Bei 235 als viert Koordinate würde die Ellipse ja unten über das Rechteck hinaus gehen.

Neutral General 22. Aug 2006 19:29

Re: Ellipse - TImage
 
Jaja^^
Das kommt davon wenn man 3 oder mehr Dinge auf einmal machen will :mrgreen:

Sh4d0w 22. Aug 2006 19:40

Re: Ellipse - TImage
 
klappt, danke euch beiden!! :-D


Alle Zeitangaben in WEZ +1. Es ist jetzt 07:29 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz