Documentazione SCREENS > Files generati > 'NOMEPRG'.PRC > Gestione griglie - funzioni comuni

Questa routine esegue una chiamata a GRIDADMN allo scopo di salvare il ridimensionamento di una colonna effettuata dall'operatore.

Esempio della chiamata alla routine

Questa routine viene chiamata direttamente da altre routine generate automaticamente: vedi Z-99-EVENT-nomegrid

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

** Gestione eventi per griglia: grid-det

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

z-99-event-grid-det.

if last-row-grid-det > 1

inquire e-grid-det, y in w-cell-y

compute i-grid-color = last-row-grid-det - 1

perform x-set-row-grid-det-color

modify e-grid-det,

y = last-row-grid-det,

row-color = row-grid-color

modify e-grid-det, y = w-cell-y

end-if

.....

evaluate event-type

when msg-col-width-changed

perform x-grid-cambia-dimensione-colonna

end-evaluate

....

Esempio della routine

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

** Se configurato dall'operatore, eseguo la modifica

** configurazione colonna

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

x-grid-cambia-dimensione-colonna.

initialize util-gdad

move 'Modifica-Col' to gdad-ope

move prog-err to gdad-prg

move 1 to gdad-frm

move event-control-id to gdad-ctrl-id

move event-data-2 to gdad-col-disp-size

move event-control-handle to gdad-handle

move 'S' to gdad-usa-gdh

move ghd-r-sub-h (event-data-1) to gdad-sub-h

move ghd-r-sub-esp (event-data-1) to gdad-sub-esp

call 'GRIDADMN' using stringhe util-gdad

X-nomegrid-CAMBIA-DIM-COLONNA