I must create a window with a wbrowse ( size 450,450) and many buttons
I wanted that the user when shrink the window or increase the window with the mouse the procedure must repaint all the controls (lbx and buttons) :
there is an sample work as it ?
regards
Silvio,
Windows may do it automatically, if you want to force it then you can do oWnd:Refresh()
ok ,
perhaps you not understand me
or I not I explain you well
I'm sorry for my english...
when I shrink the window or increase the window with the mouse all controls on this window(olbx and buttons) must be shrunk theyself
I can see a small window but I can see all the controls of the window
YOu have understand now ?
Silvio,
Do you mean that you want the controls to resize as the window resizes too ? If yes, then you have to code it yourself. Its not difficult.
yes you have understand NOw !!!!
Can I have a small sample ?
Is there an sample of this on samples of fwh ?
Silvio,
You have to change the position of the controls changing DATAs nTop, nLeft and dimensions using DATAs nWidth and nHeight. i.e.:
for n ...
oWnd:aControls[ n ]:nTop = ...
oWnd:aControls[ n ]:nLeft = ...
oWnd:aControls[ n ]:nWidth = ...
oWnd:aControls[ n ]:nHeight = ...
#include "Fivewin.ch"
FUNCTION MAIN()
LOCAL oWnd
LOCAL aBtn := {}
LOCAL n := 1
LOCAL i, j
DEFINE WINDOW oWnd
@20,5 LISTBOX oLbx FIELDS "";
HEADER "ARTICOLO", "QTA", ;
"PREZZO", "TOTALE" ;
OF oWnd SIZE 200,200 PIXEL ;
SIZES 230, 80,90,90
MAKEBUTTON( 10,40, 10 )
ACTIVATE WINDOW oWnd
RETURN NIL
STATIC FUNCTION MAKEBUTTON( nRow, nCol, n )
LOCAL oBtn
@ nRow, nCol BUTTON oBtn PROMPT "Test";
SIZE 200, 50;
ACTION MAKEMENU( oBtn, n )
RETURN oBtn
STATIC FUNCTION MAKEMENU( oBtn, n )
LOCAL oMenu
MENU oMenu POPUP
MENUITEM "Button number?" ACTION MSGINFO( n )
ENDMENU
ACTIVATE MENU oMenu AT 0, 0 OF oBtn
RETURN NIlfunction Main()
local oBar
DEFINE WINDOW oWnd MDI ;
TITLE "Browsing a DataBase"
DEFINE BUTTONBAR oBar 3D OF oWnd
DEFINE BUTTON OF oBar ACTION CustomerBrowse()
SET MESSAGE OF oWnd TO "FiveWin xBase power!" CENTERED
ACTIVATE WINDOW oWnd MAXIMIZED
return nil
FUNCTION CustomerBrowse()
LOCAL oWndChild,oFont,oFont2,oFont3
DEFINE FONT oFont NAME "MS Sans Serif" SIZE 0, -20
DEFINE FONT oFont2 NAME "MS Sans Serif" SIZE 0, -40
DEFINE FONT oFont3 NAME "ARIAL" SIZE 0, -50
DEFINE WINDOW oWndChild COLOR GetSysColor(13), GetSysColor(1)
*STYLE nOr( WS_POPUP, WS_VISIBLE ) COLOR GetSysColor(13), GetSysColor(1)
@20,5 LISTBOX oLbx FIELDS "";
HEADER "ARTICOLO", "QTA", ;
"PREZZO", "TOTALE" ;
OF oWndChild SIZE 650,600 PIXEL ;
SIZES 230, 80,90,90;
FONT oFont
makebuttons(20,660,oWndChild,oFont,oLBX)
ACTIVATE WINDOW oWndChild MAXIMIZED;
ON RESIZE RESIZE_WINDOW(oWndChild)
RETURN NIL
STATIC FUNCTION makebuttons(X,y,ownd,oFont,oLBX)
LOCAL k
BOTTONI :=40 // but I want see 160 buttons !!!!!!!!!!!!!
n := 1
aBtn := Array(BOTTONI)
X = 20
Y = 660
USE LISTBAR Alias LISTBAR INDEX BAR
FOR k := 1 TO BOTTONI
cCaption := ""
nBottone:=n
LISTBAR->(DbSeek(nBottone))
cCaption := AllTrim(LISTBAR->CODICE)
IF !Empty( cCaption )
@ X+2 ,Y BUTTON aBtn[n] PROMPT cCaption OF oWnd FONT oFont ;
SIZE 140,85 PIXEL
ELSE
@ X+2 ,Y BUTTON aBtn[n] PROMPT Str(nBottone,3,0) OF oWnd FONT oFont ;
SIZE 140,85 PIXEL
ENDIF
/*
aBtn[n]:bAction := {|oBtn| AddLbx(oGet,oBtn,oLbx) }
IF !Empty(cCaption )
aBtn[n]:cargo := { 'Full', n }
ELSE
aBtn[n]:cargo := { 'Empty', n }
ENDIF
*/
X +=85
n++
// LISTBAR->(dbskip())
IF n= 11 .OR. n=21 .OR. n=31 .OR. n=41
X=20
Y=Y+145
ENDIF
NEXT
// bottoni per le pagine ???????
// ma come cambiare pagina ??????
// Pagina1 da 1a 40
// pagina 2 da 41 a 80
// pagina 3 da 81 a 120
// pagina 4 da 121 a 160
X=900
y=660
@ X+2 ,Y BUTTON aPag1 PROMPT PAGINA1 OF oWnd FONT oFont ;
SIZE 140,50 PIXEL
*ACTION Pagina1( oWnd )
Y=Y+145
@ X+2 ,Y BUTTON aPag2 PROMPT PAGINA2 OF oWnd FONT oFont ;
SIZE 140,50 PIXEL
*ACTION Pagina2( oWnd )
Y=Y+145
@ X+2 ,Y BUTTON aPag1 PROMPT PAGINA3 OF oWnd FONT oFont ;
SIZE 140,50 PIXEL
*ACTION Pagina3( oWnd )
Y=Y+145
@ X+2 ,Y BUTTON aPag1 PROMPT PAGINA4 OF oWnd FONT oFont ;
SIZE 140,50 PIXEL
*ACTION SUBTOTALE(oWnd)
* CLOSE LISTBAR
* Select 1
// PULSANTE FINE
@ 980 ,1100 BUTTON aSTOR PROMPT "USCITA" OF oWnd FONT oFont ;
SIZE 140,50 PIXEL ACTION oWnd:END()
* oWnd:SetControl( aBtn )
RETURN NIL
function Pagina1( oWnd )
local n
for n = 2 to 41
oWnd:aControls[ n ]:SetText( AllTrim( Str( n -1) ) )
next
return nil
FUNCTION RESIZE_WINDOW(oWndChild)
// on resize
for n = 1 to 41
oWndChild:aControls[ n ]:nTop = (oWndChild:aControls[ n ]:nTop )-2
oWndChild:aControls[ n ]:nLeft = ( oWndChild:aControls[ n ]:nLeft)-2
oWndChild:aControls[ n ]:nWidth = ( oWndChild:aControls[ n ]:nWidth)-1
oWndChild:aControls[ n ]:nHeight = (oWndChild:aControls[ n ]:nHeight)-1
next
* oWndChild:refresh()
RETURN nil
#include "Fivewin.ch"
FUNCTION MAIN()
LOCAL oWnd
LOCAL cVar := SPACE( 35 )
DEFINE WINDOW oWnd
@ 1, 1 GET cVar
@ 6, 1 BUTTON "&Close";
ACTION oWnd:End()
ACTIVATE WINDOW oWnd;
ON RESIZE RESIZECONTROLS( oWnd );
RETURN NIL
STATIC FUNCTION RESIZECONTROLS( oWnd )
LOCAL oCtl
LOCAL i
STATIC aRMarg := {}
STATIC aBMarg := {}
IF EMPTY( aRMarg )
FOR i = 1 TO LEN( oWnd:aControls )
oCtl = oWnd:aControls[ i ]
AADD( aRMarg, oWnd:nWidth() - ( oCtl:nLeft + oCtl:nWidth() ) )
AADD( aBMarg, oWnd:nHeight() - ( oCtl:nTop + oCtl:nHeight() ) )
NEXT
ENDIF
FOR i = 1 TO LEN( oWnd:aControls )
oCtl = oWnd:aControls[ i ]
oCtl:Move( oCtl:nTop, oCtl:nLeft, oWnd:nWidth() - aRMarg[ i ], oWnd:nHeight() - aBMarg[ i ], .T. )
NEXT
RETURN NIL# include "Fivewin.ch"
FUNCTION MAIN()
LOCAL oWnd
LOCAL cVar := SPACE( 35 )
DEFINE WINDOW oWnd
@ 1, 1 GET cVar
@ 6, 1 BUTTON "&Close";
ACTION oWnd:End()
ACTIVATE WINDOW oWnd;
ON RESIZE RESIZECONTROLS(nSizeType,nWidth,nHeight,oWnd );
RETURN NIL
STATIC FUNCTION RESIZECONTROLS(nSizeType,nWidth,nHeight, oWnd )
LOCAL oCtl
LOCAL i
STATIC aWidth := {}
STATIC aHeight := {}
STATIC StartWidth , StartHeight
IF EMPTY( aWidth )
FOR EACH oCtl IN oWnd:aControls
AADD( aWidth , oCtl:nWidth() )
AADD( aHeight , oCtl:nHeight() )
NEXT
StartWidth := oWnd:nWidth()
StartHeight := oWnd:nHeight()
ENDIF
FOR EACH oCtl IN oWnd:aControls
i := Hb_EnumIndex()
oCtl:Move( oCtl:nTop, oCtl:nLeft, aWidth[i]* oWnd:nWidth()/StartWidth , aHeight[i] * oWnd:nHeight()/StartHeight , .T. )
NEXT
RETURN NIL# include "Fivewin.ch"
#define PAGINA1 "Pag1"
#define PAGINA2 "Pag2"
#define PAGINA3 "Pag3"
#define PAGINA4 "Pag4"
FUNCTION MAIN()
LOCAL oWnd ,oLbx ,oFont
LOCAL cVar := SPACE( 35 )
DEFINE WINDOW oWnd
DEFINE FONT oFont NAME "MS Sans Serif" SIZE 0, -20
@20,5 LISTBOX oLbx FIELDS "";
HEADER "ARTICOLO", "QTA", ;
"PREZZO", "TOTALE" ;
OF oWnd SIZE 650,600 PIXEL ;
SIZES 230, 80,90,90 ;
FONT oFont
makebuttons(20,660,oWnd,oFont,oLBX)
ACTIVATE WINDOW oWnd MAXIMIZED;
ON RESIZE RESIZECONTROLS(nSizeType,nWidth,nHeight,oWnd );
RETURN NIL
STATIC FUNCTION RESIZECONTROLS(nSizeType,nWidth,nHeight, oWnd )
LOCAL oCtl
LOCAL i
STATIC aWidth := {}
STATIC aHeight := {}
STATIC StartWidth , StartHeight
IF EMPTY( aWidth )
FOR EACH oCtl IN oWnd:aControls
AADD( aWidth , oCtl:nWidth() )
AADD( aHeight , oCtl:nHeight() )
NEXT
StartWidth := oWnd:nWidth()
StartHeight := oWnd:nHeight()
ENDIF
FOR EACH oCtl IN oWnd:aControls
i := Hb_EnumIndex()
oCtl:Move( oCtl:nTop, oCtl:nLeft, aWidth[i]* oWnd:nWidth()/StartWidth , aHeight[i] * oWnd:nHeight()/StartHeight , .T. )
NEXT
RETURN NIL
STATIC FUNCTION makebuttons(X,y,ownd,oFont,oLBX)
LOCAL k
BOTTONI :=40 // but I want see 160 buttons !!!!!!!!!!!!!
n := 1
aBtn := Array(BOTTONI)
X = 20
Y = 660
USE LISTBAR Alias LISTBAR INDEX BAR
FOR k := 1 TO BOTTONI
cCaption := ""
nBottone:=n
LISTBAR->(DbSeek(nBottone))
cCaption := AllTrim(LISTBAR->CODICE)
IF !Empty( cCaption )
@ X+2 ,Y BUTTON aBtn[n] PROMPT cCaption OF oWnd FONT oFont ;
SIZE 140,85 PIXEL
ELSE
@ X+2 ,Y BUTTON aBtn[n] PROMPT Str(nBottone,3,0) OF oWnd FONT oFont ;
SIZE 140,85 PIXEL
ENDIF
/*
aBtn[n]:bAction := {|oBtn| AddLbx(oGet,oBtn,oLbx) }
IF !Empty(cCaption )
aBtn[n]:cargo := { 'Full', n }
ELSE
aBtn[n]:cargo := { 'Empty', n }
ENDIF
*/
X +=85
n++
// LISTBAR->(dbskip())
IF n= 11 .OR. n=21 .OR. n=31 .OR. n=41
X=20
Y=Y+145
ENDIF
NEXT
// bottoni per le pagine ???????
// ma come cambiare pagina ??????
// Pagina1 da 1a 40
// pagina 2 da 41 a 80
// pagina 3 da 81 a 120
// pagina 4 da 121 a 160
X=900
y=660
@ X+2 ,Y BUTTON aPag1 PROMPT PAGINA1 OF oWnd FONT oFont ;
SIZE 140,50 PIXEL
*ACTION Pagina1( oWnd )
Y=Y+145
@ X+2 ,Y BUTTON aPag2 PROMPT PAGINA2 OF oWnd FONT oFont ;
SIZE 140,50 PIXEL
*ACTION Pagina2( oWnd )
Y=Y+145
@ X+2 ,Y BUTTON aPag1 PROMPT PAGINA3 OF oWnd FONT oFont ;
SIZE 140,50 PIXEL
*ACTION Pagina3( oWnd )
Y=Y+145
@ X+2 ,Y BUTTON aPag1 PROMPT PAGINA4 OF oWnd FONT oFont ;
SIZE 140,50 PIXEL
*ACTION SUBTOTALE(oWnd)
* CLOSE LISTBAR
* Select 1
// PULSANTE FINE
@ 980 ,1100 BUTTON aSTOR PROMPT "USCITA" OF oWnd FONT oFont ;
SIZE 140,50 PIXEL ACTION oWnd:END()
* oWnd:SetControl( aBtn )
RETURN NIL
...
ACTIVATE WINDOW oDlg MAXIMIZED ON INIT ResizeDlg( oCassa )
...// Now set the default oDlg measure
#define WIN_DEFAULT_WIDTH 1280
#define WIN_DEFAULT_HEIGHT 1024
STATIC FUNCTION ResizeDlg( oDlg )
LOCAL nXZoom, nYZoom, nWidth, nHeight
nXZoom := WndWidth( GetDesktopWindow() ) / WIN_DEFAULT_WIDTH
nYZoom := WndHeight( GetDesktopWindow() ) / WIN_DEFAULT_HEIGHT
AEval( oDlg :aControls, {| a | a:nTop *= nYZoom, a:nHeight *= nYZoom, a:nLeft *= nXZoom, a:nWidth *= nXZoom } )
RETURN Nil
the sample not work for me
the samples of emg and frank is good but if I rezise the window the procedura must resize all the controls and I must see all ( listbox, button,get ecc.) into smal window if you open outlook window and resize it you can see al the controls smaller into small window and you could operate into.
I hope you understand me ....
the sample od EMG is good but the button rest on x.y initial but the must move to left if I resize the window on the left ....
STATIC FUNCTION RESIZECONTROLS(nSizeType,nWidth,nHeight, oWnd )
LOCAL oCtl
LOCAL i , aHlp[4] , j , Factor := Hash()
STATIC aCoordinates := {}
STATIC StartWidth , StartHeight
IF EMPTY( aCoordinates )
FOR EACH oCtl IN oWnd:aControls
AADD(aCoordinates , Array(4))
i := Hb_EnumIndex() //LEN(aCoordinates)
aCoordinates[i,1] := oCtl:nTop
aCoordinates[i,2] := oCtl:nLeft
aCoordinates[i,3] := oCtl:nWidth()
aCoordinates[i,4] := oCtl:nHeight()
NEXT
StartWidth := oWnd:nWidth()
StartHeight := oWnd:nHeight()
ENDIF
Factor["H"] := oWnd:nWidth()/StartWidth
Factor["V"] := oWnd:nHeight()/StartHeight
FOR EACH oCtl IN oWnd:aControls
i := Hb_EnumIndex()
aHlp[1] := aCoordinates[i,1]*Factor["V"]
aHlp[2] := aCoordinates[i,2]*Factor["H"]
aHlp[3] := aHlp[1] + aCoordinates[i,3]*Factor["H"]
aHlp[4] := aHlp[2] + aCoordinates[i,4]*Factor["V"]
oCtl:Move( aHlp[1] , aHlp[2] , aHlp[3] , aHlp[4] , .T. )
NEXT
RETURN NILGOOOOOOOODDD MR FRANK
How I can make to resize also the font into listbox and buttons ?
I use only this font into wnd
DEFINE FONT oFont NAME "MS Sans Serif" SIZE 0, -20
BEST BEST REGARDS