karinha wrote:Can you post a small example?
¿Puedes publicar un pequeño ejemplo?
Regards, saludos.
#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
// 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
Detlef wrote: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
// 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
karinha wrote: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.
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot], Silvio.Falconi and 100 guests