FiveTech Software tech support forums

www.FiveTechSoft.com

Skip to content

PlaceHolder HARBOUR

Post a reply

PlaceHolder HARBOUR

Postby JoseAlvarez » Tue Oct 03, 2023 2:54 pm

Saludos Amigos.

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

Image


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

Image


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 view
Redefine get _oGetUserNick  Var _cUsuarioActivoNick   Id 106  of  oDlg  PLACEHOLDER  'Usuario'


y la RC es la misma,

¿qué cambió?
"Los errores en programación, siempre están entre la silla y el teclado..."

Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin

Carora, Estado Lara, Venezuela.
User avatar
JoseAlvarez
 
Posts: 726
Joined: Sun Nov 09, 2014 5:01 pm
Top

Re: PlaceHolder HARBOUR

Postby karinha » Tue Oct 03, 2023 4:33 pm

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

Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7214
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil
Top

Re: PlaceHolder HARBOUR

Postby karinha » Tue Oct 03, 2023 4:59 pm

OK,

Code: Select all  Expand view

#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.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7214
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil
Top

Re: PlaceHolder HARBOUR

Postby cnavarro » Tue Oct 03, 2023 5:24 pm

Para que funcione has de incluir en tu .RC el Manifest
Code: Select all  Expand view

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

#ifdef __64__
  1 24 "WinXP\WindowsXP.Manifest64"
#endif
 
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
User avatar
cnavarro
 
Posts: 6500
Joined: Wed Feb 15, 2012 8:25 pm
Location: España
Top

Re: PlaceHolder HARBOUR

Postby karinha » Tue Oct 03, 2023 5:53 pm

cnavarro wrote:Para que funcione has de incluir en tu .RC el Manifest
Code: Select all  Expand view

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

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


NO FUNCIONA:

Code: Select all  Expand view

// 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.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7214
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil
Top

Re: PlaceHolder HARBOUR

Postby JoseAlvarez » Tue Oct 03, 2023 8:54 pm

cnavarro wrote:Para que funcione has de incluir en tu .RC el Manifest
Code: Select all  Expand view

#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 view
-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.
"Los errores en programación, siempre están entre la silla y el teclado..."

Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin

Carora, Estado Lara, Venezuela.
User avatar
JoseAlvarez
 
Posts: 726
Joined: Sun Nov 09, 2014 5:01 pm
Top

Re: PlaceHolder HARBOUR

Postby JoseAlvarez » Tue Oct 03, 2023 9:25 pm

Listo Cristóbal, Muchas Gracias !!

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

Ahora si esta bien

Image
"Los errores en programación, siempre están entre la silla y el teclado..."

Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin

Carora, Estado Lara, Venezuela.
User avatar
JoseAlvarez
 
Posts: 726
Joined: Sun Nov 09, 2014 5:01 pm
Top

Re: PlaceHolder HARBOUR

Postby JoseAlvarez » Tue Oct 03, 2023 9:33 pm

Code: Select all  Expand view

// 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 view
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
"Los errores en programación, siempre están entre la silla y el teclado..."

Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin

Carora, Estado Lara, Venezuela.
User avatar
JoseAlvarez
 
Posts: 726
Joined: Sun Nov 09, 2014 5:01 pm
Top

Re: PlaceHolder HARBOUR

Postby karinha » Sat Oct 07, 2023 4:38 pm

Gracias José, funcionó perfecto!

Code: Select all  Expand view

// 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.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7214
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil
Top
Post a reply

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 94 guests

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group