|
|
| Adds a record list design-object to a window. Enables the user to browse through the records of a register that has been defined through UseView function. Used inside WindowBegin/EndWindow block. |
 |
| StartX |
The X coordinate of the upper left corner of the record list rectangle. |
| StartY |
The Y coordinate of the upper left corner of the record list rectangle. |
| EndX |
The X coordinate of the lower right corner of the record list rectangle. |
| EndY |
The Y coordinate of the lower right corner of the record list rectangle. |
|
event DefineWindows
begin
SetLangMode(LangEnglish,"ENG",0);
WindowBegin("Paste Item",INSClass,CGslist,INView);
UseView(INVc);
SpawnClass(INDClass);
v = 17;
if (GuiType==kGuiCocoa) then begin
SetWRect(210,80,750,498);
Sizeable(-1,200,0,0);
FlowView(0,0,-1,200);
v = v+200;
end else begin
SetWRect(210,80,750,298);
Sizeable(-1,-1,0,0);
end;
RecordList(4,v,-21,-39);
RlColKey(4,4,"No.",Code,false,ActCode);
if ValuePack(1) then begin
RlColKey(105,105,"Group",Group,false,ActGroup);
RlColKey(160,160,"Description",Name,false,ActName);
end else begin
RlColKey(105,105,"Description",Name,false,ActName);
end;
RlCol(-70,-30,"Price",UPrice1,true);
SearchField("Search");
if ValuePack(1) then begin
SpecialMenu("Item Status Report",'r',0,"INStatusINSsm");
end;
EndWindow;
return;
end;
««