X-RICALCOLA-nomegrid |
  
|
X-RICALCOLA-nomegrid |
|
Permette il ridimensionamento della griglia, se previsto su screens.
Esempio della chiamata alla routine
Questa routine viene richiamata da alcune procedure automatiche, ma al bisogno può essere usata nel programma.
*------------------------------------------------------------------*
* Gestione del ridimensionamento di una form in
* presenza di griglia paged: grid-det
*------------------------------------------------------------------*
z-ntf-resized-on-grid-det.
compute w-window-lines = event-data-1 / 100
compute w-window-size = event-data-2 / 100
perform x-ricalcola-grid-det
compute gor-r-w-t-size = w-lines-grid-det - 1
move gor-r-w-t-size to gor-r-t-length gor-r-t-size
if w-lines-grid-det-pre not = w-lines-grid-det
if gor-r-n-m <> 0
initialize gor-r-fl-read
perform grid-det-rp-fill-key
perform grid-det-rst-not-less
end-if
if fl-sono-su-grid = 'S'
perform z-costruisci-grid-det
end-if
inquire e-grid-det, cursor-y in w-cell-y
if w-cell-y > (gor-r-t-length + 1)
compute w-cell-y = gor-r-t-length + 1
modify e-grid-det, cursor-y = w-cell-y
move gor-r-t-length to i
end-if
end-if
.
Esempio della routine
**---------------------------------------------------------------**
** Ricalcolo dimensioni griglia: grid-det
**---------------------------------------------------------------**
x-ricalcola-grid-det.
compute w-size-grid-det =
w-window-size - k-rel-size-grid-det
move w-lines-grid-det to w-lines-grid-det-pre
compute w-lines-grid-det =
w-pix-form-cella-y *
(w-window-lines - k-rel-lines-grid-det) /
(w-pix-grid-cella-y + 1)
compute w-lines-grid-det = w-lines-grid-det /
((ext-vpadding + 100) / 100)
modify e-grid-det,
lines = w-lines-grid-det,
size = w-size-grid-det
.