Tweet
Hallo,
ich verwende TQRExpr, um auf meinem QuickReport Summen zu bilden. Entsprechend der Summe will ich das Feld (TQRShape), in dem die TQRExpr liegt, einfärben. Dazu suche ich zunächst im BandBeforePrint die entsprechende QRExpression mit:
procedure TfTabelle_2.QRBand7BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
var lLabel : TQRExpr;
begin
lLabel:=TQRExpr(QRBand7.FindChildControl('W'+intto str((iDurchlauf*3)+i)));
Dann möchte ich den Wert auslesen mit:
int:=lLabel.Value.intResult;
und obwohl lLabel zugewiesen ist, fliegt mir das Programm an dieser Stelle um die Ohren. Es sieht so aus, als ob die Expression noch nicht den Wert errechnet hat, aber warum nicht? Wie bekomme ich sie dazu?
Ich habe dann versucht, im OnPrint event der Expression selbst den Wert auszulesen. Das geht natürlich einwandfrei, zu diesem Zeitpunkt kann ich aber die Farbe der TQRShapes nicht mehr verändern, jede Farbzuweisung wird einfach ignoriert..
HILFE!!!
Pascal
ich verwende TQRExpr, um auf meinem QuickReport Summen zu bilden. Entsprechend der Summe will ich das Feld (TQRShape), in dem die TQRExpr liegt, einfärben. Dazu suche ich zunächst im BandBeforePrint die entsprechende QRExpression mit:
procedure TfTabelle_2.QRBand7BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
var lLabel : TQRExpr;
begin
lLabel:=TQRExpr(QRBand7.FindChildControl('W'+intto str((iDurchlauf*3)+i)));
Dann möchte ich den Wert auslesen mit:
int:=lLabel.Value.intResult;
und obwohl lLabel zugewiesen ist, fliegt mir das Programm an dieser Stelle um die Ohren. Es sieht so aus, als ob die Expression noch nicht den Wert errechnet hat, aber warum nicht? Wie bekomme ich sie dazu?
Ich habe dann versucht, im OnPrint event der Expression selbst den Wert auszulesen. Das geht natürlich einwandfrei, zu diesem Zeitpunkt kann ich aber die Farbe der TQRShapes nicht mehr verändern, jede Farbzuweisung wird einfach ignoriert..
HILFE!!!
Pascal