FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Consulta FOLDEREX
Posts: 719
Joined: Fri May 12, 2017 02:50 PM
Consulta FOLDEREX
Posted: Tue Sep 06, 2022 03:26 PM
Buen d铆a amigos.

Tengo un Folderex con 4 Paginas, pero la barra de botones de Footer, necesito que se pueda desactivar, no mostrar el la pagina 4 cuando esta tome el Focus, que solo sea com煤n para las paginas del 1 al 3.

Muchos saludos.

Antonio.

C贸digo Definici贸n de Folderex:
Code (fw): Select all Collapse
聽 聽聽DEFINE DIALOG oDlg SIZE 1230,640 PIXEL TRUEPIXEL FONT oFont6 STYLE nOr( WS_POPUP, WS_VISIBLE, WS_DLGFRAME )
聽 聽 聽聽 聽聽 聽 oDlg:lTransparent := .F.

聽 聽@ 05, 05 FOLDEREX oFld SIZE 1220,568 OF oDlg PIXEL ROUND 5 ;
聽 聽 聽PROMPT 聽"&FIC. MEDICA", "Evaluaci贸n &1er Parte", "Evaluaci贸n &2da Parte" , "&Administraci贸n";
聽 聽 聽 聽 TAB HEIGHT 40 聽 FONT oFont8

聽 聽 聽 聽 聽 oFld:aDialogs[1]:lTransparent 聽 := .F.
聽 聽 聽聽 聽聽 聽 oFld:aDialogs[2]:lTransparent 聽 := .F.
聽 聽 聽聽 聽聽 聽 oFld:aDialogs[3]:lTransparent 聽 := .F.
聽 聽 聽聽 聽聽 聽 oFld:aDialogs[4]:lTransparent 聽 := .F.


C贸digo barra de Botones Footer:
Code (fw): Select all Collapse
********** BARRA DE FOOTER ********************
聽 聽 聽@ 575,20 GROUP oGroup6 聽TO 635,750 PIXEL OF oDlg 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽// 615 - 555 = 60

聽 聽 聽@ 585,200 BTNBMP 聽SIZE 55,50 PROMPT "BUSCAR" OF oDlg 2007 Resource "#8044" FONT oFont6 oGroup FLAT;
聽 聽聽聽 聽 聽 聽 聽 聽 聽 聽 ToolTip "BUSCAR EVALUACIONES ANTERIORES"
聽//聽聽 聽 聽 聽 聽 聽 聽 聽 聽聽 聽ACTION Busca_Evalua()

聽 聽 聽@ 585,330 BTNBMP 聽SIZE 55,50 PROMPT "GRABA" OF oDlg 2007 Resource "#8029" FONT oFont6 oGroup FLAT;
聽 聽聽聽 聽 聽 聽 聽 聽 聽 聽 ToolTip "GRABA DATOS"
聽//聽聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 ACTION IF(!Graba_Agrega_Eva(),(MsgStop(Mensa),.F.),.t.)

聽 聽 聽@ 585,500 BTNBMP oBtn3 聽SIZE 55,47 PROMPT "VOLVER" 聽OF oDlg PIXEL 2007 Resource "#8053" 聽FONT oFont6 oGroup FLAT;
聽 聽聽聽 聽 聽 聽 聽 聽 聽 聽 ToolTip 聽"VOLVER A MENU ANTERIOR";
聽 聽聽 聽 聽聽 聽 聽 聽 聽 聽 ACTION oDlg:End()
聽 聽聽// 聽聽 聽 聽 聽 聽 聽 ACTION IF(!Aviso_Salir(),(.f.,.F.),oDlg:End())

聽 聽 聽@ 585,40 BTNBMP 聽SIZE 70,48 PROMPT "VER RECETA" OF oDlg 2007 Resource "#8044" FONT oFont6 oGroup FLAT;
聽 聽聽聽 聽 聽 聽 聽 聽 聽 聽 ToolTip "VER RECETA DE APLICACION"
//聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 ACTION 聽聽 聽 聽 聽 聽 聽 Muestra_Receta()
FWH 22.10 - HARBOUR - PELLES C
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: Consulta FOLDEREX
Posted: Tue Sep 06, 2022 05:29 PM

Saludos, intenta con

WHEN oFldx:nOption <> 4

saludos, gracias... :shock:

Dios no est谩 muerto...



Gracias a mi Dios ante todo!
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Consulta FOLDEREX
Posted: Tue Sep 06, 2022 05:34 PM
Antonio, explica mejor ahora, porfa:

Code (fw): Select all Collapse
// C:\FWH..\SAMPLES\REMTEC4.PRG - <!-- e --><a href="mailto:kapiabafwh@gmail.com">kapiabafwh@gmail.com</a><!-- e -->

#include "FiveWin.ch"

STATIC oDlg, oFld

FUNCTION Main()

   LOCAL oFont, oFnt, oGroup, oGroup6, oBtn1, oBtn2, oBtn3, oBtn4

   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 SIZE 995, 640 PIXEL TRUEPIXEL FONT oFont ;
      STYLE nOr( WS_POPUP, WS_VISIBLE, WS_DLGFRAME )           ;
      COLORS CLR_BLACK, CLR_WHITE TRANSPARENT

   oDlg:lHelpIcon := .F.

   @ 05, 05 FOLDEREX oFld SIZE 1220, 568 OF oDlg PIXEL ROUND 5 ;
      PROMPT "&FIC. MEDICA",          "Evaluaci贸n &1er Parte", ;
             "Evaluaci贸n &2da Parte", "&Administraci贸n"        ;
      TAB HEIGHT 40 FONT oFont COLOR CLR_WHITE TOP

   oFld:SetOption( 1 )
   oFld:aEnable = { .T., .T., .T., .T. }
   oFld:Show()

   ********** BARRA DE FOOTER ********************
   @ 570, 30 GROUP oGroup6 TO 640, 600 PIXEL OF oDlg LABEL "Botones"        ;
      COLOR CLR_BLACK, CLR_HCYAN

   @ 587,40 BTNBMP oBtn1 SIZE 70,48 PROMPT "&Ver Receta" OF oDlg PIXEL 2007 ;
      Resource "#8044" FONT oFnt oGroup FLAT                                ;
      ToolTip "VER RECETA DE APLICACION"                                    ;
      ACTION Muestra_Receta( oFld )

   @ 587,200 BTNBMP oBtn2 SIZE 55,50 PROMPT "&Buscar" OF oDlg PIXEL 2007    ;
      Resource "#8044" FONT oFnt oGroup FLAT                                ;
      ToolTip "BUSCAR EVALUACIONES ANTERIORES"

   //                   ACTION Busca_Evalua()

   @ 587,330 BTNBMP oBtn3 SIZE 55,50 PROMPT "&Grabar" OF oDlg PIXEL 2007    ;
      Resource "#8029" FONT oFnt oGroup FLAT                                ;
      ToolTip "GRABA DATOS"                                                 ;
      ACTION Graba_Agrega_Eva( oFld )

   @ 587,500 BTNBMP oBtn4 SIZE 55,47 PROMPT "&Salida" OF oDlg PIXEL 2007    ;
      Resource "#8053"  FONT oFnt oGroup FLAT                               ;
      ToolTip  "VOLVER A MENU ANTERIOR"                                     ;
      ACTION( oDlg:End() )

   oBtn4:lCancel := .T.  // CANCEL del button

   ACTIVATE DIALOG oDlg CENTERED

   oFont:End()
   oFnt:End()

RETURN NIL

FUNCTION Muestra_Receta( oFld )

   oFld:aEnable = { .T., .T., .T., .F. }
   oFld:Refresh()

RETURN( .T. )

FUNCTION Graba_Agrega_Eva( oFld )

   MsgInfo( "Grabaci贸n exitosa", "Grabaci贸n exitosa" )

   oFld:aEnable = { .T., .T., .T., .T. }
   oFld:Refresh()

RETURN( .T. )

/*
//   ON INIT( oBtn1:Hide(), oBtn2:Hide(), oBtn3:Hide(), oBtn4:Hide() )
//   ACTION( oBtn1:Show(), oBtn2:Show(), oBtn3:Show(), oBtn4:Show() )
*/

// FIN


Regards, saludos.
Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Consulta FOLDEREX
Posted: Tue Sep 06, 2022 05:47 PM
Mejorias:

Code (fw): Select all Collapse
// C:\FWH..\SAMPLES\REMTEC4.PRG - <!-- e --><a href="mailto:kapiabafwh@gmail.com">kapiabafwh@gmail.com</a><!-- e -->

#include "FiveWin.ch"

STATIC oDlg, oFld

FUNCTION Main()

   LOCAL oFont, oFnt, oGroup, oGroup6, oBtn1, oBtn2, oBtn3, oBtn4

   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 SIZE 995, 640 PIXEL TRUEPIXEL FONT oFont ;
      STYLE nOr( WS_POPUP, WS_VISIBLE, WS_DLGFRAME )           ;
      COLORS CLR_BLACK, CLR_WHITE TRANSPARENT

   oDlg:lHelpIcon := .F.

   @ 05, 05 FOLDEREX oFld SIZE 1220, 568 OF oDlg PIXEL ROUND 5 ;
      PROMPT "&FIC. MEDICA",          "Evaluaci贸n &1er Parte", ;
             "Evaluaci贸n &2da Parte", "&Administraci贸n"        ;
      TAB HEIGHT 40 FONT oFont COLOR CLR_WHITE TOP

   oFld:SetOption( 1 )
   oFld:aEnable = { .T., .T., .T., .T. }
   oFld:Show()

   ********** BARRA DE FOOTER ********************
   @ 570, 30 GROUP oGroup6 TO 640, 600 PIXEL OF oDlg LABEL "Botones"        ;
      COLOR CLR_BLACK, CLR_HCYAN

   @ 587,40 BTNBMP oBtn1 SIZE 70,48 PROMPT "&Ver Receta" OF oDlg PIXEL 2007 ;
      Resource "#8044" FONT oFnt oGroup FLAT                                ;
      ToolTip "VER RECETA DE APLICACION"                                    ;
      ACTION Muestra_Receta( oFld, oBtn4 )

   @ 587,200 BTNBMP oBtn2 SIZE 55,50 PROMPT "&Buscar" OF oDlg PIXEL 2007    ;
      Resource "#8044" FONT oFnt oGroup FLAT                                ;
      ToolTip "BUSCAR EVALUACIONES ANTERIORES"

   //                   ACTION Busca_Evalua()

   @ 587,330 BTNBMP oBtn3 SIZE 55,50 PROMPT "&Grabar" OF oDlg PIXEL 2007    ;
      Resource "#8029" FONT oFnt oGroup FLAT                                ;
      ToolTip "GRABA DATOS"                                                 ;
      ACTION Graba_Agrega_Eva( oFld, oBtn4 )

   @ 587,500 BTNBMP oBtn4 SIZE 55,47 PROMPT "&Salida" OF oDlg PIXEL 2007    ;
      Resource "#8053"  FONT oFnt oGroup FLAT                               ;
      ToolTip  "VOLVER A MENU ANTERIOR"                                     ;
      ACTION( oDlg:End() )

   oBtn4:lCancel := .T.  // CANCEL del button

   ACTIVATE DIALOG oDlg CENTERED

   oFont:End()
   oFnt:End()

RETURN NIL

FUNCTION Muestra_Receta( oFld, oBtn4 )

   oFld:aEnable = { .T., .T., .T., .F. }
   oFld:Refresh()

   oBtn4:Hide()
   oBtn4:Refresh()

RETURN( .T. )

FUNCTION Graba_Agrega_Eva( oFld, oBtn4 )

   MsgInfo( "Grabaci贸n exitosa", "Grabaci贸n exitosa" )

   oFld:aEnable = { .T., .T., .T., .T. }
   oFld:Refresh()

   oBtn4:Show()
   oBtn4:Refresh()

RETURN( .T. )

/*
//   ON INIT( oBtn1:Hide(), oBtn2:Hide(), oBtn3:Hide(), oBtn4:Hide() )
//   ACTION( oBtn1:Show(), oBtn2:Show(), oBtn3:Show(), oBtn4:Show() )
*/

// FIN


Regards, saludos.
Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341

Continue the discussion