Group Label

[Silvio.Falconi]

Can Update a label on a Group control ...if yes How ?

I made
oGroupPreview:cCaption:="Preview "+str(nWBmp)+"X"+str(nHBmp)
oGroupPreview:refresh()

not run !!!!

[James Bott]

Try:

oGroupPreview:setText( "Preview "+str(nWBmp)+"X"+str(nHBmp) )

[Silvio.Falconi]

yes

[Rick Lipkin]

To All

I have asked this question before .. I am using the XP manifest and I would like to be able to control the color of the group frame .. On many of my gradient screens the 'default' white color just gets washed out and it is difficult to see the group frame ..

Just curious if there is a way to control the color of the group frame itself ?

Thanks
Rick Lipkin

[cnavarro]

Dear Rick

Add new DATA to CLASS TGroup

Code: Select all  Expand view

   DATA nClrBorder       // not INIT value, initial value is nil
 

Change METHOD Paint

Code: Select all  Expand view

METHOD Paint() CLASS TGroup

   local aSize, hOldFont, oFont

   // Add this
   oFont = If( ::oFont != nil, ::oFont, ::oWnd:oFont )

   CallWindowProc( ::nOldProc, ::hWnd, WM_PAINT, ::hDC, 0 )

   // Add this
   if !HB_IsNIL( ::nClrBorder )
      RoundBox( ::hDC, 0, Int( Abs( oFont:nHeight ) / 2 ) + 1, ::nWidth, ::nHeight - 1, 0, 0, ::nClrBorder )
   endif

   if IsAppThemed() .and. ! Empty( ::cCaption )
      // Remove this
      //oFont = If( ::oFont != nil, ::oFont, ::oWnd:oFont )

   .../...

 

So, in your code

Code: Select all  Expand view

      @ 10, 20 GROUP oGroup1 TO 60, 120 ;
         PROMPT "   HOLA   "  OF oParent ;
         COLOR Rgb( 32, 32, 32 ), CLR_WHITE ;
         PIXEL FONT oFont4
         // Add this
         oGroup1:nClrBorder  := CLR_BLUE
 

Please, try and tell me if run OK
I have not tried it without a manifest, please also try it like that

[Silvio.Falconi]

On this forum I made many year ago a Group class modifies where I add color s and Image ..