Re: Improved interfaces / Mejora de interfaces
Posted: Sun Nov 24, 2013 8:57 am
Thanks for sharing Luis !
Very interesting also!
Serge
Very interesting also!
Serge
Exclusive forum for HMG, a Free / Open Source xBase WIN32/64 Bits / GUI Development System
http://www.hmgforum.com/
andyglezl ( Google Translate ) wrote:I leave a "demo" of how to make a menu with a background image,
it's actually very easy using control "LABEL".
I should correct my first impression : Maybe good idea, but not good implementationesgici wrote:Nice idea, good implementation
Gracias amigomustafa wrote: I leave a new change in the calendar,
without buttons, pressing the side window goes
MONTHCALENDAR up ( explained in screenshot )
regards
Si lo probé esgici y funcionó, (en mi ambiente), con solo comentar los "#include" y cambiar la variableProbably our friend was cut it from another project and sent us without testing
Code: Select all
#include "minigui.ch"
*#include "dbstruct.ch" <------ Comentar
*#include "i_keybd_ext.ch" <------ Comentar
*#include "i_color.ch" <------ Comentar
*#include "fileio.ch" <------ Comentar
#define PROGRAM 'CADES '
#define VERSION 'Versi¢n 4.0'
#define COPYRIGHT 'Derechos Reservados © 2007 Andr‚s Gonz lez L¢pez'
#define SOPORTE 'Soporte T‚cnico al Tel. (01 33) 3605 2171'
#define CIUDADEDO 'Guadalajara, Jalisco.'
Function main()
nWDesktop:=GetDesktopWidth() // System.DesktopWidth
nHDesktop:=GetDesktopHeight() // System.DesktopHeight
Set TOOLTIPFORECOLOR BLACK
Set TOOLTIPBACKCOLOR WHITE // <---------- Cambiar NJAPAST
Set TOOLTIPSTYLE BALLOON
nAnchWMain:=800
nAltoWMain:=600
DEFINE WINDOW Form_Main AT 0,0 WIDTH nAnchWMain HEIGHT nAltoWMain NOMAXIMIZE NOSIZE MAIN ON MOUSECLICK ;
( Form_Main.Title:="Coord: REN->"+ALLTRIM(str(_HMG_SYSDATA [191]))+" COL->"+ALLTRIM(str(_HMG_SYSDATA [192])))
DEFINE IMAGE Fondo
ROW 0 ; COL 0 ; WIDTH nAnchWMain ; HEIGHT nAltoWMain
PICTURE 'Menu01.jpg'
STRETCH .T.
END IMAGE
DEFINE IMAGE Logo
ROW 040 ; COL 415 ; WIDTH 254 ; HEIGHT 158
PICTURE "Cred07.jpg"
STRETCH .T.
END IMAGE
DEFINE MAIN MENU
POPUP '&Salir'
SEPARATOR
ITEM 'Salir' ACTION IF(MsgYesNo( "Desea Salir ?", "A V I S O",.T.), Form_Main.release, nil )
END POPUP
POPUP '&Ayuda'
ITEM 'Acerca de...' ACTION Acercade()
END POPUP
END MENU
//------- MENU CON LABEL's y un Fondo de Pantalla -----------------------------------
@ 133,187 LABEL L_1 VALUE "" WIDTH 175 HEIGHT 075 ACTION MSGINFO("1") TOOLTIP "Opcion1" TRANSPARENT
@ 226,187 LABEL L_2 VALUE "" WIDTH 175 HEIGHT 075 ACTION MSGINFO("2") TOOLTIP "Opcion2" TRANSPARENT
@ 318,187 LABEL L_3 VALUE "" WIDTH 175 HEIGHT 075 ACTION MSGINFO("3") TOOLTIP "Opcion3" TRANSPARENT
@ 264,578 LABEL L_4 VALUE "" WIDTH 175 HEIGHT 075 ACTION MSGINFO("4") TOOLTIP "Opcion4" TRANSPARENT
@ 359,578 LABEL L_5 VALUE "" WIDTH 175 HEIGHT 075 ACTION MSGINFO("5") TOOLTIP "Opcion5" TRANSPARENT
@ 451,578 LABEL L_6 VALUE "" WIDTH 175 HEIGHT 075 ACTION MSGINFO("6") TOOLTIP "Opcion6" TRANSPARENT
END WINDOW
CENTER WINDOW Form_Main
ACTIVATE WINDOW Form_Main
RETURN nil
*-----------------------------------------------*
function Acercade()
MsgInfo(HB_OEMTOANSI( PadC(PROGRAM + VERSION, 64) + CRLF + ;
PadC( COPYRIGHT, 50) + CRLF + ;
PadC( SOPORTE, 58 ) + CRLF + ;
PadC( CIUDADEDO, 64 ) + CRLF + ;
CRLF + version() + CRLF + ;
MiniGuiVersion() ), "Acerca de..." )
Return Nil
*-----------------------------------------------*