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
Add Comment