|
|
| Creates a window field that is not related with the window record that has been associated with the window through UseView. |
 |
| CoordX |
Horizontal coordinate of the field |
| CoordY |
Vertical coordinate of the field |
| Length |
Visual length of the field |
| Caption |
The text before the field |
| Mode |
Field mode (Normal/Viewonly) |
| VarName |
The name of the field variable that is used when setting/getting specified field data |
| Alignment |
Alignment for the text displayed in the field. FALSE: Left / TRUE: Right |
| PasteSpecial |
Specifies if there is a paste special window defined for this field |
| FieldType |
Type of the field data. |
| DataLength |
Maximum length for the field data |
|
event DefineWindows
begin
Real i,h,h1,h2,h3,h4,h5,v,vm,l,vs,f,t,v2,v3,hm;
SetLangMode(LangEnglish,"ENG",0);
WindowBegin("Credit Card Payment",CCPayAddressDClass,CGother,RcType);
SetWRect(20,80,450,440);
vs = 20; h=190;
EditFieldTL(h,v=6, 100,"Amount",M4Val,ViewOnly,0,vals0,false,0);
if (ValuePack(2)) then begin
EditFieldTL(h+190,v,-20,"Currency",M4UStr,ViewOnly,3,CurncyCode,false,0);
end;
EditFieldTL(h,v+=20, -20,"Payment Reference Number",M4Str,ViewOnly,60,f3,false,0);
EditFieldTL(h,v+=20, -20,"Name (as it appears on the card)",M4Str,Normal,255,f1,false,0);
EditFieldTL(h,v+=20, 100,"Card Type",M4Str,Normal,10,Stext,false,CredCardTypeSClass);
EditFieldTL(h,v+=20, -20,"Card Number",M4UStr,Normal,255,f2,false,0);
EditFieldTL(h,v+=20, 20,"Card Expiry Month (MM/YYYY)",M4UStr,Normal,2,FirstAcc,false,0);
EditFieldTL(h+30,v, 40,"",M4UStr,Normal,4,LastAcc,false,0);
EditFieldTL(h,v+=20, 30,"Card Verification Code",M4UStr,Normal,10,AccStr,false,0);
EditFieldTL(h,v+=20, 20,"Start Date, Month (MM/YYYY)",M4UStr,Normal,2,ObjType,false,0);
EditFieldTL(h+30,v, 40,"",M4UStr,Normal,4,ObjStr,false,0);
EditFieldTL(h,v+=20, 30,"Issue Number",M4UStr,Normal,2,TransStr,false,0);
SoftEditField(h,v+=20,-20,"Address 1",Normal,"ccpayaddr1",false,0,M4Str,50);
SoftEditField(h,v+=20,-20,"Address 2",Normal,"ccpayaddr2",false,0,M4Str,50);
SoftEditField(h,v+=20,-20,"Address 3",Normal,"ccpayaddr3",false,0,M4Str,50);
SoftEditField(h,v+=20,-20,"Address 4",Normal,"ccpayaddr4",false,0,M4Str,50);
SoftEditField(h,v+=20,-20,"Post Code",Normal,"ccpayaddr6",false,0,M4Str,50);
SoftEditField(h,v+=20,20,"Country",Normal,"cccountry",false,0,M4Str,2);
HalPushButton(h=120,v+=40,h+100,v+20,"ProceedCCPayDClass","Proceed");
HalPushButton(h+=130,v,h+100,v+20,"CancelCCPayDClass","Cancel");
EndWindow;
end;
|
««