dimension des objets en fonction du form

bjr a vous tous
j'ai concocté un ptit source qui peut rendre service
sans utiliser une dll c du panoramic pur

ce source est utilisé pour agrandir ou diminue un objet en fonction du forme
c a dire que si on agrandi le forme l'objet system s’agrandit ou diminue

je me suis basé au source de bignono "survol des objets" et je me suis dit que l'on
pouvait utilisé ce système avec n'importe quoi


voici le source
' ----------------------------------------------------------------------
dim HeightForm%,HeightF%,WidthForm%,WidthF%
dim Heightmemo%,widthmemo%,Heightm%,widthm%

label change,dimemo
memo 1
color 1,0,0,0
HeightF%=Height(0):WidthF%=width(0)
Heightm%=Height(1):widthm%=width(1)

button 2 :left 2,widthm%+5

timer 10:on_timer 10,change:timer_interval 10,1
end

change:
timer_off 10
HeightForm%=(Height(0))-HeightF%
WidthForm%=(width(0))-WidthF%
caption 0,str$(WidthForm%)+" "+str$(HeightForm%)
gosub dimemo
timer_on 10
return

dimemo:
Heightmemo%=Heightm%+HeightForm%
widthmemo%=widthm%+WidthForm%
Height 1,Heightmemo%
width 1,widthmemo%
left 2,widthmemo%+5
return
' ---------------------------------------------------------------------------

j’espère que ce code va vous plaire et je crois que le timer rend bcp de service

fais tout de même attention, je me suis souvent essayé à faire des objets dynamique
et souvent je me suis heurté à des messages d' accès violation.

ygeromini
jusqu’à présent je n'ai jamais eu de msg d'eereur
sauf hier et pour y remédié j'ai mis à la crobeille panoramic.exe
qui se trouve dans le dossier temp du system et tous est rentré dans l'ordre
parce que a parement ce fichier ne doit pas se mettre a jour comme il se doit
il doit gardé des configurations même une fois si panoramic est éteint alors qu'il ne doit
pas le faire