Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi List & Label 11, Text zur Laufzeit färben (https://www.delphipraxis.net/84100-list-label-11-text-zur-laufzeit-faerben.html)

SubData 11. Jan 2007 10:46


List & Label 11, Text zur Laufzeit färben
 
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 11. Jan 2007 12:07

Re: List & Label 11, Text zur Laufzeit färben
 
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 11. Jan 2007 13:41

Re: List & Label 11, Text zur Laufzeit färben
 
Ja kann man ... Komplementärfarbe zum Hintergrund :)

Andidreas 11. Jan 2007 13:51

Re: List & Label 11, Text zur Laufzeit färben
 
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 11. Jan 2007 14:03

Re: List & Label 11, Text zur Laufzeit färben
 
Du willst mir damit aber nich sagen, dass ich für alle 16.777.216 Farben, ne Abfrage einbauen muss, oder? -g-

Andidreas 11. Jan 2007 14:05

Re: List & Label 11, Text zur Laufzeit färben
 
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 11. Jan 2007 14:10

Re: List & Label 11, Text zur Laufzeit färben
 
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 12. Jan 2007 11:52

Re: List & Label 11, Text zur Laufzeit färben
 
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:

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


Alle Zeitangaben in WEZ +1. Es ist jetzt 07:14 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz