%HI_SetColumnsProperties, %HI_GetColumnsProperties functions


Function
The function %HI_SetColumnsProperties sets the parameters to the defined columns in Browser displayer.

The function %HI_GetColumnsProperties returns the settings of column parameters in Browser displayer.

Declaration
%HI_SetColumnsProperties(
   INT in refId,
       in recordVal
 )
  
  
 INT %HI_GetColumnsProperties(
   INT in  refId,
       out recordVal
 )

Parameters
refId Reference to a displayer (reference variable).
recordVal Local variable of Record type.

Description
The function sets the parameters for the columns that are filled in recordVal. There are these parameters: Visibility, Width, Automatic width adjustment and Column order in Browser displayer.

The definition of the local variable RecordVal must be following:

Column order and type:

INT Colum index - the column number according to the structure definition
BOOL Visibility - enable / disable the column visibility in the browser.
INT Width - column width in the browser. Any value.
INT Type of autosize
-2/-1/0
- set the automatic column width in the browser.
-2 - column width is adjusted to a text length in both column and header,
-1 - column width is adjusted to a text length in column,
0 - the automatic width is disabled.
INT Column order - column order of structure in the browser.

Example
RECORD (SD.ColumnsProperties) _ColumnsProperties
 
PROCEDURE SetProperties
REDIM _ColumnsProperties[1]
_ColumnsProperties[1]^Col := 1
_ColumnsProperties[1]^Visible_Value := @TRUE
_ColumnsProperties[1]^Width_Value := 79
_ColumnsProperties[1]^Width_Type := 2
 _ColumnsProperties[1]^Order_Value := 2
END SetProperties
 
 
ENTRY Set_OnClick
CALL SetProperties
%HI_SetColumnsProperties(_Browser,_ColumnsProperties\HBJ)
END Set_OnClick
 
ENTRY Get_OnClick
%HI_GetColumnsProperties(_Browser,_ColumnsProperties\HBJ)
END Get_OnClick
 
BEGIN
 
 
END

0 komentárov

Nie ste prihlásený. Akékoľvek zmeny, ktoré vykonáte, sa označia ako anonymné. Ak už máte svoj účet, pravdepodobne sa budete chcieť prihlásiť .