|
|
| Returns the style ID of a specified window |
 |
| WindowID |
The ID of a window that is being queried for the style ID |
|
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 & "/crmlight.html","");
end else begin
WebPage(0,0,-1,255,"file://" & ResourceFolder & "/crmlight.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","SystemFont",11,kTextStyleNone,AdjLeft,patM4dkGray);
ControlLabel(h2,70,238,85,"CRM Light by 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 Light 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;
|
««