Add Color to a Group Frame

[cnavarro]

Carlos has intentado poner en los controles

Code: Select all  Expand view

               ... OF oPanel
 

No se si es lo que necesitas

------------------------------------------- EDITADO ----------------------------
Mira en el foro de español

[Carlos Mora]

Hi Cristobal,

was one of my first attempts, but things like refresh() aren't resent to panel's children. Had to do it manually, it's not the idea. And won't work with resources also.

Thanks anyway, let me know if you have another idea, they are always welcome.

[OT] Moved to Loeches now, but still working at Atisa, in P.I. Las Monjas, don't forget that beer we owe ourselves

[cnavarro]

Hi Cristobal,

was one of my first attempts, but things like refresh() aren't resent to panel's children. Had to do it manually, it's not the idea. And won't work with resources also.

Thanks anyway, let me know if you have another idea, they are always welcome.

[OT] Moved to Loeches now, but still working at Atisa, in P.I. Las Monjas, don't forget that beer we owe ourselves

Carlos, mi nivel de ingles no es muy alto
Contestame en el foro de español
Yo he usado bastante los TPanel sin ningun problema pero no he usado recursos

Carlos, my English is not very high
Contestame Spanish forum
I've used quite the TPanel without any problem but I have not used resources

[nageswaragunupudi]

Code: Select all  Expand view

function Main()

   local oDlg, oFont, oBold, aVar[ 2 ]

   AFill( aVar, Space( 60 ) )

   DEFINE FONT oFont NAME "ARIAL" SIZE 0,-14
   DEFINE FONT oBold NAME "ARIAL" SIZE 0,-14 BOLD

   DEFINE DIALOG oDlg SIZE 500,250 PIXEL TRUEPIXEL FONT oFont

   @  70,50 GET aVar[ 1 ] SIZE 200, 20 PIXEL OF oDlg
   @ 100,50 GET aVar[ 2 ] SIZE 200, 20 PIXEL OF oDlg

   oDlg:bPainted := < |hDC|
      RoundBox( hDC, 20,40,300,150,10,10,CLR_HRED, 1 )
      oDlg:SayText( "Group Title", { 30,30,50,150 }, nil, oBold, { CLR_GREEN, oDlg:nClrPane } )
      return nil
   >

   ACTIVATE DIALOG oDlg CENTERED
   RELEASE FONT oFont, oBold

return nil
 

[Carlos Mora]

Thanks Nages!