Paso una prueba con todo, para que lo pruebes en un entorno tuyo
adordd.PRG es el último, no lo pongo
----------------------------------obras32.prg
- Code: Select all Expand view
#include "FiveWin.ch"
#INCLUDE "adordd.ch"
//----------- Iconos y Brushes Comunes ------------//
static oIcon
//----------- Ventanas del Entorno ----------------//
static oDlg, oDlgApu, oImageList, oToolBar
static oBitLogo
static oBitTitulo
static oWnd,oIni
static oDlgMenuP
static oDlgMenuF
static oEntrada
//----------- Controles de la Entrada -------------//
static oBtnSig,oBtnAnt,oBtnMod,oBtnNew,OBtnCor,oBtnSal
//----------- Botones Menu Principal --------------//
static oBtnCue,oBtnObr,oBtnCon,oBtnApu,oBtnIva,oBtnEsc,oBtnVto
//----------- Botones Menu ABM Ficheros -----------//
static oBtnGes,oBtnVol,oBtn240,oBtn241,oBtn244
static oBtnX,oBtnW,oBtnI,oBtnD
static oNumero,cNumero
static lOkIn,lSalida,lMenup
//-------------------------------------------------------------------------//
static oMAbmGest
static oMSalida
static oNombre
static cNombre
static nlineas
static ncolumnas
static cEmpresa
static cCopias
static oDEmpre, oDate
static hDLL
static oMenu
//----------- Variables del Path ------------//
static cPath,IniPath
static cNumEmp,cRddDrv
static oErr, cDataBase, cServer, cUser, cPassWord
static clra1,clra2,clra3
//-------------------------------------------------------------------------//
function Main()
/*
hDLL := LoadLibrary( "bwcc32.dll" )
BWCCRegister( GetResources() )
SET RESOURCES TO "OBRAS32.DLL"
INI oIni FILE ".\Obras32.ini"
GET IniPath SECTION "Archivos" ENTRY "Path" OF oIni
GET cRddDrv SECTION "Archivos" ENTRY "RddDrv" OF oIni
GET cCopias SECTION "Archivos" ENTRY "Copias" OF oIni
*/
lMenup:=.F.
cNumero:=space(2)
SET DELETE ON
SET DATE ITALIAN
SET CENTURY ON
SetHandleCount(120)
SET _3DLOOK ON
SetDlgGradient( { { 1, RGB( 199, 216, 237 ), RGB( 237, 242, 248 ) } } ) // azul claro
DEFINE Window oWnd From 0,0 to MaxRow(),MaxCol(); //768, 768 PIXEL;
TITLE "Prueba";
COLOR "N/W+"
ACTIVATE Window oWnd MAXIMIZED;
on init msginfo (date());
VALID(Salida_Menu())
// FreeLibrary( hDLL )
Return nil
// DLL32 FUNCTION BWCCRegister( hInst AS LONG ) AS WORD PASCAL LIB "bwcc32.dll"
//-------------------------------------------------------------------------//
Static Function VerEmpre()
DEFINE DIALOG oDEmpre OF oWnd RESOURCE "EMPRESA"
REDEFINE SAY oDate PROMPT date() ID 11 OF oDEmpre
ACTIVATE DIALOG oDEmpre NOWAIT
return nil
//-------------------------------------------------------------------------//
function Salida_Menu()
if MsgYesNo( CRLF + CRLF +;
OemToAnsi( " Esta seguro de querer Salir ?" );
+ CRLF + CRLF , "Salida del Programa " )
lSalida:=.t.
ResAllFree() // Testing the new FiveWin resources control system
Else
lSalida:=.f.
endif
return lSalida
---------- ide.rmk
#Borland make sample, (c) FiveTech Software 2005
HBDIR=d:\harbour
BCDIR=d:\bcc7
FWDIR=d:\fwh
#change these paths as needed
.path.PRG = .\SOURCE
.path.OBJ = .\OBJ
.path.CH = $(FWDIR)\include;$(HBDIR)\include
.path.C = .\
.path.rc = .\RES
#important: Use Uppercase for filenames extensions, in the next two rules!
PRG = \
Obras32.PRG \
adordd.PRG \
OBJ=$(PRG:.prg=.obj)
OBJS=$(OBJ:.\=.\obj\)
PROJECT : Obras32.exe
Obras32.exe : $(PRG:.PRG=.OBJ) $(d:.C=.OBJ)
#Obras32.res
echo off
echo $(BCDIR)\lib\c0w32.obj + > b32.bc
echo obj\Obras32.obj obj\adordd.obj , + >> b32.bc
echo Obras32.exe, + >> b32.bc
echo Obras32.map, + >> b32.bc
echo $(FWDIR)\lib\FiveH.lib $(FWDIR)\lib\FiveHC.lib + >> b32.bc
echo $(HBDIR)\lib\hbrtl.lib + >> b32.bc
echo $(HBDIR)\lib\hbvm.lib + >> b32.bc
echo $(HBDIR)\lib\gtgui.lib + >> b32.bc
echo $(HBDIR)\lib\hblang.lib + >> b32.bc
echo $(HBDIR)\lib\hbmacro.lib + >> b32.bc
echo $(HBDIR)\lib\hbrdd.lib + >> b32.bc
echo $(HBDIR)\lib\rddntx.lib + >> b32.bc
echo $(HBDIR)\lib\rddcdx.lib + >> b32.bc
echo $(HBDIR)\lib\rddfpt.lib + >> b32.bc
echo $(HBDIR)\lib\hbsix.lib + >> b32.bc
echo $(HBDIR)\lib\hbdebug.lib + >> b32.bc
echo $(HBDIR)\lib\hbcommon.lib + >> b32.bc
echo $(HBDIR)\lib\hbpp.lib + >> b32.bc
echo $(HBDIR)\lib\hbwin.lib + >> b32.bc
echo $(HBDIR)\lib\hbcpage.lib + >> b32.bc
echo $(HBDIR)\lib\hbct.lib + >> b32.bc
echo $(HBDIR)\lib\hbcplr.lib + >> b32.bc
echo $(HBDIR)\lib\hbpcre.lib + >> b32.bc
echo $(HBDIR)\lib\xhb.lib + >> b32.bc
echo $(HBDIR)\lib\hbziparc.lib + >> b32.bc
echo $(HBDIR)\lib\hbmzip.lib + >> b32.bc
echo $(HBDIR)\lib\hbzlib.lib + >> b32.bc
echo $(HBDIR)\lib\minizip.lib + >> b32.bc
echo $(HBDIR)\lib\png.lib + >> b32.bc
echo $(HBDIR)\lib\hbusrrdd.lib + >> b32.bc
rem Uncomment these two lines to use Advantage RDD
rem echo $(HBDIR)\lib\rddads.lib + >> b32.bc
rem echo $(HBDIR)\lib\Ace32.lib + >> b32.bc
echo $(BCDIR)\lib\cw32.lib + >> b32.bc
echo $(BCDIR)\lib\uuid.lib + >> b32.bc
echo $(BCDIR)\lib\import32.lib + >> b32.bc
echo $(BCDIR)\lib\ws2_32.lib + >> b32.bc
echo $(BCDIR)\lib\psdk\odbc32.lib + >> b32.bc
echo $(BCDIR)\lib\psdk\nddeapi.lib + >> b32.bc
echo $(BCDIR)\lib\psdk\iphlpapi.lib + >> b32.bc
echo $(BCDIR)\lib\psdk\msimg32.lib + >> b32.bc
echo $(BCDIR)\lib\psdk\psapi.lib + >> b32.bc
echo $(BCDIR)\lib\psdk\rasapi32.lib + >> b32.bc
echo $(BCDIR)\lib\psdk\gdiplus.lib + >> b32.bc
echo $(BCDIR)\lib\psdk\shell32.lib, >> b32.bc
IF EXIST res\Obras32.res echo res\Obras32.res >> b32.bc
$(BCDIR)\bin\ilink32 -Gn -aa -Tpe -s @b32.bc
del b32.bc
.PRG.OBJ:
$(HBDIR)\bin\harbour $< /N /W /Oobj\ /I$(FWDIR)\include;$(HBDIR)\include
$(BCDIR)\bin\bcc32 -c -tWM -I$(HBDIR)\include -oobj\$& obj\$&.c
.C.OBJ:
echo -c -tWM -D__HARBOUR__ -DHB_API_MACROS > tmp
echo -I$(HBDIR)\include;$(FWDIR)\include >> tmp
$(BCDIR)\bin\bcc32 -oobj\$& @tmp $&.c
del tmp
# Obras32.res : Obras32.rc
# $(BCDIR)\bin\brc32.exe -r res\Obras32.rc
--