List & Label 11, Text zur Laufzeit färben

**SubData**

Aloa...

Ich benutze List & Label 11 zur Erstellung von Reports.

Das Färben des Hintergrunds von Datenfeldern ist auch kein Problem.
Durch den EventHandler OnTableField gibt LL11 die Möglichkeit direkt auf ein Rect des Feldes zuzugreifen. Nur leider gibt aus einem Rect kein "Text" Element, dementsprechend suche ich nun nach einer Möglichkeit den Text im Feld einzufärben. Weder im Designerhandbuch noch in der Programmiererreferenz hab ich was zu dem Thema gefunden. Die Combit Homepage war leider auch nicht sonderlich hilfreich.

Wenn also irgendwer Ahnung davon hat, wäre ich für Hilfe äusserst dankbar, da ich jetzt auch nicht wirklich Lust habe die kompletten LL11 Units bis ins Detail zu studieren.

**Andidreas**

hi...

der text denn du färben willst, kann man denn an "regeln" erkennen???

also z.b. eine artikel nr. muss in blau dargestellt werden!

**SubData**

Ja kann man ... Komplementärfarbe zum Hintergrund

**Andidreas**

dann behaupte ich jetzt einfach mal das du im designer eine abfrage einbauen
kannst mit der du die textfarbe steuern kannst!

also z.b.

if komplementärfarbe = rot then textfarbe = blau

wie man das genau im designer hinterlegt weiß ich grad nicht auswendig,
müsst ich mal nachschauen, aber so ungefähr müsste es gehen!

**SubData**

Du willst mir damit aber nich sagen, dass ich für alle 16.777.216 Farben, ne Abfrage einbauen muss, oder? -g-

**Andidreas**

so habs ich mir jetzt mal zum beispiel vorgestellt:

Cond(PICQ01 = 3,RGB(0,0,0),RGB(12,12,12))

wenn das feld PICQ01 denn wert 3 hat, dann ist die farbe schwarz
wenn das feld PICQ01 ungleich 3 ist, dann ists irgend ne andere farbe

**SubData**

Naja das würde aber auch nur für ne handvoll Farben helfen und es können wie gesagt 16777216 verschiedene sein (Benutzerauswahl).
Aber ich werde mal versuchen den Farbcode via DefineField an LL zu übergeben und versuchen umzurechnen. Kann ja nich sein, dass sowas garnich möglich sein soll

**SubData**

Falls es wen interessiert...
Ich hab das ganze nun folgendermaßen gelöst.
Der Farbwert wird als Integer an List & Label übergeben und dann auseinander genommen:

markieren

Code:

			  RGB((COLOR % 16777216) / 65536, ((COLOR % 16777216) % 65536) / 256, (((COLOR % 16777216) % 65536) % 256))
		

List & Label 11, Text zur Laufzeit färben

List & Label 11, Text zur Laufzeit färben

Re: List & Label 11, Text zur Laufzeit färben

Re: List & Label 11, Text zur Laufzeit färben

Re: List & Label 11, Text zur Laufzeit färben

Re: List & Label 11, Text zur Laufzeit färben

Re: List & Label 11, Text zur Laufzeit färben

Re: List & Label 11, Text zur Laufzeit färben

Re: List & Label 11, Text zur Laufzeit färben

Forumregeln

Andidreas Registriert seit: 27. Okt 2005 1.110 Beiträge Delphi 10.1 Berlin Enterprise	#2 Re: List & Label 11, Text zur Laufzeit färben 11. Jan 2007, 12:07 hi... der text denn du färben willst, kann man denn an "regeln" erkennen??? also z.b. eine artikel nr. muss in blau dargestellt werden! Ein Programmierer Programmiert durchschnittlich 15 Code Zeilen pro Tag Wir sind hier doch nicht bei SAP!!! Aber wir habens bald
	Zitat

SubData Registriert seit: 14. Sep 2004 Ort: Stuhr 1.078 Beiträge Delphi 11 Alexandria	#3 Re: List & Label 11, Text zur Laufzeit färben 11. Jan 2007, 13:41 Ja kann man ... Komplementärfarbe zum Hintergrund Ronny /(bb\|[^b]{2})/
	Zitat

SubData Registriert seit: 14. Sep 2004 Ort: Stuhr 1.078 Beiträge Delphi 11 Alexandria	#5 Re: List & Label 11, Text zur Laufzeit färben 11. Jan 2007, 14:03 Du willst mir damit aber nich sagen, dass ich für alle 16.777.216 Farben, ne Abfrage einbauen muss, oder? -g- Ronny /(bb\|[^b]{2})/
	Zitat

SubData Registriert seit: 14. Sep 2004 Ort: Stuhr 1.078 Beiträge Delphi 11 Alexandria	#7 Re: List & Label 11, Text zur Laufzeit färben 11. Jan 2007, 14:10 Naja das würde aber auch nur für ne handvoll Farben helfen und es können wie gesagt 16777216 verschiedene sein (Benutzerauswahl). Aber ich werde mal versuchen den Farbcode via DefineField an LL zu übergeben und versuchen umzurechnen. Kann ja nich sein, dass sowas garnich möglich sein soll Ronny /(bb\|[^b]{2})/
	Zitat

SubData Registriert seit: 14. Sep 2004 Ort: Stuhr 1.078 Beiträge Delphi 11 Alexandria	#8 Re: List & Label 11, Text zur Laufzeit färben 12. Jan 2007, 11:52 Falls es wen interessiert... Ich hab das ganze nun folgendermaßen gelöst. Der Farbwert wird als Integer an List & Label übergeben und dann auseinander genommen: markieren Code: RGB((COLOR % 16777216) / 65536, ((COLOR % 16777216) % 65536) / 256, (((COLOR % 16777216) % 65536) % 256)) Ronny /(bb\|[^b]{2})/
	Zitat