|
|
| Creates a bottom toolbar for the window that is being defined. Items declared after calling this procedure will be placed onto the bottom toolbar. Used inside WindowBegin/EndWindow block. |
event DefineWindows
begin
real h,h1,h2,h3,h4,h5,v,l,vs,vm,vm2,f,v2;
SetLangMode(LangEnglish,"ENG",0);
WindowBegin("Create a new Company",BooksSetupWClass,CGother,RcType);
UseView(RcVc);
SetWRect(80,170,788,536);
//SetWRect(80,170,768,526);
ToolBar;
if (GuiType==kGuiCocoa) then begin
AddBic(1052,1052,-1,0,ToolHomepage,0,"");
end else begin
PushButton(-120,10,-10,90,ToolHomepage,"\\im1052");
end;
EndToolBar;
h4 = 64;
h = h4 + 130;
h2 = h + 250;
h3 = h + 320;
v = 40;
vs = 20;
ButtonFrame(h4,v,579,12,"Company Information");
EditFieldTL(h,v+=4,410,"Company Name",M4Str,Normal,200,f1,false,0);
SoftEditField(h,v+=vs,410,"Business Name",Normal ,"BusinessName",false,0,M4Str,200);
EditFieldTL(h,vm=(v+=vs),150,"Address",M4Str,Normal,60,f2,false,0);
EditFieldTL(h,v+=vs,150,"",M4Str,Normal,60,f3,false,0);
EditFieldTL(h,v+=vs,150,"",M4Str,Normal,60,f4,false,0);
EditFieldTL(h,v+=vs,150,"",M4Str,Normal,60,f5,false,0);
EditFieldTL(h,v+=vs,150,"",M4Str,Normal,60,f6,false,0);
EditFieldTL(h,v+=vs,150,"Commercial Reg. No.",M4Str,Normal,60,f12,false,0);
EditFieldTL(h2,v=vm,150,"Phone",M4Str,Normal,60,f7,false,0);
EditFieldTL(h2,v+=vs,150,"E-mail",M4Str,Normal,60,f8,false,0);
EditFieldTL(h2,v+=vs,150,"Reg. No.",M4Str,Normal,60,f9,false,0);
EditFieldTL(h2,v+=vs,150,"VAT No.",M4Str,Normal,60,f10,false,0);
EditFieldTL(h2,v+=vs,150,"Home Community",M4Str,Normal,20,AccStr,false,0);
CheckBox(h,v+=43,0,"Start with standard chart of accounts",flags[0]);
ButtonFrame(h4,v+=80,579,4,"Personal Information");
EditFieldTL(h,v+=4,150,"Name",M4Str,Normal,60,f11,false,0);
EditFieldTL(h3,v,80,"Signature",M4Code,Normal,10,FirstAcc,false,0);
EditFieldTL(h,v+=vs,150,"E-mail",M4Str,Normal,30,Stext,false,0);
EditFieldTL(h3,v,80,"Password",M4Star,Normal,60,ObjStr,false,0);
EditFieldTL(h3,v+=vs,80,"Confirm Password",M4Star,Normal,60,LastAcc,false,0);
// EditFieldTL(h,v+=50,400,"Activation Code",M4Str,Normal,100,f12,false,0); not used
BottomBar;
HalPushButton(20,-34,140,-14,"BooksSetupWClassBack","Back");
HalPushButton(-140,-34,-20,-14,"BooksSetupWClassNext","Create");
EndWindow;
return;
end;
 |
««