410 Sonderspalten in Grids- F2-Fenstern » Historie » Revision 15
Revision 14 ([E] Frank S, 24.04.2019 12:03) → Revision 15/16 ([E] Frank S, 22.02.2023 11:45)
h1. Sonderspalten in Grids- / F2-Fenstern
h1. CimColor per SQL
Auflistung weiterer Steuerfelder : [[prodat-v-x:Sonderfelder im SQL]]
bekannte CimFarb-Konstanten : [[prodat-v-x:CimColor]] (z.B. CimRed)
Entwicklungs-Tickets : {{collapse(Aufklappen)
#6977 Weitere Farben zur Hervorhebung: CimColor in Grids
#5495 CIM-Farben in Assistenten und dynam. Oberflächen verfügbar machen
#6109 Joined Columns in CimColumnHandler integrieren
}}
Farben per SQL in Prodat werden per Spaltenname und BOOL an bestimmten Oberflächen erzeugt.
Mehrere gleichartige Spaltenbezeichnungen werden interpretiert und bei True dargestellt.
-Gelb gewinnt vor Grün, Rot gewinnt vor Gelb und Grün.- Feldreihenfolge: der Erste mit True gewinnt
Verfügbare Farben:
* CimRed CimYellow CimGreen CimBlue CimBrown CimGray
Verfügbare Oberflächen:
* F2 und F4
* tabellarische Oberflächen (EditTable)
* Assistenten (Stand 06.2016: bei Einigen schon vorhanden, aber soll demnächst bei Allen dran > http://redmine.prodat-sql.de/issues/5495)
* SQL - abfragen
* und überall, wo der *TCimColumnHandler* angebunden ist
** TCimColumnHandler in Oberfläche, Propertie zuweisen, EnableColor
** *TCimColumnHandler.InitColumns* nach dem Öffnen des DataSet aufrufen
** Grid.OnCustomDrawCell mit "CimColumnHandlerFSL.RowStyle(ACanvas, AViewInfo);" "Bestücken"
In weiter Oberflächen einbauen:
* [[prodat-v-x:CimColumnHandler]] auf Form legen
** GridView und Query angeben
** in Options das EnableColor aktivieren
* Events anhängen
** nach Query.Load > @CimColumnHandler1.InitColumns;@
** in GridView.OnCustomDrawCell > @CimColumnHandler1.RowStyle(ACanvas, AViewInfo);@
* ggf. die Spalte (z.B.: @abc_cimred@) mit *ins Grid* aufnehmen (Visibles false)
Beispiel: ganze Zeile wird gefärbt
<pre><code class="sql">
SELECT 1, true AS CimGreen, false AS CimYellow, false AS CimRed -- Grün
UNION
SELECT 2, false, true, false -- Gelb
UNION
SELECT 3, false, false, true -- Rot
UNION
SELECT 4, true, true, false -- Grün (Gelb überstimmt)
UNION
SELECT 5, true, true, true -- Grün (Gelb und Rot überstimmt)
ORDER BY 1
</code></pre>
Beispiel: ganze einzelne Spalte wird gefärbt
<pre><code class="sql">
SELECT ld_auftg, true AS ld_auftg_CimGreen, ld_pos FROM auftg LIMIT 1
</code></pre>
h1. Ausführliche Beschreibung
h2. mögliche Felder
<pre>
CimRed CimYellow CimGreen CimBlue CimBrown CimGray
CimColor
CimBold CimItalic CimUnterline CimStrikeOut
CimFontRed CimFontGreen CimFontGray
CimFormat
</pre>
* Gültigkeit: ganzzeilig
* Gültigkeit: Spalte oder Zelle mit Feldname als Präfix "field_format" (z.B. ak_nr_cimred)
* Auswertung: das erste Vorkommen (ungleich NULL, FALSE und '') hat immer Vorrang
** es gilt die Erstellungsreihenfolge der Columns -> stimmt aber meistens mit der Reihenfolge der SQL-Felder überein (Daten aus Cache des Grids)
* doppelt gejoint möglich (cimred, cimred_1, cimred_2 bis cimred_3)
{{collapse(Aufklappen)
h2. Parameter für CimFormat (das Präfix "Cim" kann entfallen)
<pre>
CimRed CimYellow CimGreen CimBlue CimBrown CimGray + CimDarkRed CimBrown CimOrange CimDarkOrange CimYellow CimGreen CimBlue CimLightBlue CimDarkBlue CimGray CimInfoBk CimInfoBkGreen CimStyleRed
clBlack clMaroon clGreen clOlive clNavy clPurple clTeal clGray clSilver clRed clLime clYellow clBlue clFuchsia clAqua clLtGray clDkGray clWhite clMoneyGreen clSkyBlue clCream clMedGray clInfoBk clHotLight
CimColor
CimBold CimItalic CimUnterline CimStrikeOut
CimFontRed CimFontGreen CimFontGray
CimFontName/Font
CimFontSize/Size
</pre>
* Mehrere Angaben per *Komma* getrennt.
* @'cimred=True'@, @'cimred'@ (nur für Booleanwerte und gilt als True) oder @'cimred=:ag_done'@ (Referenz auf Booleanspalte)
* ebefalls ganzzeilig und zellenweise möglich ("field_format -> ak_nr_cimred=True)
* ungültige/unbekannte Formatnamen werden ignoriert (nichts ins Log geschrieben, da je ein Aufruf pro gezeichneter Zelle)
h2. Werte für CimColor
* @CimRed CimDarkRed CimBrown CimOrange CimDarkOrange CimYellow CimGreen CimBlue CimLightBlue CimDarkBlue CimGray CimInfoBk CimInfoBkGreen CimStyleRed@ + CimOrange CimDarkOrange CimDarkRed CimDarkBlue@
* @clBlack clGreen clGray clSilver clRed@ uvm. (siehe http://docwiki.embarcadero.com/Libraries/XE7/de/Vcl.Graphics.TColor)
* @'#RRGGBB'@ oder @'#RGB'@ (HTML/CSS, siehe Tabelle mit RGB-Farbwerten https://meta.wikimedia.org/wiki/Wiki_color_formatting_help http://html-color-codes.info/webfarben_hexcodes/)
* @'$BBGGRR'@, @'Dezimal'@ oder @Dezimal@ (TColor/Integer/Float)
* @x'BBGGRR'::INT@ = DB-seitig HEX zu INT konvertiert
h2. Datentypen der DB-Felder
* CimColor/Color = Integer oder Text
* CimFormat = Text
* CimFontName = Text (z.B. Arial oder Microsoft Sans Serif -> siehe charmap.exe)
* CimFontSize = Integer (Default = 9)
* alles Andere = Boolean oder ':field' (verlinkung mit anderem Booleanfeld)
h2. Beispiele
* Reihenfolge
<pre><code class="sql">
SELECT 'rot ' AS a, true AS cimred, true AS cimgreen;
SELECT 'grün' AS a, true AS cimgreen, true AS cimred;
</code></pre>
* Zeile oder Zelle/Spalte
<pre><code class="sql">
SELECT 1 AS a, 2 AS b, 3 AS c, true AS cimred, false AS b_cimred -- ganze Zeile
UNION
SELECT 1 AS a, 2 AS b, 3 AS c, false AS cimred, true AS b_cimred -- nur B
</code></pre>
* Konkatenieren für CimFormat
<pre><code class="sql">
SELECT 1 AS a, concat_ws(',',
'cimgreen',
IfThen(true, 'bold', null),
IfThen(false, 'fontsize=4', null)
) AS CimFormat --'cimgreen,bold' AS CimFormat
</code></pre>
* Alles das Gleiche (mehrere Varianten zur Übergabe von CimRed)
<pre><code class="sql">
SELECT 1 AS aaa, true AS xxx,
true AS cimred, --xxx AS cimred,
':xxx' AS cimred,
concat_ws(',',
'red',
'cimred',
'cimred=True',
'cimred=:xxx',
IfThen(true, 'cimred', null) --IfThen(xxx, 'cimred', null)
) AS cimformat
</code></pre>
* Definition der Farbwerte
<pre><code class="sql">
SELECT
'A' AS a, '$0000FF' AS a_cimcolor,
'B' AS b, x'0000FF'::INT AS b_cimcolor, -- 255 AS b_cimcolor
'C' AS c, '#FF0000' AS c_cimcolor,
'D' AS d, 'clRed' AS d_cimcolor,
'E' AS e, 'CimRed' AS e_cimcolor,
'Z' AS z, NULL::INT AS z_cimcolor
</code></pre>
* Megademo
!CCHMegademo.png!
<pre><code class="sql">
SELECT
a, b, c, a=1 AS CimRed, 'Size=5' AS a_CimFormat,
b=5 AS b_CimBlue, IfThen(b=8, x'FFAAFF'::INT, null)::INT AS b_CimColor, --IfThen macht aus dem INT ein DECIMAL
'cimgreen,bold' AS c_CimFormat
FROM (
SELECT 1 AS a, 2 AS b, 3 AS c
UNION
SELECT 4, 5, 6
UNION
SELECT 7, 8, 9
) AS x
ORDER BY a
</code></pre>
* Megademo (vollständig)
<pre><code class="sql">
SELECT
a, b, c,
a=1 AS CimRed, a=1 AS CimYellow, false AS CimGreen, false AS CimBlue, false AS CimGray, null::INT AS CimColor,
false AS CimBold, false AS CimItalic, false AS CimFontRed, false AS CimFontGreen,
null::VARCHAR AS CimFormat,
false AS a_CimRed, false AS a_CimYellow, false AS a_CimGreen, false AS a_CimBlue, false AS a_CimGray, null::INT AS a_CimColor,
false AS a_CimBold, false AS a_CimItalic, false AS a_CimFontRed, false AS a_CimFontGreen,
'Size=5' AS a_CimFormat,
false AS b_CimRed, false AS b_CimYellow, false AS b_CimGreen, b=5 AS b_CimBlue, b=5 AS b_CimGray, IfThen(b=8, x'FFAAFF'::INT, null) AS b_CimColor,
false AS b_CimBold, false AS b_CimItalic, false AS b_CimFontRed, false AS b_CimFontGreen,
null AS b_CimFormat,
false AS c_CimRed, false AS c_CimYellow, false AS c_CimGreen, false AS c_CimBlue, false AS c_CimGray, null::INT AS c_CimColor,
false AS c_CimBold, false AS c_CimItalic, false AS c_CimFontRed, false AS c_CimFontGreen,
concat_ws(',', 'cimgreen', IfThen(true, 'bold', null)) AS c_CimFormat --'cimgreen,bold' AS c_CimFormat
FROM (
SELECT 1 AS a, 2 AS b, 3 AS c
UNION
SELECT 4, 5, 6
UNION
SELECT 7, 8, 9
) AS x
ORDER BY a
</code></pre>
}}
---