Thanks for sharing Luis !
Very interesting also!
Serge
Improved interfaces / Mejora de interfaces
Moderator: Rathinagiri
- serge_girard
- Posts: 3166
- Joined: Sun Nov 25, 2012 2:44 pm
- DBs Used: 1 MySQL - MariaDB
2 DBF - Location: Belgium
- Contact:
Re: Improved interfaces / Mejora de interfaces
There's nothing you can do that can't be done...
- esgici
- Posts: 4543
- Joined: Wed Jul 30, 2008 9:17 pm
- DBs Used: DBF
- Location: iskenderun / Turkiye
- Contact:
Re: Improved interfaces / Button Label
Hi All
This demo required an unknown header file ( i_keybd_ext.ch ) and produced a RTE : Error BASE/1003 Variable does not exist
Probably our friend was cut it from another project and sent us without testing
This is a slightly rectified version of Label-Button demo.
Happy HMG'ing
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
This demo required an unknown header file ( i_keybd_ext.ch ) and produced a RTE : Error BASE/1003 Variable does not exist
Probably our friend was cut it from another project and sent us without testing
This is a slightly rectified version of Label-Button demo.
Happy HMG'ing
Viva INTERNATIONAL HMG
- mustafa
- Posts: 1159
- Joined: Fri Mar 20, 2009 11:38 am
- DBs Used: DBF
- Location: Alicante - Spain
- Contact:
Re: Improved interfaces / Mejora de interfaces
Hola amigos:
Les dejo una nueva modificación en el Calendario,
que sin botones , pulsando el lateral ventana , sale
hacia arriba MONTHCALENDAR ( explicado en screenshot )
Un saludo
Mustafa
*---------------------------------------------------------------------------------------*
Hello friends:
I leave a new change in the calendar,
without buttons, pressing the side window goes
MONTHCALENDAR up ( explained in screenshot )
regards
Mustafa
Les dejo una nueva modificación en el Calendario,
que sin botones , pulsando el lateral ventana , sale
hacia arriba MONTHCALENDAR ( explicado en screenshot )
Un saludo
Mustafa
*---------------------------------------------------------------------------------------*
Hello friends:
I leave a new change in the calendar,
without buttons, pressing the side window goes
MONTHCALENDAR up ( explained in screenshot )
regards
Mustafa
- Attachments
-
- Label_Button.zip
- Review -2018
- (1.86 MiB) Downloaded 168 times
-
- Help_Calendar.jpg (99.18 KiB) Viewed 2540 times
Last edited by mustafa on Sat Mar 10, 2018 2:52 pm, edited 6 times in total.
- esgici
- Posts: 4543
- Joined: Wed Jul 30, 2008 9:17 pm
- DBs Used: DBF
- Location: iskenderun / Turkiye
- Contact:
Re: Improved interfaces / Mejora de interfaces
Gracias amigomustafa wrote: I leave a new change in the calendar,
without buttons, pressing the side window goes
MONTHCALENDAR up ( explained in screenshot )
regards
Happy HMG
Viva INTERNATIONAL HMG
- mustafa
- Posts: 1159
- Joined: Fri Mar 20, 2009 11:38 am
- DBs Used: DBF
- Location: Alicante - Spain
- Contact:
Re: Improved interfaces / Mejora de interfaces
Esgici , siempre tan atento, un saludo
Esgici, always so careful, a greeting
Mustafa
Esgici, always so careful, a greeting
Mustafa
Re: Improved interfaces / Mejora de interfaces
Hola
"NJAPAST", funciona.
Y como en un año (Sat Nov 24, 2012 12:40 am) no hubo comentarios, pues no me enteré de estos detalles.
----------------------------------------------------------------------------------------------------------
I tried it and it worked Esgici (in my room), just comment the "# include" and change the variable
"NJAPAST" works.
And in a year (Sat November 24, 2012 12:40 am) there were no reviews, I did not hear about these details.
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
"NJAPAST", funciona.
Y como en un año (Sat Nov 24, 2012 12:40 am) no hubo comentarios, pues no me enteré de estos detalles.
----------------------------------------------------------------------------------------------------------
I tried it and it worked Esgici (in my room), just comment the "# include" and change the variable
"NJAPAST" works.
And in a year (Sat November 24, 2012 12:40 am) there were no reviews, I did not hear about these details.
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
*-----------------------------------------------*
Andrés González López
Desde Guadalajara, Jalisco. México.
Desde Guadalajara, Jalisco. México.