if Len( aRes ) > 0 For n = 1to Len( aRes ) if aRes[n][5] cMPath := "" cMPath := cFilePath( aRes[n][1]) cFilRes := "" cFilRes := Lower( cPathRes ) + "\" + cFileNoExt( aRes[n][1] ) + ".res" if File( cFilRes ) cBuildBat += cFilRes + "" endif endif Next n cBuildBat += ">> " + IF( Empty( cPathWork ), cPrjPath, cPathWork ) + ; "\" + "compl.bc" + CRLF
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
Antonio, mirando el problema que tiene Lorenzo con TRichEdit, y tomando como ejemplo el metodo Print de esa clase, me he animado a investigar tambien como podemos imprimir nuestro codigo "coloreado", pero no me imprime nada mas que una linea. Si tu o alguien se anima a crear el metodo para poder hacerlo, estaria fenomenal
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
@Echo Off Cls ECHO ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ECHO ³ FiveWin for xHarbour 13.06 - Junho de 2013 xHarbour development power ³Ü ECHO ³ (c) FiveTech, 1993-2013for Microsoft Windows 9X/NT/200X/ME/XP/Vista/7/8 ³Û ECHO ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ ECHO ÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
Echo . Echo Aguarde... Compilando os Modulos do Programa... Processamento Demorado Echo Gerando o Arquivo ERRO.LOG, em Caso de Duvidas, Consulte-o. Borland C. REM SETLOCAL ENABLEEXTENSIONS REM SETLOCAL ENABLEDELAYEDEXPANSION
Set hdir=C:\XHB061214 Set bcdir=C:\bcc582 Set fwhdir=C:\FwH1306
@If Exist *.Bak Del *.Bak @If Exist GERAPNFE.Obj Del GERAPNFE.Obj @If Exist *.Log Del *.Log @If Exist GERAPNFE.Map Del GERAPNFE.Map @If Exist GERAPNFE.PPO Del GERAPNFE.Ppo @If Exist GERAPNFE.TDS Del GERAPNFE.TDS @If Exist *.Bc Del *.bc @If Exist GERAPNFE.C Del GERAPNFE.C @If Exist GERAPNFE.HC Del *.HC
If Exist GERAPNFE.Exe Del GERAPNFE.Exe
REM COPY C:\PLENOCBW\BTNGET\GETBTN.C /Y
REM -> Area dos Arquivos com ExtensÆo *.PRG Gerados em FiveWin 13.05For xHarbour REM %hdir%\bin\harbour GERAPNFE /m/n/gc0 /i%fwhdir%\include;%hdir%\include /w0 /p GERAPNFE.C > Erro.log %hdir%\bin\harbour GERAPNFE /m/n/gc0 /i%fwhdir%\include;%hdir%\include;%bcdir%\include /w0 /p > Erro.log
REM PROBLEMAS COM SSAY E DSAY - MODIFIQUEI A CLASSE DO FWH13.06 %hdir%\bin\harbour CONTROL /m/n /i%fwhdir%\include;%hdir%\include;%bcdir%\include /w0 /p >> Erro.log
REM INCLUIDO EM: 16/01/2014 CLASSE MODIFICADA %hdir%\bin\harbour PRINTER /m/n/gc0 /i%fwhdir%\include;%hdir%\include;%bcdir%\include /w0 /p >> Erro.log
REM //-> area dos emails - TIRAR BTNGET.PRG E POR COMANDOS FIVE NOVO OU MUDAR A TGET.PRG OK REM %hdir%\bin\harbour RMAIL /m /n /i%fwhdir%\include;%hdir%\include /w0 /P RMAIL.C >> Erro.log %hdir%\bin\harbour RMAIL /m/n/gc0 /i%fwhdir%\include;%hdir%\include;%bcdir%\include /w0 /p >> Erro.log
REM TROCAR ESTA RPREVIEW PELA NOVA DA VERSAO 13.05 SE NAO FUNCIONAR REM %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include RPREVIEW.C >> Erro.log %bcdir%\bin\bcc32 -M -c -v -O2 -eRPREVIEW.exe -I%hdir%\include -I%bcdir%\include RPREVIEW.C >> Erro.log
REM -> Area dos Arquivos Gerados na Linguagem C Pelo [x]Harbour REM %bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include RMAIL.C >> Erro.log %bcdir%\bin\bcc32 -M -c -v -O2 -eRMAIL.exe -I%hdir%\include -I%bcdir%\include RMAIL.C >> Erro.log
REM INCLUIDO EM: 18/10/2013 PARA VER SE RESOLVE O PROBLEMA COM O XP %bcdir%\bin\bcc32 -M -c -v -O2 -ePRV2PDF.exe -I%hdir%\include -I%bcdir%\include PRV2PDF.C >> Erro.log
REM CLASSE DO FASTREPORT - 03/10/2013 %bcdir%\bin\bcc32 -M -c -v -O2 -eFastRepH.exe -I%hdir%\include -I%bcdir%\include FastRepH.C >> Erro.log
REM CLASSE DO SINETGRA - 09/01/2014 %bcdir%\bin\bcc32 -M -c -v -O2 -eSINTEGRA.exe -I%hdir%\include -I%bcdir%\include SINTEGRA.C >> Erro.log
REM -> Vou Transformar Arquivos.C em Arquivos.Obj Para Usar no Programa REM -> BTNGET.PRG PRECISA REM %FwhDir%\Tools\CLP2HARB GetBtn.C GetBtn.HC
REM -> Vou Transformar em Arquivos.Obj Para Usar no Programa Com a BtnGet.Prg REM %bcdir%\Bin\bcc32 -c -D__HARBOUR__;HB_API_MACROS -I%FwhDir%\Include;%hDir%\Include -tW GetBtn.HC
REM -> Incorporando arquivo.c diretamente via xharbour - nao funcionou REM %bcdir%\bin\bcc32 -M -c -D__HARBOUR__ -I%fwhdir%\include;%hdir%\include GetBtn.C >> Erro.log
If ErrorLevel 1 Type Erro.log | More If ErrorLevel 1 Goto Exit
REM %bcdir%\bin\bcc32 -M -c -O2 -eGERAPNFE.exe -I%hdir%\include GERAPNFE.c
REM INCLUINDO UM ARQUIVO.RC REM C:\PROGRA~1\BORLAND\BCC55\BIN\BRC32.EXE -R FILEALL.RC REM Echo * VOU INCOMPORAR UM ARQUIVO.RC TECLE ENTER * REM PAUSE * VOU INCOMPORAR UM ARQUIVO.RC TECLE ENTER *
%bcdir%\bin\BRC32.EXE -R XPLOOK.RC
:ENDCOMPILE
%bcdir%\bin\ilink32 -Gn -aa -Tpe -s @Cxp.Lnk
Echo . IF ERRORLEVEL 1 GOTO LINKERROR REM Cls Echo . Echo * Aplicacao Foi Desenvolvida Com Sucesso Echo . Echo * Aguarde um Momento, Compactando Aplicacao, Usando o UPX.EXE Echo . REM C:\UPX\UPX -9 GERAPNFE.EXE Echo . Echo * Aplicativo Foi Compactado Com Sucesso - Aguarde Execucao. Echo . Echo * Aguarde, Executando o Aplicativo, Gerado Com Sucesso Absoluto * rem GERAPNFE GOTO EXIT
:LINKERROR PAUSE * Applicacao Nao Foi Desenvolvida Com Sucesso. Veja ERRO.LOG * GOTO EXIT Echo . cls
:EXIT
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
