Create Input fields

InputFieldAdd
Input2

You know input fields, I'm sure! But how to create them in FmScript? To accomplish this task, you may use two functions:

InputFieldAdd
Input2

InputFieldAdd

InputFieldAdd allows you to add input field. So it add a field item to Input session "InputName".

signature

                
InputFieldAdd(InputName, FieldName, Visible, Password, DefaultValue, Length, Align, PickList, Data, Color, TextColor, Disabled, ReadOnly, DigitsOnly : String);

- InputName: the name of input session
- FieldName: the name of the field
- Visible: makes the field visible or not (values: "0" or "1")
- Password: makes the field behavior like password field or not (values: "0" or "1")
- DefaultValue: the default value in the field
- Length: the maximum length of field
- Align: the align position of field (value: "left", "center", "rigth")
- PickList: pick data from select list
- Data:
- Color: the backgound color of field
- TextColor: the text color for input field
- Disabled: makes field disabled or not (value: "0", "1")
- ReadOnly: makes field read only or not (value: "0", "1")
- DigitsOnly : makes field digit only or not (value: "0", "1")

Input2

Input2 shows your input fields and wait you fill them.

signature

                
Input2(InputName, Header, SumitButtonCaption, ReturnValuesSeperator, BackgoundImageID : String, Integer(Timeout in ms));

- InputName: the name of input session
- Header: you can see this as the title of your form
- SumitButtonCaption: the text into submit button
- ReturnValuesSeperator: the separator between each fields value when submit button will be click.
- BackgoundImageID:
- Timeout: the limit time for show input fields

Example

                
var Result:String;

ShowMessage('Begin');

//---InputFieldAdd(InputName, FieldName, Visible, Password, DefaultValue, Length, Align, PickList, Data, Color, TextColor, Disabled, ReadOnly, DigitsOnly : String);

Result := InputFieldAdd('InputName', 'Nom', '1', '0', 'Sangoku', '', '', '', '', '', '', '0', '0', '0');
Result := InputFieldAdd('InputName', 'ListType', '1', '0', '', '', '', '1;2;3;4;5;6;7;8;9', '', '', '', '0', '0', '0');
//Result := InputFieldAdd('InputName', 'ListType', '1', '0', '', '', '', '1;2;3;4;5;6;7;8;9', '', '', '', '0', '0', '0');

Result := Input2('InputName', 'Real Advanced', 'SumitButton', '+*-*+', '', '60000');

Create menu

Create QR Code