Click above to get retro games delivered to your door ever month!

tbAddColumn()
Add a column to the tBrowse Object
------------------------------------------------------------------------------
Syntax:

     tbAddColumn( <oFather>, <bBlock>, <nWidth>, [<cId>],;
                  [<cPrompt>], [<bTotal>], [<cPicture>],;
                  [<cFooterPicture>],;
                  [<uLabel>], [<bSys>];
                  [<cEdit>], [<cMessage>],;
                  [<aColor>] ) --> NIL

Parameters:

     <oFather>  Object in which to add the column
     <bBlock>   Column CODE-BLOCK
     <nWidth>   Width of the column
     <cId>      ID of the column
     <cPrompt>  Header of the column
     <bTotal>   CODEBLOCK to use if the column has a total expression
     DEFAULT NIL
     <cPicture> Picture of the column
     <cFooterPicture> Picture of the total
     <uLabel>   Footer label of the column
     <bSys>     CODE-BLOCK used for refresh
     <cEdit>    Field to use for an edit cell
     <cMessage> Column message
     <aColor>   Color array of the column

Returns:

     NIL

Description:

     tbAddColumn is used to add a column in a tBrowse object

Example:

     // Make a tBrowse object
     LOCAL oTbr := tbBrwNew( 3, 10, 13, 75 )
     
     // Add a column
     tbAddColumn( oTbr, {||Cli->CodCli, 10 } )

See also:

     tbBrwNew()