|
|
| Specifies which RecordView window will open when user clicks (also used on: New, Duplicate) on a record row in Record List. Used inside WindowBegin/EndWindow block (CGrlist type) which has a RecordList defined. |
 |
| WClassName |
The name of the window class that will open when user clicks on a record row. Should be a CGview window. |
|
event DefineWindows
begin
real x,h,h1,h2,h3,h4,h5,h6,h7,hs,v,v2,l,vs,vm,vm2,f,t,hw;
WindowBegin("Mailbox",AllMailLClass,CGmlist,MailView);
SetWRect(20,80,630,290);
SpawnClass(MailDClass);
Sizeable(-1,-1,0,0);
MailBackground;
UseView(MailVc);
v = -29; vs = 20; l = 80;
if (ValuePack(12)) then begin
h = -120;
HalPushButton(h,v,h+l,v+vs,"SwitchToMailL","Current");
end;
RecordList(4,17,-21,-39);
RevColKeyTL(6,6,"Status",M4AppCode,SendFlag,false,UserSer);
RlColKeyTL(32,48,"",M4AppCode,Math,false,UserSer);
RlColKey(48,48,"Subject",Header,false,UserSubject);
if (PocketVersion==false) then begin
RlColKeyTL(-350,-350,"Address",M4AppCode,Math2,false,UserAddr);
RevColKey(-145,-145,"Date",TransDate,false,UserTime);
RlCol(-60,-60,"Time",TransTime,false);
end else begin
RlColKeyTL(148,148,"Address",M4AppCode,Math2,false,UserAddr);
end;
SpecialMenu("Mark as not read",'n',0,"MarknotReadMailLsm");
SpecialMenu("History",'h',1,"MailHistoryMailLsm");
SearchField("Search");
EndWindow;
return;
end;
««