FiveTech Software tech support forums

WHEN HE FINAL USER RESIZE THE MAIN WINDOW i WISH RESIZE ALL CONTROLS ARE INTO THIS WINDOW

i HAVE :

#define BMP_H 64
#define BMP_V 64



DEFINE WINDOW oSALOON


oPanel:= TPanel():New(40,2,400,400,oSpiaggia)
oPanel:SetBrush(oBrush1)
oSpiaggia:oclient:=oPanel



ACTIVATE WINDOW oSALOON ;
ON INIT (oScrWnd:=TScrWnd():New( oPanel,1,TOTY+33,1,TOTX+300), MakeButtons(oPanel) )

RETURN NIL


Function MakeButtons(oPanel)
NY=1
Numero:= BMP_V
for nx= 1 to 20

@ nY*numero, nx*numero BTNBMP aBtn[nBot] FILENAME BUNGA_FREE ;
PIXEL OF oPanel SIZE BMP_H,BMP_V NOBORDER


NEXT NX

RETURN NIL



aNY iDEA ?