|
|
| start of Window definition |
 |
| winname |
name of the window in interface |
| winclass |
internal name of window |
| wintype |
type of the window |
| rectype |
type of record for C, usually - |
|
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;
««