REFLEX Angebot/Auftrag Styles Code - Versionsgeschichte

Gevitas: /* Kopf */

2016-07-15T22:46:17Z

Kopf

← Nächstältere Version		Version vom 15. Juli 2016, 22:46 Uhr
Zeile 33:		Zeile 33:

	* Das Memo-Feld (Text-Feld) für die Anschrift wird gefüllt. Hier werden also die Anschriften-Felder nicht direkt auf dem Report platziert, sondern es gibt ein Memo <code>memoAnschrift</code>, in das die Zeilen (Lines) angefügt werden. Das hat den Vorteil, dass z.B. das Ansprechpartner-Feld keine Leerzeile verursacht, wenn es gar keinen Ansprechpartner gibt.		* Das Memo-Feld (Text-Feld) für die Anschrift wird gefüllt. Hier werden also die Anschriften-Felder nicht direkt auf dem Report platziert, sondern es gibt ein Memo <code>memoAnschrift</code>, in das die Zeilen (Lines) angefügt werden. Das hat den Vorteil, dass z.B. das Ansprechpartner-Feld keine Leerzeile verursacht, wenn es gar keinen Ansprechpartner gibt.
			* Am Schluss wird der Länder-Name in das Memo eingefügt. Nach DIN 5008 soll der Länder-Name in Großbuchstaben angegeben werden. Deshalb wird das Feld mit der Funktion <Code>UpperCase(..)</Code> eingefügt. Diese Funktion wandelt alle Zeichen in Großbuchstaben um.

	* Abhängig von den [[REFLEX_Standard-Report_Angebot/Auftrag#Auftragskennzeichen\|Auftragskennzeichen]] werden Bänder ein- oder ausgeblendet.		* Abhängig von den [[REFLEX_Standard-Report_Angebot/Auftrag#Auftragskennzeichen\|Auftragskennzeichen]] werden Bänder ein- oder ausgeblendet.

Gevitas: /* Kopf */

2016-07-15T09:58:10Z

Kopf

← Nächstältere Version		Version vom 15. Juli 2016, 09:58 Uhr
Zeile 64:		Zeile 64:


	Im Style D gibt es auf der ersten und auf der letzten Seite einen Rabatt-~~bereich~~, deshalb lautet der Code hier:		Im '''Style D''' gibt es auf der '''ersten und auf der letzten''' Seite einen Rabatt-Bereich, deshalb lautet der Code hier:
	(weil von dem <code>if...then</code> nun mehrere Zeilen betroffen sein sollen, muss man diese Zeilen nun mit <code>begin</code> beginnen mit <code>end;</code> beenden!)		(weil von dem <code>if...then</code> nun mehrere Zeilen betroffen sein sollen, muss man diese Zeilen nun mit <code>begin</code> beginnen mit <code>end;</code> beenden!)

Gevitas: /* Kopf */

2016-07-15T09:57:34Z

Kopf

← Nächstältere Version		Version vom 15. Juli 2016, 09:57 Uhr
Zeile 56:		Zeile 56:
	memoAnschrift.Lines.Add( UpperCase( <Adresse."Landname"> ) );		memoAnschrift.Lines.Add( UpperCase( <Adresse."Landname"> ) );

	// Kennzeichen 3 = Rabatt im Fuss Ja/Nein		Rabatt-Bereich(e) ausschalten, wenn es gar keinen Rabatt gibt:
	if <AuftragsKopf."KENNZ3"> = 'Nein' then
			// Kennzeichen 3 = Rabatt im Fuss Ja/Nein oder kein Rabatt im Auftrag vorhanden:
			if ( <AuftragsKopf."KENNZ3"> = 'Nein' )
			or ( <AuftrStatistik."AnzahlRabattPos"> = 0 ) then
	ChildMaterialRabatt.Visible := False;		ChildMaterialRabatt.Visible := False;


			Im Style D gibt es auf der ersten und auf der letzten Seite einen Rabatt-bereich, deshalb lautet der Code hier:
			(weil von dem <code>if...then</code> nun mehrere Zeilen betroffen sein sollen, muss man diese Zeilen nun mit <code>begin</code> beginnen mit <code>end;</code> beenden!)

			// Kennzeichen 3 = Rabatt im Fuss Ja/Nein oder kein Rabatt im Auftrag vorhanden:
			if ( <AuftragsKopf."KENNZ3"> = 'Nein' )
			or ( <AuftrStatistik."AnzahlRabattPos"> = 0 ) then
			begin
			MasterDataKopfRabatt.Visible := False; // Rabatt-Bereich auf der 1. Seite
			ChildMaterialRabatt.Visible := False; // Rabatt-Bereich auf der letzten Seite
			end;



	// Kennzeichen 5 = Kapitelpreise Ja/Nein		// Kennzeichen 5 = Kapitelpreise Ja/Nein
Zeile 183:		Zeile 200:
	MasterDataKopfVerkauf.Visible := True;		MasterDataKopfVerkauf.Visible := True;
	end;		end;



	=== Positionen ===		=== Positionen ===

Gevitas: /* Allgemeines */

2016-07-15T09:43:02Z

Allgemeines

← Nächstältere Version		Version vom 15. Juli 2016, 09:43 Uhr
Zeile 3:		Zeile 3:
	Hier finden Sie den Programm-Code, der in den [[REFLEX Angebot/Auftrag Styles\|Standard-Style-Reports für Angebot/Auftrag]] verwendet wird.		Hier finden Sie den Programm-Code, der in den [[REFLEX Angebot/Auftrag Styles\|Standard-Style-Reports für Angebot/Auftrag]] verwendet wird.

	Generell kann man die Syntax in FastReport für mehrere Programmier-Sprachen einstellen, wir verwenden die sog. "Pascal"-Syntax, weil die unserer Meinung für Ungeübte ~~nach~~ am Besten lesbar ist.		Generell kann man die Syntax in FastReport für mehrere Programmier-Sprachen einstellen, wir verwenden die sog. "Pascal"-Syntax, weil die unserer Meinung nach für Ungeübte am Besten lesbar ist.

	* Achtung! Wenn Sie Syntax im Report-Code '''nachträglich''' ändern, werden alle Zeilen des Codes '''gelöscht'''!!!		* Achtung! Wenn Sie Syntax im Report-Code '''nachträglich''' ändern, werden alle Zeilen des Codes '''gelöscht'''!!!



	== Code ==		== Code ==

Gevitas am 15. Juli 2016 um 09:42 Uhr

2016-07-15T09:42:39Z

← Nächstältere Version		Version vom 15. Juli 2016, 09:42 Uhr
Zeile 1:		Zeile 1:
	== Allgemeines ==		== Allgemeines ==

	Hier finden Sie den Programm-Code, der in den Standard-Style-Reports für Angebot/Auftrag verwendet wird.		Hier finden Sie den Programm-Code, der in den [[REFLEX Angebot/Auftrag Styles\|Standard-Style-Reports für Angebot/Auftrag]] verwendet wird.

			Generell kann man die Syntax in FastReport für mehrere Programmier-Sprachen einstellen, wir verwenden die sog. "Pascal"-Syntax, weil die unserer Meinung für Ungeübte nach am Besten lesbar ist.

			* Achtung! Wenn Sie Syntax im Report-Code '''nachträglich''' ändern, werden alle Zeilen des Codes '''gelöscht'''!!!



	== Code ==		== Code ==

Gevitas: /* Code */

2016-07-15T09:38:05Z

Code

@@ Zeile 11: / Zeile 11: @@
 * Bereiche (Bänder) oder Felder ein- oder auszublenden
 * Felder (Memos, Textfelder) mit Inhalten zu füllen.
 === Kopf ===

Gevitas: /* Fuss */

2016-07-15T09:34:15Z

Fuss

← Nächstältere Version		Version vom 15. Juli 2016, 09:34 Uhr
Zeile 418:		Zeile 418:

	begin		begin

	end.		end.

Gevitas: /* Code */

2016-07-15T09:33:46Z

Code

← Nächstältere Version		Version vom 15. Juli 2016, 09:33 Uhr
Zeile 225:		Zeile 225:
	Die relative große Prozedur wird '''vor dem Drucken''' einer Position aufgerufen. Hier werden z.B. Bereiche ausgeschaltet, abhängig von [[REFLEX_Standard-Report_Angebot/Auftrag#Auftragskennzeichen\|Auftragskennzeichen]].		Die relative große Prozedur wird '''vor dem Drucken''' einer Position aufgerufen. Hier werden z.B. Bereiche ausgeschaltet, abhängig von [[REFLEX_Standard-Report_Angebot/Auftrag#Auftragskennzeichen\|Auftragskennzeichen]].

	Damit die Abfragen nicht zu kompliziert werden, werden die Felder am Anfang erst mal alle auf '''sichtbar''' gestellt (<code>Visible := True</code>). Abhängig von Kennzeichen, Inhalten usw. werden dann einzelne ~~felder~~ auf unsichtbar gestellt (<code>Visible := False</code>):		Damit die Abfragen nicht zu kompliziert werden, werden die Felder am Anfang erst mal alle auf '''sichtbar''' gestellt (<code>Visible := True</code>). Abhängig von Kennzeichen, Inhalten usw. werden dann einzelne Felder auf unsichtbar gestellt (<code>Visible := False</code>):

	procedure DetailPositionenOnBeforePrint(Sender: TfrxComponent);		procedure DetailPositionenOnBeforePrint(Sender: TfrxComponent);
Zeile 352:		Zeile 352:
	<code>EOF</code> ergibt <code>True</code> (wahr), wenn das Ende der Datensätze erreicht ist, also keine Positionen mehr kommen.		<code>EOF</code> ergibt <code>True</code> (wahr), wenn das Ende der Datensätze erreicht ist, also keine Positionen mehr kommen.

	<code>EOF</code> ergibt <code>False</code> (~~wahr~~), wenn noch Positionen kommen.		<code>EOF</code> ergibt <code>False</code> (falsch), wenn noch Positionen kommen.

	procedure ChildHeaderPositionenOnBeforePrint(Sender: TfrxComponent);		procedure ChildHeaderPositionenOnBeforePrint(Sender: TfrxComponent);
Zeile 366:		Zeile 366:

	=== Fuss ===		=== Fuss ===

			Bitte beachten Sie, dass manche Bereiche im Fuss schon ganz oben im Kopfbereich ein- oder ausgeblendet werden.

	Diese Prozedur wird '''vor dem Drucken''' des Fuss-Bereichs aufgerufen. Hier werden z.B. Bereiche ausgeschaltet, abhängig von [[REFLEX_Standard-Report_Angebot/Auftrag#Auftragskennzeichen\|Auftragskennzeichen]].		Diese Prozedur wird '''vor dem Drucken''' des Fuss-Bereichs aufgerufen. Hier werden z.B. Bereiche ausgeschaltet, abhängig von [[REFLEX_Standard-Report_Angebot/Auftrag#Auftragskennzeichen\|Auftragskennzeichen]].

	Im Fuss kann an den Gesamt-Rabatt auf das Material ausgeben. Da es ein solches Feld in der Datenbank nicht gibt, muss man den %-Wert berechnen und in einer Variablen <code>FussRabattProzent</code> ablegen.		Im Fuss kann man den '''Gesamt-Rabatt auf das Material ausgeben'''. Da es ein solches Feld in der Datenbank nicht gibt, muss man den %-Wert berechnen und in einer Variablen <code>FussRabattProzent</code> ablegen.

	// FUSS:		// FUSS:

Gevitas: /* Code */

2016-07-15T09:28:56Z

Code

← Nächstältere Version		Version vom 15. Juli 2016, 09:28 Uhr
Zeile 20:		Zeile 20:
	* Das Memo-Feld (Text-Feld) für die Anschrift wird gefüllt. Hier werden also die Anschriften-Felder nicht direkt auf dem Report platziert, sondern es gibt ein Memo <code>memoAnschrift</code>, in das die Zeilen (Lines) angefügt werden. Das hat den Vorteil, dass z.B. das Ansprechpartner-Feld keine Leerzeile verursacht, wenn es gar keinen Ansprechpartner gibt.		* Das Memo-Feld (Text-Feld) für die Anschrift wird gefüllt. Hier werden also die Anschriften-Felder nicht direkt auf dem Report platziert, sondern es gibt ein Memo <code>memoAnschrift</code>, in das die Zeilen (Lines) angefügt werden. Das hat den Vorteil, dass z.B. das Ansprechpartner-Feld keine Leerzeile verursacht, wenn es gar keinen Ansprechpartner gibt.

	* Abhängig von den [[REFLEX_Standard-Report_Angebot/Auftrag#Auftragskennzeichen]] werden Bänder ein- oder ausgeblendet.		* Abhängig von den [[REFLEX_Standard-Report_Angebot/Auftrag#Auftragskennzeichen\|Auftragskennzeichen]] werden Bänder ein- oder ausgeblendet.


Zeile 75:		Zeile 75:


	Diese Prozedur kommt aus dem Basis-Report, das zeigt das Wort <code>_inherited</code> ("geerbt"). Abhängig vom [[REFLEX_Standard-Report_Angebot/Auftrag#Auftragskennzeichen]] ~~ein~~ das Logo im Kopf ein- oder ausgeblendet.		Diese Prozedur kommt aus dem Basis-Report, das zeigt das Wort <code>_inherited</code> ("geerbt"). Abhängig vom [[REFLEX_Standard-Report_Angebot/Auftrag#Auftragskennzeichen\|Auftragskennzeichen]] wird das Logo im Kopf ein- oder ausgeblendet.

	procedure pictureBasisKopfLogoOnBeforePrint_inherited(Sender: TfrxComponent);		procedure pictureBasisKopfLogoOnBeforePrint_inherited(Sender: TfrxComponent);
Zeile 174:		Zeile 174:
	=== Positionen ===		=== Positionen ===


			Wenn der Positions-Textbaustein leer ist oder wenn das [[REFLEX_Standard-Report_Angebot/Auftrag#Auftragskennzeichen\|Auftragskennzeichen]] 8 auf "Nein" steht, wird der Textbereich der Auftragsposition ausgeblendet:

	// Positionen:		// Positionen:
Zeile 184:		Zeile 186:
	ChildDetailPositionen.Visible := True;		ChildDetailPositionen.Visible := True;
	end;		end;


			Der Seiten-Kopf (Page-Header) kommt normalerweise auf '''jeder''' Seite, also auch auf der '''ersten'''. Das ist hier nicht gewünscht, weil im Kopf schon alle relevanten Informationen stehen. Deshalb wird dieses Band auf der 1. Seite ausgeblendet:

	procedure MemoTitelHeaderPositionenOnBeforePrint(Sender: TfrxComponent);		procedure MemoTitelHeaderPositionenOnBeforePrint(Sender: TfrxComponent);
Zeile 193:		Zeile 198:
	HeaderSeitenNummer.Visible := True;		HeaderSeitenNummer.Visible := True;
	end;		end;


			Der manuelle Seitenwechsel:

	procedure GroupHeaderKapitelOnBeforePrint(Sender: TfrxComponent);		procedure GroupHeaderKapitelOnBeforePrint(Sender: TfrxComponent);
Zeile 202:		Zeile 210:
	end;		end;


			Zusatztext unterdrücken, wenn keiner angegeben ist:

	procedure ChildGroupHeader1OnBeforePrint(Sender: TfrxComponent);		procedure ChildGroupHeader1OnBeforePrint(Sender: TfrxComponent);
	begin		begin
Zeile 211:		Zeile 221:
	ChildGroupHeader1.Visible := True;		ChildGroupHeader1.Visible := True;
	end;		end;



			Die relative große Prozedur wird '''vor dem Drucken''' einer Position aufgerufen. Hier werden z.B. Bereiche ausgeschaltet, abhängig von [[REFLEX_Standard-Report_Angebot/Auftrag#Auftragskennzeichen\|Auftragskennzeichen]].

			Damit die Abfragen nicht zu kompliziert werden, werden die Felder am Anfang erst mal alle auf '''sichtbar''' gestellt (<code>Visible := True</code>). Abhängig von Kennzeichen, Inhalten usw. werden dann einzelne felder auf unsichtbar gestellt (<code>Visible := False</code>):

	procedure DetailPositionenOnBeforePrint(Sender: TfrxComponent);		procedure DetailPositionenOnBeforePrint(Sender: TfrxComponent);
	begin		begin
Zeile 228:		Zeile 241:
	memoPosGesBetrag.Visible := True;		memoPosGesBetrag.Visible := True;

	~~// Derzeit unbenutzt: AuftrStatistikSummeRabatt.Visible:= True;~~

	// Kennzeichen 4 = Einzelpreise sichtbar Ja/Nein:		// Kennzeichen 4 = Einzelpreise sichtbar Ja/Nein:
Zeile 257:		Zeile 269:
	memoHeaderRabattTitel.Visible := False;		memoHeaderRabattTitel.Visible := False;
	memoPositionenRabattProz.Visible := False;		memoPositionenRabattProz.Visible := False;
	~~// Derzeit unbenutzt: AuftrStatistikSummeRabatt.Visible := False;~~
	end;		end;

Zeile 333:		Zeile 344:
	end;		end;
	end;		end;


			Diese Prozedur verhindert, dass auf der letzten Seite die Überschrift (Pos., Menge, Bezeichnung usw.) gedruckt wird, obwohl gar keine Position mehr da ist, die letzte Position also schon gedruckt wurde.

			Dazu wird die Eigenschaft <code>EOF</code> des Positionen-Datensatzes "DetailPositionen.DataSet" abgefragt. EOF = End of File, eigentlich Ende der Datei, hier ist aber das Ende der Datensätze gemeint.

			<code>EOF</code> ergibt <code>True</code> (wahr), wenn das Ende der Datensätze erreicht ist, also keine Positionen mehr kommen.

			<code>EOF</code> ergibt <code>False</code> (wahr), wenn noch Positionen kommen.

	procedure ChildHeaderPositionenOnBeforePrint(Sender: TfrxComponent);		procedure ChildHeaderPositionenOnBeforePrint(Sender: TfrxComponent);
Zeile 347:		Zeile 367:
	=== Fuss ===		=== Fuss ===

			Diese Prozedur wird '''vor dem Drucken''' des Fuss-Bereichs aufgerufen. Hier werden z.B. Bereiche ausgeschaltet, abhängig von [[REFLEX_Standard-Report_Angebot/Auftrag#Auftragskennzeichen\|Auftragskennzeichen]].

			Im Fuss kann an den Gesamt-Rabatt auf das Material ausgeben. Da es ein solches Feld in der Datenbank nicht gibt, muss man den %-Wert berechnen und in einer Variablen <code>FussRabattProzent</code> ablegen.

	// FUSS:		// FUSS:
Zeile 355:		Zeile 378:
	if <AuftragsKopf."KENNZ2"> = 'Nein' then		if <AuftragsKopf."KENNZ2"> = 'Nein' then
	begin		begin
	~~// Derzeit unbenutzt: AuftrStatistikSummeRabatt.Visible:= False;~~
	MemoFooterGespreis.Visible:= False;		MemoFooterGespreis.Visible:= False;
	end;		end;
Zeile 375:		Zeile 397:

	end;		end;


			Im Fuss wird angezeigt, dass es im Angebot '''Alternativ-Positionen'' gibt. Dieser Hinweis soll natürlich nur erscheinen, wenn es im Angebot auch mind. eine Alternativ-Position gibt.

			Das Druckprogramm stellt dazu in der Tabelle <code>AuftrStatistik</code> das Feld <code>"AnzahlAlternativPos"</code> zur Verfügung. Dieses Feld enthält die Anzahl der Positionen, die als "Alternativ" gekennzeichnet wurden.

	procedure AuftrStatistikAnzahlAlternativPosOnBeforePrint(Sender: TfrxComponent);		procedure AuftrStatistikAnzahlAlternativPosOnBeforePrint(Sender: TfrxComponent);
Zeile 384:		Zeile 411:
	AuftrStatistikAnzahlAlternativPos.Visible := True;		AuftrStatistikAnzahlAlternativPos.Visible := True;
	end;		end;


			Am Ende steht immer dieses, bitte nicht entfernen:

	begin		begin

Gevitas: /* Code */

2016-07-15T09:03:18Z

Code

← Nächstältere Version		Version vom 15. Juli 2016, 09:03 Uhr
Zeile 5:		Zeile 5:
	== Code ==		== Code ==

			Der Code ist die Blöcke Kopf, Positionen und Fuss eingeteilt. Technisch gesehen ist das nicht notwendig, die Prozeduren könnten stehen wo sie wollen. Es erhöht aber die Übersichtlichkeit.

			Auf den ersten Blick wirkt das erschreckend viel. Allerdings wiederholen sich die Befehle immer wieder, weil es in der Hauptsache darum geht:

			* Bereiche (Bänder) oder Felder ein- oder auszublenden
			* Felder (Memos, Textfelder) mit Inhalten zu füllen.

			=== Kopf ===

			Diese Prozedur wird aufgerufen, bevor der oberste Bereich (also das oberste Band) des Reports gedruckt wird.

			Hier werden generelle Einstellungen des Reports gemacht:

			* Das Memo-Feld (Text-Feld) für die Anschrift wird gefüllt. Hier werden also die Anschriften-Felder nicht direkt auf dem Report platziert, sondern es gibt ein Memo <code>memoAnschrift</code>, in das die Zeilen (Lines) angefügt werden. Das hat den Vorteil, dass z.B. das Ansprechpartner-Feld keine Leerzeile verursacht, wenn es gar keinen Ansprechpartner gibt.

			* Abhängig von den [[REFLEX_Standard-Report_Angebot/Auftrag#Auftragskennzeichen]] werden Bänder ein- oder ausgeblendet.


			// Kopf:

	procedure MasterDataAnschriftOnBeforePrint(Sender: TfrxComponent);		procedure MasterDataAnschriftOnBeforePrint(Sender: TfrxComponent);
Zeile 56:		Zeile 74:
	end;		end;


			Diese Prozedur kommt aus dem Basis-Report, das zeigt das Wort <code>_inherited</code> ("geerbt"). Abhängig vom [[REFLEX_Standard-Report_Angebot/Auftrag#Auftragskennzeichen]] ein das Logo im Kopf ein- oder ausgeblendet.

	procedure pictureBasisKopfLogoOnBeforePrint_inherited(Sender: TfrxComponent);		procedure pictureBasisKopfLogoOnBeforePrint_inherited(Sender: TfrxComponent);
Zeile 62:		Zeile 82:
	pictureBasisKopfLogo.Visible := False;		pictureBasisKopfLogo.Visible := False;
	end;		end;

	~~procedure MemoNummerOnBeforePrint(Sender: TfrxComponent);~~
	~~begin~~		Da die Seitennummer im Kopf der ersten Seite steht, wird dieser Bereich auf der ersten Seite unterdrückt:
	~~MemoAuftrNrTitelHeaderPositionen.Visible~~ :~~= True;~~
	~~end;~~

	procedure HeaderSeitenNummerOnBeforePrint(Sender: TfrxComponent);		procedure HeaderSeitenNummerOnBeforePrint(Sender: TfrxComponent);
Zeile 77:		Zeile 95:
	end;		end;


			Das Band mit den Feldern Raum/Stand wird ausgeblendet, wenn die Felder leer sind:

	procedure MasterDataVARaumOnBeforePrint(Sender: TfrxComponent);		procedure MasterDataVARaumOnBeforePrint(Sender: TfrxComponent);
Zeile 84:		Zeile 104:
	MasterDataVARaum.Visible := False;		MasterDataVARaum.Visible := False;
	end;		end;


			Das Band mit dem Standard-Kopftext (aus den Programmparametern ⇒ Formular-Texte) wird ausgeblendet, wenn das Feld leer ist:

	procedure MasterDataStandardTextKopfOnBeforePrint(Sender: TfrxComponent);		procedure MasterDataStandardTextKopfOnBeforePrint(Sender: TfrxComponent);
Zeile 92:		Zeile 115:
	MasterDataStandardTextKopf.Visible:= True;		MasterDataStandardTextKopf.Visible:= True;
	end;		end;


			Das Band mit dem Kopftext (aus dem Auftragskopf) wird ausgeblendet, wenn das Feld leer ist:

	procedure MasterDataKopftextOnBeforePrint(Sender: TfrxComponent);		procedure MasterDataKopftextOnBeforePrint(Sender: TfrxComponent);
Zeile 100:		Zeile 126:
	MasterDataKopftext.Visible:= True;		MasterDataKopftext.Visible:= True;
	end;		end;


			Die Bänder für die Bereiche Miete bzw. Verkauf (aus dem Auftragskopf) werden wechselweise aus-/eingeblendet, abhängig von dem Bereichskennzeichen des Auftrags:

	procedure MasterDataKopfMieteOnBeforePrint(Sender: TfrxComponent);		procedure MasterDataKopfMieteOnBeforePrint(Sender: TfrxComponent);
Zeile 140:		Zeile 169:
	MasterDataKopfVerkauf.Visible := True;		MasterDataKopfVerkauf.Visible := True;
	end;		end;



			=== Positionen ===


	// Positionen:		// Positionen:
Zeile 310:		Zeile 343:
	end;		end;



			=== Fuss ===


	// FUSS:		// FUSS: