PC Toledo

Menu com a HWGUI, ( so foi possível com a ajuda de todos neste forum)

////////////////////////////////////////////////////////////////////////////////
// tele0000.prg - modulo principal do sistema de tele-entrega //
// HWGUI
// programador : Daniel Halon //
// data : 05/07/2007 //
////////////////////////////////////////////////////////////////////////////////

#include "INKEY.CH"
#include 'FILEIO.CH'
#include "FISCAL.CH"
#include "visual2.ch"
#include "windows.ch"
#include "guilib.ch"

Function main()

Local oMain
LOCAL a_menu := {}
LOCAL m_opcao := ''
LOCAL cCont := 1
Local oIcon := HIcon():AddFile("image\Porto.ico")
Local oSplash

PRIVATE oPanel
Private oFont := Nil, cImageDir := "image\"
Private nColor, oBmp := HIcon():AddFile("image\Exit.bmp")

check_files()
open_files()

REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PT850
HB_LANGSELECT("PT")

// SetToolTipBalloon(.t.)

INIT WINDOW oMain MDI TITLE "Pizzaria PortoBakers" ;
MENUPOS 3 COLOR HBrush():Add(16711680):handle;
AT 0,0 SIZE GetDesktopWidth(), GetDesktopHeight() - 28;
ICON oIcon

@ 0,0 PANEL oPanel SIZE 0,44

@ 2,3 OWNERBUTTON oBoton1 OF oPanel ON CLICK {||EndWindow()} ;
SIZE 44,38 FLAT BITMAP cImageDir + "Exit.bmp";
Transparent COORDINATES 0,4,0,0 TOOLTIP "Sair do sistema"

@42,3 OWNERBUTTON oBoton2 OF oPanel ON CLICK {||Ped_inc(.t.)} ;
SIZE 44,38 FLAT BITMAP cImageDir + "Pedidos.bmp" Transparent;
COORDINATES 0,4,0,0 TOOLTIP "Pedidos"

ADD STATUS oStatus TO oMain PARTS 400

MENU OF oMain
MENU TITLE "Parametros"
MENUITEM "&Gerais" ID 1001 ACTION IIF(Valida_senha('Parametros', '1'), Parametros(), '' )BITMAP "\hbvisual\image\br0.bmp"
MENUITEM "&Promoções" ID 1002 ACTION Para_data() BITMAP "\hbvisual\image\br1.bmp"
MENUITEM "&Data e Turno" ID 1003 ACTION Para_promo() BITMAP "\hbvisual\image\br2.bmp"
SEPARATOR
MENUITEM "&Tela Inteira" ID 1004 ACTION Tela_Inteira(.t.) BITMAP "\hbvisual\image\br3.bmp"
MENUITEM "&Janela" ID 1005 ACTION Tela_inteira(.f.) BITMAP "\hbvisual\image\br4.bmp"
MENUITEM "Trocar &Senha" ID 1006 ACTION Troca_senha('Alteracao de Senha', '20') BITMAP "\hbvisual\image\br5.bmp"
MENUITEM "&Color" ACTION (nColor:=Hwg_ChooseColor(nColor,.F.), ;
MsgInfo(Iif(nColor!=Nil,str(nColor),"--"),"Color value"))
SEPARATOR
MENUITEM "Sobre" ID 1007 ACTION Informe() BITMAP "\hbvisual\image\br6.bmp"
SEPARATOR
MENUITEM "Sai&r" ID 1008 ACTION oMain:Close() BITMAP "\hbvisual\image\br7.bmp"
ENDMENU

ENDMENU

MENUITEMBITMAP oMain ID 1009 BITMAP "\hbvisual\image\logo.bmp"

SPLASH oSplash TO "Juntos.jpg" TIME 2000 // Ao entrar no programa exibe uma imagem .bmp .jpg .gif etc.. por um tempo determinado e depois vai ao menu

ACTIVATE WINDOW oMain MAXIMIZED

Return Nil

Espero que seja de alguma utilidade como foi para mim.

Daniel Halon

Concerteza, tudo é bem vindo aqui....e se me permite, já que abandonou a VL...pode tirar fora a #include "visual2.ch"

Abraços
Leonardo Machado

Ola Leonardo, fiquei sabendo que estavas em SC, na proxima vez se precisares ajuda posso acompanhar vc(sem custo adicional), posso ser intérprete, la esta cheio de argentinos...

Vamos na nossa, estou migrando aos poucos para a HWGUI, fica bem mas profissional, tu tens ideia de como colocar uma imagen JPG ou GIF ou BMP na tela principal e que fique como plano de fundo?.

Obrigado, Daniel..... :xau

Ele sabe ...

https://pctoledo.org/forum/viewtopic.php?t=6737

Daniel_halon escreveu:Ola Leonardo, fiquei sabendo que estavas em SC, na proxima vez se precisares ajuda posso acompanhar vc(sem custo adicional), posso ser intérprete, la esta cheio de argentinos...

Tche, tava mesmo esses dias em SC, mas agora já toh por aqui de volta e agradeço a sua disposição.

Grande Abraço
Leonardo Machado

Daniel_halon escreveu:tens ideia de como colocar uma imagen JPG ou GIF ou BMP na tela principal e que fique como plano de fundo?.

Daniel_halon... se me permite... não concegui acrecentar uma imagem de fundo usando INIT WINDOW oMain MDI TITLE ""

estou usando INIT WINDOW oMain MAIN TITLE ""

ai o meu fica assim:
.
.
LOCAL oBmp:= HBITMAP():ADDFILE("res\imagem.bmp")
.
.
INIT WINDOW oMain MAIN TITLE "TITULO";
AT 0,0 BACKGROUND BITMAP oBmp;
.
.

mas vamos esperar pra ver se alguem sabe uma geito de usar uma imagem como BACKGROUND usando MDI

Holá Samu, este exemplo que estou postando aqui, e do Leonardo(Sygecom)

Verifica se tem o header HWGUI.CH no seu programa.

Código: Selecionar todos

#include "hwgui.ch" 

Function Main() 
  Local oBmp:=HBITMAP():ADDFILE("Res\Image.bmp") //assumo que res e um sub-diretorio
      Private oTelaPrincipal, oFont 

    PREPARE FONT oFont NAME "MS Sans Serif" WIDTH 0 HEIGHT -13 
  INIT WINDOW oTelaPrincipal TITLE "Tela Inicial"; 
  AT 0,0 BACKGROUND BITMAP oBmp 

      MENU OF oTelaPrincipal 
         MENUITEM "&Teste"    ACTION Nada() 
      ENDMENU 

   ACTIVATE WINDOW oTelaPrincipal MAXIMIZED 

Return NIL 

Function Nada() 
Return NIL

Se não funcionar, poste seu programa para que todos possam ver e prenda o grito.

Abraços, Daniel...

PC Toledo

Uma ajuda para iniciantes como eu...

Uma ajuda para iniciantes como eu...