Table of Content
HAL Forum
procedure BlackFrame (
Integer left,Integer top,Integer right,Integer bottom,string name,
Integer shadetype)
Description:
Adds Black Frame to Window
Parameters:
left Horizontal position of left top corner
top Vertical position of left top corner
right Horizontal position of right bottom corner
bottom Vertical position of right bottom corner
name BlackFrame name
shadetype kFrameShadeNone, kFrameShadeDark, kFrameShadeLight
event DefineWindows
begin
  real h,h1,hl,h2,h3,h4,h5,h6,h7,hs,v,vm,l,vs,f,v2,t,es,hm,hof,fs;
  string 255 label;
  
  SetLangMode(LangEnglish,"CLENG",0);
 
  WindowBegin("Master Control",PhLMasterWClass,CGother,RcType);
  UseView(RcVc);
  es = 6;
  hm = 40; v=28; h2 = 80; vs = 63; // vs = 73;
  AddBic(503,504,h=hm,v,ToolCalendar,0,"Calendar");
  AddBic(501,502,h+=h2,v,ToolMail,0,"Mailbox");
  AddBic(623,624,h+=h2,v,ToolTodo,0,"Tasks");
  AddBic(805,806,h+=h2,v,ToolLogin,0, "Login");
  h = hm; v=v+vs;
  AddBic(632,730,h,v,ToolModule,0,  "Modules");
  AddBic(623,624,h+=h2,v,ToolForms,0,"SmartApps");
  AddBic(21423,21424,h+=h2,v,ToolConferences,0,"Conferences");
  AddBic(636,736,h+=h2,v,ToolChat,0,"Chat");
  h = hm; v=v+vs;
  AddBic(29017,29018,h=hm,v,ToolArchive,0,"Desktop");
  AddBic(701,700,h+=h2,v,ToolRegs,0,  "Registers");
  AddBic(731,734,h+=h2,v,ToolReport,0,  "Reports");
  AddBic(737,738,h+=h2,v,ToolSetup,0, "Settings");

  h = hm; v=v+73;
  BlackFrame(15,v,312,1,"Module:$",kFrameShadeNone);
  SpecMenuItem("Stop automatic login",' ',20);
  EndWindow;
 
  return;
end;


Related topics:
««