Fastreport, Variable Fontgrösse abhängig von Anzahl der Buchstaben

[Luckner]

folgende Fehlermeldung bekomme ich in folgendem Script

Delphi-Quellcode:

procedure Doppel7OnBeforePrint(Sender: TfrxComponent);
var
  iFontSize: Integer;  
begin
  if Length(<frxReportAufstellung."Doppel7">.value) > 10 then                          
    iFontSize := 6         
  else                                                     
    iFontSize := 10;                                    

  //<frxReportAufstellung.['Doppel7']>.Font.Size := iFontSize                                          
end;

begin

end.

folgender Fehler erscheint:

Script error 5:45: ')' expected

Keine Ahnung, wo hier logisch eine Klammer fehlt.
OnAfterData-Event ist, so glaube ich, auch besser geeignet. Werde ich ausprobieren wenn dieses Script funktioniert.

[mytbo]

Zitat:

Zitat von Luckner (Beitrag 1495655)

Keine Ahnung, wo hier logisch eine Klammer fehlt.

.value ist zu viel.

Code:

if Length(<frxReportAufstellung."Doppel7">) > 10 then

Nachtrag: Blup hat dir die Lösung schon gepostet!

Außerdem lässt sich über das Kontextmenü des Feldes der Bearbeiten Dialog öffnen und dort unter Tab Highlight eine Bedingung für die Formatierung festlegen.

Bis bald...
Thomas

[Luckner]

Hier meine Lösung, die funktioniert:

Delphi-Quellcode:

procedure Doppel7OnBeforePrint(Sender: TfrxComponent);
var
  iFontSize: Integer;  
begin
  if Length(<Doppel7>) > 10 then      
    iFontSize := 8            
  else                                                     
    iFontSize := 10;                                      

  Doppel7.Font.Size := iFontSize;                                            
end;

Danke für die Tipps.

Gruß, Luckner

[TurboMagic]

Warum nicht gleich so?

Delphi-Quellcode:

procedure Doppel7OnBeforePrint(Sender: TfrxComponent);
begin
  if Length(<Doppel7>) > 10 then
    Doppel7.Font.Size := 8
  else
    Doppel7.Font.Size := 10;
end;