|
|
| prints static text in window |
 |
| h_pos |
horizontal position |
| v_pos |
vertical position |
| textstr |
output string |
| right |
right justification if true otherwise left justification |
|
event DefineWindows
begin
Real i,h,h1,h2,h3,h4,h5,v,vm,l,vs,f,t,v2;
SetLangMode(LangEnglish,"ENG",0);
WindowBegin("Specify Purchase Book",PurchBRClass,CGRcW,RcType);
SetWRect(90,80,509,257);
PeriodField(h=100,v=6,"Period");
EditFieldTL(h,v+=20, 150,"Invoice No.",M4Str,Normal,30,f1,false,0);
ButtonFrame(h=50,vm=(v+=41),150,2,"Specify");
CheckBox(h,v,0,"OKed",flags[2]);
CheckBox(h,v+=16,0,"Not OKed",flags[3]);
StaticText(20,v+=50,"This report has more columns when on paper",false);
StaticText(20,v+=16,"Landscape printing recommended",false);
EndWindow;
return;
end;
««