AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

FastReport Textfeld.visible = False

Ein Thema von Ando · begonnen am 6. Dez 2007 · letzter Beitrag vom 8. Dez 2007
Antwort Antwort
Ando

Registriert seit: 30. Okt 2003
Ort: Berlin
9 Beiträge
 
#1

FastReport Textfeld.visible = False

  Alt 6. Dez 2007, 18:40
Hallo zusammen
Ich steh grad aufm Schlauch.
kann mir mal wer sagen wie man zur Laufzeit in einem FastReport eine Textkomponente auf Visible = False setzt ?

Fröhlichen Nikolaus wünscht
Andre
Andre
Ich weiß nicht immer, wovon ich rede. Aber ich weiß, dass ich recht habe.
  Mit Zitat antworten Zitat
Neumann

Registriert seit: 6. Feb 2006
Ort: Moers
535 Beiträge
 
Delphi 11 Alexandria
 
#2

Re: FastReport Textfeld.visible = False

  Alt 7. Dez 2007, 09:39
Hallo,

das ist nicht besonders schwierig, man muss nur die Scriptsprache (Code im Report) verwenden.

Beispiel (Pascal Script):

Delphi-Quellcode:
procedure Footer1OnBeforePrint(Sender: TfrxComponent);
begin
   If <MwSt1> = 0 then
  begin
    child3.visible:=false;
  end;
   If <MwSt2>=0 then
  begin
    child4.visible:=false;
  end;
  If <MwSt3>=0 then
  begin
    child5.visible:=false;
  end;
end;
Hier werden Childbänder ausgeblendet, wenn jeweils nichts zu Anzeigen da ist. Genauso kann man es mit einzelnen Memofeldern usw. machen.

Gruß

[edit=MrSpock]Code Tags eingefügt. Mfg, MrSpock[/edit]
Ralf
  Mit Zitat antworten Zitat
Benutzerbild von RavenIV
RavenIV

Registriert seit: 12. Jan 2005
Ort: Waldshut-Tiengen
2.875 Beiträge
 
Delphi 2007 Enterprise
 
#3

Re: FastReport Textfeld.visible = False

  Alt 7. Dez 2007, 10:17
Falls Du den FastReport von ausserhalb (also vom Delphi-Code aus) steuern willst, kannst Du FindObject benutzen.

Ich verwende es so (bei FastReport 4):
Delphi-Quellcode:
  for i := 0 to FrxStandardReport.PagesCount - 1 do
  begin
    if FrxStandardReport.Pages[i].Name = 'Page1then
    begin
      if FrxStandardReport.Pages[i].FindObject('IB_Database') <> nil then
      begin
        TfrxIB_Database(FrxStandardReport.Pages[i].FindObject('IB_Database')).Connected := False;
        TfrxIB_Database(FrxStandardReport.Pages[i].FindObject('IB_Database')).Params.Clear;
        TfrxIB_Database(FrxStandardReport.Pages[i].FindObject('IB_Database')).Params.Values['Path'] := Engine.DataBasePath;
        TfrxIB_Database(FrxStandardReport.Pages[i].FindObject('IB_Database')).Params.Values['USER NAME'] := Engine.DataBaseUser;
        TfrxIB_Database(FrxStandardReport.Pages[i].FindObject('IB_Database')).Params.Values['Password'] := Engine.DataBasePassword;
        TfrxIB_Database(FrxStandardReport.Pages[i].FindObject('IB_Database')).Params.Values['PROTOCOL'] := DBProtocol; // IBProtocolNames [Engine.DatabaseProtocol];
        TfrxIB_Database(FrxStandardReport.Pages[i].FindObject('IB_Database')).Params.Values['SERVER'] := Engine.DataBaseServer;
        TfrxIB_Database(FrxStandardReport.Pages[i].FindObject('IB_Database')).Connected := True;
      end
      else
      begin
        MessageDlg('Datenbank-Komponente "IB_Database" nicht gefunden', mtError, [mbOK], 0);
      end;
    end;
  end;
Klaus E.
Linux - das längste Text-Adventure aller Zeiten...
Wer nie Linux mit dem vi konfiguriert hat, der hat am Leben vorbei geklickt.
  Mit Zitat antworten Zitat
Neumann

Registriert seit: 6. Feb 2006
Ort: Moers
535 Beiträge
 
Delphi 11 Alexandria
 
#4

Re: FastReport Textfeld.visible = False

  Alt 7. Dez 2007, 13:56
An Mr Spock:

Das ist kein Delphi-Quellcode,

sondern Pascalscript von Fastreports. Die Markierung als Delphi-Code könnte zu Fehlinterpretationen führen.


Gruß

Neumann
Ralf
  Mit Zitat antworten Zitat
Ando

Registriert seit: 30. Okt 2003
Ort: Berlin
9 Beiträge
 
#5

Re: FastReport Textfeld.visible = False

  Alt 8. Dez 2007, 09:04
OK...Danke
die Tipps haben geholfen.

Gruß Andre
Andre
Ich weiß nicht immer, wovon ich rede. Aber ich weiß, dass ich recht habe.
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 08:21 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