Navigation:  Documentazione SCREENS > Files generati > 'NOMEPRG'.PRC > Gestione griglie - funzioni comuni > X-SET-ROW-nomegrid-COLOR

Questa routine permette di attribuire un colore specifico alle righe della griglia, in funzione di decisioni prese dal programma.

Viene costruita utilizzando un'area apposita di codice inserita in un campo di screens.

 

Esempio della chiamata alla routine

 

Questa routine deve essere inserita nelle routines principali di chiamata a GRIDADMN (in particolare in caso di aggiunta/modifica riga).

 

      x-add-record-to-grid.

          initialize util-gdad

          move "Add-Record"          to gdad-ope

          move prog-err              to gdad-prg

          move 1                     to gdad-frm

          move k-id-grid             to gdad-ctrl-id

          move k                     to i-grid-color

          perform x-set-row-grid-color

         move row-grid-color        to gdad-color

          call "GRIDADMN" using stringhe util-gdad gdad-record

          .

 

 

Esempio della routine

 

La parte evidenziata in rosso è quella prelevata da screens.

 

     **---------------------------------------------------------------**

     ** Impostazione di un colore particolare per le righe griglia

     **---------------------------------------------------------------**

      x-set-row-grid-color.

          move 0                      to row-grid-color

          if valore = 1

             move ext-color-grid-hl   to row-grid-color

          end-if

          .