Page 1 of 1

BUG CHECKBOX FWH 11.12,12.01

Posted: Tue Jan 31, 2012 1:06 pm
by gss200610
compiling the code below to FiveWin 11.12 and 12.01 using manifest files,

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

 

#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


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

<?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>


 

Re: BUG CHECKBOX FWH 11.12,12.01-Solved

Posted: Tue Jan 31, 2012 1:26 pm
by gss200610
Solution:

add this to source code, work fine.
function IsAppThemed()
return .F.

Re: BUG CHECKBOX FWH 11.12,12.01

Posted: Tue Jan 31, 2012 2:07 pm
by ADutheil
Adding tabstop to the GROUP ID 300 and putting it before the checkboxes seems to work too.