| 1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465 |
- DEFINITION MODULE NumInput;
- (*
- * REPERTOIRE
- * Release 1.6
- * By Charles Bradford and Cole Brecheen
- * (c) Copyright 1985-1992 PMI
- * Green Bay, Wisconsin
- * All rights reserved
- * (414) 468-6040
- *
- * $Header: D:/logfiles/defs/numinput.dev 1.3 30 Dec 1990 18:06:52 coleb $
- *
- *)
- (*
- Author: Mike Carter
- Description:
- Enter or edit a numeric field. Replacement for PMI
- StrInput.ReadNumeric. Note that parameters are
- slightly different:
- 1. PMI FloatingPoint and InDecimals parameters have
- been removed. They simply have no meaning the way
- real number input is now handled.
- 2. minusOK has been added - see below.
- 3. The meaning of DecimalPlaces has been changed -
- see below.
- Notes on parameters:
- * A new field was added in
- ScrnTypes.InputFieldRecord called "decimalPlace",
- with corresponding type DecimalPlaceType. This
- was designed to be passed to this routine: a -1
- value indicates user-specified decimal points (or
- none); a 0 means no digits after the decimal
- point, a 1 means one digit, etc.
- * The value of minusOK determines whether negative
- numbers are allowed; this can be set from rMin,
- iMin within UserOps. Must be FALSE for strings
- that are later to be interpreted as CARDINAL.
- *)
- IMPORT KbdInput;
- IMPORT VWindows;
- FROM ScrnTypes IMPORT DecimalPlaceType;
- PROCEDURE ReadNumericField
- ( WindowHandle : VWindows.AWindowHandle;
- VAR TheStr : ARRAY OF CHAR; (* in/out *)
- col1 : CARDINAL; (* in *)
- row1 : CARDINAL; (* in *)
- FieldWidth : CARDINAL; (* in *)
- DecimalPlaces: DecimalPlaceType; (* in *)
- minusOK : BOOLEAN; (* in *)
- VAR LastKey : CARDINAL; (* in/out *)
- VAR ExitKeys : KbdInput.KeyNumSet (* in *)
- );
- (*
- * This is a general-purpose numeric input routine that
- * replaces the StrInput.ReadNumeric procedure. The
- * parameters are slightly different.
- *)
- PROCEDURE Init();
- END NumInput.
|
