Cuadro de grupo con el borde de color

[karinha]

Groupbox com borda colorida

Master, és posible?

https://social.msdn.microsoft.com/Forums/vstudio/pt-BR/e08a2a47-4d55-4607-a56e-8bfd5e87d1e7/groupbox-com-borda-colorida

http://pt.stackoverflow.com/questions/28710/como-mudar-a-cor-da-borda-de-um-groupbox

Gracias, saludos.

[mastintin]

Karinha. En c:\fwh\source\classes\Tgdiplus.prg tienes todo el codigo que necesitas para "imitar" los ejemplos que propones.
como ejemplos tienes c:\fwh\samples\gdiplus3.prg

[karinha]

Gracias mater, mas mi vérsion no tien: c:\fwh\samples\gdiplus3.prg

Pudes pone el código, porfa?

Saludos

[mastintin]

Gracias mater, mas mi vérsion no tien: c:\fwh\samples\gdiplus3.prg

Pudes pone el código, porfa?

Saludos

Code: Select all  Expand view

#include "FiveWin.ch"

 
//----------------------------------------------------------------------------//

function Main()

   local oWnd

   DEFINE WINDOW oWnd TITLE "Testing GDI+ Class" FROM 5,5 TO 600, 800 PIXEL
 //  ownd:setcolor(nrgb(120,120,120),nrgb(120,120,120))

   
   @28,4 button "rectangle" size 120,30 Action Drawrectangle(ownd)
   @28,24 button "roundrect" size 120,30 Action Drawroundrect(ownd)
   @28,44 button "drawImage" size 120,30 Action DrawImage(ownd)
   @28,64 button "drawEllipse" size 120,30 Action DrawEllipse(ownd)
   @28,84 button "drawlight" size 120,30 Action Drawlight(ownd)  

   ACTIVATE WINDOW oWnd

return nil

//----------------------------------------------------------------------------//

function Drawrectangle(ownd)
local hdc:= oWnd:getdc()
local oGraphics := Graphics():New( ownd:hDC )
local oPen := Pen():New( 255, 0, 0, 255 , 10 , .T.)
      oGraphics:DrawRect( oPen,  , 300, 300, 70, 60 )
     
      oGraphics:destroy()
         
      oWnd:releasedc()

Return nil

function Drawroundrect(ownd)
local hdc:= oWnd:getdc()
local oGraphics := Graphics():New( ownd:hDC )
 local oPen2 := Pen():New( 255, 255, 0, 0 , 3 )
 local oPath:= Path():new()
 
      oPath:AddRoundRect( 30, 30 , 50, 50 , 9  )
     
      oGraphics:DrawPath( oPen2, oPath )  
       
       oGraphics:destroy()
               
      oWnd:releasedc()

Return nil

function DrawImage(ownd)
local hdc:= oWnd:getdc()
local oGraphics := Graphics():New( ownd:hDC )
local oImage:= GDIBmp():new("C:\fwh\bitmaps\pngs\image2.png" )

      oGraphics:DrawImage( oImage , 60 ,60 )
     
      oGraphics:destroy()
               
      oWnd:releasedc()

Return nil

function DrawEllipse(ownd)
local hdc:= oWnd:getdc()
local oGraphics := Graphics():New( ownd:hDC )
local oBrush2 := Brush():NewSolidBrush( 150, 0, 255, 167 )
 local oPen2 := Pen():New( 255, 255, 0, 0 , 3 )
 
       oGraphics:DrawEllipse( oPen2, oBrush2  , 500, 100, 60, 60 )
     
      oGraphics:destroy()
               
      oWnd:releasedc()

Return nil

function Drawlight(ownd)
local hdc:= oWnd:getdc()
local oGraphics := Graphics():New( ownd:hDC )
local oPen
local n

  oPen := Pen():New(  255 , 0, 0 , 0 , .T.)
  oGraphics:DrawRoundRect( oPen, , 400 , 200,  100 , 150  )
   
  oPen:setColor( 255 , 214, 234, 249 )
 
  oPen:setsize(1)

  for n = 1 to 10
      oPen:setcolor( 255-n*25 , 214, 234, 249 )
                   
      oGraphics:DrawRoundRect( oPen, , 400-n , 200-n,  100+n*2 , 150+ n*2  )
             
    next
     open:destroy()
   
 
 oGraphics:destroy()
               
 oWnd:releasedc()

Return nil
 

[karinha]

Gracias Master, voy hacer pruebas.

Saludos.