#5 Module Pager et redimensionnement

[iri]

Lorsqu'on affecte une zone ŕ la 'pager.box' du module
Pager, le Client plante sans message d'erreur s'il
redimensionne la fenętre du site.

En modifiant légčrement le code client de ce module
('cpager.pkg') ce problčme disparait.

Initialement on a la fonction (ligne 737) :
fun cbResizeBox(coord, zone) =
let coord -> [wn x y w h] in
let BoxBMP == BlinkUpBMP -> UpDown in
(
_DSbitmap BlinkUpBMP;
_DSbitmap BlinkDownBMP;

_SIZEwindow BoxWin w h x y;
set BoxW = w;
set BoxH = h;

set BlinkUpBMP = _CRbitmap _channel w h;
set BlinkDownBMP = _CRbitmap _channel w h;
....

Je l'ai modifié ainsi ... :
fun cbResizeBox(coord, zone) =
let coord -> [wn x y w h] in
let BoxBMP == BlinkUpBMP -> UpDown in
(
_SIZEwindow BoxWin w h x y;
set BoxW = w;
set BoxH = h;

_DSbitmap BlinkUpBMP;
_DSbitmap BlinkDownBMP;
set BlinkUpBMP = _CRbitmap _channel w h;
set BlinkDownBMP = _CRbitmap _channel w h;
....

Seuls les deux instructions de destructions des bitmaps
ont été déplacées.

Note : le fichier que je propose en download est le pkg
client du Pager3 !

[iri]

Le fichier 'cpager.pkg' avec ma correction, dcompresser dans dms\commtools\pager3

[Fouad B.]

Logged In: YES
user_id=1070643

La modification fonctionne parfaitement. merci