PlaceHolder HARBOUR

[JoseAlvarez]

Saludos Amigos.

Mientras Usé xHarbour, el placeholder en los gets me funcionó perfecto:




Desde que migré a HARBOUR, dejó de funcionar:




Es el mismo código que uso desde años, solo copio el PRG hacia la carpeta del nuevo proyecto y listo. No toco el código.

Code: Select all | Expand

Redefine get _oGetUserNick  Var _cUsuarioActivoNick   Id 106  of  oDlg  PLACEHOLDER  'Usuario'

y la RC es la misma,

¿qué cambió?

[karinha]

PLACEHOLDER? Que hace esto? Ejemplo? No hay que cambiar el TGET.PRG?

Regards, saludos.

[karinha]

OK,

Code: Select all | Expand

#xcommand REDEFINE GET [ <oGet> VAR ] <uVar> ;
             [ SUBSCRIPT <nSub,...> ] ;
             [ ID <nId> ] ;
             [ <dlg: OF, WINDOW, DIALOG> <oDlg> ] ;
             [ <help:HELPID, HELP ID> <nHelpId> ] ;
             [ VALID   <ValidFunc> ]       ;
             [ <pict: PICT, PICTURE> <cPict> ] ;
             [ <color:COLOR,COLORS> <nClrFore> [,<nClrBack>] ] ;
             [ FONT <oFont> ] ;
             [ CURSOR <oCursor> ] ;
             [ MESSAGE <cMsg> ] ;
             [ <update: UPDATE> ] ;
             [ WHEN <uWhen> ] ;
             [ ON CHANGE <uChange> ] ;
             [ <readonly: READONLY, NO MODIFY> ] ;
             [ <spin: SPINNER> [BUTTONS <bmp1>,<bmp2> ] [ON UP <SpnUp>] [ON DOWN <SpnDn>] [MIN <Min>] [MAX <Max>] ] ;
             [ <lR2L: RIGHTTOLEFT> ] ;
             [ ACTION <uAction> ] ;
             [ BITMAP <cBmpName> ] ;
             [ <cuebanner: CUEBANNER, PLACEHOLDER> <cCueText> ]  <=========
 

Lo entiendo, ESTO NUNCA FUNCIONÓ, ni con HARBOUR ni con xHARBOUR. Nunca he podido hacer que CUEBANNER funcione.

No hay ningún ejemplo en \samples que sea una señal de que algo no está bien con el comando.

Regards, saludos.

[cnavarro]

Para que funcione has de incluir en tu .RC el Manifest

Code: Select all | Expand

#ifndef __64__
  1 24 "WinXP\WindowsXP.Manifest"
#endif

#ifdef __64__
  1 24 "WinXP\WindowsXP.Manifest64"
#endif
 

[karinha]

Para que funcione has de incluir en tu .RC el Manifest

Code: Select all | Expand

#ifndef __64__
  1 24 "WinXP\WindowsXP.Manifest"
#endif

#ifdef __64__
  1 24 "WinXP\WindowsXP.Manifest64"
#endif
 

NO FUNCIONA:

Code: Select all | Expand

// Testing GETs - C:\FWH..\SAMPLES\TESTGET.PRG y TESTGET.RC

#include "FiveWin.ch"

function Main()

   LOCAL oDlg, oGet
   LOCAL cCad := "Testing    " // pad("Testing Gets",40)
   LOCAL nNum := 0
   LOCAL dDat := Date()

   Set century On
   Set Date Ansi
   Set Date format "mm/dd/yyyy"

   SET _3DLOOK ON

   DEFINE DIALOG oDlg TITLE "TGet from " + FWDESCRIPTION

   @ 1,    2 SAY "Text..:" OF oDlg

   @ 1,    6 GET oGet VAR cCad OF oDlg SIZE 60, 10 COLOR "W/G" PICTURE "@K" ;
      PLACEHOLDER "CueBanner" // NO FUNCIONA.

   @ 1.8,  2 SAY "Number:" OF oDlg
   @ 2,    6 GET oGet VAR nNum OF oDlg SIZE 60, 10 PICTURE "9999999.99"
   @ 2.6,  2 SAY "Date:" OF oDlg
   @ 3,    6 GET oGet VAR dDat PICTURE "@E" OF oDlg SIZE 60, 10  // "@D"
   @ 3,    7 BUTTON "&Ok" OF oDlg SIZE 30, 12 ACTION oDlg:End()
   @ 3,   16 BUTTON "&Cancel" SIZE 30, 12 OF oDlg ACTION oDlg:End() CANCEL
   
   // TGet():SetColorFocus( nRGB( 200, 120, 120 ) )

   ACTIVATE DIALOG oDlg CENTERED

return nil

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

procedure appsys // XBase++ requirement
return

/*
// TESTGET.RC
#ifndef __64__
  1 24 "C:\FWH1905\SAMPLES\winxp\WindowsXP.Manifest"
#endif

#ifdef __64__
  1 24 "winxp\WindowsXP.Manifest64"
#endif 

*/
 

Regards, saludos.

[JoseAlvarez]

Para que funcione has de incluir en tu .RC el Manifest

Code: Select all | Expand

#ifndef __64__
  1 24 "WinXP\WindowsXP.Manifest"
#endif

#ifdef __64__
  1 24 "WinXP\WindowsXP.Manifest64"
#endif
 

Saludos Cristobal,

tengo el manifest incluido:

Code: Select all | Expand

-hbexe
-inc
#-compr
#-static
#-fullstatic
#-trace
#-run
-beep

-gtgui

-prgflag=/n /m /d__FLAT__ -gc0  -w1 -es2
-resflag=-D__FLAT__

Prg\Cuentas32.PRG
Prg\About.PRG
Prg\CrearMapas.PRG
Prg\Clientes.PRG
Prg\ClienteNuevo.PRG
Prg\ClienteNuevo_Mundo.PRG
Prg\ClienteConsulta.PRG
Prg\ClienteConsultaMundo.PRG
Prg\ClienteEditar.PRG
Prg\ClienteEditarMundo.PRG
Prg\ClienteEliminar.PRG
Prg\ChequeoDiario.PRG
Prg\Empresa.PRG
Prg\EstadosCiudades.PRG
Prg\ExportToExcel.PRG
Prg\ExportToSms.PRG
Prg\Facturas.PRG
Prg\Grafico3Meses.PRG
Prg\Zonas.PRG
Prg\Libs_Ja.PRG
Prg\Libs_Msg.PRG
Prg\Mapas.PRG
Prg\MapasUsuarios.PRG
Prg\Manual.PRG
Prg\Menus.PRG
Prg\NewCredito.PRG
Prg\Usuarios.PRG
Prg\Prueba.PRG
Prg\Parametros.PRG
Prg\Proveedores.PRG
Prg\ReactivarClientes.PRG
Prg\ReactivarProveedor.PRG
Prg\NewPagos.PRG
Prg\Reportes.PRG
Prg\Respaldo.PRG
Prg\Restore.PRG
Prg\Rpt_Detallada.PRG
Prg\Rpt_Emit2Fechas.PRG
Prg\Rpt_EstadoDeCuenta.PRG
Prg\Rpt_EdoCtaxDoc.PRG
Prg\Rpt_ResumenSaldos.PRG
Prg\Rpt_Vcdo2Fechas.PRG
Prg\Rpt_VencidosEntre2Dias.PRG
Prg\Rpt_306090.PRG
Prg\Smtp.PRG
Prg\SendMail.PRG
Prg\ValidRif.PRG
Prg\WhatsNew.PRG
Prg\Trsay.PRG
Prg\FastReph.PRG
Prg\MyFunc.PRG

-Ic:\xCompiler\32bits\fwh19.06\include
-I.\Include2

-Lc:\xCompiler\32bits\fwh19.06\lib
-L.\Lib2

-ldolphin2
-llibmysql
-ltwbrowse
-lfiveh
-lfivehc


rc\Cuentas32.rc
rc\Cuentas32_Jpg1.rc
rc\Manifest.rc

hbct.hbc
xhb.hbc
hbziparc.hbc
hbwin.hbc
hbmzip.hbc

Joao amigo,

He usado el placeholder por años, algún detalle esta impidiendo que te funcione, como a mí, en esta oportunidad.

[JoseAlvarez]

Listo Cristóbal, Muchas Gracias !!

Incluí el ManifestXP dentro de la RC principal y funcionó. Lo estaba haciendo mal

Ahora si esta bien

[JoseAlvarez]

Code: Select all | Expand

// Testing GETs - C:\FWH..\SAMPLES\TESTGET.PRG y TESTGET.RC

#include "FiveWin.ch"

function Main()

   LOCAL oDlg, oGet
   LOCAL cCad := "Testing    " // pad("Testing Gets",40)
   LOCAL nNum := 0
   LOCAL dDat := Date()

   Set century On
   Set Date Ansi
   Set Date format "mm/dd/yyyy"

   SET _3DLOOK ON

   DEFINE DIALOG oDlg TITLE "TGet from " + FWDESCRIPTION

   @ 1,    2 SAY "Text..:" OF oDlg

   @ 1,    6 GET oGet VAR cCad OF oDlg SIZE 60, 10 COLOR "W/G" PICTURE "@K" ;
      PLACEHOLDER "CueBanner" // NO FUNCIONA.

   @ 1.8,  2 SAY "Number:" OF oDlg
   @ 2,    6 GET oGet VAR nNum OF oDlg SIZE 60, 10 PICTURE "9999999.99"
   @ 2.6,  2 SAY "Date:" OF oDlg
   @ 3,    6 GET oGet VAR dDat PICTURE "@E" OF oDlg SIZE 60, 10  // "@D"
   @ 3,    7 BUTTON "&Ok" OF oDlg SIZE 30, 12 ACTION oDlg:End()
   @ 3,   16 BUTTON "&Cancel" SIZE 30, 12 OF oDlg ACTION oDlg:End() CANCEL
   
   // TGet():SetColorFocus( nRGB( 200, 120, 120 ) )

   ACTIVATE DIALOG oDlg CENTERED

return nil

 

João, vejo dois detalhes no seu código,

Primeiro: você está usando um único objeto GET (oGet) para todos os seus get, deve ser um para cada (oGet1, oGet2, oGet3...)
Segundo: o FOCUS na hora de carregar o formulário não pode estar em nenhum GET, tente colocar no botão de saída (BOTÃO "&Cancelar")

ATIVAR DIALOG oDlg CENTRADO no Init (BOTÃO "&Cancelar"; SetFocus())

Lembre-se que o PLACEHOLDER desaparece quando o controle tem FOCUS

Espero que funcione para você




Joao, veo dos detalles en tu código,

Primero: estas usando un solo objeto GET (oGet) para todos tus gets, debe ser uno para cada uno (oGet1, oGet2, oGet3...)
Segundo: el FOCUS al momento de cargar el formulario, no puede estar en ningún GET, prueba colocándoselo al botón de salida (BUTTON "&Cancel")

Code: Select all | Expand

ACTIVATE DIALOG oDlg CENTERED on Init (BUTTON "&Cancel" : SetFocus() )

Recuerda que el PLACEHOLDER desaparece cuando el control tiene el FOCUS

Espero te funcione


USANDO TRADUCTOR DE GOOGLE

[karinha]

Gracias José, funcionó perfecto!

Code: Select all | Expand

// Testing GETs - C:\FWH..\SAMPLES\TESTGET.PRG y TESTGET.RC

#include "FiveWin.ch"

function Main()

   LOCAL oDlg, oGet, oGet2, oGet3, oGet4
   LOCAL cCad := "Testing    " // pad("Testing Gets",40)
   LOCAL cText := "                "
   LOCAL nNum := 0
   LOCAL dDat := Date()

   Set century On
   Set Date Ansi
   Set Date format "mm/dd/yyyy"

   SET _3DLOOK ON

   DEFINE DIALOG oDlg TITLE "TGet from " + FWDESCRIPTION

   @ 1,    2 SAY "Text..:" OF oDlg

   @ 1,    6 GET oGet VAR cCad OF oDlg SIZE 60, 10 COLOR "W/G" PICTURE "@K" ;
      PLACEHOLDER "CueBanner" // NO FUNCIONA.

   @ 1.8,  2 SAY "Number:" OF oDlg

   @ 2,    6 GET oGet2 VAR nNum OF oDlg SIZE 60, 10 PICTURE "9999999.99"

   @ 2.6,  2 SAY "Date:" OF oDlg

   @ 3,    6 GET oGet3 VAR dDat PICTURE "@E" OF oDlg SIZE 60, 10  // "@D"

   @ 4,    2 SAY "Text..:" OF oDlg

   @ 4,    6 GET oGet4 VAR cText PICTURE "@!" OF oDlg SIZE 80, 10   ;
      PLACEHOLDER "CueBanner" // FUNCIONA.

   @ 5,    7 BUTTON "&Ok" OF oDlg SIZE 30, 12 ACTION oDlg:End()
   @ 5,   16 BUTTON "&Cancel" SIZE 30, 12 OF oDlg ACTION oDlg:End() CANCEL
   
   // TGet():SetColorFocus( nRGB( 200, 120, 120 ) )

   ACTIVATE DIALOG oDlg CENTERED

return nil

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

procedure appsys // XBase++ requirement
return

/*
// TESTGET.RC
#ifndef __64__
  1 24 "C:\FWH1905\SAMPLES\winxp\WindowsXP.Manifest"
#endif

#ifdef __64__
  1 24 "winxp\WindowsXP.Manifest64"
#endif 

*/
 

Regards, saludos.

[José Camilo]

HolaJosé. Buenos dias.
Por favor. me puedes indicar como logras el formato de esos GET en la pantalla donde pides el usuario y clave? que version de FW se necesita como asi tambien para usar la CLAUSULA PLACEHOLDER.?
Muchas Gracias

[karinha]

HolaJosé. Buenos dias.
Por favor. me puedes indicar como logras el formato de esos GET en la pantalla donde pides el usuario y clave? que version de FW se necesita como asi tambien para usar la CLAUSULA PLACEHOLDER.?
Muchas Gracias

https://forums.fivetechsupport.com/view ... 17#p216835

Regards, saludos.