|
|
| Draws a specific type of line onto a window |
 |
| StartX |
Start X coordinate of line to be drawed |
| StartY |
Start Y coordinate of the line to be drawed |
| EndX |
End X coordinate of the line to be drawed |
| EndY |
End Y coordinate of the line to be drawed |
| LineTypeID |
Line style ID (kLineTypeGray/kLineTypeOSDiv) |
|
event DefineWindows
begin
real x,h,h1,h2,h3,h4,h5,h6,h7,hs,v,v2,l,vs,vm,f,t,v1,hof;
Integer icn,icnovr,icndwn;
string 255 label;
SetLangMode(LangEnglish,"ENG",0);
WindowBegin("Welcome",WelcomeWClass,CGother,RcType);
SetWRect(80,170,788,536);
UseView(RcVc);
ToolBar;
v1=257; v2 = 366; h = 0; hs = 238; h2 = 22;
if (GuiType==kGuiCocoa) then begin
AddBic(1090,1090,-1,0,ToolHomepage,0,"");
end else begin
PushButton(-150,10,-10,90,ToolHomepage,"\\im5034");
end;
EndToolBar;
if (WindowsMode) then begin
WebPage(0,0,-1,255,"res://" & ResourceFolder & "/crm.html","");
end else begin
WebPage(0,0,-1,255,"file://" & ResourceFolder & "/crm.html","");
end;
if (WindowStyle(CurrentWindow)==kWindowStyleRedmond) then begin
h2 = h2 - 10;
icn = 3121;
icndwn = 3122;
icnovr = 3123;
end else begin
icn = 5030;
icndwn = 5031;
icnovr = 5032;
end;
PictureButton(h,v1,h+=hs,v2,icn,icndwn,icnovr,"","",ToolLocalDemo);
ControlLabel(h2,15,238,30,"Demo Company","SystemFont",11,kTextStyleBold,AdjLeft,patM4black);
ControlLabel(h2,40,238,55,"Use this company with sample","SystemFont",11,kTextStyleNone,AdjLeft,patM4dkGray);
ControlLabel(h2,55,238,70,"data to get familiar with CRM by","SystemFont",11,kTextStyleNone,AdjLeft,patM4dkGray);
ControlLabel(h2,70,238,85,"HansaWorld.","SystemFont",11,kTextStyleNone,AdjLeft,patM4dkGray);
WindowLine(h+=1,v1+1,h,v2-1,kLineTypeGray);
PictureButton(h+=1,v1,h+=hs,v2,icn,icndwn,icnovr,"WelcomeWClassNewInstall","",0);
ControlLabel(h2,15,238,30,"New Installation","SystemFont",11,kTextStyleBold,AdjLeft,patM4black);
ControlLabel(h2,40,238,55,"Start a new company from scratch or use","SystemFont",11,kTextStyleNone,AdjLeft,patM4dkGray);
ControlLabel(h2,55,238,70,"the CRM by HansaWorld default","SystemFont",11,kTextStyleNone,AdjLeft,patM4dkGray);
ControlLabel(h2,70,238,85,"settings.","SystemFont",11,kTextStyleNone,AdjLeft,patM4dkGray);
WindowLine(h+=1,v1+1,h,v2-1,kLineTypeGray);
PictureButton(h+=1,v1,h+=(hs-11),v2,icn,icndwn,icnovr,"WelcomeWClassNeedAdvice","",0);
ControlLabel(h2,15,238,30,"Need Advice?","SystemFont",11,kTextStyleBold,AdjLeft,patM4black);
ControlLabel(h2,40,238,55,"Get in touch with our phone support","SystemFont",11,kTextStyleNone,AdjLeft,patM4dkGray);
ControlLabel(h2,55,238,75,"or watch our tutorial videos online.","SystemFont",11,kTextStyleNone,AdjLeft,patM4dkGray);
BottomBar;
CheckBox(20,-28,0,"Show on Startup",flags[0]);
if (GetFirstCompany==-2) then begin
HalPushButton(-280,-32,-160,-12,"DBUsageImportManually","Import backup");
HalPushButton(-140,-32,-20,-12,"DBUsageAsClient","Connect to server"); // DBUsageConnectToServer
end else begin
HalPushButton(-160,-32,-20,-12,"DBUsageExistingInstall","Existing Installation");
end;
EndWindow;
return
end;
|
««