Probando TGSAY.prg y su potencia.

[karinha]

Probando TGSAY.prg y su potencia:

https://imgur.com/2Bie5qu



Fantástico!! Estoy empezando a entender. jajajaja

Regards, saludos.

[karinha]

Que lástima, NO FUNCIONA con RESOURCES!

https://imgur.com/6bZLgFA



Regards, saludos.

[karinha]

Si alguien puede hacerlo funcionar con recursos, se lo agradecería mucho.

Descarga completa aquí:

https://mega.nz/file/hdUi0BrZ#09W81vAYXD2gL-i3xcAtmEN-JALV7Zz4JmEeViaN3oo

Regards, saludos.

[karinha]

cValue := EVAL( bText ) // que esta errado aqui? Line 253.

Code: Select all  Expand view

METHOD Redefine( nId, oWnd, bText, cPict, oFont, oCursor, bLClicked       , ;
         cHAlign, cVAlign, nClrText, nClrPane, nClrOTxt, nClrOBck , ;
         nClrSmbr, nClrLin, cModo, lTransp, lUpdate )           CLASS TGSAY
   LOCAL cValue

   DEFAULT  oWnd    := GetWndDefault(), oFont := oWnd:oFont, ;
        nClrText    := IF( Upper(oWnd:Classname()) = "TWINDOW", GetSysColor(COLOR_WINDOWTEXT),oWnd:nClrText ), ;
        nClrPane    := IF( Upper(oWnd:Classname()) = "TWINDOW", GetSysColor(COLOR_BTNFACE),oWnd:nClrPane )   , ;
        cModo   := "", cHAlign := "LEFT", cVAlign := "CENTER", lTransp := .F., lUpdate  := .F. , ;
        nClrLin := 0

   ::bGet   := bText
   ::bSetGet    := bText
   ::cPict  := cPict
   ::bLClicked  := bLClicked

   ::nId    := nId
   ::oWnd   := oWnd
   ::oFont  := oFont
   ::oCursor    := oCursor

   cValue := EVAL( bText )  // que esta errado aqui? Line 253. ERROR AQUI!

   IF bText # NIL
      ::cCaption  := If( Empty(cPict) .OR. Empty(cValue) , cValToChar( cValue ), Transform( cValue, cPict ) )
   ELSE
      ::cCaption = GetWindowText( ::hWnd )
   ENDIF
   ::cCaption := ALLTRIM(::cCaption)

   ::nEstado    := NINGUNO  // ------------------------- 250
   ::lDrag  := .F.
   ::lCaptured  := .F.
   ::lUpdate    := lUpdate

   ::nAlign := ::SetAlign(cHAlign,cVAlign)
   ::nModo  := ::SetModo(cModo)
   ::hObj   := {0,0,NIL,NIL}
   ::lTransp    := lTransp

   ::SetColor( ::C_LETRA, IF( ::lTransp .OR. ::nModo = MD_ROUND,, nClrPane ) )

   ::C_LETRA    := nClrText
   ::C_FONDO    := nClrPane
   ::C_LOVER    := nClrOTxt
   ::C_FOVER    := nClrOBck
   ::C_SOMBRA   := nClrSmbr
   ::C_LINEA    := IF(cModo == "SQUARE" .OR. cModo == "ROUNDED", nClrLin, RGB(128,128,128))
   ::C_DISABLE  := RGB(128,128,128)

   ::lValidating:= .F.

   ::Register( nOR( CS_VREDRAW, CS_HREDRAW ) )
 
   IF oWnd # NIL
      ::oWnd:DefControl( Self )
   ENDIF

   ::nAngle := Min(Max((Min(::nWidth,::nHeight))/1.5,6),25)

   SysRefresh()

RETURN Self
 

Tks, gracias.

Regards, saludos.

[Antonio Linares]

Estimado Joao,

Code: Select all  Expand view

if hb_IsBlock( bText )
   cValue := EVAL( bText )
else
   if ValType( bText ) == "C"
      cValue = bText
   endif
endif

[karinha]

https://imgur.com/PbH9b0D



Master Antônio,

Code: Select all  Expand view

   REDEFINE GSAY oGST[ 01 ] VAR aTits[ 01 ] ID 401 OF oDlg ;
      COLOR RGB( 255, 180, 020 ) TRANSPARENTE FONT oFont COLORSOMBRA 0

METHOD Redefine( nId, oWnd, bText, cPict, oFont, oCursor, bLClicked       , ;
         cHAlign, cVAlign, nClrText, nClrPane, nClrOTxt, nClrOBck , ;
         nClrSmbr, nClrLin, cModo, lTransp, lUpdate )           CLASS TGSAY
   LOCAL cValue

   DEFAULT  oWnd    := GetWndDefault(), oFont := oWnd:oFont, ;
        nClrText    := IF( Upper(oWnd:Classname()) = "TWINDOW", GetSysColor(COLOR_WINDOWTEXT),oWnd:nClrText ), ;
        nClrPane    := IF( Upper(oWnd:Classname()) = "TWINDOW", GetSysColor(COLOR_BTNFACE),oWnd:nClrPane )   , ;
        cModo   := "", cHAlign := "LEFT", cVAlign := "CENTER", lTransp := .F., lUpdate  := .F. , ;
        nClrLin := 0

   ::bGet   := bText
   ::bSetGet    := bText
   ::cPict  := cPict
   ::bLClicked  := bLClicked

   ::nId    := nId
   ::oWnd   := oWnd
   ::oFont  := oFont
   ::oCursor    := oCursor

   // cValue := EVAL( bText )  // que esta errado aqui?

   // Master Antonio Linares en: 07/05/2024 - Joao.
   IF HB_ISBLOCK( bText )

      cValue := Eval( bText )

   ELSE

      IF ValType( bText ) == "C"

         cValue = bText

      ENDIF

   ENDIF

   IF bText # NIL
      ::cCaption  := If( Empty(cPict) .OR. Empty(cValue) , cValToChar( cValue ), Transform( cValue, cPict ) )
   ELSE
      ::cCaption = GetWindowText( ::hWnd )
   ENDIF
   ::cCaption := ALLTRIM(::cCaption)

   ::nEstado    := NINGUNO  // ------------------------- 250
   ::lDrag  := .F.
   ::lCaptured  := .F.
   ::lUpdate    := lUpdate

   ::nAlign := ::SetAlign(cHAlign,cVAlign)
   ::nModo  := ::SetModo(cModo)
   ::hObj   := {0,0,NIL,NIL}
   ::lTransp    := lTransp

   ::SetColor( ::C_LETRA, IF( ::lTransp .OR. ::nModo = MD_ROUND,, nClrPane ) )

   ::C_LETRA    := nClrText
   ::C_FONDO    := nClrPane
   ::C_LOVER    := nClrOTxt
   ::C_FOVER    := nClrOBck
   ::C_SOMBRA   := nClrSmbr
   ::C_LINEA    := IF(cModo == "SQUARE" .OR. cModo == "ROUNDED", nClrLin, RGB(128,128,128))
   ::C_DISABLE  := RGB(128,128,128)

   ::lValidating:= .F.

   ::Register( nOR( CS_VREDRAW, CS_HREDRAW ) )
 
   IF oWnd # NIL
      ::oWnd:DefControl( Self )
   ENDIF

   ::nAngle := Min(Max((Min(::nWidth,::nHeight))/1.5,6),25)

   SysRefresh()

RETURN Self
 

Regards, salutos.

[karinha]

Master Antonio, creo que el problema ahora, sea aqui:

Code: Select all  Expand view

   ::nAngle := Min(Max((Min(::nWidth,::nHeight))/1.5,6),25)
 

Regards, saludos.

[Antonio Linares]

Joao,

Copia aqui el error.log, gracias

[karinha]

Pronto Maestro:

Code: Select all  Expand view

Application
===========
   Path and name: c:\TGSAY\TESTGSAY.exe (32 bits)
   Size: 3,498,496 bytes
   Compiler version: xHarbour 1.3.0 Intl. (SimpLex) (Build 20230914)
   FiveWin  version: FWH 19.05
   C compiler version: Borland/Embarcadero C++ 7.6 (32-bit)
   Windows version: 6.1, Build 7601 Service Pack 1

   Time from start: 0 hours 0 mins 2 secs
   Error occurred at: 08/05/2024, 10:06:36
   Error description: Error BASE/1082  Argument error: -
   Args:
     [   1] = N   0
     [   2] = U  

Stack Calls
===========
   Called from: .\source\classes\WINDOW.PRG => TGSAY:NWIDTH( 1593 )
   Called from: TGSay.prg => TGSAY:REDEFINE( 305 )
   Called from: TESTGSAY.prg => USANDO_RESOURCE_WORKSHOP( 440 )
   Called from: TESTGSAY.prg => (b)MAIN( 337 )
   Called from: .\source\classes\BUTTON.PRG => TBUTTONBMP:CLICK( 179 )
   Called from: .\source\classes\CONTROL.PRG => TBUTTON:HANDLEEVENT( 1755 )
   Called from: .\source\classes\BUTTONB.PRG => TBUTTONBMP:HANDLEEVENT( 261 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3546 )
   Called from:  => SENDMESSAGE( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:COMMAND( 433 )
   Called from:  => TWINDOW:HANDLEEVENT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT( 1136 )
   Called from:  => DIALOGBOXINDIRECT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 304 )
   Called from: TESTGSAY.prg => MAIN( 351 )
 

Regards, saludos.

[Antonio Linares]

Mueve esta línea:

::nAngle := Min(Max((Min(::nWidth,::nHeight))/1.5,6),25)

desde el Método Redefine() al método Initiate()

[karinha]

Master: Error description: Error BASE/1066 Argument error: conditional

Code: Select all  Expand view

METHOD Redefine( nId, oWnd, bText, cPict, oFont, oCursor, bLClicked       , ;
         cHAlign, cVAlign, nClrText, nClrPane, nClrOTxt, nClrOBck , ;
         nClrSmbr, nClrLin, cModo, lTransp, lUpdate )           CLASS TGSAY
   LOCAL cValue

   DEFAULT  oWnd    := GetWndDefault(), oFont := oWnd:oFont, ;
        nClrText    := IF( Upper(oWnd:Classname()) = "TWINDOW", GetSysColor(COLOR_WINDOWTEXT),oWnd:nClrText ), ;
        nClrPane    := IF( Upper(oWnd:Classname()) = "TWINDOW", GetSysColor(COLOR_BTNFACE),oWnd:nClrPane )   , ;
        cModo   := "", cHAlign := "LEFT", cVAlign := "CENTER", lTransp := .F., lUpdate  := .F. , ;
        nClrLin := 0

   ::bGet   := bText
   ::bSetGet    := bText
   ::cPict  := cPict
   ::bLClicked  := bLClicked

   ::nId    := nId
   ::oWnd   := oWnd
   ::oFont  := oFont
   ::oCursor    := oCursor

   // cValue := EVAL( bText )  // que esta errado aqui?
   // viewtopic.php?f=6&t=44493&sid=a0d68b2457180019e7e6ed82ed2b3212#p269968
   // Master Antonio Linares en: 07/05/2024 - Joao.

   IF HB_ISBLOCK( bText )

      cValue := Eval( bText )

   ELSE

      IF ValType( bText ) == "C"

         cValue = bText

      ENDIF

   ENDIF

   IF bText # NIL
      ::cCaption  := If( Empty(cPict) .OR. Empty(cValue) , cValToChar( cValue ), Transform( cValue, cPict ) )
   ELSE
      ::cCaption = GetWindowText( ::hWnd )
   ENDIF
   ::cCaption := ALLTRIM(::cCaption)

   ::nEstado    := NINGUNO  // ------------------------- 250
   ::lDrag  := .F.
   ::lCaptured  := .F.
   ::lUpdate    := lUpdate

   ::nAlign := ::SetAlign(cHAlign,cVAlign)
   ::nModo  := ::SetModo(cModo)
   ::hObj   := {0,0,NIL,NIL}
   ::lTransp    := lTransp

   ::SetColor( ::C_LETRA, IF( ::lTransp .OR. ::nModo = MD_ROUND,, nClrPane ) )

   ::C_LETRA    := nClrText
   ::C_FONDO    := nClrPane
   ::C_LOVER    := nClrOTxt
   ::C_FOVER    := nClrOBck
   ::C_SOMBRA   := nClrSmbr
   ::C_LINEA    := IF(cModo == "SQUARE" .OR. cModo == "ROUNDED", nClrLin, RGB(128,128,128))
   ::C_DISABLE  := RGB(128,128,128)

   ::lValidating:= .F.

   ::Register( nOR( CS_VREDRAW, CS_HREDRAW ) )
 
   IF oWnd # NIL
      ::oWnd:DefControl( Self )
   ENDIF

//   ::nAngle := Min(Max((Min(::nWidth,::nHeight))/1.5,6),25)

   SysRefresh()

RETURN Self

METHOD Initiate( hDlg ) CLASS TGSAY

   Super:Initiate( hDlg )

   ::nAngle := Min(Max((Min(::nWidth,::nHeight))/1.5,6),25)

   ::lTabs := ( lAnd(GetWindowLong(::hWnd,GWL_STYLE),WS_TABSTOP) .AND. (::nModo = MD_3DBOX .OR. ::nModo = MD_ROUND) )

   IF ::lTransp .OR. ::nModo = MD_ROUND
      SetWindowLong( ::hWnd, GWL_EXSTYLE, nOr( GetWindowLong( ::hWnd, GWL_EXSTYLE ), WS_EX_TRANSPARENT ) )
   ENDIF
   IF ::oFont # NIL
      ::SetFont( ::oFont )
   ELSE
      ::GetFont()
   ENDIF
   IF ::oCursor # NIL
      ::nCursor := ::oCursor:hCursor
   ENDIF
   ::nWPen   := IF(::nModo = MD_SQUARE .OR. ::nModo = MD_ROUND,::nWPen,1)
   ::hObj[1] := CreatePen( 0, ::nWPen, ::C_LINEA )
   ::hObj[2] := CreatePen( 0, 1, ::C_DISABLE )
   IF ::C_FONDO # NIL .AND. !::lTransp
      ::hObj[3] := CreateSolidBrush(::C_FONDO)
   ENDIF
   IF ::C_FOVER # NIL
      ::hObj[4] := CreateSolidBrush(::C_FOVER)
   ENDIF
   ::Default()

RETURN NIL

Application
===========
   Path and name: c:\TGSAY\TESTGSAY.exe (32 bits)
   Size: 3,498,496 bytes
   Compiler version: xHarbour 1.3.0 Intl. (SimpLex) (Build 20230914)
   FiveWin  version: FWH 19.05
   C compiler version: Borland/Embarcadero C++ 7.6 (32-bit)
   Windows version: 6.1, Build 7601 Service Pack 1

   Time from start: 0 hours 0 mins 2 secs
   Error occurred at: 08/05/2024, 10:31:25
   Error description: Error BASE/1066  Argument error: conditional
   Args:
     [   1] = U  

Stack Calls
===========
   Called from: TGSay.prg => TGSAY:PINTAR( 486 )
   Called from: TGSay.prg => TGSAY:PAINT( 424 )
   Called from: TGSay.prg => TGSAY:REPINTAR( 566 )
   Called from: TGSay.prg => TGSAY:REFRESH( 589 )
   Called from: .\source\classes\WINDOW.PRG => (b)TWINDOW:TWINDOW( 629 )
   Called from:  => TGSAY:SETBRUSH( 0 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:INITIATE( 456 )
   Called from: TGSay.prg => TGSAY:INITIATE( 313 )
   Called from:  => __OBJSENDMSG( 0 )
   Called from:  => HB_EXECFROMARRAY( 0 )
   Called from: .\source\function\HARBOUR.PRG => OSEND( 300 )
   Called from:  => HB_EXECFROMARRAY( 0 )
   Called from: .\source\function\HARBOUR.PRG => ASEND( 278 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:INITIATE( 805 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT( 1120 )
   Called from:  => DIALOGBOX( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 304 )
   Called from: TESTGSAY.prg => USANDO_RESOURCE_WORKSHOP( 448 )
   Called from: TESTGSAY.prg => (b)MAIN( 337 )
   Called from: .\source\classes\BUTTON.PRG => TBUTTONBMP:CLICK( 179 )
   Called from: .\source\classes\CONTROL.PRG => TBUTTON:HANDLEEVENT( 1755 )
   Called from: .\source\classes\BUTTONB.PRG => TBUTTONBMP:HANDLEEVENT( 261 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3546 )
   Called from:  => SENDMESSAGE( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:COMMAND( 433 )
   Called from:  => TWINDOW:HANDLEEVENT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT( 1136 )
   Called from:  => DIALOGBOXINDIRECT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 304 )
   Called from: TESTGSAY.prg => MAIN( 351 )
 

Regards, saludos.

[Antonio Linares]

Que código hay en la línea 486 ?

Called from: TGSay.prg => TGSAY:PINTAR( 486 )

En el código fuente que has compartido la línea 486 no está en el método Pintar()

[karinha]

Code: Select all  Expand view

METHOD Pintar( nClrLetra, hBrush ) CLASS TGSAY  // PINTA RECUADRO, FONDO Y LETRA (CON O SIN FOCO)
   LOCAL hOFnt,nBkMd,nTxCl
   LOCAL nOldP := SelectObject(::hDc,::hObj[1])
   LOCAL nOldB := SelectObject(::hDc,IF(::lTransp .AND. hBrush = NIL,GetStockObject(5),hBrush))
   LOCAL nSmbr := IF(::oFont:lBold,2,1)
   *
   IF !::lActive .AND. ::nModo > 0 .AND. ::nModo < 6
      SelectObject(::hDc,::hObj[2])
      Rectangle(::hDc,0,0,::nHeight,::nWidth)
   ELSEIF ::nModo = MD_SHADED
      Rectangle(::hDc,0,0,::nHeight,::nWidth)
      SelectObject(::hDc,GetStockObject(6))     // Object(6) => LAPIZ BLANCO
      MoveTo(::hDc,0,::nHeight-1)
      LineTo(::hDc,::nWidth-1,::nHeight-1)
      LineTo(::hDc,::nWidth-1,0)
   ELSEIF ::nModo = MD_RAISED
      Rectangle(::hDc,0,0,::nHeight,::nWidth)
      SelectObject(::hDc,GetStockObject(6))     // Object(6) => LAPIZ BLANCO
      MoveTo(::hDc,0,::nHeight-1)
      LineTo(::hDc,0,0)
      LineTo(::hDc,::nWidth-1,0)
   ELSEIF ::nModo = MD_BOX
      Rectangle(::hDc,1,1,::nHeight,::nWidth)
      SelectObject(::hDc,GetStockObject(6))     // Object(6) => LAPIZ BLANCO
      SelectObject(::hDc,GetStockObject(5))     // Object(5) => SIN BRUSH
      Rectangle(::hDc,0,0,::nHeight-1,::nWidth-1)
   ELSEIF ::nModo = MD_3DBOX
      SelectObject(::hDc,GetStockObject(7))     // Object(7) => LAPIZ NEGRO
      Rectangle(::hDc,0,0,::nHeight,::nWidth)
      SelectObject(::hDc,::hObj[1])
      Rectangle(::hDc,1,1,::nHeight-1,::nWidth-1)
      SelectObject(::hDc,GetStockObject(6))     // Object(6) => LAPIZ BLANCO
      MoveTo(::hDc,1,::nHeight-2)
      LineTo(::hDc,1,1)
      LineTo(::hDc,::nWidth-2,1)
   ELSEIF ::nModo = MD_SQUARE
      Rectangle(::hDc,0,0,::nHeight,::nWidth)
   ELSEIF ::nModo = MD_ROUND
      IF !::lActive
     SelectObject(::hDc,::hObj[2])
      ENDIF
      RoundRect(::hDc,0,0,::nWidth,::nHeight,::nAngle,::nAngle)
   ELSE
      SelectObject(::hDc,GetStockObject(8))     // Object(8) => SIN PEN
      Rectangle(::hDc,0,0,::nHeight+1,::nWidth+1)
   ENDIF
   *
   nBkMd := SetBkMode( ::hDc, F_TRANSP )
   hOFnt := SelectObject(::hDc,::oFont:hFont)
   IF !::lActive
      nTxCl := SetTextColor( ::hDc, IF(::lTransp,RGB(220,220,220),ACLARO(::C_FONDO,80)) )
      DrawText(  ::hDc, ::cCaption, {4,4,::nHeight-2,::nWidth-2}, ::nAlign )
      SetTextColor( ::hDc, IF(::lTransp,RGB(128,128,128),OSCURO(::C_FONDO,64)) )
      DrawText(  ::hDc, ::cCaption, {3,3,::nHeight-3,::nWidth-3}, ::nAlign )
   ELSE
      nTxCl := SetTextColor( ::hDc, nClrLetra )
      IF ::lSombra // MASTER: linea 486 AQUI
     SetTextColor( ::hDc, ::C_SOMBRA)
     DrawText(  ::hDc, ::cCaption, {4,4+nSmbr,::nHeight-2,::nWidth-2+nSmbr}, ::nAlign )
     SetTextColor( ::hDc, nClrLetra )
      ENDIF
      DrawText(  ::hDc, ::cCaption, {3,3,::nHeight-3,::nWidth-3}, ::nAlign )
   ENDIF
   SetTextColor( ::hDC, nTxCl )
   SetBkMode( ::hDc, nBkMd )
   *
   SelectObject(::hDc,hOFnt)
   SelectObject(::hDc,nOldB)
   SelectObject(::hDc,nOldP)
RETURN NIL
 

Regards, saludos.

[Antonio Linares]

Cual es la línea 486 ?

[karinha]

IF ::lSombra // MASTER: linea 486 AQUI

Envié un correo electrónico completo a su correo electrónico maestro.

Regards, saludos.