FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour RESIZING A WINDOW
Posts: 401
Joined: Tue Jan 05, 2010 02:33 PM
RESIZING A WINDOW
Posted: Sun Aug 28, 2011 07:30 AM

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

@ nYnumero, nxnumero BTNBMP aBtn[nBot] FILENAME BUNGA_FREE ;
PIXEL OF oPanel SIZE BMP_H,BMP_V NOBORDER

NEXT NX

RETURN NIL

aNY iDEA ?

FWH .. BC582.. xharbour

Continue the discussion