Aktionen

Historie

410 Sonderspalten in Grids- F2-Fenstern » Historie » Revision 15

« Zurück | Revision 15/16 (diff) | Weiter »
[E] Frank S, 22.02.2023 11:45

Sonderspalten in Grids- / F2-Fenstern¶

CimColor per SQL¶

Auflistung weiterer Steuerfelder : [[prodat-v-x:Sonderfelder im SQL]]
bekannte CimFarb-Konstanten : [[prodat-v-x:CimColor]] (z.B. CimRed)
Entwicklungs-Tickets : Aufklappen Aufklappen

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

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

Beispiel: ganze einzelne Spalte wird gefärbt

SELECT ld_auftg, true AS ld_auftg_CimGreen, ld_pos FROM auftg LIMIT 1

Ausführliche Beschreibung¶

mögliche Felder¶

CimRed CimYellow CimGreen CimBlue CimBrown CimGray
CimColor
CimBold CimItalic CimUnterline CimStrikeOut
CimFontRed CimFontGreen CimFontGray
CimFormat

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)

Aufklappen Aufklappen

Parameter für CimFormat (das Präfix "Cim" kann entfallen)¶

CimRed 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

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)

Werte für CimColor¶

CimRed CimDarkRed CimBrown CimOrange CimDarkOrange CimYellow CimGreen CimBlue CimLightBlue CimDarkBlue CimGray CimInfoBk CimInfoBkGreen CimStyleRed
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

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)

Beispiele¶

Reihenfolge

SELECT 'rot ' AS a, true AS cimred, true AS cimgreen;

SELECT 'grün' AS a, true AS cimgreen, true AS cimred;

Zeile oder Zelle/Spalte

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

Konkatenieren für CimFormat

SELECT 1 AS a, concat_ws(',',
  'cimgreen',
  IfThen(true, 'bold', null),
  IfThen(false, 'fontsize=4', null)
) AS CimFormat --'cimgreen,bold' AS CimFormat

Alles das Gleiche (mehrere Varianten zur Übergabe von CimRed)

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

Definition der Farbwerte

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

Megademo

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

Megademo (vollständig)

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

Dateien (1)

Von [E] Frank S vor etwa 1 Jahr aktualisiert · 15 Revisionen

Projekt

Allgemein

Profil

PRODAT PUBLIC

Wiki

Index: