Transparent painting of multiple groups FWH 1408-9

[Rick Lipkin]

To All

I have noticed that when defining Groups from .rc that the first group paints transparent properly and all subsequent groups do not paint transparently with the same code.

The first screen shot on both examples side by side are FWH1203 overlayed with FWH1408

Side by side example 1 notice terms group not transparent

Code: Select all  Expand view

 // incremental search

   REDEFINE GROUP oGrp1 ID 195 of oCust
   oGrp1:SetFont( oFontB )
   oGrp1:nClrText := nRgb( 7,7,224 ) // blue

 // terms
   REDEFINE GROUP oGrp2 ID 197 of oCust        
   oGrp2:SetFont( oFontB )
   oGrp2:nClrText := nRgb( 7,7,224 ) // blue
 

Side by side example 2 notice terms and payments not transparent

Code: Select all  Expand view

 // incremental search

   Payments

 // incremental search

   REDEFINE GROUP oGrp1 ID 200 OF oCust
   oGrp1:nClrText := nRgb( 7,7,224 ) // blue

   REDEFINE GROUP oGrp2 ID 201 OF oCust
   oGrp2:nClrText := CLR_BLACK // black

   REDEFINE GROUP oGrp3 ID 202 OF oCust
   oGrp3:nClrText := nRgb( 7,7,224 ) // blue
 

Any suggestions would be welcome.

Thanks
Rick Lipkin

[Antonio Linares]

Rick,

I am trying to reproduce the error here. This example is working fine:

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oDlg

   SetDlgGradient( { { 1, RGB( 199, 216, 237 ), RGB( 237, 242, 248 ) } } )
   
   DEFINE DIALOG oDlg SIZE 300, 300

   @ 1, 1 GROUP TO 4, 12 PROMPT "First" OF oDlg

   @ 5, 1 GROUP TO 8, 12 PROMPT "Second" OF oDlg

   ACTIVATE DIALOG oDlg CENTERED

return nil

Could you compare it with your code ? thanks

[Rick Lipkin]

Antonio

I worked a good bit last night on trying to recreate the non transparent group problem and I found all I had to do is add the Windows Manifest.

Try your example including XpLook.rc and WindowsXP.Manifest

Thanks
Rick Lipkin

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oDlg

   SetDlgGradient( { { 1, RGB( 199, 216, 237 ), RGB( 237, 242, 248 ) } } )
   
   DEFINE DIALOG oDlg SIZE 300, 300

   @ 1, 1 GROUP TO 4, 12 PROMPT "First" OF oDlg

   @ 5, 1 GROUP TO 8, 12 PROMPT "Second" OF oDlg

   ACTIVATE DIALOG oDlg CENTERED

return nil
 

XpLook.Rc

Code: Select all  Expand view

// Add this to your resources RC file

#ifdef __FLAT__
   1 24 ".\WindowsXP.Manifest"
#endif
 

WindowsXp.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>