|
Puts an edit field in a window. |
|
h_pos |
horizontal position |
v_pos |
vertical position |
width |
width |
text |
text in front of the field |
mode |
Normal, ViewOnly or St_i |
field_name |
the name of the database field |
right |
right justification if true otherwise left justification |
paste_special |
the name of the paste special window |
|
event DefineWindows
begin
real x,h,h1,h2,h3,h4,h5,h6,h7,hs,v,v2,l,vs,vm,vm2,f,t;
SetLangMode(LangEnglish,"ENG",0);
WindowBegin("Specify Item Group List",ITListRClass,CGRcW,RcType);
SetWRect(64,80,409,178);
vs = 20; h = 100; v = 6;
EditField(h,v+=vs ,150,"Item Group",Normal,f1,false,ITSClass);
EndWindow;
return;
end;
««