|
|
| Hides the typical toolbar for the window that is being defined (the part of the window where New/Duplicate/Cancel/Save/Browse buttons appear). Used inside WindowBegin/EndWindow block. |
event DefineWindows
begin
real x,h,h1,h2,h3,h4,h5,h6,h7,hs,v,v2,l,vs,vm,vm2,f,t,hw;
SetLangMode(LangEnglish,"ENG",0);
WindowBegin("Message from HansaWorld",HWMessageClass,CGview,MailView);
UseView(MailVc);
SetWRect(10,80,620,400);
BrowseButtons(false);
Sizeable(-1,-1,0,0);
WindowHasNoToolbar;
ActiveFieldOnNew("Math");
MailBackground;
vs = 20; v = 6; h = 40; h2 = 140;
EditField(h,v,82,"",ViewOnly,TransDate,false,PasteCurDate);
EditField(h2,v,60,"",ViewOnly,TransTime,false,0);
EditField(h,v+=vs,-40,"",ViewOnly,Header,false,0);
TextField(h,v+=vs,-40,-50,Math,0);
v = -40; l = 140;
h = 100; HalPushButton(h,v,h+l,v+vs,"HWMessageClassClosesm","Close this Window");
h=h+l+30; HalPushButton(h,v,h+l,v+vs,"HWMessageClassSavesm","Save in your Mailbox");
h=h+l+30; HalPushButton(h,v,h+l,v+vs,"HWMessageClassBrowsesm","More Information");
EndWindow;
return;
end;
««
