creating a panel with border

[Silvio.Falconi]

I wish create a colored panel but I cannot show the border ...why ?
this is the sources :

oPanelCustomer:=Tpanel():New( 35, 5, 55, oFld:aDialogs[1]:nWidth-5, oFld:aDialogs[1])
oPanelCustomer:SetBrush( oBrushGreen )
oPanelCustomer:WinStyle(WS_BORDER, .t.)

[horacio]

Test with bPainted

Code: Select all  Expand view

oPanel : bPainted := { | hDc | FunctionPaint( hDc ) }
 

Code: Select all  Expand view

Function FunctionPaint( hDc )

    Local hOldPen
    Local hPen := CreatePen( PS_SOLID, 1, Rgb( 125, 125, 125 ) )
   
    hOldPen := SelectObject( hDc, hPen )   
    Rectangle( hDc, 1, 1, oPanel : nHeight - 1 , oPanel : nWidth - 1 )
    SelectObject( hDc, hOldPen )
    DeleteObject( hPen )
    Return Nil
 

Saludos

[Silvio.Falconi]

I see the border but the panel lose the brush color I insert it

[nageswaragunupudi]

Code: Select all  Expand view

  oPanel:bPainted := { || oPanel:Box( 1,1,oPanel:nHeight-1,oPanel:nWidth-1 ) }
 

[Silvio.Falconi]

thanks