New FWH 11.05

[nageswaragunupudi]

Mr. Maurizio

I have another anomaly with FWH 11.05

This is the PRG

I have compiled and tested the source code posted by you in this post. There is no problem now with the revised build.

Can you test again please?

Can we have a small sample code to reproduce the problem shown by you in the latest post made by you please?

[Maurizio]

Rao,

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

//======================================================================================================
Function  Main

Local n1 := 0
Local oGet := array(5)
LOcal oSay := array(4)
LOcal dDalla := date()
LOcal DAlla := date()
Local lInsoluti := .f.
Local lRitenuta := .f.
Local oDlg


 DEFINE DIALOG oDlg RESOURCE "COMBOS"  TRANSPARENT  // BRUSH oBrush TRANSPARENT
  REDEFINE get oGet[1] VAR   n1  ID  51 of oDlg
   oGet[1]:lBtnTransparent := .t.    
     

    REDEFINE SAY oSay[1]       VAR  "1..."      ID 105 of oDlg  COLOR 'R+/W'
    REDEFINE SAY oSay[2]       VAR  "2..."         ID 106 of oDlg  COLOR 'R+/W'
    REDEFINE SAY oSay[3]       VAR  "3..."       ID 107 of oDlg  COLOR 'R+/W'
    REDEFINE SAY oSay[4]       VAR  "3..."       ID 108 of oDlg  COLOR 'R+/W'


    REDEFINE get oGet[2]       Var  dDalla  ID  52 of oDlg
    REDEFINE get oGet[3]       Var  dAlla   ID  53 of oDlg
                                             

    REDEFINE CHECKBOX oGet[4] VAR  lInsoluti  ID  54 OF oDlg  
                         
    REDEFINE CHECKBOX oGet[5] VAR  lRitenuta  ID  55 OF oDlg
   
  ACTIVATE DIALOG oDlg CENTERED /* ON INIT ( GRADIENTBRUSH( oDlg, ACLRGRAD() ),;
                                              oGet[5]:Disable())  */


Return nil

The same RC

Regards MAurizo

[nageswaragunupudi]

Mr. Maurizio

Yes, this is the program I tested. By way of caution, I am reproducing the exact prg and rc files I used.
( New syntax for gradients used, but that should not make difference )

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

//======================================================================================================
Function  Main

Local n1 := 0
Local oGet := array(5)
LOcal oSay := array(4)
LOcal dDalla := date()
LOcal DAlla := date()
Local lInsoluti := .f.
Local lRitenuta := .f.
Local oDlg
Local oBrush

   DEFINE BRUSH oBrush GRADIENT aClrGrad()

   DEFINE DIALOG oDlg RESOURCE "COMBOS"  TRANSPARENT BRUSH oBrush

   REDEFINE get oGet[1] VAR   n1  ID  51 of oDlg
   oGet[1]:lBtnTransparent := .t.
   REDEFINE SAY oSay[1]       VAR  "1..."       ID 105 of oDlg  COLOR 'R+/W'
   REDEFINE SAY oSay[2]       VAR  "2..."       ID 106 of oDlg  COLOR 'R+/W'
   REDEFINE SAY oSay[3]       VAR  "3..."       ID 107 of oDlg  COLOR 'R+/W'
   REDEFINE SAY oSay[4]       VAR  "3..."       ID 108 of oDlg  COLOR 'R+/W'
   REDEFINE get oGet[2]       Var  dDalla       ID  52 of oDlg
   REDEFINE get oGet[3]       Var  dAlla        ID  53 of oDlg
   REDEFINE CHECKBOX oGet[4]  VAR  lInsoluti    ID  54 OF oDlg
   REDEFINE CHECKBOX oGet[5]  VAR  lRitenuta    ID  55 OF oDlg

   ACTIVATE DIALOG oDlg CENTERED  ON INIT ( oGet[5]:Disable() )

   RELEASE BRUSH oBrush

Return nil

STATIC FUNCTION ACLRGRAD()
   RETURN { { 1, RGB( 239, 239, 239 ), RGB( 216, 230, 238 ) } }
 

rc file:

Code: Select all  Expand view  RUN

LANGUAGE LANG_ENGLISH,SUBLANG_ENGLISH_US

COMBOS DIALOG DISCARDABLE 22, 74, 394, 119
STYLE WS_POPUP|DS_MODALFRAME|DS_3DLOOK|WS_CAPTION|WS_SYSMENU
CAPTION "Testing all ComboBoxes styles"
FONT 8, "Arial"
{
  CONTROL "", 51, "Edit", WS_BORDER|WS_TABSTOP, 5, 24, 191, 14
  CONTROL "", 52, "Edit", ES_RIGHT|ES_READONLY|WS_BORDER|WS_DISABLED|WS_TABSTOP, 268, 54, 53, 12
  CONTROL "", 53, "Edit", ES_RIGHT|ES_READONLY|WS_BORDER|WS_DISABLED|WS_TABSTOP, 327, 54, 53, 12
  CONTROL "Insoluti ", 54, "Button", BS_AUTOCHECKBOX|WS_GROUP|WS_TABSTOP, 269, 17, 54, 10
  CONTROL "Ritenute", 55, "Button", BS_AUTOCHECKBOX|WS_GROUP|WS_TABSTOP, 269, 31, 46, 10
  CONTROL "Rag.Sociale :", -1, "Static", WS_GROUP, 6, 14, 51, 10
  CONTROL "Dal :", 4001, "Static", WS_GROUP, 268, 43, 21, 10
  CONTROL "Al :", 4002, "Static", WS_GROUP, 327, 43, 13, 10
  CONTROL "", 106, "Static", WS_BORDER|WS_GROUP, 5, 40, 191, 12
  CONTROL "n. Conto", 4003, "Static", WS_GROUP, 201, 14, 39, 10
  CONTROL "", 105, "Static", WS_BORDER|WS_GROUP, 201, 24, 52, 14
  CONTROL "", 107, "Static", WS_BORDER|WS_GROUP, 5, 54, 191, 12
  CONTROL "Saldo ", 4004, "Static", WS_GROUP, 201, 43, 39, 10
  CONTROL "", 108, "Static", WS_BORDER|WS_GROUP, 201, 53, 52, 12
  CONTROL "", 4005, "Button", BS_GROUPBOX, 0, 6, 258, 64
  CONTROL "", 4006, "Button", BS_GROUPBOX, 261, 6, 125, 64
}


1 24 "c:\fwh\samples\WinXP\WindowsXP.Manifest"
 

I have clicked the checkbox on and off several times.
This is working fine for me on Win-7 32-bit

[Maurizio]

Rao ,

try your sample without BRUSH

// Local oBrush
// DEFINE BRUSH oBrush GRADIENT aClrGrad()
DEFINE DIALOG oDlg RESOURCE "COMBOS" TRANSPARENT // BRUSH oBrush


or with BRUSH not GRADIENT

Local oBrush
DEFINE BRUSH oBrush COLOR rgb(246,245,242)
DEFINE DIALOG oDlg RESOURCE "COMBOS" TRANSPARENT BRUSH oBrush


Regards MAurizio

[nageswaragunupudi]

Mr Maurizio

Thanks for pointing out what I overlooked.
Yes there is a problem.
Hope to get fixed at the earliest.

[nageswaragunupudi]

Mr. Maurizio

Can you please make the following change and see if the problem is solved?

in \fwh\source\classes\control.prg
for the line no. 436

Code: Select all  Expand view  RUN

   ParentImage( ::hWnd, hDC )
 

the following 3 lines may be substituted:

Code: Select all  Expand view  RUN

            if Upper( ::ClassName() ) $ "TCHECKBOX;TRADIO;TGROUP"
               ParentImage( ::hWnd, hDC )
            endif
 

[Maurizio]

Rao ,
now works well
Thanks MAurizio