|
|
| Creates a column (with reversed sorting and search key) for RecordList that is being defined and formats it according to specified rules. Used with CGmlist, CGslist (and sometimes with CGview) windows. |
 |
| ColPos |
Column position |
| HeadPos |
Header position |
| Title |
Column title |
| FieldType |
Determines if any specific rule should be used while preparing the listed value for the display (eg. for listing icons) |
| FieldName |
Field name of the record that was defined with UseView |
| Align |
Listed value alignment: false - left, true - right |
| KeyName |
Name of the index or the sort key |
|
event DefineWindows
begin
real x,h,h1,h2,h3,h4,h5,h6,h7,v,v2,l,vs,vm,f,t;
SetLangMode(LangEnglish,"ENG",0);
WindowBegin("Mailbox",MailLClass,CGmlist,MailView);
SetWRect(20,80,600,291);
SpawnClass(MailDClass);
Sizeable(-1,-1,0,0);
MailBackground;
UseView(MailVc);
FormName(rlMailLPrint);
RecordList(4,17,-21,-39);
RevColKeyTL(6,6,"Stat.",M4AppCode,SendFlag,false,UserSer);
if (GuiType==kGuiCocoa) then begin
RlColKeyTL(32,32,"Att.",M4AppCode,Math,false,UserSer);
end else begin
RlColKeyTL(32,55,"",M4AppCode,Math,false,UserSer);
end;
RlColKey(48,48,"Subject",Header,false,UserSubject);
RlColKeyTL(-350,-350,"Address",M4AppCode,Math2,false,UserAddr);
RlColKey(-145,-145,"Date",TransDate,false,UserTime);
RlCol(-60,-60,"Time",TransTime,false);
SpecialMenu("Mark as not read",'n',0,"MarknotReadMailLsm");
SpecialMenu("History",'h',1,"MailHistoryMailLsm");
SpecialMenu("Open Signature",' ',4,"SignatureMasterWsm");
SearchField("Search");
EndWindow;
return;
end;
««