topic-46657

Board index FiveWin for Harbour/xHarbour FWH26.08 LoadBitmap error

Page: 1 2 (19 posts)

Antonio Linares

Posts: 44508

Joined: Thu Oct 06, 2005 05:47 PM

Re: FWH26.08 LoadBitmap error

Posted: Sat Aug 22, 2026 01:57 AM

Estimado Joao,

the relevant code at line 3552. The current code is:

SetWindowText( ::hWnd, Replicate( If( IsAppThemed(), Chr( 149 ), "*" ),;
Len( Trim( ::oGet:buffer ) ) ) )

Simply modify that line :idea:

regards, saludos

Antonio Linares
www.fivetechsoft.com

karinha

Posts: 8716

Joined: Tue Dec 20, 2005 07:36 PM

Re: FWH26.08 LoadBitmap error

Posted: Sat Aug 22, 2026 02:04 PM

Estimado maestro, cuando digo que no funciona, es porque ya lo he probado.

-> Error E2209 TGET.prg 4992: Unable TO open include file 'fwh.h'

Si elimino la llamada a 'fwh.h', la compilación se completa, pero el asterisco (*) no cambia y sigue apareciendo como un círculo sólido en la máscara de la contraseña. Podría ser algo de Windows 11.

Code: Select all Collapse

METHOD DispText() CLASS TGet

   if ::lPassword .AND. ::oGet:Type == "C"
      if ::IsWideChar
         IF Empty( ::GetText() )
            // firt time in get from resource
            // del:WenSheng: SetWindowText( ::hWnd, Trim( Eval( ::bSetGet ) ) )
            ::SetText( ::GetText() ) // add:WenSheng:2021.09.22:ï¿½ï¿½ï¿½ï¿½ï¿½^ï¿½Rï¿½ï¿½ï¿½Aï¿½Rï¿½ï¿½ï¿½ï¿½Ì«ï¿½@ï¿½Xï¿½ï¿½Æ¡Aï¿½|ï¿½ï¿½ï¿½sï¿½ï¿½Ü¸ï¿½ï¿½ï¿½ï¿½eï¿½×±Kï¿½Xï¿½rï¿½ï¿½
         ELSE
            // ::SetText( ::GetText() )  // del:WenSheng: ï¿½ï¿½nï¿½ï¿½ï¿½lï¿½Xï¿½Aï¿½Ë¡Aï¿½oï¿½Ë¤~ï¿½|ï¿½ï¿½ï¿½`!!
            SetWindowText( ::hWnd, Trim( Eval( ::bSetGet ) ) ) // add:WenSheng
         ENDIF
      ELSE
         SetWindowText( ::hWnd, Replicate( If( IsAppThemed(), Chr( 42 ), "*" ),;  // NO FUNCIONA.
            Len( Trim( ::oGet:buffer ) ) ) )
      ENDIF
   ELSE
      /*
      if ::lLimitChars
      // ::SetText( Trim( ::GetText() ) )
         ::SetText( Trim( ::oGet:buffer ) ) // fix 2016-07-07
      */
      if ::IsWideChar()
         ::SetText( If( Empty( ::oGet:buffer ), "", ::oGet:buffer ) )
      ELSE
         if ::nCase == CASE_PROPER
            ::oGet:buffer := FW_ProperCase( ::oGet:buffer )
         ENDIF
         SetWindowText( ::hWnd, If( ! Empty( ::cCueText );
            .AND. Empty( ::oGet:VarGet() );
            .AND. GetFocus() != ::hWnd, ;  // Focus is outside
         "", ::oGet:buffer ) )
      ENDIF
   ENDIF

RETURN nil

Regards, saludos.

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

karinha

Posts: 8716

Joined: Tue Dec 20, 2005 07:36 PM

Re: FWH26.08 LoadBitmap error

Posted: Sat Aug 22, 2026 03:22 PM

Estimado Maestro, mira:

Code: Select all Collapse

METHOD DispText() CLASS TGet

   if ::lPassword .AND. ::oGet:Type == "C"

  if ::IsWideChar

     IF Empty( ::GetText() )

        // firt time in get from resource
        // del:WenSheng: SetWindowText( ::hWnd, Trim( Eval( ::bSetGet ) ) )
        ::SetText( ::GetText() ) // add:WenSheng:2021.09.22:ï¿½ï¿½ï¿½ï¿½ï¿½^ï¿½Rï¿½ï¿½ï¿½Aï¿½Rï¿½ï¿½ï¿½ï¿½Ì«ï¿½@ï¿½Xï¿½ï¿½Æ¡Aï¿½|ï¿½ï¿½ï¿½sï¿½ï¿½Ü¸ï¿½ï¿½ï¿½ï¿½eï¿½×±Kï¿½Xï¿½rï¿½ï¿½

        ? "¿Entró? 1? " // -> YES, 4 X

     ELSE // ALGO ERRADO AQUI

        // ::SetText( ::GetText() )  // del:WenSheng: ï¿½ï¿½nï¿½ï¿½ï¿½lï¿½Xï¿½Aï¿½Ë¡Aï¿½oï¿½Ë¤~ï¿½|ï¿½ï¿½ï¿½`!!
        SetWindowText( ::hWnd, Trim( Eval( ::bSetGet ) ) ) // add:WenSheng

        ? "¿Entró? 2? " // Entra en bucle(looping) y nunca sale.

     ENDIF

  ELSE

     SetWindowText( ::hWnd, Replicate( If( IsAppThemed(), Chr( 149 ), "*" ),;
        Len( Trim( ::oGet:buffer ) ) ) )

        ? "¿Entró? 3? "  // NO ENTRA NUNCA ???

  ENDIF

   ELSE

  /*
  if ::lLimitChars
  // ::SetText( Trim( ::GetText() ) )
     ::SetText( Trim( ::oGet:buffer ) ) // fix 2016-07-07
  */
  if ::IsWideChar()
     ::SetText( If( Empty( ::oGet:buffer ), "", ::oGet:buffer ) )
  ELSE
     if ::nCase == CASE_PROPER
        ::oGet:buffer := FW_ProperCase( ::oGet:buffer )
     ENDIF
     SetWindowText( ::hWnd, If( ! Empty( ::cCueText ) ;
        .AND. Empty( ::oGet:VarGet() )                ;
        .AND. GetFocus() != ::hWnd, ;  // Focus is outside
        "", ::oGet:buffer ) )
  ENDIF
   ENDIF

RETURN nil

Regards, saludos.

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

betoncu

Posts: 137

Joined: Sat Oct 08, 2005 09:38 PM

Re: FWH26.08 LoadBitmap error

Posted: Sun Aug 30, 2026 12:59 PM

Birol Betoncu
birol.betoncu@gmail.com
Using Harbour, FWH 26.08, BCC77

Page: 1 2 (19 posts)

FiveTech Support Forums

Re: FWH26.08 LoadBitmap error

Re: FWH26.08 LoadBitmap error

Re: FWH26.08 LoadBitmap error

Re: FWH26.08 LoadBitmap error

Continue the discussion