Table of Content
HAL Forum
procedure FlowView (
integer StartX,integer StartY,integer EndX,integer EndY)
Description:
Adds a cover-flow view for window's record list that will let the user flip through the images that have been attached to records. Only available in MacOS X. Used inside WindowBegin/EndWindow block.
Parameters:
StartX The X coordinate of the upper left corner of the flow view rectangle.
StartY The Y coordinate of the upper left corner of the flow view rectangle.
EndX The X coordinate of the lower right corner of the flow view rectangle.
EndY The Y coordinate of the lower right corner of the flow view 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;
Related topics:
««