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 Rave, mal wieder und immer wieder. Heute: Events (https://www.delphipraxis.net/97577-rave-mal-wieder-und-immer-wieder-heute-events.html)

mojo777 13. Aug 2007 03:28


Rave, mal wieder und immer wieder. Heute: Events
 
Hallo Leute,

ich habe ein problem, welches mich echt zur verzweifelung bringt...

ich versuche abhängig vom wert einer textzelle, andere zu verschiebene.

Problem: wenn ein rabatt gemacht wurde, dann soll auf der rechnung der alte preis durchgestrichen neben dem neuen stehen.
http://altai-ahlen.de/downloads/orch...rave_band3.jpg
Hier im Bild klappt es leider nicht so ganz... jetzt habe ich folgendes im OnBeforePrintevent stehen:
Delphi-Quellcode:
if (self.text='0,00 €') then
  self.visible:=False;
else
txMenge.left:=txMenge.left-60/100;
txMengeX.left:=txMengeX.Left-60/100;
txMengeEPreis.left:=txMengeEpreis.left-60/100;
txProdBez.width:=txProdBez.width-7/10;
self.left:=txProdEndPreis.left-self.width; //txProdEndPreis.width+1/10;
end if;
und Das ergebnis ist so:
http://altai-ahlen.de/downloads/orch...rave_band2.jpg
Nun werden alle durchgestrichenen felder ausgeblendet, weil das erste "0,00 €" enthält... :(

Wie kann ich jede zeile separat so steuern? geht das überhaupt ohne in dieses RAST-dingens einzusteigen?

Meine bande sieht so aus:
http://altai-ahlen.de/downloads/orch.../rave_band.jpg

Danke euch schonmal im Voraus!!!!!

Ich habe echt keine lust mehr das irgendwie hinzufuschen... :(


gruß

TBx 13. Aug 2007 07:58

Re: Rave, mal wieder und immer wieder. Heute: Events
 
Hallo!

Du mußt auch dafür sorgen, dass das entsprechende Feld wieder sichtbar geschaltet wird.
Delphi-Quellcode:
self.visible := self.text <> '0,00 €'); // so wird die Sichtbarkeit für jede Zeile explizit gesetzt
if self.visible then
  txMenge.left:=txMenge.left-60/100;
  txMengeX.left:=txMengeX.Left-60/100;
  txMengeEPreis.left:=txMengeEpreis.left-60/100;
  txProdBez.width:=txProdBez.width-7/10;
  self.left:=txProdEndPreis.left-self.width; //txProdEndPreis.width+1/10;
end if;
Hope it helps

onlinekater

mojo777 13. Aug 2007 08:51

Re: Rave, mal wieder und immer wieder. Heute: Events
 
SO WAS!

Recht hattest du. Anfangs hats zwar auch nicht sofort geklappt, aber ich habe dann die events vom textfeld auf die dataBand verlagert.
Jetzt klappts!

Danke dir, mal wieder! :)

gruß

Safti 15. Aug 2007 14:07

Re: Rave, mal wieder und immer wieder. Heute: Events
 
Zitat:

Zitat von mojo777
Anfangs hats zwar auch nicht sofort geklappt, aber ich habe dann die events vom textfeld auf die dataBand verlagert.Jetzt klappts!

Genau, mit dem Events des Textfelds selber klappt es nicht. Wenn das Textfeld einmal unsichtbar ist, wird es nicht gedruckt und somit wird sein OnBeforePrint-Ereignis nicht aufgerufen. ;)


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