DATA oTop, oLeft, oBottom, oRight, oClient

[Otto]

Hello friends,
is there a sample where all the DATA oTop, oLeft, oBottom, oRight, oClient is in use?
Is it possible to use all at the same time?
Best regards,
Otto

[Antonio Linares]

Dear Otto,

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oWnd

   DEFINE WINDOW oWnd

   oWnd:oTop = TPanel():New( 0, 0, 30, oWnd:nWidth, oWnd )
   oWnd:oTop:SetColor( "N/G" )
   oWnd:oRight = TPanel():New( 0, 0, oWnd:nHeight, 30, oWnd )
   oWnd:oRight:SetColor( "N/R" )
   oWnd:oBottom = TPanel():New( oWnd:nHeight - 30, 0, oWnd:nHeight, oWnd:nWidth, oWnd )
   oWnd:oBottom:SetColor( "N/B" )
   oWnd:oLeft = TPanel():New( 0, 0, oWnd:nHeight, 30, oWnd )
   oWnd:oLeft:SetColor( "N/BG" )
   oWnd:oClient = TPanel():New( 30, 30, oWnd:nHeight - 30, oWnd:nWidth - 30, oWnd )
   oWnd:oClient:SetColor( "N/GR" )

   ACTIVATE WINDOW oWnd CENTERED

return nil  

[Otto]

Dear Antonio,
thank you and have a nice Sunday.
Best regards,
Otto