Improved interfaces / Mejora de interfaces

Discuss anything else that does not suite other forums.

Moderator: Rathinagiri

User avatar
serge_girard
Posts: 2386
Joined: Sun Nov 25, 2012 2:44 pm
DBs Used: 1 MySQL - MariaDB
2 DBF
Location: Belgium
Has thanked: 659 times
Been thanked: 127 times
Contact:

Re: Improved interfaces / Mejora de interfaces

Post by serge_girard » Sun Nov 24, 2013 8:57 am

Thanks for sharing Luis !
Very interesting also!


Serge

User avatar
esgici
Posts: 4520
Joined: Wed Jul 30, 2008 9:17 pm
DBs Used: DBF
Location: iskenderun / Turkiye
Has thanked: 395 times
Been thanked: 112 times
Contact:

Post by esgici » Sun Nov 24, 2013 7:59 pm

Hi All
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".
esgici wrote:Nice idea, good implementation
I should correct my first impression : Maybe good idea, but not 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.
LablBton.zip
Rectified version of Improved interfaces demo
(410.3 KiB) Downloaded 144 times
Happy HMG'ing :D
Viva INTERNATIONAL HMG :D

User avatar
mustafa
Posts: 874
Joined: Fri Mar 20, 2009 11:38 am
DBs Used: DBF
Location: Alicante - Spain
Been thanked: 138 times
Contact:

Post by mustafa » Mon Nov 25, 2013 11:14 am

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
Attachments
Label_Button.zip
Review -2018
(1.86 MiB) Downloaded 49 times
Help_Calendar.jpg
Help_Calendar.jpg (99.18 KiB) Viewed 944 times
Last edited by mustafa on Sat Mar 10, 2018 2:52 pm, edited 6 times in total.

User avatar
esgici
Posts: 4520
Joined: Wed Jul 30, 2008 9:17 pm
DBs Used: DBF
Location: iskenderun / Turkiye
Has thanked: 395 times
Been thanked: 112 times
Contact:

Post by esgici » Mon Nov 25, 2013 11:19 am

mustafa wrote: I leave a new change in the calendar,
without buttons, pressing the side window goes
MONTHCALENDAR up ( explained in screenshot )
regards
Gracias amigo :)

Happy HMG :D
Viva INTERNATIONAL HMG :D

User avatar
mustafa
Posts: 874
Joined: Fri Mar 20, 2009 11:38 am
DBs Used: DBF
Location: Alicante - Spain
Been thanked: 138 times
Contact:

Post by mustafa » Mon Nov 25, 2013 12:11 pm

Esgici , siempre tan atento, un saludo

Esgici, always so careful, a greeting

Mustafa :D

User avatar
andyglezl
Posts: 1205
Joined: Fri Oct 26, 2012 7:58 pm
Location: Guadalajara Jalisco, MX
Has thanked: 37 times
Been thanked: 86 times
Contact:

Post by andyglezl » Mon Nov 25, 2013 4:04 pm

Hola
Probably our friend was cut it from another project and sent us without testing :(
Si lo probé esgici y funcionó, (en mi ambiente), con solo comentar los "#include" y cambiar la variable
"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.

Post Reply