/////////////////////////////////////////////////////////////////////
// TAPPLICATION CLASS
/////////////////////////////////////////////////////////////////////

CLASS TApplication
   DATA ArgC         INIT HB_ArgC()            READONLY
   DATA Args         INIT GetCommandLineArgs() READONLY
   DATA ExeName      INIT GetProgramFileName() READONLY

   METHOD BackColor  SETGET
   METHOD Col        SETGET
   METHOD Cursor     SETGET
   METHOD Drive      BLOCK { |Self| Left( ::ExeName, 1 ) }
   METHOD FormObject BLOCK { || _OOHG_Main }
   METHOD Handle     BLOCK { || If( HB_IsObject( _OOHG_Main ), _OOHG_Main:hWnd, Nil ) }
   METHOD Height     SETGET
   METHOD HelpButton SETGET
   METHOD Icon       SETGET
   METHOD MainName   BLOCK { || If( HB_IsObject( _OOHG_Main ), _OOHG_Main:Name, Nil ) }
   METHOD Name       BLOCK { |Self| Substr( ::ExeName, RAt( '\', ::ExeName ) + 1 ) }
   METHOD Path       BLOCK { |Self| Left( ::ExeName, RAt( '\', ::ExeName ) - 1 ) }
   METHOD Row        SETGET
   METHOD Title      SETGET
   METHOD TopMost    SETGET
   METHOD Width      SETGET
ENDCLASS

#xtranslate App . <p: ArgC, Args, BackColor, Col, Cursor, Drive, ExeName, ;
      FormName, FormObject, Handle, Height, HelpButton, Icon, MainName, Name, ;
      Path, Row, Title, Topmost, Width> ;
   => ;
      Application.<p>

#xtranslate Application.ArgC                => TApplication():ArgC
#xtranslate Application.Args                => TApplication():Args
#xtranslate Application.BackColor           => TApplication():BackColor
#xtranslate Application.BackColor := <arg>  => TApplication():BackColor( <arg> )
#xtranslate Application.Col                 => TApplication():Col
#xtranslate Application.Col := <arg>        => TApplication():Col( <arg> )
#xtranslate Application.Cursor := <arg>     => TApplication():Cursor( <arg> )
#xtranslate Application.Drive               => TApplication():Drive
#xtranslate Application.ExeName             => TApplication():ExeName
#xtranslate Application.FormName            => TApplication():MainName
#xtranslate Application.FormObject          => TApplication():FormObject
#xtranslate Application.Handle              => TApplication():Handle
#xtranslate Application.Height              => TApplication():Height
#xtranslate Application.Height := <arg>     => TApplication():Height( <arg> )
#xtranslate Application.HelpButton          => TApplication():HelpButton
#xtranslate Application.HelpButton := <arg> => TApplication():HelpButton( <arg> )
#xtranslate Application.Icon                => TApplication():Icon
#xtranslate Application.MainName            => TApplication():MainName
#xtranslate Application.Name                => TApplication():Name
#xtranslate Application.Path                => TApplication():Path
#xtranslate Application.Row                 => TApplication():Row
#xtranslate Application.Row := <arg>        => TApplication():Row( <arg> )
#xtranslate Application.Title               => TApplication():Title
#xtranslate Application.Title := <arg>      => TApplication():Title( <arg> )
#xtranslate Application.Topmost             => TApplication():Topmost
#xtranslate Application.Topmost := <arg>    => TApplication():Topmost( <arg> )
#xtranslate Application.Width               => TApplication():Width
#xtranslate Application.Width := <arg>      => TApplication():Width( <arg> )

#xtranslate SET DEFAULT ICON TO <cIcon> ;
   => ;
      _OOHG_Main_Icon := <cIcon>