Transparent painting of multiple groups FWH 1408-9

Board index FiveWin for Harbour/xHarbour Transparent painting of multiple groups FWH 1408-9

Posts: 2706

Joined: Fri Oct 07, 2005 01:50 PM

Transparent painting of multiple groups FWH 1408-9
Posted: Fri Oct 10, 2014 02:12 PM

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 (fw): Select all Collapse

 // 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 (fw): Select all Collapse

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

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Transparent painting of multiple groups FWH 1408-9
Posted: Fri Oct 10, 2014 09:00 PM

Rick,

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

Code (fw): Select all Collapse

#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

regards, saludos

Antonio Linares
www.fivetechsoft.com

Rick Lipkin

Posts: 2706

Joined: Fri Oct 07, 2005 01:50 PM

Re: Transparent painting of multiple groups FWH 1408-9
Posted: Sat Oct 11, 2014 01:26 PM

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 (fw): Select all Collapse

#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 (fw): Select all Collapse

// Add this to your resources RC file

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

WindowsXp.Manifest

Code (fw): Select all Collapse

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

FiveTech Support Forums

Continue the discussion