Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Zonen Abrechnungssystem (https://www.delphipraxis.net/126796-zonen-abrechnungssystem.html)

SaFu 2. Jan 2009 17:59


Zonen Abrechnungssystem
 
Liste der Anhänge anzeigen (Anzahl: 1)
Frohe neues Jahr alle zusammen,

Und zwar habe ich folgendes vor, ich möchte gerne ein kleines Abrechnungssystem schreiben(lassen).

Auf dem Bild ist die einzusetzende Karte, der Ausganspunkt soll Wiesbaden sein und dannach kommen 3 Kreiszonen in unterschiedlichen KM abständen.

Klickt man Innerhalb einer Zone irgendwo hin soll der festgelegte Betrag, der geklickten Zone in einem Edit oder stringgrid auftauchen.

Wie Stell ich das am besten an?

Oder Hat vielleicht jemand lust sowas zu Proggen als Auftrag, kommt natürlich noch etwas mehr dazu (Drucken,Extras,Kunden DB)
Wer lust hat einfach mal per PN.

Oder gibts sowas schon fertig?

Gruss Sascha

haentschman 2. Jan 2009 18:21

Re: Zonen Abrechnungssystem
 
Hallo...

ich habe mal ein wenig experimeniert.

- die Karte als Bitmap als Formhintergrund damit alles andere drüberliegt.
- dann legst du einfach ein paar transparente Shapes übereinander. Im OnClick jedes einzelnen hättest du dann deine Region.
- die Randfarbe und Stärke kannst du einstellen.

TShape - hat kein OnClick :gruebel:
JvShape aus der JVCL - hat OnClick, Brush.Color auf clNone
AdvShape von TMS - hat OnClick, Appeareance.Brush.Color auf clNone

:hi:

SaFu 2. Jan 2009 18:50

Re: Zonen Abrechnungssystem
 
Liste der Anhänge anzeigen (Anzahl: 1)
Danke funktioniert soweit gut nur habe festgestellt wenn ich den Rand auf circle stelle wird trotzden beim OnClick das Rectangle genommen und somit stimmen die Zonen nicht

Siehe Anhang

haentschman 2. Jan 2009 18:58

Re: Zonen Abrechnungssystem
 
upps...

eigentlich logisch...soweit ins Detail bin ich nicht gegangen beim Probieren. 8)

:gruebel: irgendwo gab es hier einen Thread wie man ermitteln kann ob der Click im Kreis liegt.
- das ganze ging mit Canvas, Circle und der Kreisberechnung ob der Klickpunkt auf der Fläche liegt.

ich suche mal...sag Bescheid wenn du schneller bist :wink:

da hätten wir´s Maus im Kreis

Klaus01 2. Jan 2009 19:12

Re: Zonen Abrechnungssystem
 
.. nun wenn es ein Kreis und keine Elipse ist..
dann hat der Kreis den Durchmesser der kleinsten Seite
des Rechteckes.
Es müsste sich also ausrechnen lassen ob die Klickposition
im Kreis oder ausserhalb lag.

Übrigens TShape hat aber ein onMouseUp und onMouseDown Ereignis
welches sich auch nutzen ließe.

Grüße
Klaus

SaFu 5. Jan 2009 18:01

Re: Zonen Abrechnungssystem
 
Liste der Anhänge anzeigen (Anzahl: 1)
Tach

Hab jetzt mal den Code versucht von dem Link oben aber irgenwie will das immer noch net so wird das Shape vielleicht doch immer als Rechteck erkannt??

Hab es mal im Anhang

Klaus01 5. Jan 2009 18:27

Re: Zonen Abrechnungssystem
 
Liste der Anhänge anzeigen (Anzahl: 1)
Hallo Sascha,

ja, bei mir wird das Shape zwar als Kreis gezeichnet
es reagiert aber auch auf Mouseclicks die ausserhalb des Kreise
aber innerhalb des umfassenden Quadrates/Rechtecks liegen.
Du musst Dir wohl oder übel die Mühe machen und
errechnen ob der Mouseclick nun im kreisförmigen Shape
lag oder nicht.

Dazu kannst Du dir den Kreismittelpunkt ausrechnen.
Siehe Anhang.

Grüße
Klaus

DeddyH 5. Jan 2009 18:33

Re: Zonen Abrechnungssystem
 
Oder eben ganz easy über eine Region, wie ich im oben verlinkten Thread bereits vorgeschlagen hatte. Spart einem die ganze Rechnerei ;)


Alle Zeitangaben in WEZ +1. Es ist jetzt 12:45 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