FiveTech Software tech support forums

www.FiveTechSoft.com
https://fivetechsupport.com/forums/

Presentando fivedit de FiveTech

https://fivetechsupport.com/forums/viewtopic.php?t=29992

Page 10 of 11

Re: Presentando fivedit de FiveTech

Posted: Thu Feb 12, 2015 12:55 pm
by karinha
Antonio Linares wrote:Joao,

karinha wrote:Master,

Code: Select all | Expand


Turbo Incremental Link 5.69 Copyright (c) 1997-2005 Borland
Fatal: Unable to open file 'GERAPNFE.OBJ'
 


Se corresponde a un PRG tuyo ? SI

Ha compilado los demás PRGs ? NO, SOLO ALGUNOS.

Intenta compilarlo desde una ventana MsDos, tal vez tenga algún error y por eso no se ha generado.
En la ventana de resultados de Fivedit debe aparecer el resultado de haberlo intentado compilar.


SI, DICE QUE HAY 8 ERRORES, MAS NO MUESTRA LOS ERRORES. Y NO HAY ERRORES EN GERAPNFE.PRG, COMPILO NORMAL CON MI COMP.BAT

Gracias, saludos.

Re: Presentando fivedit de FiveTech

Posted: Thu Feb 12, 2015 1:09 pm
by karinha
Esta lineas, no ejisten en fivewin.ch ????

Image

Saludos.

Re: Presentando fivedit de FiveTech

Posted: Thu Feb 12, 2015 6:50 pm
by Antonio Linares
João,

Parece un error de Harbour y que en realidad esas líneas son de GERAPNFE.prg

Re: Presentando fivedit de FiveTech

Posted: Thu Feb 12, 2015 7:34 pm
by karinha
Master, no comprendo: linea 17265 de GERAPNFE.PRG ???

Code: Select all | Expand


   //MEMVAR NFINICIAL, NFFINAL, XNUMPEDIDO  // antes

   PRIVATE NFINICIAL, NFFINAL, XNUMPEDIDO   // despues
 


Porque MEMVAR no pasa cuando uso Fivedit.exe ???

Ahora ya compila perfecto.

Porfa, asi que posible ponga para funcionar con ARCHIVOS.RES

Esta ficando marabilloso. Very good!!

Gracias, saludos




Re: Presentando fivedit de FiveTech

Posted: Fri Feb 13, 2015 11:37 am
by Antonio Linares
João,

MEMVAR solo puedes usarlo al inicio de tu PRG.

Esto es correcto:

Code: Select all | Expand

#include "FiveWin.ch"

memvar test

function Main()

   MsgInfo( "Hello world!" )

return nil


Pero esto te dará error:

Code: Select all | Expand

#include "FiveWin.ch"

function Main()

   MsgInfo( "Hello world!" )

return nil

memvar test


Lo que necesitas es proporcionarle el RES y que lo incluya directamente sin compilar un RC en RES, si ?

Te funciona bien ? Es rápido ? :-)

Re: Presentando fivedit de FiveTech

Posted: Fri Feb 13, 2015 11:50 am
by karinha
Mira master como hago en mi COMP.LNK, todos mis recursos están en archivos .RES y no en archivos .RC

Code: Select all | Expand


C:\bcc582\lib\c0w32.Obj              +
GERAPNFE.Obj                         +
NFE.Obj                              +
DANFE.OBJ                            +
VONFE.OBJ                            +
VONFEUTIL.Obj                        +
VONFE2G.OBJ                          +
VONFEUTIL2G.Obj                      +
VOCONSEFAZ.Obj                       +
AUXINDEX.Obj                         +
LICENCAS.Obj                         +
DBMANUT.Obj                          +
DBMANUT2.Obj                         +
REJEICAO.Obj                         +
CARTA.Obj                            +
DOWNXML.Obj                          +
TGET.Obj                             +
MGET.Obj                             +
WINDOW.Obj                           +
CONTROL.Obj                          +
MSGMETER.Obj                         +
MSGRUN.Obj                           +
DSAY.Obj                             +
RMAIL.OBJ                            +
EMAILENV.OBJ                         +
PRV2PDF.OBJ                          +
PRINTER.Obj                          +
RPREVIEW.Obj                         +
ERRSYSW.Obj                          +
FWERROR.Obj                          +
FastRepH.Obj                         +
SINTEGRA.Obj,                        +
GERAPNFE.exe,                        +
GERAPNFE.map,                        +
C:\FWH1306\lib\FiveHX.Lib            +
C:\FWH1306\lib\FiveHC.Lib            +
C:\XHB061214\lib\hbzip.Lib           +
C:\XHB061214\lib\zlib.Lib            +
C:\XHB061214\lib\rtl.Lib             +
C:\XHB061214\lib\vm.Lib              +
C:\XHB061214\lib\gtgui.Lib           +
C:\XHB061214\lib\lang.Lib            +
C:\XHB061214\lib\macro.Lib           +
C:\XHB061214\lib\rdd.Lib             +
C:\XHB061214\lib\dbfntx.Lib          +
C:\XHB061214\lib\dbfcdx.Lib          +
C:\XHB061214\lib\debug.Lib           +
C:\XHB061214\lib\common.Lib          +
C:\XHB061214\lib\tip.Lib             +
C:\XHB061214\lib\pp.Lib              +
C:\XHB061214\lib\dbffpt.Lib          +
c:\XHB061214\lib\hbsix.lib           +
C:\XHB061214\lib\codepage.Lib        +
c:\XHB061214\lib\libmisc.lib         +
C:\XHB061214\lib\PcRepos.Lib         +
C:\XHB061214\Lib\ct.Lib              +
C:\XHB061214\Lib\png.Lib             +
C:\Bcc582\lib\cw32.Lib               +
c:\bcc582\lib\uuid.lib               +
c:\bcc582\lib\ws2_32.lib             +
C:\Bcc582\lib\psdk\msimg32.Lib       +
C:\Bcc582\lib\psdk\odbc32.Lib        +
C:\Bcc582\lib\psdk\rasapi32.Lib      +
C:\Bcc582\lib\psdk\nddeapi.Lib       +
C:\Bcc582\lib\psdk\psapi.Lib         +
c:\bcc582\lib\psdk\gdiplus.lib       +
C:\Bcc582\lib\psdk\iphlpapi.Lib      +
c:\bcc582\lib\psdk\shell32.lib       +
C:\Bcc582\lib\import32.Lib,
NFE.RES                              +
EMAIL.RES                            +
IMAGENS.RES                          +
IMAGENS2.RES                         +
IMAGENS3.RES                         +
IMAGENS4.RES                         +
IMAGENS5.RES
 


Gracias, saludos.

Re: Presentando fivedit de FiveTech

Posted: Fri Feb 13, 2015 12:08 pm
by karinha
Maestro, lo siento pero no estoy de acuerdo. Siempre lo he hecho así con MEMVAR. y siempre ha funcionado perfecto.

Haciendo testes con TUTOR04.PRG Fivedit.exe compila perfecto con MEMVAR con el modo que trabajo. Mira la imagen:

Image

Gracias, saludos.

Re: Presentando fivedit de FiveTech

Posted: Fri Feb 13, 2015 12:10 pm
by karinha
TUTOR04.PRG modificado con MEMVAR

Code: Select all | Expand


#include "FiveWin.ch"

static oWnd

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

function Main()

   local oIco, oBar, oBmp

   MEMVAR MYMEMVAR1, MYMEMVAR2, MYMEMVAR3

   MYMEMVAR1 := "SOY MEMVAR 1"
   MYMEMVAR2 := "SOY MEMVAR 2"
   MYMEMVAR3 := "SOY MEMVAR 3"

   ? MYMEMVAR1, MYMEMVAR2, MYMEMVAR3

   DEFINE ICON oIco FILE "..\icons\fax.ico"

   DEFINE WINDOW oWnd FROM 1, 1 TO 22, 75 ;
      TITLE "FiveWin sample" ;
      MENU  BuildMenu() ;
      COLOR "B/W" ;
      ICON oIco

   DEFINE BUTTONBAR oBar _3D SIZE 26, 27 OF oWnd

   DEFINE BUTTON OF oBar FILENAME "C:\FWH1306\bitmaps\16x16\new.bmp" FLAT ;
      ACTION MsgInfo( "New" ) ;
      TOOLTIP "Creates a new document"

   DEFINE BUTTON OF oBar FILENAME "C:\FWH1306\bitmaps\16x16\open.bmp" FLAT ;
      ACTION MsgInfo( cGetFile( "*.*", "Select a document to open" ) ) ;
      TOOLTIP "Opens a document" WHEN .f.

   DEFINE BUTTON OF oBar FILENAME "C:\FWH1306\bitmaps\16x16\floppy.bmp" FLAT ;
      ACTION MsgInfo( Time() ) TOOLTIP "Saves this document"

   DEFINE BUTTON OF oBar FILENAME "C:\FWH1306\bitmaps\16x16\printer.bmp" FLAT ;
      ACTION MsgInfo( "Prints this document" ) TOOLTIP "Print this document" GROUP

   // XXXX - gerando um erro - generando un error

   DEFINE BUTTON OF oBar FILENAME "C:\FWH1306\bitmaps\16x16\prop.bmp" FLAT ;
      ACTION PrinterSetup() TOOLTIP "Setup the printer"

   DEFINE BUTTON OF oBar FILENAME "C:\FWH1306\bitmaps\16x16\HelpInd.bmp" FLAT ;
      ACTION MsgInfo( Version() ) TOOLTIP "A multiple lines" + ;
      Chr( 13 ) + Chr( 10 ) + "tooltip!" GROUP

   DEFINE BUTTON OF oBar FILENAME "C:\FWH1306\bitmaps\16x16\Help.bmp" FLAT ;
      ACTION MsgInfo( "fivewin power!" ) TOOLTIP "fivewin power!"

   DEFINE BUTTON OF oBar FILENAME "C:\FWH1306\bitmaps\16x16\Exit.bmp" FLAT ;
      ACTION oWnd:End() TOOLTIP "Exit this app" GROUP

   DEFINE MESSAGE OF oWnd ;
      PROMPT FWVERSION + " " + FWCOPYRIGHT ;
      NOINSET CENTERED KEYBOARD DATE CLOCK

   DEFINE BITMAP oBmp FILENAME "C:\FWH1306\bitmaps\fiveback.bmp"

   oWnd:bPainted = { | hDC | BmpTiled( hDC, oWnd, oBmp ) }

   ACTIVATE WINDOW oWnd ;
      VALID MsgYesNo( "Do you want to quit ?" )



return nil

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

function BuildMenu()

   local oMenu

   ? MYMEMVAR1, MYMEMVAR2, MYMEMVAR3

   MENU oMenu
      MENUITEM "Information"
      MENU
         MENUITEM "&About..." ;
            ACTION MsgInfo( FWDESCRIPTION ) ;
            FILENAME "C:\FWH1306\bitmaps\16x16\info.bmp"
         SEPARATOR
         MENUITEM "&End..."  ;
            ACTION oWnd:End() FILENAME "C:\FWH1306\bitmaps\16x16\exit.bmp"

      ENDMENU

      MENUITEM "&Clients"
      MENU
         MENUITEM "&New..." ;
            ACTION ( MsgStop( "New Clients" ),;
                     oWnd:Say( 5, 5, "New Clients...", "GR+/G" ) ) ;
            FILENAME "C:\FWH1306\bitmaps\16x16\faces.bmp"

         MENUITEM "&Modify..."  ACTION MsgInfo( "Modif. Clients" ) ;
            FILENAME "C:\FWH1306\bitmaps\edit.bmp"

         MENUITEM "&Delete..."  ACTION MsgAlert( "Del Clients" ) ;
            FILENAME "C:\FWH1306\bitmaps\16x16\delete.bmp"

         SEPARATOR

         MENUITEM "&Browse..."  ACTION MsgInfo( "Browse Clients" ) ;
            FILENAME "C:\FWH1306\bitmaps\16x16\browse.bmp"

      ENDMENU

      MENUITEM "&Utilities"
      MENU
         MENUITEM "&Calculator..." ACTION WinExec( "Calc" ) ;
            FILENAME "C:\FWH1306\bitmaps\16x16\calc.bmp"

         MENUITEM "&Internet..." ;
            ACTION WinExec( "start iexplore www.fivetech.com", 0 ) ;
            FILENAME "C:\FWH1306\bitmaps\16x16\explorer.bmp"
      ENDMENU
   ENDMENU

return oMenu

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

STATIC FUNCTION BmpTiled( hDC, oWnd, oBmp )

   local nWidth := oWnd:nWidth(), nHeight := oWnd:nHeight()
   local nRow := 0, nCol := 0, n
   local nBmpWidth  := oBmp:nWidth(),  nBmpHeight := oBmp:nHeight()

   ? MYMEMVAR1, MYMEMVAR2, MYMEMVAR3

   if oBmp:hBitmap == 0
      return nil
   endif

   while nRow < nHeight
      nCol = 0
      while nCol < nWidth
         PalBmpDraw( hDC, nRow, nCol, oBmp:hBitmap )
         nCol += nBmpWidth
      end
      nRow += nBmpHeight
   end

return nil

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


Saludos.

Re: Presentando fivedit de FiveTech

Posted: Fri Feb 13, 2015 12:33 pm
by karinha
Master, mi project.prj con mis archivos.RES no incorpora aún:

Code: Select all | Expand


[files]
1=C:\PLENOCBX\GERAPNFE.prg
2=C:\PLENOCBX\NFE.prg
3=C:\PLENOCBX\DANFE.prg
4=C:\PLENOCBX\VONFE.prg
5=C:\PLENOCBX\VONFEUTIL.prg
6=C:\PLENOCBX\VONFE2G.prg
7=C:\PLENOCBX\VONFEUTIL2G.prg
8=C:\PLENOCBX\VOCONSEFAZ.prg
9=C:\PLENOCBX\AUXINDEX.prg
10=C:\PLENOCBX\LICENCAS.prg
11=C:\PLENOCBX\DBMANUT.prg
12=C:\PLENOCBX\DBMANUT2.prg
13=C:\PLENOCBX\REJEICAO.prg
14=C:\PLENOCBX\CARTA.prg
15=C:\PLENOCBX\DOWNXML.prg
16=C:\PLENOCBX\TGET.prg
17=C:\PLENOCBX\MGET.prg
18=C:\PLENOCBX\WINDOW.prg
19=C:\PLENOCBX\CONTROL.prg
20=C:\PLENOCBX\MSGMETER.prg
21=C:\PLENOCBX\MSGRUN.prg
22=C:\PLENOCBX\DSAY.prg
23=C:\PLENOCBX\RMAIL.prg
24=C:\PLENOCBX\EMAILENV.prg
25=C:\PLENOCBX\PRV2PDF.prg
26=C:\PLENOCBX\PRINTER.prg
27=C:\PLENOCBX\RPREVIEW.prg
28=C:\PLENOCBX\ERRSYSW.prg
29=C:\PLENOCBX\FWERROR.prg
30=C:\PLENOCBX\FastRepH.prg
31=C:\PLENOCBX\SINTEGRA.prg
32=C:\PLENOCBX\NFE.RES
33=C:\PLENOCBX\EMAIL.RES
34=C:\PLENOCBX\IMAGENS.RES
35=C:\PLENOCBX\IMAGENS2.RES
36=C:\PLENOCBX\IMAGENS3.RES
37=C:\PLENOCBX\IMAGENS4.RES
38=C:\PLENOCBX\IMAGENS5.RES
[preferences]
1=c:\fwh1306
2=32 bits
3=
4=c:\xhb280714
5=xHarbour
6=/n /w
7=
8=c:\bcc582
9=-Gn -aa -Tpe -s
10=
11=8454016
12=12632256
13=11776768
14={"Courier New",0,-12,.F.,.F.,0,0,,.F.,.F.,.F.,0,3,2,1,,49}
15=4
16=.T.
17=C:\FIVEDIT
 


Image

Creo, que usted debes crear una opcíón para añadir los archivos de recursos con opcíon de .RC ó .RES.

Gracias, saludos.

Re: Presentando fivedit de FiveTech

Posted: Fri Feb 13, 2015 12:38 pm
by Antonio Linares
João,

Puedes probar esta nueva versión a ver si usa bien tus ficheros RES ? Gracias! :-)

https://bitbucket.org/fivetech/fivewin-contributions/downloads/fivedit.zip

Re: Presentando fivedit de FiveTech

Posted: Fri Feb 13, 2015 12:58 pm
by karinha
Antonio Linares wrote:João,

Puedes probar esta nueva versión a ver si usa bien tus ficheros RES ? Gracias! :-)

https://bitbucket.org/fivetech/fivewin-contributions/downloads/fivedit.zip


Cuasi master,

Code: Select all | Expand


Turbo Incremental Link 5.69 Copyright (c) 1997-2005 Borland
Error: 'C:\PLENOCBX\NFE.RES' contains invalid OMF record, type 0x00
 


???

No hay errores en NFE.RES. Por el prompt de comando(msdos) compila perfecto.

Saludos.

Re: Presentando fivedit de FiveTech

Posted: Fri Feb 13, 2015 1:19 pm
by karinha
Master, con archivos .RC no genera errores, mas no esta incluyendo los recursos en el .EXE.

Code: Select all | Expand


32=C:\PLENOCBX\NFE.RC
33=C:\PLENOCBX\EMAIL.RC
34=C:\PLENOCBX\IMAGENS.RC
35=C:\PLENOCBX\IMAGENS2.RC
36=C:\PLENOCBX\IMAGENS3.RC
37=C:\PLENOCBX\IMAGENS4.RC
38=C:\PLENOCBX\IMAGENS5.RC
 


Saludos.

Re: Presentando fivedit de FiveTech

Posted: Sat Feb 14, 2015 8:30 am
by Antonio Linares
João,

Por favor prueba otra vez los RES con esta nueva versión, gracias

https://bitbucket.org/fivetech/fivewin-contributions/downloads/fivedit.zip

Re: Presentando fivedit de FiveTech

Posted: Wed Feb 18, 2015 12:01 pm
by karinha
Master, cuasi...

Code: Select all | Expand


Turbo Incremental Link 5.69 Copyright (c) 1997-2005 Borland
Fatal: Too many DEF file names: c:\plenocbx\email.res

 Carpeta/Pasta de c:\plenocbx

05/01/2015  11:01         1.012.456 EMAIL.RES
               1 arquivo(s)      1.012.456 bytes
 


Talvéz sea el tamaño del archivo: EMAIL.RES?

Gracias, Saludos.

Re: Presentando fivedit de FiveTech

Posted: Wed Feb 18, 2015 1:08 pm
by Antonio Linares
João,

Cuando tu enlazas varios ficheros RES, ¿ cómo lo haces ?

Copia aqui el código para ver como usas varios RES, gracias!
All times are UTC
Page 10 of 11

Powered by phpBB® Forum Software © phpBB Limited