FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin for Harbour/xHarbour Get...bitmap..action
Silvio.Falconi
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Get...bitmap..action
Posted: Fri Oct 29, 2021 09:34 AM




is it possible to display the button only when the user enters a text in the get?
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Silvio.Falconi
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Re: Get...bitmap..action
Posted: Mon Nov 01, 2021 08:47 PM

SOLUTION ?

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Get...bitmap..action
Posted: Mon Nov 01, 2021 10:18 PM

Try with Hide() and Show(). Fire a GET ACTION with lCondition.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Get...bitmap..action
Posted: Mon Nov 01, 2021 11:19 PM
Mira se és esto:

Code (fw): Select all Collapse
// -> \SAMPLES\GETACTIO.PRG - 01/11/2021 - <!-- e --><a href="mailto:kapiabafwh@gmail.com">kapiabafwh@gmail.com</a><!-- e -->

#Include "FiveWin.ch"

STATIC lLookButton := .F.

FUNCTION Main()

   LOCAL oDlg, oGrabar, oSalida, oFont, oFnt, nKey := VK_RETURN
   LOCAL oGet1, oGet2, oGet3, oGet4
   LOCAL cVar1, cVar2, cVar3, cVar4
   LOCAL lActive := .f.
   
   cVar1 := "Grabar        "
   cVar2 := 0
   cVar3 := 0
   cVar4 := 0

   SkinButtons()

   SetGetColorFocus( CLR_GREEN )

   DEFINE FONT oFont  NAME "Ms Sans Serif"  SIZE 00, -14 BOLD
   DEFINE FONT oFnt   NAME "Ms Sans Serif"  SIZE 00, -12 BOLD
   
   DEFINE DIALOG oDlg TITLE "Silvio: GET Action" PIXEL SIZE 300, 300         ;
      COLORS CLR_BLACK, CLR_WHITE TRANSPARENT

   oDlg:lHelpIcon := .F.

   IF Set( _SET_INSERT, ! Set( _SET_INSERT ) )
      Set( _SET_INSERT, ! Set( _SET_INSERT ) )
   ENDIF

   @ 10,10 GET oGet1 VAR cVar1 bitmap "..\bitmaps\on.bmp" OF oDlg ;
      PIXEL SIZE 60,12                                            ;
      VALID( SHOW_GET_SILVIO( cVar1, oGrabar ) )

   oGet1:cToolTip := "Hide() .And. Show() For Silvio Falconi"

   oGet1:lBtnTransparent := .T.       // transparent button get oGet1
   oGet1:lAdjustBtn      := .T.       // Button Get Adjust

   @ 40,10 GET oGet2 VAR cVar2 bitmap "..\bitmaps\on.bmp" ;
      ACTION( MsgInfo( "Without Transparent" ) ) OF oDlg PIXEL SIZE 60,12

   @ 70,10 GET oGet3 VAR cVar3 bitmap "..\bitmaps\chkyes.bmp" ;
      ACTION( MsgInfo( "With Adjust-Transparent" ) ) OF oDlg PIXEL SIZE 120, 12

   oGet3:lBtnTransparent := .T.       // transparent button get oGet3
   oGet3:lAdjustBtn      := .T.       // Button Get Adjust Witdh oGet3

   @ 100,10 GET oGet4 VAR cVar4 bitmap "..\bitmaps\chkyes.bmp" ;
   ACTION( if( lActive,oGet3:disable(),oGet3:enable()), lActive:= !lActive, oDlg:update() ) OF oDlg PIXEL SIZE 120,12
   
   oGet4:lAdjustBtn      := .T.

   @ 130, 20 BUTTON oGrabar PROMPT "&Grabar" SIZE 50, 12 OF oDlg PIXEL       ;
      ACTION( GRABAR_SILVIO( oGrabar ) )

   @ 130, 80 BUTTON oSalida PROMPT "&Salida" SIZE 50, 12 OF oDlg PIXEL       ;
      ACTION( oDlg:End() ) CANCEL

   SET FONT OF oGrabar TO oFont
   SET FONT OF oSalida TO oFont
   
   ACTIVATE DIALOG oDlg CENTERED ON INIT( oGrabar:Hide() )

   IF Set( _SET_INSERT, ! Set( _SET_INSERT ) )
      Set( _SET_INSERT, ! Set( _SET_INSERT ) )
   ENDIF

RETURN NIL

FUNCTION SHOW_GET_SILVIO( cCVar1, oGrabar )

   IF( cCVar1 ) = "GRABAR" .OR. ;
     ( cCVar1 ) = "Grabar" .OR. ;
     ( cCVar1 ) = "grabar"

     oGrabar:Show()

   ENDIF

RETURN( .T. )
   
FUNCTION GRABAR_SILVIO( oGrabar )

   oGrabar:Hide()

   //..., etc.

RETURN NIL

// fin / end
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Get...bitmap..action
Posted: Mon Nov 01, 2021 11:58 PM
Ahora con ACTION en BitMap.

Code (fw): Select all Collapse
// -> \SAMPLES\GETACTIO.PRG - 01/11/2021 - <!-- e --><a href="mailto:kapiabafwh@gmail.com">kapiabafwh@gmail.com</a><!-- e -->

#Include "FiveWin.ch"

STATIC lLookButton := .F.

FUNCTION Main()

   LOCAL oDlg, oGrabar, oSalida, oFont, oFnt, nKey := VK_RETURN
   LOCAL oGet1, oGet2, oGet3, oGet4
   LOCAL cVar1, cVar2, cVar3, cVar4
   LOCAL lActive := .f.
   
   cVar1 := "Grabar        "
   cVar2 := 0
   cVar3 := 0
   cVar4 := 0

   SkinButtons()

   SetGetColorFocus( CLR_GREEN )

   DEFINE FONT oFont  NAME "Ms Sans Serif"  SIZE 00, -14 BOLD
   DEFINE FONT oFnt   NAME "Ms Sans Serif"  SIZE 00, -12 BOLD
   
   DEFINE DIALOG oDlg TITLE "Silvio: GET Action" PIXEL SIZE 300, 300         ;
      COLORS CLR_BLACK, CLR_WHITE TRANSPARENT

   oDlg:lHelpIcon := .F.

   IF Set( _SET_INSERT, ! Set( _SET_INSERT ) )
      Set( _SET_INSERT, ! Set( _SET_INSERT ) )
   ENDIF

   @ 10,10 GET oGet1 VAR cVar1 bitmap "..\bitmaps\on.bmp" OF oDlg ;
      PIXEL SIZE 60,12                                            ;
      ACTION( SHOW_GET_SILVIO( cVar1, oGrabar ) )                 ;
      VALID( SHOW_GET_SILVIO( cVar1, oGrabar ) )

   oGet1:cToolTip := "Hide() .And. Show() For Silvio Falconi"

   oGet1:lBtnTransparent := .T.       // transparent button get oGet1
   oGet1:lAdjustBtn      := .T.       // Button Get Adjust

   // <F7> action in GET
   oGet1:bKeyDown := { |nKey| IF( nKey == VK_F7, Eval( oGet1:bAction ), Nil ) }

   @ 40,10 GET oGet2 VAR cVar2 bitmap "..\bitmaps\on.bmp" ;
      ACTION( MsgInfo( "Without Transparent" ) ) OF oDlg PIXEL SIZE 60,12

   @ 70,10 GET oGet3 VAR cVar3 bitmap "..\bitmaps\chkyes.bmp" ;
      ACTION( MsgInfo( "With Adjust-Transparent" ) ) OF oDlg PIXEL SIZE 120, 12

   oGet3:lBtnTransparent := .T.       // transparent button get oGet3
   oGet3:lAdjustBtn      := .T.       // Button Get Adjust Witdh oGet3

   @ 100,10 GET oGet4 VAR cVar4 bitmap "..\bitmaps\chkyes.bmp" ;
   ACTION( if( lActive,oGet3:disable(),oGet3:enable()), lActive:= !lActive, oDlg:update() ) OF oDlg PIXEL SIZE 120,12
   
   oGet4:lAdjustBtn      := .T.

   @ 130, 20 BUTTON oGrabar PROMPT "&Grabar" SIZE 50, 12 OF oDlg PIXEL       ;
      ACTION( GRABAR_SILVIO( oGrabar ) )

   @ 130, 80 BUTTON oSalida PROMPT "&Salida" SIZE 50, 12 OF oDlg PIXEL       ;
      ACTION( oDlg:End() ) CANCEL

   SET FONT OF oGrabar TO oFont
   SET FONT OF oSalida TO oFont
   
   ACTIVATE DIALOG oDlg CENTERED ON INIT( oGrabar:Hide() )

   IF Set( _SET_INSERT, ! Set( _SET_INSERT ) )
      Set( _SET_INSERT, ! Set( _SET_INSERT ) )
   ENDIF

RETURN NIL

FUNCTION SHOW_GET_SILVIO( cCVar1, oGrabar )

   IF( cCVar1 ) = "GRABAR" .OR. ;
     ( cCVar1 ) = "Grabar" .OR. ;
     ( cCVar1 ) = "grabar"

     oGrabar:Show()

   ENDIF

RETURN( .T. )
   
FUNCTION GRABAR_SILVIO( oGrabar )

   oGrabar:Hide()

   //..., etc.

RETURN NIL

// fin / end
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Silvio.Falconi
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Re: Get...bitmap..action
Posted: Tue Nov 02, 2021 10:20 AM
karinha wrote:Ahora con ACTION en BitMap.

Code (fw): Select all Collapse
// -> \SAMPLES\GETACTIO.PRG - 01/11/2021 - <!-- e --><a href="mailto:kapiabafwh@gmail.com">kapiabafwh@gmail.com</a><!-- e -->

#Include "FiveWin.ch"

STATIC lLookButton := .F.

FUNCTION Main()

   LOCAL oDlg, oGrabar, oSalida, oFont, oFnt, nKey := VK_RETURN
   LOCAL oGet1, oGet2, oGet3, oGet4
   LOCAL cVar1, cVar2, cVar3, cVar4
   LOCAL lActive := .f.
   
   cVar1 := "Grabar        "
   cVar2 := 0
   cVar3 := 0
   cVar4 := 0

   SkinButtons()

   SetGetColorFocus( CLR_GREEN )

   DEFINE FONT oFont  NAME "Ms Sans Serif"  SIZE 00, -14 BOLD
   DEFINE FONT oFnt   NAME "Ms Sans Serif"  SIZE 00, -12 BOLD
   
   DEFINE DIALOG oDlg TITLE "Silvio: GET Action" PIXEL SIZE 300, 300         ;
      COLORS CLR_BLACK, CLR_WHITE TRANSPARENT

   oDlg:lHelpIcon := .F.

   IF Set( _SET_INSERT, ! Set( _SET_INSERT ) )
      Set( _SET_INSERT, ! Set( _SET_INSERT ) )
   ENDIF

   @ 10,10 GET oGet1 VAR cVar1 bitmap "..\bitmaps\on.bmp" OF oDlg ;
      PIXEL SIZE 60,12                                            ;
      ACTION( SHOW_GET_SILVIO( cVar1, oGrabar ) )                 ;
      VALID( SHOW_GET_SILVIO( cVar1, oGrabar ) )

   oGet1:cToolTip := "Hide() .And. Show() For Silvio Falconi"

   oGet1:lBtnTransparent := .T.       // transparent button get oGet1
   oGet1:lAdjustBtn      := .T.       // Button Get Adjust

   // <F7> action in GET
   oGet1:bKeyDown := { |nKey| IF( nKey == VK_F7, Eval( oGet1:bAction ), Nil ) }

   @ 40,10 GET oGet2 VAR cVar2 bitmap "..\bitmaps\on.bmp" ;
      ACTION( MsgInfo( "Without Transparent" ) ) OF oDlg PIXEL SIZE 60,12

   @ 70,10 GET oGet3 VAR cVar3 bitmap "..\bitmaps\chkyes.bmp" ;
      ACTION( MsgInfo( "With Adjust-Transparent" ) ) OF oDlg PIXEL SIZE 120, 12

   oGet3:lBtnTransparent := .T.       // transparent button get oGet3
   oGet3:lAdjustBtn      := .T.       // Button Get Adjust Witdh oGet3

   @ 100,10 GET oGet4 VAR cVar4 bitmap "..\bitmaps\chkyes.bmp" ;
   ACTION( if( lActive,oGet3:disable(),oGet3:enable()), lActive:= !lActive, oDlg:update() ) OF oDlg PIXEL SIZE 120,12
   
   oGet4:lAdjustBtn      := .T.

   @ 130, 20 BUTTON oGrabar PROMPT "&Grabar" SIZE 50, 12 OF oDlg PIXEL       ;
      ACTION( GRABAR_SILVIO( oGrabar ) )

   @ 130, 80 BUTTON oSalida PROMPT "&Salida" SIZE 50, 12 OF oDlg PIXEL       ;
      ACTION( oDlg:End() ) CANCEL

   SET FONT OF oGrabar TO oFont
   SET FONT OF oSalida TO oFont
   
   ACTIVATE DIALOG oDlg CENTERED ON INIT( oGrabar:Hide() )

   IF Set( _SET_INSERT, ! Set( _SET_INSERT ) )
      Set( _SET_INSERT, ! Set( _SET_INSERT ) )
   ENDIF

RETURN NIL

FUNCTION SHOW_GET_SILVIO( cCVar1, oGrabar )

   IF( cCVar1 ) = "GRABAR" .OR. ;
     ( cCVar1 ) = "Grabar" .OR. ;
     ( cCVar1 ) = "grabar"

     oGrabar:Show()

   ENDIF

RETURN( .T. )
   
FUNCTION GRABAR_SILVIO( oGrabar )

   oGrabar:Hide()

   //..., etc.

RETURN NIL

// fin / end




for a get all this source codes ?
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Get...bitmap..action
Posted: Tue Nov 02, 2021 01:20 PM

It was not clear the question in the google translator.

You want the same thing using RESOURCES, is that it?

I didn't understand the question, explain it better. If possible in Spanish or Portuguese.

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

Continue the discussion

Static archive · New replies & topics via GitHub Discussions