Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   FreePascal FastReport - Memo ausblenden wenn... (https://www.delphipraxis.net/203404-fastreport-memo-ausblenden-wenn.html)

Quei89 14. Feb 2020 06:46

Delphi-Version: 5

FastReport - Memo ausblenden wenn...
 
Liste der Anhänge anzeigen (Anzahl: 1)
Guten Morgen Leute,

ich sitze jetzt seit ein paar Tagen an ein und dem selben Problem.
Und zwar erstelle ich im FastReprot eine Prüfplakette (Bild siehe Anhng).

Ich möchte beispielsweise das Memo M01 (für den Monat Januar) ausblenden wenn im Memo "Nächste Prüfung" ein Datum im Januar mit dem Format dd.mm.yyyy ausgegeben wird.

Besten dank für eure Hilfe.
LG Sven

rokli 14. Feb 2020 10:15

AW: FastReport - Memo ausblenden wenn...
 
Setz doch den Inhalt von M01 auf Space, und schon wird ein leeres Feld gedruckt. Und das kannst Du auch vor dem eigentlichen Ausdruck machen, so nach dem Muster

WENN MonthOf(nächste_Prüfung) = 1 DANN M01 = ''

Neumann 14. Feb 2020 13:54

AW: FastReport - Memo ausblenden wenn...
 
Das kann man im Script des Reports relativ leicht machen, dazu braucht man aber mindestens die professional Version von Fastreports.

Procedure MO1BeforePrint(..)
begin
MO1.visible:=<amonth> <> 1;
end;

amonth ist eine variable des Reports, die man vom aufrufenden Programm aus setzen kann.

Quei89 14. Feb 2020 18:15

AW: FastReport - Memo ausblenden wenn...
 
Hey, Danke für eure Hilfe. :thumb::thumb::thumb:

Das ist jetzt der endgültige Code zum Glück. :dancer:
Code:
       
procedure Page1OnBeforePrint(Sender: TfrxComponent);

begin
if     MonthOf(<Prüfbericht."Nächste_Prüfung">)       = 1     then
M01.visible    :=     false;
end.


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