FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Add Color to a Group Frame
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM

Re: Add Color to a Group Frame

Posted: Thu Apr 23, 2015 11:31 AM
Carlos has intentado poner en los controles

Code (fw): Select all Collapse
               ... OF oPanel


No se si es lo que necesitas

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

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
Posts: 989
Joined: Thu Nov 24, 2005 03:01 PM

Re: Add Color to a Group Frame

Posted: Thu Apr 23, 2015 01:34 PM

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 ;)

Saludos
Carlos Mora
http://harbouradvisor.blogspot.com/
StackOverflow http://stackoverflow.com/users/549761/carlos-mora
“If you think education is expensive, try ignorance"
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM

Re: Add Color to a Group Frame

Posted: Thu Apr 23, 2015 01:54 PM
Carlos Mora wrote: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
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM

Re: Add Color to a Group Frame

Posted: Sun Apr 26, 2015 02:29 PM
Code (fw): Select all Collapse
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

Regards



G. N. Rao.

Hyderabad, India
Posts: 989
Joined: Thu Nov 24, 2005 03:01 PM

Re: Add Color to a Group Frame

Posted: Mon Apr 27, 2015 09:08 AM

Thanks Nages!

Saludos
Carlos Mora
http://harbouradvisor.blogspot.com/
StackOverflow http://stackoverflow.com/users/549761/carlos-mora
“If you think education is expensive, try ignorance"

Continue the discussion