HMGforum.com

Code: Select all

#include "HMG.CH"
Function main(  )

    nAnchWMain := GetDesktopWidth() 
    nAltoWMain := GetDesktopHeight()
    DEFINE WINDOW Form_Main AT 0,0 WIDTH nAnchWMain HEIGHT nAltoWMain-10 NOMAXIMIZE NOSIZE MAIN BACKCOLOR BLUE ;
           FONT 'Verdana' SIZE 10  ICON 'Msj.ico' TITLE '...' 

			ON KEY ESCAPE OF Form_Main ACTION ThisWindow.Release 
			DEFINE MAIN MENU
				POPUP '&Archivo'		
					ITEM 'ONSIZE' ACTION VariosBrowses() IMAGE 'Usuario.bmp'
					SEPARATOR
					ITEM 'Salir'  ACTION IF( MsgYesNo( "Desea Salir del Sistema ?", "A V I S O",.T.), Form_Main.Release, nil ) IMAGE 'Salir2.Bmp'
				END POPUP
			END MENU

			DEFINE WINDOW Form_2 ROW 030 COL 220 WIDTH nAnchWMain-235 HEIGHT nAltoWMain-120 WINDOWTYPE PANEL BACKCOLOR GREEN 

			END WINDOW
			
			DEFINE STATUSBAR FONT 'Verdana' SIZE 08
				STATUSITEM "..." WIDTH 1200
				STATUSITEM '...' WIDTH 100 
				STATUSITEM '...' WIDTH 100 
			END STATUSBAR

	END WINDOW
    CENTER WINDOW Form_Main
    ACTIVATE WINDOW Form_Main
RETURN nil
* ¯­._.­¯¯­._.­¯¯­._.­¯¯­._.­¯¯­._.­¯¯­._.­¯¯­._.­¯¯­._.­¯¯­._.­¯¯­._.­¯¯­._.­¯¯­._.­¯
FUNCTION VariosBrowses()

		DEFINE WINDOW Browse_1 AT 0,0 WIDTH 800 HEIGHT 600 TITLE "..." CHILD BACKCOLOR BLUE  ; 	// in this way works OK
			   ON SIZE ONSIZEW() ON MAXIMIZE ONSIZEW()					
		*DEFINE WINDOW Browse_1 AT 0,0 WIDTH 800 HEIGHT 600 TITLE "..." MODAL BACKCOLOR BLUE  ; 	// in this way gives me error
		*	   ON SIZE ONSIZEW() ON MAXIMIZE ONSIZEW()			

			ON KEY ESCAPE OF Browse_1 ACTION ( ThisWindow.Release  )
	
			DEFINE TAB Tab_2 AT 005,005 WIDTH 660 HEIGHT 425 FONT "Arial" SIZE 9 VALUE 1 TOOLTIP "Bases de Datos"
				//*** Página 1 ***-------------------------------------------*
				PAGE "Clientes"

				END PAGE
				//*** Página 2 ***-------------------------------------------*
				PAGE "Ejecutivos"
	
				END PAGE
			END TAB
			@ 435,550 BUTTON Bttn_Salir CAPTION '&Salir' WIDTH 060 HEIGHT 25 FONT "Arial" SIZE 09 ACTION ( ThisWindow.Release  ) TOOLTIP "Salir Mantto."
		END WINDOW
		CENTER WINDOW   Browse_1
		ACTIVATE WINDOW Browse_1
	
RETURN
FUNCTION ONSIZEW()
	Browse_1.Tab_2.Width       := Browse_1.Width-30	
	Browse_1.Tab_2.Height      := Browse_1.Height-90
	Browse_1.Bttn_Salir.Col    := Browse_1.Width-120	
	Browse_1.Bttn_Salir.Row    := Browse_1.Height-75
RETURN

Code: Select all

#include "HMG.CH"
FUNCTION main()
	local i
	dbcreate( "test", ;
			{ { "CODIGO", "+",   5, 0 },  ;
			  { "NOMBRE", "C",  45, 0 },  ;
			  { "RFC",    "C",  13, 0 },  ;
			  { "CLAVE",  "C",  20, 0 },  ;
			  { "FIEL",   "C",  20, 0 },  ;
			  { "CIECF",  "C",  20, 0 },  ;
			  { "KEY",    "C", 200, 0 },  ;
			  { "CER",    "C", 200, 0 } }, "DBFNTX" )
	use test
	for i :=1 to 10
		dbappend()
	next
	DEFINE WINDOW Browse_1 AT 0,0 WIDTH 800 HEIGHT 600 TITLE "..." MAIN BACKCOLOR BLUE

		@ 000,000 BROWSE BRW_Ctes WIDTH 800 HEIGHT 600 WORKAREA Test LOCK VALUE 1 WIDTHS { 70, 210, 130, 100, 100, 100, 399, 300 } ;
				  HEADERS { 'CODIGO', 'NOMBRE', 'RFC', 'CLAVE', 'FIEL', 'CIECF', 'KEY', 'CER' } ;
				  FIELDS  { 'Test->CODIGO', 'Test->NOMBRE', 'Test->RFC', 'Test->CLAVE', 'Test->FIEL', 'Test->CIECF', 'Test->KEY', 'Test->CER' } ;
				  FONT "VERDANA" SIZE 10 FONTCOLOR BLUE ON HEADCLICK { { ||  nil }, { ||  nil }, { || nil } } ;
				  EDIT APPEND DELETE INPLACE  READONLY { .F.,.F.,.F.,.F.,.F.,.F.,.F.,.F. } TOOLTIP '<Doble Click>=Edit  <ALT-A>=Add   <SUP>=Delete' 
	END WINDOW
	CENTER WINDOW   Browse_1
	ACTIVATE WINDOW Browse_1
RETURN