Programmieren mit dBASE PLUS: Beispiele: cellPaint

Das folgende Beispiel zeigt die Basisfunktionen von den Events beforeCellPaint and onCellPaint:

aus OLH

function column1_beforeCellPaint(bSelectedRow)
if this.value < 0
  if.not.bSelectRow
  // Ändert die Zellfarbe des Grids in rot auf weiß bei einer negativen Zahl.
  this.colorNormal = "red/white"
endif
return

function column1_onCellPaint(bSelectedRow)
 this.colorNormal = ""   // setzt die Zellfarbe des Grids zurück auf den Standardwert für Farbe
return

Ampelsystem

function column1_beforeCellPaint(bSelectedRow)
IF not bSelectRow // Wenn Row nicht ausgewählt ist
  DO CASE
  CASE this.value <=10 //Wenn Wert kleiner/gleich 10 
    this.colorNormal = "red/white"
  CASE this.value >10 and this.value <=100 // Wenn Wert zwischen 10 und 100
    this.colorNormal = "yellow/black"
  CASE this.value >100 //Wenn Wert größer als 100
    this.colorNomal = "green/white"
  OTHERWISE
    this.colorNormal = ""
  ENDCASE
ELSEIF bSelectRow // Wenn Row ausgewählt ist
  this.colorNormal = "white/black"
ENDIF
return

function column1_onCellPaint(bSelectedRow)
 this.colorNormal = ""   // setzt die Zellfarbe des Grids zurück auf den Standardwert für Farbe
return