FiveTech Software tech support forums

Como puedo llamar a otro .PRG desde un programa general
Por ejemplo
FUNCTION main()
do cliente.prg
RETURN 0
* Al ejecutarlo de este modo me da error, como puedo solucionarlo.

Manuel,

Dentro de cliente.prg creas una función que se llame Cliente() y la llamas desde tu PRG principal:

FUNCTION main()
Cliente()
RETURN 0

Ojo que hay que modificar samples\buildce.bat para que compile y enlace más de un PRG. Es fácil, si no puedes, coméntalo y te ayudamos.

Gracias

Dime como modifico el BAT para enlazar varios programas, perdona, es que no habia leido el texto final de tu comentario.

gracias.

Manuel,

Estas son las modificaciones a hacer en buildce.bat para añadir cliente.prg, asi puedes añadir todos los PRGs más que quieras. Tambien puedes revisar makes\fwcemake.zip si quieres usar un fichero make de Microsoft en vez de un fichero BAT:

%hdir%\bin\harbour %1 /n /i..\include;%hdir%\include /p %2 %3 > clip.log
@type clip.log
IF ERRORLEVEL 1 PAUSE
IF ERRORLEVEL 1 GOTO EXIT

%vcdir%\bin\clarm -TP -W3 -c /DARM /DUNICODE /I%hdir%\include /I..\include %1.c
:ENDCOMPILE

%hdir%\bin\harbour cliente.prg /n /i..\include;%hdir%\include /p %2 %3 > clip.log
@type clip.log
IF ERRORLEVEL 1 PAUSE
IF ERRORLEVEL 1 GOTO EXIT

%vcdir%\bin\clarm -TP -W3 -c /DARM /DUNICODE /I%hdir%\include /I..\include cliente.c
:ENDCOMPILE

IF EXIST %1.rc %vcdir%\bin\rc -r -d_CE %1

echo %1.obj cliente.obj > msvc.tmp

Todo perfecto.

Como puedo colocar un texto con fondo transparente, y otra mas por favor, como puedo colocarle un color al fondo de un campo, por ejemplo azul y negrilla, o solo negrilla.

Gracias.

Manuel,

> Como puedo colocar un texto con fondo transparente

Es para escribir sobre una imagen ?

>
y otra mas por favor, como puedo colocarle un color al fondo de un campo, por ejemplo azul y negrilla, o solo negrilla.
>

Usa la cláusula COLOR ...:

@ ..., ... GET ... COLOR "N/B"

ó

@ ..., ... GET ... COLOR COLOR_BLACK, COLOR_BLUE

FICHERO .PRG
#include "FWCE.ch"
function Main()
local oWnd, oBmp
DbCloseAll()
Config()
MsgInfo(SerialNumber())
DEFINE BITMAP oBmp FILE CurDir() + "\bmp\inicio.bmp"
DEFINE WINDOW oWnd TITLE "MJCC" MENU menu_systema()
ACTIVATE WINDOW oWnd ;
ON PAINT oWnd:SayBitmap(0, 0, oBmp ) ;
ON CLICK MsgInfo("MJCC" + CHR(13) + "Bembibre" + chr(13) +;
"La Coruña"+ chr(13)+;
"Telefono 902234568", "Gestión")

DbCloseAll()
oBmp:End()
return 0
******************************************************
* Define el menu de acceso al sistema
******************************************************
FUNCTION menu_systema()
LOCAL omenu
DEFINE MENU oMenu RESOURCE 102
REDEFINE MENUITEM ID 100 OF oMenu ACTION MsgInfo( "First" )
REDEFINE MENUITEM ID 200 OF oMenu ACTION MsgInfo( "Second" )
RETURN omenu
******************************************************
* Configuracion del sistema por defecto para arrancar *
******************************************************
STATIC FUNCTION Config()
HB_LANGSELECT("ESWIN")
SET DELETED ON
SET DATE TO ITALIAN
SET SOFTSEEK ON
SET CENTURY ON
SET EPOCH TO 2000
Hb_LangSelect ('PL')
Hb_SetCodePage ('PLWIN')
RETURN 0


FICHERO RC

/****************************************************************************


clases.rc

produced by Borland Resource Workshop


*****************************************************************************/
#define MENU_2 2
#define CM_POPUPITEM5 106
#define CM_POPUPITEM4 105
#define CM_POPUPITEM3 104
#define CM_POPUPITEM2 103
#define CM_POPUPITEM1 102
#define CM_POPUPITE1 101
#define CM_MAESTROSITEM2 104
#define CM_MAESTROSITEM1 103
#define CM_MAESTROSITEM 102
#define DIALOG_1 1
DIALOG_1 DIALOG 9, 24, 172, 139
STYLE DS_ABSALIGN | WS_CHILD | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "Inicio del sistema"
FONT 8, "MS Sans Serif"
{
}
102 MENU
{
MENUITEM "Hola 1", 100
MENUITEM "Hola 2", 200
}


GRACIAS. PUEDES SOLUCIONARME EL PROBLEMA
NO SE POR DONDE REALIZARLO, ES LA PRIMERA VEZ QUE HAGO UN MENU.