the CheckBox does not meet the conditions of the variables, and disappear, so you will show when hovering over them, in the version 7.11 works normal.
file alert.prg
- Code: Select all Expand view
#Include "FIVEWIN.CH"
#include "Ribbon.ch"
#Include "Image.CH"
#include "FILEIO.CH"
#Include "Tekno.CH"
#Include "Inkey.CH"
#Include "XBrowse.CH"
#include "ord.ch"
#include "hbcompat.ch"
#include "dtpicker.ch"
#define CLR_LIGHT nRGB( 192, 192, 56 )
#define CLR_SHADOW nRGB( 102, 51, 0 )
#Define CLR_PINK nRGB( 255, 128, 128)
#Define CLR_NBLUE nRGB( 128, 128, 192)
#Define CLR_NBROWN nRGB( 130, 99, 53)
#Define CLR_NGREEN nRGB( 84, 153, 151 )
#Define CLR_NHCYAN nRGB( 212, 250, 249 )
#define COLOR_BTNFACE 15
#DEFINE SW_SHOWNA 8 // &H8
#DEFINE SW_SHOW 5 // &H5
#DEFINE SW_HIDE 0 // &H0
REQUEST HB_LANG_PT // Seta menssagens em portugues
Request OrdKeyNo // Para Controlar a Velocidade da ListBox
Request OrdKeyCount // Para Controlar a Velocidade da ListBox
Request OrdKeyGoto // Para Controlar a Velocidade da ListBox
FUNCTION MAIN()
LOCAL oDlgRel, oBtnOk, oBtnCancel, lEstMinimo, oFont
LOCAL lOrdCod, lOrdNome, lEstPositivo, lEstNegativo
LOCAL oChkEstMinimo, oChkOrdCod, oChkOrdNome, oChkEstPositivo
LOCAL oChkEstNegativo, oBrush, oChkZerado, lEstZerado
LOCAL lEstGeral, oChkGeral, bClrGrad, aColors
lEstMinimo := .F.
lOrdCod := .T.
lOrdNome := .F.
lEstPositivo := .F.
lEstNegativo := .F.
lEstZerado := .F.
lEstGeral := .T.
bClrGrad := { | lPressed | If( ! lPressed,;
{ { 1, nRGB( 253, 254, 255 ), nRGB( 179, 217, 255 ) } },;
{ { 1, nRGB( 179, 217, 255 ), nRGB( 253, 254, 255 ) } } ) }
aColors := { { 1, nRGB( 199, 216, 237 ), nRGB( 237, 242, 248 ) } }
DEFINE BRUSH oBrush COLOR ( nRGB( 52,166,226 ), nRGB( 199,231,248 ) )
DEFINE FONT oFont NAME "Arial" SIZE 0,-10 BOLD
DEFINE DIALOG oDlgRel RESOURCE "RELPRODESTQ" TITLE "Relatório de Produtos" BRUSH oBrush TRANSPARENT
REDEFINE GROUP ID 300 OF oDlgRel
REDEFINE CHECKBOX oChkOrdCod VAR lOrdCod ID 100 OF oDlgRel;
WHEN !lOrdNome UPDATE
REDEFINE CHECKBOX oChkOrdNome VAR lOrdNome ID 101 OF oDlgRel;
WHEN !lOrdCod UPDATE
REDEFINE CHECKBOX oChkEstPositivo VAR lEstPositivo ID 102 OF oDlgRel;
WHEN !lEstGeral UPDATE
REDEFINE CHECKBOX oChkEstNegativo VAR lEstNegativo ID 103 OF oDlgRel;
WHEN !lEstGeral UPDATE
REDEFINE CHECKBOX oChkEstMinimo VAR lEstMinimo ID 104 OF oDlgRel;
WHEN !lEstGeral UPDATE
REDEFINE CHECKBOX oChkZerado VAR lEstZerado ID 105 OF oDlgRel;
WHEN !lEstGeral UPDATE
REDEFINE CHECKBOX oChkGeral VAR lEstGeral ID 106 OF oDlgRel ;
ON CHANGE (lEstMinimo:=.F., lEstPositivo:=.F., lEstNegativo:=.F., lEstZerado:=.F., oDlgRel:Update() );
UPDATE
REDEFINE BTNBMP oBtnOk PROMPT "&Ok" RESOURCE "Confirm24" ID 50 OF oDlgRel;
ACTION NIL;
LEFT 2007
oBtnOk:bClrGrad := bClrGrad
REDEFINE BTNBMP oBtnCancel PROMPT "&Cancelar" RESOURCE "Sair_24" ID 51 OF oDlgRel;
ACTION oDlgRel:End() LEFT 2007
oBtnCancel:bClrGrad := bClrGrad
oDlgRel:lHelpIcon := .F.
ACTIVATE DIALOG oDlgRel CENTER
oFont:End()
oBrush:End()
RETURN( .T. )
- Code: Select all Expand view
file alert.rc
1 24 "WinXP.man"
RELPRODESTQ DIALOG 166, 136, 183, 205
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "DIALOG_6"
FONT 8, "MS Sans Serif"
{
GROUPBOX "Entre com a Opção Desejada", 300, 1, 3, 181, 165, BS_GROUPBOX
PUSHBUTTON "&Cancelar", 51, 123, 173, 58, 24
PUSHBUTTON "&OK", 50, 59, 173, 58, 24
CHECKBOX "Oderm de Código", 100, 9, 19, 164, 12
CHECKBOX "Oderm Alfabética", 101, 9, 38, 166, 12
CHECKBOX "Estoque Positivo", 102, 9, 57, 166, 12
CHECKBOX "Estoque Negativo", 103, 9, 72, 166, 12
CHECKBOX "Estoque abaixo do Minímo", 104, 9, 87, 168, 12
CHECKBOX "Estoque Zerado", 105, 9, 102, 168, 12
CHECKBOX "Estoque Geral", 106, 9, 118, 168, 12
}
file manifest
- Code: Select all Expand view
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity
version="1.0.0.0"
processorArchitecture="X86"
name="FiveTech Software.FiveWin.32bits"
type="win32"
/>
<description>Your application description here.</description>
<dependency>
<dependentAssembly>
<assemblyIdentity
type="win32"
name="Microsoft.Windows.Common-Controls"
version="6.0.0.0"
processorArchitecture="X86"
publicKeyToken="6595b64144ccf1df"
language="*"
/>
</dependentAssembly>
</dependency>
</assembly>