Ayuda Inicial

Ayuda Inicial

Postby Julio Perez » Thu Jan 14, 2010 6:02 pm

Buenas Amigos espero q hayan recibido un excelente año nuevo, bueno tengo la siguiente duda:

Tengo una Pantalla que debe aparacer al arrancar el sistema este es el PRG

// Programa Principal

#include "FWCE.ch"

//----------------------------------------------------------------------------//

function Main()

local oWnd,oBmp

DEFINE WINDOW oWnd TITLE "Saico Remoto" ;
MENU BuildMenu()

@ 0,0 BITMAP oBmp FILENAME CURDIR() + "\inicio.bmp" NOBORDER
oBmp:lTransparent = .t.

ACTIVATE WINDOW oWnd

return nil

//----------------------------------------------------------------------------//

function BuildMenu()

local oMenu

DEFINE MENU oMenu RESOURCE 102

REDEFINE MENUITEM ID 100 OF oMenu ACTION Main1()

REDEFINE MENUITEM ID 110 OF oMenu ACTION oWnd:End()

return oMenu

//----------------------------------------------------------------------------//

function Main1()

local oWnd1, oSay, oBmp1

DEFINE WINDOW oWnd1 TITLE "Saico Remoto"

@ 15,05 BITMAP oBmp1 FILENAME CURDIR() + "\logo.bmp" NOBORDER
oBmp1:lTransparent = .t.

//@ 12,17 SAY oSay PROMPT "Option"

@ 07,20 BTNBMP FILE CurDir() + "\cliente.bmp";
SIZE 60, 60 ;
ACTION oSay:SetText( "users" )

@ 07,90 BTNBMP FILE CurDir() + "\vendedor.bmp";
SIZE 60, 60 ;
ACTION oSay:SetText( "open" )

@ 07,160 BTNBMP FILE CurDir() + "\articulo.bmp";
SIZE 60, 60 ;
ACTION oSay:SetText( "search" )

@ 71,20 BTNBMP FILE CurDir() + "\ruta.bmp";
SIZE 60, 60 ;
ACTION oSay:SetText( "print" )

@ 71,90 BTNBMP FILE CurDir() + "\cobro.bmp";
SIZE 60, 60 ;
ACTION oSay:SetText( "setup" )

@ 71,160 BTNBMP FILE CurDir() + "\pedido.bmp";
SIZE 60, 60 ;
ACTION oSay:SetText( "star" )

@ 135,20 BTNBMP FILE CurDir() + "\envia.bmp";
SIZE 60, 60 ;
ACTION oSay:SetText( "star" )

@ 135,90 BTNBMP FILE CurDir() + "\condigur.bmp";
SIZE 60, 60 ;
ACTION oSay:SetText( "star" )

@ 135,160 BTNBMP FILE CurDir() + "\Salir.bmp";
SIZE 60, 60 ;
ACTION oWnd1:End()

ACTIVATE WINDOW oWnd1 ;
VALID MsgYesNo( "¿ Desea Salir ?" )

return nil

Este es el RC :

#ifdef _CE
#include "c:\vce\include\arm\windows.h"
#include "c:\vce\include\arm\commctrl.h"
#endif

#define I_IMAGENONE (-2)
#define IDS_HELP 104

#ifdef _CE
102 RCDATA
BEGIN
102, 2,
I_IMAGENONE, 202, TBSTATE_ENABLED, TBSTYLE_DROPDOWN | TBSTYLE_AUTOSIZE, 202, 0, 0,
I_IMAGENONE, 203, TBSTATE_ENABLED, TBSTYLE_DROPDOWN | TBSTYLE_AUTOSIZE, 203, 0, 1,
END
#endif

STRINGTABLE DISCARDABLE
BEGIN
202 "Continuar"
203 "Salir"
END

102 MENU DISCARDABLE
BEGIN
MENUITEM "", 100
MENUITEM "", 110
END

test DIALOG 10, 35, 139, 89
STYLE WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "DialogBox Test"
FONT 8, "system"
{
LTEXT "&Name:", -1, 14, 4, 23, 8
EDITTEXT 110, 12, 14, 114, 12
LTEXT "&Address:", -1, 14, 30, 32, 8
EDITTEXT 120, 12, 41, 114, 12
DEFPUSHBUTTON "OK", IDOK, 14, 67, 50, 14
PUSHBUTTON "Cancel", IDCANCEL, 74, 67, 50, 14
}

El cual muestra 2 opciones Continuar y Salir

quiero que al presionar Continuar ejecuta la pantalla que aparece en main1 y al presionar salir salga del programa sin ajecutar mas nada y no doy como hacerlo...
Ademas como puedes ver la segunda pantalla tiene botones como hago para que el presionar uno me ejecute otra ventana asociada al boton

Gracias de antemano
Julio Perez
 
Posts: 24
Joined: Wed Nov 18, 2009 2:58 pm

Re: Ayuda Inicial

Postby Antonio Linares » Thu Jan 14, 2010 11:30 pm

Julio,

Aqui te he comentado la solución :-)
viewtopic.php?p=93238#p93238
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41206
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Impresion en una Pidion BIP-1300

Postby Julio Perez » Mon Jan 18, 2010 5:29 pm

1.- Amigo Antonio tendras un ejemplo para imprimir en un Pidion BIP-1300

2.- Como coloco enable falso a un objeto para que sea de solo lectura.

Gracias de antemano nuevamente.
Julio Perez
 
Posts: 24
Joined: Wed Nov 18, 2009 2:58 pm

Re: Ayuda Inicial

Postby Antonio Linares » Tue Jan 19, 2010 9:26 am

Julio,

> 1.- Amigo Antonio tendras un ejemplo para imprimir en un Pidion BIP-1300

En caso de ser una impresora BlueTooth, tienes un ejemplo en FWPPC\samples\BlueToth.prg

> 2.- Como coloco enable falso a un objeto para que sea de solo lectura.

Si se trata de un GET, puedes hacer oGet:lReadOnly := .T.

Cualquier control puedes deshabilitarlo haciendo: oControl:Disable() y volver a habilitarlo con oControl:Enable()
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41206
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Impresion en una Pidion BIP-1300

Postby Julio Perez » Tue Jan 19, 2010 12:08 pm

La impresora no es de blutooh la trae ya el BIP-1300 integrada, y queria saber si existe un ejemplo

Gracias
Julio Perez
 
Posts: 24
Joined: Wed Nov 18, 2009 2:58 pm

Re: Ayuda Inicial

Postby Antonio Linares » Tue Jan 19, 2010 1:15 pm

Julio,

Puedes revisar su documentación para confirmar si se accede a ella por un puerto COM ?

Es lo más probable, por lo que te serviría el mismo código de samples\BlueToth.prg cambiando solo el número del puerto COM
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41206
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain


Return to FiveWin para Pocket PC

Who is online

Users browsing this forum: Google [Bot] and 4 guests