FiveTech Support Forums

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: FWH 26.03 buscamos betatesters
Posted: Sat Mar 28, 2026 09:25 PM

cmsoft wrote:

Estimado Antonio

Al querer guardar la impresión a PDF da éste error

Descripción del error: Error BASE/1004 No existe el método: CDOCUMENT
Argumentos:
[ 1] = A {"C:\Users\acuellar\AppData\Local\Temp\13842937.emf"} length: 1

Pila de llamadas

Llamado desde: => CDOCUMENT( 0 )
Llamado desde: source\classes\printer.prg => MSPRINTTOPDF( 2334 )
Llamado desde: source\classes\rpreview.prg => TPREVIEW:SAVEAS( 1764 )

Estimado Antonio
Porfa revisar éste error

Confirmo mismo error.
Por lo demas hasta donde estoy viendo, todo funciona correctamente. Voy a seguir investigando.
Gracias!

Bug encontrado y corregido. Nueva beta disponible :!:

Por favor solicitadla por whatsapp, gracias :)

regards, saludos

Antonio Linares
www.fivetechsoft.com

sysctrl2

Posts: 1144

Joined: Mon Feb 05, 2007 07:15 PM

Re: FWH 26.03 buscamos betatesters
Posted: Sat Mar 28, 2026 09:53 PM

Se ha compilado bien uno de mis proyectos

seguiremos con pruebas.

Cesar Cortes Cruz

SysCtrl Software

Mexico

' Sin +- FWH es mejor "

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: FWH 26.03 buscamos betatesters
Posted: Sat Mar 28, 2026 10:04 PM

sysctrl2 wrote:
Se ha compilado bien uno de mis proyectos

seguiremos con pruebas.

hay nueva beta, pedidla por whatsapp :idea:

regards, saludos

Antonio Linares
www.fivetechsoft.com

cpheraclio

Posts: 26

Joined: Thu Mar 17, 2022 06:47 PM

Re: FWH 26.03 buscamos betatesters
Posted: Sun Mar 29, 2026 02:56 PM

Compilando correctamente con 64 bits:

MVC 2022+Harbour 3.2.0dev (r2407221137)
MariaDB 11.8.3 (Red local)
MySQL 8.0.45 (VPS)
Advantage Database Server 11.10.0.22 (DBF local)

Versión del compilador: Harbour 3.2.0dev (r2407221137)
Versión de FiveWin: FWH 26.03
Versión del compilador C: Microsoft Visual C 19.32.31329 (64-bit)
Windows 11 64 Bits, version: 6.2, Build 9200

Saludos.

Posts: 8523

Joined: Tue Dec 20, 2005 07:36 PM

Re: FWH 26.03 buscamos betatesters
Posted: Sun Mar 29, 2026 03:27 PM

Buenas tardes, maestro. El problema al guardar el archivo .PDF está resuelto. Sin embargo, la acentuación de FWSTRING() sigue sin funcionar. En lugar de acentuar, sigue mostrando <?>. Incluso el instalador de FiveWin muestra la acentuación incorrecta. idioma español.

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Posts: 8523

Joined: Tue Dec 20, 2005 07:36 PM

Re: FWH 26.03 buscamos betatesters
Posted: Sun Mar 29, 2026 03:58 PM

Maestro, parcialmente resuelto con FW_SetUnicode( .T. ). Solo una función FWSTRING() no funcionó en el MENU:

         MENUITEM FWString( "Attention" ) + " - Dialog Test" ACTION TestDlg() ;
            FILENAME "..\bitmaps\16x16\info.bmp"

#include "FiveWin.ch"

EXTERNAL HB_LANG_PT, HB_CODEPAGE_PTISO, HB_CODEPAGE_PT850

#ifNdef __XHARBOUR__     // Somente para HARBOUR, XHARBOUR nao tem isso ainda.
   REQUEST HB_CODEPAGE_UTF8
   REQUEST HB_CODEPAGE_UTF8EX
#endif

STATIC oWnd, lDummy1 := .f.

function Main()

   LOCAL oBar

   // FWSetLanguage( 5 ) // German
   FWSetLanguage( 4 )  // Portuguese

   HB_LANGSELECT( 'PT' )
   HB_SETCODEPAGE( "UTF8" )
   HB_CDPSELECT( "UTF8EX" )
   HB_SETCODEPAGE( "PT850" )
   HB_CDPSELECT( "PTISO" )

   FW_SetUnicode( .T. )  // Resuelto parcial - MENU problemas.

   DEFINE WINDOW oWnd TITLE FWString( "Testing Accented Characters - " ) +    ;
                            FWString( "Attention" )                           ;
      MENU BuildMenu() MDI

   DEFINE BUTTONBAR oBar BUTTONSIZE 75, 70 _3DLOOK TOP OF oWnd 2007

   DEFINE BUTTON OF oBar PROMPT FWString( "Add" )    ACTION TestDlg()         ;
      FILENAME "..\bitmaps\16x16\new.bmp" FLAT

   DEFINE BUTTON OF oBar PROMPT FWString( "Edit" )   ACTION TestDlg()         ;
      FILENAME "..\bitmaps\16x16\open.bmp" FLAT

   DEFINE BUTTON OF oBar PROMPT FWString( "Search" ) ACTION TestDlg()         ;
      FILENAME "..\bitmaps\16x16\floppy.bmp" FLAT

   DEFINE BUTTON OF oBar PROMPT FWString( "Delete" ) ACTION TestDlg()         ;
      FILENAME "..\bitmaps\16x16\delete.bmp" FLAT

   DEFINE BUTTON OF oBar PROMPT FWString( "Setup" )  ACTION TestDlg()         ;
      FILENAME "..\bitmaps\16x16\open32.bmp" FLAT

   DEFINE BUTTON OF oBar PROMPT FWString( "Exit" )   ACTION oWnd:End()        ;
      FILENAME "..\bitmaps\16x16\exit.bmp" FLAT

   SET MESSAGE OF oWnd TO "ButtonBar: " + ;
      FWString("Add") + " | " + FWString("Edit") + " | " + ;
      FWString("Search") + " | " + FWString("Delete") + " | " + FWString("Setup") + ;
      "  [GetACP=" + AllTrim( Str( GetACP() ) ) + ;
      " HBCDP=" + AllTrim( Str( HbCDP() ) ) + "]" 2007

   ACTIVATE WINDOW oWnd MAXIMIZED ;
      VALID MsgYesNo( FWString( "Want to end ?" ), FWString( "Attention" ) )

RETURN NIL

function BuildMenu()

   LOCAL oMenu

   MENU oMenu 2007

  MENUITEM FWString( "&Test" ) // ahora funciona

  MENU

     MENUITEM FWString( "Attention" ) + " - Dialog Test" ACTION TestDlg() ;
        FILENAME "..\bitmaps\16x16\info.bmp"

     SEPARATOR
     MENUITEM "Language &1: English"    ACTION ( FWSetLanguage( 1 ), oWnd:SetMenu( BuildMenu() ), TestDlg() ) ;
        FILENAME "..\bitmaps\16x16\faces.bmp"

     SEPARATOR
     MENUITEM "Language &2: Spanish"    ACTION ( FWSetLanguage( 2 ), oWnd:SetMenu( BuildMenu() ), TestDlg() )  ;
     FILENAME "..\bitmaps\edit.bmp"

     SEPARATOR
     MENUITEM "Language &3: French"     ACTION ( FWSetLanguage( 3 ), oWnd:SetMenu( BuildMenu() ), TestDlg() ) ;
        FILENAME "..\bitmaps\16x16\delete.bmp"

     SEPARATOR
     MENUITEM "Language &4: Portuguese" ACTION ( FWSetLanguage( 4 ), oWnd:SetMenu( BuildMenu() ), TestDlg() ) ;
        FILENAME "..\bitmaps\16x16\browse.bmp"

     SEPARATOR
     MENUITEM "Language &5: German"     ACTION ( FWSetLanguage( 5 ), oWnd:SetMenu( BuildMenu() ), TestDlg() ) ;
        FILENAME "..\bitmaps\16x16\calc.bmp"

     SEPARATOR
     MENUITEM "Language &6: Italian"    ACTION ( FWSetLanguage( 6 ), oWnd:SetMenu( BuildMenu() ), TestDlg() ) ;
        FILENAME "..\bitmaps\16x16\explorer.bmp"

     SEPARATOR
     MENUITEM "&Exit" ACTION oWnd:End() ;
        FILENAME "..\bitmaps\16x16\exit.bmp"

  ENDMENU

   ENDMENU

RETURN( oMenu )

STATIC FUNCTION TestDlg()

   local oDlg, oSay1, oSay2, oBtn1, oBtn2, oBtn3, oBtn4, oChk1, oCbx1
   local cAdd, cEdit, cSearch, cDelete, cSetup, cAttention, cPrintErr
   local aLangs, nSelLang, cTitle, cAtt, cPr

   cAdd       := FWString( "Add" )
   cEdit      := FWString( "Edit" )
   cSearch    := FWString( "Search" )
   cDelete    := FWString( "Delete" )
   cSetup     :=  FWString( "Setup" )
   cAttention := FWString( "Attention" )
   cPrintErr  := FWString( "Printing Error" )

   aLangs     := { FWString( "English" ), FWString( "Spanish" ), FWString( "French" ), ;
                   FWString( "Portuguese" ), FWString( "German" ), FWString( "Italian" ) }
   nSelLang   := FWSetLanguage()

   // ASI, FUNCIONA EN EL BUTTON, NO COMPRENDO ??? jajajaja.
   cAtt := cAttention + SPACE( 02 ) // + " Error" // ERROR IN BUTTON: Attention

   // ASI, NO FUNCIONA EN EL DIALOGO DE FORMA NINGUNA.
   cPr  := cPrintErr  + SPACE( 02 ) // Erro de impressao... con ~

   // no funciona en el titulo del dialogo. ???
   cTitle := "FWH: " + cAtt + " - " + cPr

   // ? cTitle  // Esta correcto, pero no muestra en el dialogo ?

   // ? OemToansi( cAttention ) // error
   // ? AnsiToOem( cAttention ) // error

   // cTitle := "FWH: titulo do dialogo nao esta funcionando"
   DEFINE DIALOG oDlg TITLE cAttention + " / " + cPrintErr SIZE 520, 450

   //-> TITLE CON ERROR. EN PORTUGUES.
   // DEFINE DIALOG oDlg TITLE cTitle SIZE 550, 450 // TRANSPARENT

   oDlg:lHelpIcon := .F.

   // --- SAY controls ---
   @ 0.5, 1 SAY "=== SAY Controls ===" OF oDlg
   @ 1.5, 1 SAY "Add: "       + cAdd       OF oDlg
   @ 2.3, 1 SAY "Edit: "      + cEdit      OF oDlg
   @ 3.1, 1 SAY "Search: "    + cSearch    OF oDlg
   @ 3.9, 1 SAY "Delete: "    + cDelete    OF oDlg
   @ 4.7, 1 SAY "Setup: "     + cSetup     OF oDlg
   @ 5.5, 1 SAY oSay1 PROMPT "Attention: " + cAttention OF oDlg
   @ 6.3, 1 SAY oSay2 PROMPT "Print Error: "  + cPrintErr  OF oDlg

   // --- BUTTON controls ---
   @ 0.5, 16 SAY "=== BUTTON Controls ===" OF oDlg
   @ 1.5, 16 BUTTON oBtn1 PROMPT cAdd      OF oDlg SIZE 50, 12 ACTION MsgInfo( cAdd )

   @ 3.0, 16 BUTTON oBtn2 PROMPT cEdit     OF oDlg SIZE 50, 12 ACTION MsgInfo( cEdit )

   @ 4.5, 16 BUTTON oBtn3 PROMPT cSearch   OF oDlg SIZE 50, 12 ACTION MsgInfo( cSearch )

   // --- More buttons with accented text ---
   @ 0.5, 26 SAY "=== More Buttons ===" OF oDlg

   // AQUI, TAMBIEN MUESTRA cAttention CON ERROR EN PORTUGUES. CON SPACE(02), FUNCIONA.
   //   @ 1.5, 26 BUTTON cAttention OF oDlg SIZE 50, 12 ACTION MsgInfo( cAttention )
   @ 1.5, 26 BUTTON cAtt       OF oDlg SIZE 50, 12 ACTION MsgInfo( cAttention )

   @ 3.0, 26 BUTTON cPrintErr  OF oDlg SIZE 50, 12 ACTION MsgInfo( cPrintErr )
   @ 4.5, 26 BUTTON oBtn4 PROMPT cDelete OF oDlg SIZE 50, 12 ACTION MsgInfo( cDelete )
   

   // --- CHECKBOX controls ---
   @ 7.5, 1 SAY "=== CHECKBOX ===" OF oDlg
   @ 9.5, 1.5 CHECKBOX oChk1 VAR lDummy1 PROMPT cAdd OF oDlg SIZE 50, 12

   // --- COMBOBOX control ---
   @ 7.5, 16 SAY "=== COMBOBOX ===" OF oDlg
   @ 9.5, 16 COMBOBOX oCbx1 VAR nSelLang ITEMS aLangs OF oDlg SIZE 120, 150

   // --- Debug info ---
   @ 10.5, 1 SAY "=== Debug Info ===" OF oDlg
   @ 11.3, 1 SAY 'Add="' + cAdd + '" hex=' + StrToHex( cAdd ) OF oDlg
   @ 12.1, 1 SAY 'Attention="' + cAttention + '" hex=' + StrToHex( cAttention ) OF oDlg
   @ 12.9, 1 SAY "GetACP()=" + AllTrim( Str( GetACP() ) ) + ;
                 " GetOEMCP()=" + AllTrim( Str( GetOEMCP() ) ) + ;
                 " HbCDP=" + AllTrim( Str( HbCDP() ) ) OF oDlg

   // Show IsWindowUnicode info after dialog is created
   @ 14.2, 1 BUTTON "&Diagnose" OF oDlg SIZE 50, 13 ;
      ACTION DiagnoseControls( oDlg, oSay1, oBtn1, oChk1, oCbx1 )

   @ 14.2, 15 BUTTON "&Ok" OF oDlg SIZE 45, 13 ACTION oDlg:End()

   @ 14.2, 26 BUTTON "&Cancel" OF oDlg SIZE 45, 13 ACTION oDlg:End()

   ACTIVATE DIALOG oDlg CENTERED ;
      ON INIT DiagnoseControls( oDlg, oSay1, oBtn1, oChk1, oCbx1 )

return nil

static function DiagnoseControls( oDlg, oSay, oBtn, oChk, oCbx )

   local cInfo := ""

   cInfo += "Dialog hWnd Unicode: " + cYesNo( IsWindowUnicode( oDlg:hWnd ) ) + CRLF
   if oSay != nil
      cInfo += "SAY hWnd Unicode: " + cYesNo( IsWindowUnicode( oSay:hWnd ) ) + ;
               " lUnicode=" + cYesNo( oSay:lUnicode ) + CRLF
   endif
   if oBtn != nil
      cInfo += "BUTTON hWnd Unicode: " + cYesNo( IsWindowUnicode( oBtn:hWnd ) ) + ;
               " lUnicode=" + cYesNo( oBtn:lUnicode ) + CRLF
   endif
   if oChk != nil
      cInfo += "CHECKBOX hWnd Unicode: " + cYesNo( IsWindowUnicode( oChk:hWnd ) ) + ;
               " lUnicode=" + cYesNo( oChk:lUnicode ) + CRLF
   endif
   if oCbx != nil
      cInfo += "COMBOBOX hWnd Unicode: " + cYesNo( IsWindowUnicode( oCbx:hWnd ) ) + ;
               " lUnicode=" + cYesNo( oCbx:lUnicode ) + CRLF
   endif
   cInfo += CRLF
   cInfo += "GetACP() = " + AllTrim( Str( GetACP() ) ) + CRLF
   cInfo += "GetOEMCP() = " + AllTrim( Str( GetOEMCP() ) ) + CRLF
   cInfo += "HbCDP() = " + AllTrim( Str( HbCDP() ) ) + CRLF
   cInfo += "FW_SetUnicode() = " + cYesNo( FW_SetUnicode() ) + CRLF
   cInfo += CRLF
   cInfo += "FWString('Add') = " + FWString("Add") + " hex=" + StrToHex( FWString("Add") ) + CRLF
   cInfo += "FWString('Attention') = " + FWString("Attention") + " hex=" + StrToHex( FWString("Attention") ) + CRLF
   cInfo += "FWString('Printing Err') = " + FWString("Printing Error") + " hex=" + StrToHex( FWString("Printing Error") )

   MsgInfo( cInfo, "Diagnostic Info" )

return nil

static function cYesNo( l )
return If( l, "YES", "NO" )

static function StrToHex( cStr )

   local n, cHex := ""

   for n := 1 to Min( Len( cStr ), 20 )
      cHex += PadL( hb_NumToHex( Asc( SubStr( cStr, n, 1 ) ) ), 2, "0" )
      if n < Min( Len( cStr ), 20 )
         cHex += " "
      endif
   next

return cHex

// FIN / END

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: FWH 26.03 buscamos betatesters
Posted: Sun Mar 29, 2026 04:37 PM

Solucionado, nueva beta disponible :idea:

regards, saludos

Antonio Linares
www.fivetechsoft.com

csincuir

Posts: 476

Joined: Sat Feb 03, 2007 06:36 AM

Re: FWH 26.03 buscamos betatesters
Posted: Mon Mar 30, 2026 12:15 PM

karinha wrote:

Hola Antonio.
He logrado compilar mi proyecto de mi sistema SEM con el nuevo FWH 26.03 y todo funcionando correctamente.

Hice la prueba del FW_SetDarkMode() con exito! y esto le da otra opcion al sistema para que los clientes puedan tener esta nueva opcion.

Seguire haciendo mas pruebas e implementado lo nuevo de esta nueva version 26.03 a mi sistema.

Gran trabajo Antonio.

Saludos cordiales.

Carlos.

csincuir, ¡qué buen ejemplo! ¿Tienes algún ejemplo práctico de su uso que puedas compartir con alguien que está aprendiendo como yo?

Gracias, tks.

Regards, saludos.

Hola Karinha.
Fue una prueba que realice en mi proyecto, colocando esta linea antes de activar la ventana principal:

FW_SetDarkMode( .T. )

Con esa simple linea, FWH 26.03 hizo la magia. Todos los diálogos de mi proyecto se presentan en modo oscuro automaticamente, con lo cual, estoy pensando como lo implemento para colocar en el menú de utilerías de mi aplicación el colocar el modo oscuro, o regresar al modo claro nuevamente.

Espero te sirva.

Saludos cordiales.

Carlos.

Posts: 8523

Joined: Tue Dec 20, 2005 07:36 PM

Re: FWH 26.03 buscamos betatesters
Posted: Mon Mar 30, 2026 03:32 PM

Buenas tardes Maestro. Compilando FIVEDBU.PRG con xHarbour y BCC77, me genera este ERROR:

Application
===========
   Path and name: C:\FWH2603\samples\fivedbu.exe (32 bits)
   Size: 7,839,232 bytes
   Compiler version: xHarbour 1.3.2 Intl. (SimpLex) (Build 20260103)
   FiveWin version: FWH 26.03
   C compiler version: Borland/Embarcadero C++ 7.7 (32-bit)
   Windows 11 64 Bits, version: 6.2, Build 9200 

   Time from start: 0 sec
   Error occurred at: 03/30/26, 12:27:03
   Error description: Error BASE/1003  Variable does not exist: TITLE

Stack Calls
===========
   Called from:  => DBUSEAREA( 0 )
   Called from: source\winapi\help32.prg => SETAUTOHELP( 59 )
   Called from: fivedbu.prg => MAIN( 66 )

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Posts: 8523

Joined: Tue Dec 20, 2005 07:36 PM

Re: FWH 26.03 buscamos betatesters
Posted: Mon Mar 30, 2026 04:41 PM

Confirmo que hay un error en todos los archivos TESFLD?.PRG.

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Posts: 8523

Joined: Tue Dec 20, 2005 07:36 PM

Re: FWH 26.03 buscamos betatesters
Posted: Mon Mar 30, 2026 05:03 PM

Master, FIVEGURU.PRG

Application
===========
   Path and name: C:\FWH2603\samples\fiveguru.exe (32 bits)
   Size: 5,038,080 bytes
   Compiler version: xHarbour 1.3.2 Intl. (SimpLex) (Build 20260103)
   FiveWin version: FWH 26.03
   C compiler version: Borland/Embarcadero C++ 7.7 (32-bit)
   Windows 11 64 Bits, version: 6.2, Build 9200 

   Time from start: 19 sec
   Error occurred at: 03/30/26, 14:01:06
   Error description: Error BASE/1081  Argument error: +
   Args:
     [   1] = C         MENUITEM "
     [   2] = U   

Stack Calls
===========
   Called from: source\classes\menu.prg => GENSUBMENU( 1522 )
   Called from: source\classes\menu.prg => TMENU:CGENPRG( 1508 )
   Called from: source\classes\window.prg => TMDIFRAME:CGENPRG( 1488 )
   Called from: fiveguru.prg => (b)MAINQUERY( 61 )
   Called from: source\classes\button.prg => TBUTTON:CLICK( 207 )
   Called from: source\classes\control.prg => TBUTTON:HANDLEEVENT( 1860 )
   Called from: source\classes\window.prg => _FWH( 487 )
   Called from:  => SENDMESSAGE( 0 )
   Called from: source\classes\dialog.prg => TDIALOG:COMMAND( 535 )
   Called from:  => TWINDOW:HANDLEEVENT( 0 )
   Called from: source\classes\dialog.prg => TDIALOG:HANDLEEVENT( 1290 )
   Called from: source\classes\window.prg => _FWH( 1076 )
   Called from:  => WINRUN( 0 )
   Called from: source\classes\window.prg => TMDIFRAME:ACTIVATE( 1205 )
   Called from: fiveguru.prg => MAIN( 27 )

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Posts: 8523

Joined: Tue Dec 20, 2005 07:36 PM

Re: FWH 26.03 buscamos betatesters
Posted: Mon Mar 30, 2026 05:12 PM

Maestro, es necesario organizar los archivos .ch. tipo:

#include "c:\fwh2603\samples\ui\FiveGuru.ch"

Debe estar en la carpeta \samples o \include de FWH.

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341