Module Dfautmgn.pkg

************************************************************************ Confidential Trade Secret. Copyright (c) 1997 Data Access Corporation, Miami Florida as an unpublished work. All rights reserved. DataFlex is a registered trademark of Data Access Corporation. ****************************************************************************// // $File name : DFAutMgn.pkg - Mixin to assign auto margins and types // $Author(s) : John Tuohy // // $Rev History // JT 10/14/97 Added better mask support. If datatype is a mask, do not // change it - assume it was explicitly set. // JT ??/??/?? File created // ****************************************************************************// mixin class for automatically setting up form_margins, form_datatypes and form_column. Interface Send Define_Form_Margins - set form_margin and form_datatype for all items whose current form_margin is not 0. Numerics are all set as 0 (no decimal points) You must SET Points to set the decimal points. When we can get this information directly this will change. Sent by End_construct_Object Send Define_Form_Margin Integer Item# Called by Define_form_Margins. As above Send Define_List_Form_Columns Sets form_column for all items in a list whose current form_column value is zero. Sent by End_Construct_Object Set Points {Item item#} to ## Sets decimal and adjust form_margin to accomodate the decimal point. Must be sent by program. If no item is passed 0 is used. Note: none of these should have any effect on existing programs. If form_margin or form_column is already set (non-zero) these messages will do nothing.

Dfautmgn.pkg (view source)
• import declarations
  • VdfBase.pkg (view source)
• Auto_Setup_Mixin : Mixin
  • Set(integer item# integer pos)
    Must be manually set because we can not get at this data
    • Integeritm
    • Integerps
    • Integerpobjid
    • Integerfile#
    • Integerfield#
    • Integerdatatype
    • Integermargin
    • Integerlen
  • Define_List_Form_Columns()
    set all form_columns settings for any form which is currently 0.
    • IntegerItem#
    • IntegerCnt
    • Integerprev_col
    • Integercol
    • Integerwd
  • Define_Form_Margins()
    • IntegerItem#
    • IntegerCnt
  • Define_Form_Margin(Integer item#)
    • IntegerpObjId
    • Integerfile#
    • IntegerField#
    • Integerdatatype
    • Integermargin
    • Integerwintype
    • Integerformtype

References (1):

Field References (0):