Group Box Frame Color ( again ) .. Nags?

[Rick Lipkin]

To All

I can not find the correct example in the forum .. I believe Nags came up with this code to add color to the group frame ..

Code: Select all  Expand view  RUN

     oGrps:bPainted := < |hDC|
     RoundBox( hDC, 20,30,445,300,10,10,CLR_BLACK, 1 )
     Return nil
     >

   oGrps:bPainted := < |hDC|
      RoundBox( hDC, 20,340,445,500,10,10,CLR_HRED, 1 )
      Return nil
      >
 

And this code works well if you only want to color the RoundBox for the first instance .. but I have 2 group boxes on the same form and it is the last box that is drawn .. I do kinda see that the roundBox is directly tied to the hDc instance ..

Is there a way to modify this code to handle two or more group boxes on the same form ?

Thanks
Rick Lipkin

[Silvio.Falconi]

color codeblocks

[karinha]

http://fivetechsupport.com/forums/viewtopic.php?f=6&t=37470

[Rick Lipkin]

Gentleman

Unfortunately this code does not work probably due to my use of the XP Manifest

Code: Select all  Expand view  RUN

   REDEFINE GROUP oGrp2 ID 209 of oGrps ;
            COLOR RGB(32,32,32), CLR_HRED ;
            PIXEL FONT oFontB

 

Appreciate your help .. unfortunately this was not the answer .. any other solutions ?

Thanks
Rick Lipkin

[nageswaragunupudi]

Gentleman

Unfortunately this code does not work probably due to my use of the XP Manifest

Code: Select all  Expand view  RUN

   REDEFINE GROUP oGrp2 ID 209 of oGrps ;
            COLOR RGB(32,32,32), CLR_HRED ;
            PIXEL FONT oFontB

 

Appreciate your help .. unfortunately this was not the answer .. any other solutions ?

Thanks
Rick Lipkin

Yes. With manifest it does not work.
You need to draw boxes manually.
Please recheck your code.

[Rick Lipkin]

Rao

In my original post .. the first RoundBox() instance works .. but try to use RoundBox() a second time .. takes president over the first instance .. and the first instance is no longer drawn.

I know it has something to do with the Dialog handle .. any advice or expertise is welcome.

Thanks
Rick Lipkin

[nageswaragunupudi]

Please try

Code: Select all  Expand view  RUN

   oDlg:bPainted := < |hDC|
      RoundBox( hDC, 20,30,445,300,10,10,CLR_BLACK, 1 )
      RoundBox( hDC, 20,340,445,500,10,10,CLR_HRED, 1 )
      Return nil
      >
 

[Rick Lipkin]

Rao

Thank you ... I appreciate your help.. your suggestion worked Great!!

Rick Lipkin