|
|
| white background color will be used for window |
event DefineWindows
begin
Real h,h1,h2,h3,h4,h5,h6,h7,hs,hm,v,v3,l,vs,vm,f,t,x,v2;
SetLangMode(LangEnglish,"ENG",0);
WindowBegin("Form",DocWClass,CGDocW,DocView);
UseView(DocVc);
SetWRect(20,80,620,340);
BrowseButtons(false);
Sizeable(0,150,0,0);
WhiteBackground;
ScrollBar(-17,0,-1,-14);
v = 5; vs = 20;
h = 45; PushButton(h,v,h+60,v+vs,0,"Text");
h=h+72; PushButton(h,v,h+60,v+vs,0,"Line");
h=h+72; PushButton(h,v,h+60,v+vs,0,"Frame");
h=h+72; PushButton(h,v,h+60,v+vs,0,"Field");
h=h+72; PushButton(h,v,h+60,v+vs,0,"Picture");
SpecMenuItem("Properties",' ',0);
SpecMenuItem("PC Printer",' ',1);
SpecMenuItem("Copies",' ',2);
SpecMenuItem("Send To Back",'b',3);
SpecMenuItem("View All",' ',4);
SpecMenuItem("First Only",' ',5);
SpecMenuItem("Middle Only",' ',6);
SpecMenuItem("Last Only",' ',7);
SpecMenuItem("Single Page Only",' ',8);
EndWindow;
return;
end;
««
