HMGforum.com

Code: Select all

.......
Procedure PBro_Corsi()

	SET CENTURY ON
	SET DELETED ON

       DEFINE WINDOW bro_corsi ;
		AT 0,0 ;
		WIDTH 1024 HEIGHT 580 ;
		TITLE '1000 Bolle Blu - Browse Corsi' ;

		MAIN NOMAXIMIZE ;
		ON INIT OpenCorsi() ;
		ON RELEASE CloseCorsi();

.......

Code: Select all

DEFINE WINDOW <WindowName> 
		AT <nRow> ,<nCol> 
		WIDTH <nWindth> 
		HEIGHT <nHeight> 
		[ VIRTUAL WIDTH <nVirtualWindth> ]
		[ VIRTUAL HEIGHT <nVirtualHeight> ] 
		[ TITLE <cTitle> ] 
		[ ICON <cIconName> ]
		MODAL
		[ NOSHOW ]
		[ NOAUTORELEASE ]
		[ NOSIZE ]
		[ NOSYSMENU ]
		[ NOCAPTION ]
		[ CURSOR <CursorName> ]
		[ ON INIT <InitProcedureName> | <bBlock> ]
		[ ON RELEASE <ReleaseProcedureName> | <bBlock> ]
		[ ON INTERACTIVECLOSE <InteractiveCloseProcedureName> | <bBlock> ]
		[ ON MOUSECLICK <MouseClickProcedureName>  | <bBlock> ]
		[ ON MOUSEDRAG <MouseDragProcedureName>  | <bBlock> ]
		[ ON MOUSEMOVE <MouseMoveProcedureName>  | <bBlock> ]
		[ ON SIZE <WindowSizeProcedureName>  | <bBlock> ]
		[ ON PAINT <WindowPaintProcedureName>  | <bBlock> ]
		[ BACKCOLOR <anBackColor> ] 
		[ FONT <cFontName> SIZE <nFontSize> ] 
		[ ON GOTFOCUS <ProcedureName> | <bBlock> ] 
		[ ON LOSTFOCUS <ProcedureName> | <bBlock> ] 
		[ ON SCROLLUP <ProcedureName> | <bBlock> ] 
		[ ON SCROLLDOWN <ProcedureName> | <bBlock> ] 
		[ ON SCROLLLEFT <ProcedureName> | <bBlock> ] 
		[ ON SCROLLRIGHT <ProcedureName> | <bBlock> ] 
		[ ON HSCROLLBOX <ProcedureName> | <bBlock> ] 
		[ ON VSCROLLBOX <ProcedureName> | <bBlock> ]
		[ HELPBUTTON ]

Code: Select all

Function MAIN

	SET CENTURY ON
	SET DELETED ON
....
Return Nil

Code: Select all

set procedure to browse.prg

Code: Select all

Function f_brocorsi
SET CENTURY ON
SET DELETED ON

DEFINE WINDOW bro_corsi ;
	AT 0,0 ;
	WIDTH 1024 HEIGHT 580 ;
	TITLE '1000 Bolle Blu - Browse Corsi' ;
	MAIN NOMAXIMIZE ;
	ON INIT OpenCorsi() ;
	ON RELEASE CloseCorsi();
...............

END WINDOW

CENTER WINDOW bro_corsi

bro_corsi.Bbro_corsi.SetFocus()

ACTIVATE WINDOW bro_corsi

Return Nil