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

[Luckner]

Hallo,
möchte gerne beim Ausdruck mit Fastreport, eine Variable, die verschiedene Anzahl von Zeichen enhalten kann aber das Feld eine konst. Grösse hat, die Fontgrösse ändern, damit die Zeichen in dieses Feld passen. Mein Versuch:

Delphi-Quellcode:

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

ändert nichts.

Die nächste Routine macht Fehler beim Aufruf.

Delphi-Quellcode:

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

"Doppel7" ist die entsprechende Variable. Die Übergabe des Inhaltes funktioniert. Formatierung jedoch nicht.

Gruß, Luckner

[Olli73]

Meinst du vielleicht "if Length(Doppel7.Value) > 10 then ..."

[Luckner]

Jetzt habe ich es so geändert.

Delphi-Quellcode:

procedure Doppel7OnBeforePrint(Sender: TfrxComponent);
begin
  if Length(Doppel7.Value) > 10 then        
    Doppel7.Font.Size := 6          //  frxReportAufstellung.Variables.Variables['Doppel7']
  else
    Doppel7.Font.Size := 10;
   //<frxReportAufstellung."Doppel7">.Font.Size := 10;              
end

Keine Fehler, jedoch auch keine Änderung der Schrift.

[Olli73]

Springt er in die richtige Bedingung?

[Olli73]

Und was für ein Typ hat "Doppel7"?

[Olli73]

Ist vielleicht "ParentFont" true?

[Blup]

Wenn diese Prozedur eine Methode der Reportklasse sein soll, müsste dann nicht der Klassenname davor stehn?

Delphi-Quellcode:

procedure Txxxxx.Doppel7OnBeforePrint(Sender: TfrxComponent);
begin

Ist das tatsächlich der Fall und du hast das lediglich unterschlagen, ist die Methode dem Ereignis der Komponente zugewiesen?
Entweder bereits in der Entwicklungszeit oder alternativ zur Laufzeit:

Delphi-Quellcode:

{zur Laufzeit}
Doppel7.OnBeforePrint := Doppel7OnBeforePrint;

Wenn du einen Breakpoint in die Methode setzt, wird die Methode aufgerufen und hält das Programm dann dort an?

Offensichtlich geht es dir doch um die Länge des Textes, der dargestellt werden soll.
Dann muss du dich auch auf den Text der Komponente beziehen.
Nun die bereits gestellte spannende Frage:
Von welchem Typ ist die Komponente?
Davon hängt hab wie du den Text ermitteln kannst.
Manche haben ein Property Text oder Caption oder ein Ereignis "OnGetText".

[Frickler]

Zitat:

Zitat von Blup (Beitrag 1495634)

Wenn diese Prozedur eine Methode der Reportklasse sein soll, müsste dann nicht der Klassenname davor stehn?

Delphi-Quellcode:

procedure Txxxxx.Doppel7OnBeforePrint(Sender: TfrxComponent);
begin

Wenn er das in Delphi macht, ja. Aber in der Pascal-Scriptsprache von Fastreport stehen vor den Methoden keine Klassennamen.

[Luckner]

Hallo und Danke für die Unterstützung. Das Feld ist "TrfxMemoView"-Feld. Es ist als Variable definiert. Die Übergabe des Inhaltes funktioniert. Ein "Parent Font" finde ich in meiner Version von Fastreport nicht. Ich werde jetzt noch die Variablen in spitze Klammern setzen.

Gruß, Luckner

[Blup]

TfrxMemoView hat ein Text-Property.
Das kann man abfragen, wenn die Anzahl der Zeichen im Text das Kriterium ist.

Für die Änderung der Darstellung abhängig vom Inhalt ist das OnAfterData-Event vieleicht besser geeignet.

Delphi-Quellcode:

procedure Doppel7OnAfterData(Sender: TfrxComponent);
var
  iFontSize: Integer;
begin
  if Length(TfrxMemoView(Sender).Text) > 10 then 
    iFontSize := 8   
  else
    iFontSize := 10;
    
  TfrxMemoView(Sender).Font.Size := iFontSize;    
end;

[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;