FiveTech Software tech support forums

#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