clausole When...Hide a size of Dialog - strange - RESOLVED

[Silvio.Falconi]

If I insert the "When" the procedure hide the dialog ...


before ( without when=2 )



After with when =2




@ 130, 15 CHECKBOX aGet[3] VAR lCheck_HeaderExcel Prompt "Includi intestazioni" ;
OF oDlg SIZE 80, 10 PIXEL FONT oFont When nRadio=2


it is really strange that the procedure hides a button and part of the dialog

[karinha]

Can you post a small example?

¿Puedes publicar un pequeño ejemplo?

Regards, saludos.

[Silvio.Falconi]

Can you post a small example?

¿Puedes publicar un pequeño ejemplo?

Regards, saludos.

here ( make the same also on win 10 ( this morning I had windowSeven )

Code: Select all  Expand view

#include "fivewin.ch"
#include "constant.ch"


#define MEM_FILE "test.ini"

FUNCTION Main()


   RddSetDefault( "DBFCDX" )

   SetHandleCount( 100 )

   SET DATE FORMAT "dd-mm-yyyy"
   SET DELETED     ON
   SET CENTURY     ON
   SET EPOCH TO    year( date() ) - 20
   SET MULTIPLE    OFF


      test()

      RETURN nil


Function Test()
local oDlg,cTitle:="Salva"

local nBottom   := 25
local nRight    := 55
local nWidth :=  Max( nRight * DLG_CHARPIX_W, 180 )
local nHeight := nBottom * DLG_CHARPIX_H

local cIniFile  :=  cFilePath( GetModuleFileName( GetInstance() ) ) + MEM_FILE
local cSection:="HTML"

local oRad
local nRadio:=1
local oFont,oBold
local oBtnConfirm,oBtnClose

local aGet:=array(3)
local oGrp:=array(2)
local oSay[10]
local lCheck_HeaderExcel:=.f.



local cTitulo1:= "Estrazioni"
local cTitulo2:= space(30)



    DEFINE FONT oFont NAME "MS Sans Serif" SIZE 0, 12
    DEFINE FONT oBold NAME "MS Sans Serif" SIZE 0, 12 BOLD



      DEFINE DIALOG  oDlg ;
      SIZE nWidth, nHeight  PIXEL  ;
      TITLE cTitle ;
      COLOR CLR_BLACK,CLR_WHITE  TRANSPARENT


      @ 12, 05 Say "Finestra: " of oDlg SIZE 50,14 PIXEL  FONT oBold
      @ 10, 55 GET aGet[1] VAR cTitulo1 of oDlg SIZE 150,14 PIXEL
      @ 28, 05 Say "Scheda: " of oDlg SIZE 50,14 PIXEL  FONT oBold
      @ 26, 55 GET aGet[2] VAR cTitulo2 of oDlg SIZE 150,14 PIXEL

      @ 40, 05 RADIO oRad VAR nRadio PIXEL ;
             ITEMS "&Salva su Pagina Web" _3D SIZE 80, 18 ;
             ON CHANGE MsgBeep()

      @ 58, 10 GROUP oGrp[1]  TO 100, 215  OF  oDlg  PIXEL TRANSPARENT





      @ 110, 05 RADIOITEM "Salva come Foglio Excel" RADIOMENU oRad OF oDlg SIZE 80, 14 PIXEL
      @ 125, 10 GROUP oGrp[2]  TO 160, 215  OF  oDlg  PIXEL TRANSPARENT

      @ 130, 15 CHECKBOX aGet[3] VAR lCheck_HeaderExcel Prompt "Includi intestazioni" ;
                OF oDlg SIZE 80, 10 PIXEL FONT oFont  When nRadio=2
        *  ON CHANGE


         @ 100,10 BUTTON oBtnConfirm PROMPT "Salva" of oDlg;
           SIZE 45,15 DEFAULT ACTION ( oDlg:end( IDOK  ) )
         @ 100,10 BUTTON oBtnClose PROMPT "Annulla" of oDlg;
           SIZE 45,15 CANCEL ACTION ( oDlg:end( IDCANCEL ) )


        oDlg:bResized  := <||
        local oRect        := oDlg:GetCliRect()
                oBtnConfirm:nTop   := oRect:nBottom - 40
                oBtnConfirm:nLeft  := oRect:nRight - 210
                oBtnClose:nTop     := oRect:nBottom - 40
                oBtnClose:nLeft    := oRect:nRight - 110
        return nil
        >


        ACTIVATE DIALOG oDlg CENTER ;
          ON INIT eval(oDlg:bResized)
      IF  oDlg:nresult == IDOK
      //save
      ENDIf

Return nil
 

[Detlef]

Hi Silvio,

for me your sample is working fine. No missing elements if ' WHEN nRadio=2'.
The checkbox is properly enabled if I press the radio button 2 and also disabled when I press radio button 1.
I use Windows 10 and FWH 22.6

Regards, Detlef

[karinha]

Dear Silvio, here apparently it works very well. Test this version, and report if it doesn't work.

Estimado Silvio, aquí aparentemente funciona muy bien. Pruebe esta versión e informe si no funciona.

If I don't understand something, please explain in more detail.

Si no entiendo algo, por favor explíquelo con más detalle.

Code: Select all  Expand view

// C:\FWH..\SAMPLES\RADSILV.PRG - Cambiado en: 10/10/2022

#Include "FiveWin.ch"
// 'DLG_CHARPIX_W'
// 'DLG_CHARPIX_H'
#include "constant.ch"

#Define MEM_FILE "test.ini"

FUNCTION Main()

   // RddSetDefault( "DBFCDX" )

   // SetHandleCount( 100 )  // CLIPPER 16 Bits.

   // SET DATE FORMAT "dd-mm-yyyy"
   SET CENTURY ON
   SET DATE BRITISH
   SET TIME FORMAT TO "HH:MM:SS"
   SET EPOCH TO YEAR( DATE() ) - 30
   SET SOFTSEEK OFF
   SET WRAP ON
   SETCANCEL( .F. )
   SET CONFIRM OFF
   SET DELETED ON
   SET _3DLOOK ON
   SET UNIQUE OFF
   SET ESCAPE OFF
   SET EXACT ON  // CONTROLA O :=, = e ==
   SET EXCLUSIVE OFF
   SET MULTIPLE OFF

   Test()

RETURN NIL

FUNCTION Test()

   LOCAL nDTxtColor := 192
   LOCAL nBottom    := 25
   LOCAL nRight     := 55
   LOCAL nWidth     := MAX( nRight * DLG_CHARPIX_W, 180 )
   LOCAL nHeight    := nBottom * DLG_CHARPIX_H
   LOCAL cIniFile   := cFilePath( GetModuleFileName( GetInstance() ) ) + MEM_FILE
   LOCAL cSection   := "HTML"
   LOCAL aGet       := ARRAY( 3 )
   LOCAL oGrp       := ARRAY( 2 )
   LOCAL oSay[10]
   LOCAL lCheck_HeaderExcel := .F.
   LOCAL cTitulo1 := "Estrazioni", cTitle := "Salva"
   LOCAL cTitulo2 := SPACE( 30 )
   LOCAL oRad, nRadio, oFont, oBold, oBtnConfirm, oBtnClose, oDlg

   DEFINE FONT oFont NAME "MS Sans Serif" SIZE 00, -12 BOLD
   DEFINE FONT oBold NAME "MS Sans Serif" SIZE 00, -14 BOLD

   DEFINE DIALOG oDlg SIZE nWidth, nHeight PIXEL TITLE cTitle ;
      COLOR CLR_BLACK, CLR_WHITE TRANSPARENT FONT oBold

   oDlg:lHelpIcon := .F.

   @ 12, 05 SAY "Finestra: " of oDlg SIZE 50, 14 PIXEL FONT oBold UPDATE

   @ 10, 55 GET aGet[1] VAR cTitulo1 of oDlg SIZE 150, 14 PIXEL

   @ 28, 05 SAY "Scheda: " of oDlg SIZE 50, 14 PIXEL  FONT oBold

   @ 26, 55 GET aGet[2] VAR cTitulo2 of oDlg SIZE 150, 14 PIXEL

   @ 40, 05 RADIO oRad VAR nRadio SIZE 130, 14 PIXEL UPDATE              ;
      ITEMS "&Salva su Pagina Web"

   AEval( oRad:aItems, { | oRad | oRad:lTransparent := .T., ;
          oRad:SetFont( oFont ), oRad:nClrText := nDTxtColor } )

   @ 58, 10 GROUP oGrp[1]  TO 100, 215  OF  oDlg  PIXEL TRANSPARENT

   @ 110, 05 RADIOITEM "Salva come Foglio Excel" RADIOMENU oRad OF oDlg  ;
      SIZE 130, 14 PIXEL

   AEval( oRad:aItems, { | oRad | oRad:lTransparent := .T., ;
          oRad:SetFont( oFont ), oRad:nClrText := nDTxtColor } )

   @ 125, 10 GROUP oGrp[2]  TO 160, 215  OF  oDlg  PIXEL TRANSPARENT

   @ 130, 15 CHECKBOX aGet[3] VAR lCheck_HeaderExcel OF oDlg SIZE 80, 10     ;
      PIXEL FONT oFont PROMPT "Includi intestazioni" WHEN nRadio == 2        ;
      COLORS nRgb( 250,   0,   0 ), nRgb(  72, 180, 215 ) UPDATE

   @ 100, 10 BUTTON oBtnConfirm PROMPT "&Salva" of oDlg SIZE 45, 15 DEFAULT  ;
      ACTION ( oDlg:end( IDOK  ) )

   @ 100, 10 BUTTON oBtnClose   PROMPT "&Annulla" of oDlg SIZE 45, 15 CANCEL ;
      ACTION ( oDlg:End( IDCANCEL ) )

   oDlg:bResized  := < ||
   LOCAL oRect        := oDlg:GetCliRect()
   oBtnConfirm:nTop   := oRect:nBottom - 40
   oBtnConfirm:nLeft  := oRect:nRight - 210
   oBtnClose:nTop     := oRect:nBottom - 40
   oBtnClose:nLeft    := oRect:nRight - 110

   RETURN NIL

   >

   ACTIVATE DIALOG oDlg CENTER ON INIT eval(oDlg:bResized)

   oFont:End()
   oBold:End()

   IF oDlg:nresult == IDOK
      //save
   ENDIF

RETURN NIL

// FIN / END
 

Regards, saludos.

[Silvio.Falconi]

It make the same !!

and I Known why ....when I use the resource rc Manifest
I use that I found on fwh folder

[Silvio.Falconi]

Hi Silvio,

for me your sample is working fine. No missing elements if ' WHEN nRadio=2'.
The checkbox is properly enabled if I press the radio button 2 and also disabled when I press radio button 1.
I use Windows 10 and FWH 22.6

Regards, Detlef

it run ok without xp manifest , 'I'm using that i found on fwh folders
it's very strange

[karinha]

I'm going to do a test with MANIFEST and if it works, I'll post it on my mega for you to download.

Voy a hacer una prueba con MANIFEST y si funciona, lo publicaré en mi mega para que lo descargues.

Regards, saludos.

[karinha]

Perfecto, perfect!

https://imgur.com/trCfAaG



Regards, saludos.

[karinha]

I love FiveWin. Una Imagen habla por si. jajajajajaja.

https://imgur.com/CzZ1Atb



Regards, saludos

[karinha]

Dear Silvio, Download completo aqui:

https://mega.nz/file/dQ9WiB5I#3ZM5XASjhQoF0mPx8x7AKf1NISDH15ta9WhJpiPrbQk

Perfecto, perfect.

Code: Select all  Expand view

// C:\FWH..\SAMPLES\RADSILV.PRG - Cambiado en: 11/10/2022

#Include "FiveWin.ch"
// 'DLG_CHARPIX_W'
// 'DLG_CHARPIX_H'
#include "constant.ch"

#Define MEM_FILE "test.ini"

FUNCTION Main()

   HB_GCALL( .F. )  // limpia basura

   // RddSetDefault( "DBFCDX" )

   // SetHandleCount( 100 )  // CLIPPER 16 Bits.

   // SET DATE FORMAT "dd-mm-yyyy"
   SET CENTURY ON
   SET DATE BRITISH
   SET TIME FORMAT TO "HH:MM:SS"
   SET EPOCH TO YEAR( DATE() ) - 30
   SET SOFTSEEK OFF
   SET WRAP ON
   SETCANCEL( .F. )
   SET CONFIRM OFF
   SET DELETED ON
   SET _3DLOOK ON
   SET UNIQUE OFF
   SET ESCAPE OFF
   SET EXACT ON  // CONTROLA O :=, = e ==
   SET EXCLUSIVE OFF
   SET MULTIPLE OFF

   // Test() // in background
   MsgRun( "AGUARDE...                  ", ;
           "Por Favor, Espere Apertura. ", ;
           { || WinExec( TEST() ), 3 } )

   Release All
   SysRefresh()
   HB_GCALL( .T. )
   CLEAR MEMORY
   PostQuitMessage( 0 )
   QUIT

RETURN NIL

FUNCTION Test()

   LOCAL nDTxtColor := 192
   LOCAL nBottom    := 25
   LOCAL nRight     := 55
   LOCAL nWidth     := MAX( nRight * DLG_CHARPIX_W, 180 )
   LOCAL nHeight    := nBottom * DLG_CHARPIX_H
   LOCAL cIniFile   := cFilePath( GetModuleFileName( GetInstance() ) ) + MEM_FILE
   LOCAL cSection   := "HTML"
   LOCAL aGet       := ARRAY( 3 )
   LOCAL oGrp       := ARRAY( 2 )
   LOCAL oSay[10]
   LOCAL lCheck_HeaderExcel := .F.
   LOCAL cTitulo1 := "Estrazioni", cTitle := "Salva"
   LOCAL cTitulo2 := [USANDO MANIFEST DE WINDOWS    ] // SPACE( 30 )
   LOCAL oRad, nRadio, oFont, oBold, oBtnConfirm, oBtnClose, oDlg

   DEFINE FONT oFont NAME "MS Sans Serif" SIZE 00, -12 BOLD
   DEFINE FONT oBold NAME "MS Sans Serif" SIZE 00, -14 BOLD

   DEFINE DIALOG oDlg SIZE nWidth, nHeight PIXEL TITLE cTitle ;
      COLOR CLR_BLACK, CLR_WHITE TRANSPARENT FONT oBold

   oDlg:lHelpIcon := .F.

   @ 12, 05 SAY "Finestra: " OF oDlg SIZE 50, 14 PIXEL FONT oBold UPDATE

   @ 10, 55 GET aGet[1] VAR cTitulo1 OF oDlg SIZE 150, 14 PIXEL

   @ 28, 05 SAY "Scheda: " OF oDlg SIZE 50, 14 PIXEL FONT oBold UPDATE

   @ 26, 55 GET aGet[2] VAR cTitulo2 OF oDlg SIZE 150, 14 PIXEL

   @ 40, 05 RADIO oRad VAR nRadio SIZE 130, 14 PIXEL UPDATE                  ;
      ITEMS "&Salva su Pagina Web"

   AEval( oRad:aItems, { | oRad | oRad:lTransparent := .T.,                  ;
          oRad:SetFont( oFont ), oRad:nClrText := nDTxtColor } )

   @ 58, 10 GROUP oGrp[1]  TO 100, 215 OF oDlg PIXEL TRANSPARENT             ;
      PROMPT "Usando manifest" COLOR CLR_HCYAN

   @ 110, 05 RADIOITEM "Salva come Foglio Excel" RADIOMENU oRad OF oDlg      ;
      SIZE 130, 14 PIXEL

   AEval( oRad:aItems, { | oRad | oRad:lTransparent := .T.,                  ;
          oRad:SetFont( oFont ), oRad:nClrText := nDTxtColor } )

   @ 125, 10 GROUP oGrp[2] TO 160, 215 OF oDlg PIXEL TRANSPARENT             ;
      PROMPT "Usando manifest" COLOR CLR_HBLUE

   @ 140, 15 CHECKBOX aGet[3] VAR lCheck_HeaderExcel OF oDlg SIZE 80, 10     ;
      PIXEL FONT oFont PROMPT "Includi intestazioni" WHEN nRadio == 2        ;
      COLORS nRgb( 250,   0,   0 ), nRgb(  72, 180, 215 ) UPDATE

   @ 100, 10 BUTTON oBtnConfirm PROMPT "&Salva" OF oDlg SIZE 45, 15 DEFAULT  ;
      ACTION ( oDlg:end( IDOK  ) )

   @ 100, 10 BUTTON oBtnClose   PROMPT "&Annulla" OF oDlg SIZE 45, 15 CANCEL ;
      ACTION ( oDlg:End( IDCANCEL ) )

   oDlg:bResized  := < ||
   LOCAL oRect        := oDlg:GetCliRect()
   oBtnConfirm:nTop   := oRect:nBottom - 40
   oBtnConfirm:nLeft  := oRect:nRight  - 210
   oBtnClose:nTop     := oRect:nBottom - 40
   oBtnClose:nLeft    := oRect:nRight  - 110

   RETURN NIL

   >

   @ 172.5, 05 SAY "Manifest Windows: " OF oDlg SIZE 100, 14 PIXEL ;
      FONT oBold UPDATE COLOR CLR_BLACK, CLR_WHITE

   ACTIVATE DIALOG oDlg CENTER ON INIT eval(oDlg:bResized)

   oFont:End()
   oBold:End()

   IF oDlg:nresult == IDOK

      //save
      MsgInfo( "FiveWin The Best!", "FiveWin The Best!" )

   ENDIF

RETURN NIL

// FIN / END - kapiabafw@gmail.com
 

Regards, saludos.

[Silvio.Falconi]

I use the manifest of fwh and not run

U are not using windows Seven or Windows 10
indeed your snapshot are on another operating system

[karinha]

Dear Silvio:

Check with the FiveTech team, if they have another MANIFEST for Windows 10. Or is there any configuration missing in your Windows 10.

Consulte con el equipo de FiveTech si tienen otro MANIFEST para Windows 10. O si falta alguna configuración en su Windows 10.

Regards, saludos.

[Silvio.Falconi]

Dear Silvio:

Check with the FiveTech team, if they have another MANIFEST for Windows 10. Or is there any configuration missing in your Windows 10.

Consulte con el equipo de FiveTech si tienen otro MANIFEST para Windows 10. O si falta alguna configuración en su Windows 10.

Regards, saludos.

why the other my applcations made with fwh run ok ?

[karinha]

Dear Silvio, I don't know. I don't work for FiveTech. I asked FiveWin Brasil to test your example on Windows 10. Let's wait. In the meantime, talk to the FiveTech team and report the problem.

Estimado Silvio, no sé. No trabajo para FiveTech. Le pedí a FiveWin Brasil que probara su ejemplo en Windows 10. Esperemos. Mientras tanto, hable con el equipo de FiveTech e informe el problema.

Regards, saludos.