![]() |
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 |
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: |
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 |
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 ![]() |
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 |
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 |
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 |
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 21:51 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz