-= DriveR =-, вот так, при загрузке списка
Add(MainForm,1781694,42,140) { Width=429 Height=458 } Add(ListBox,13227999,308,231) { Width=350 Height=323 Font=[Microsoft Sans Serif,8,0,0,204] Ctl3D=1 FileName="ListSlideShow.lst" DataType=1 SelectAdd=0 IndexManager="Index" BoxDrawManager="ListBox" IconsManager="ico" Point(ValueArray) Point(Index) Point(doSelect) Point(String) Point(onMouseUp) Point(Handle) } Add(BoxDrawManager,2890263,42,231) { Name="ListBox" Gutter=1 StyleBack=1 AddSize=1 InversGrad=0 LightColor=16777215 DarkColor=15780518 ColorFrame=8388608 DarkClrGutt=15780518 LightClrBack=16777215 DarkClrBack=15780518 } Add(IconsManager,10306314,84,231) { Name="ico" ImgSize=24 Icons=['t'=[ZIP5E02000078DA63606004420909010610F06062601003D21A402C01C40640CCC8C002966B6064C0011AC088A1A1014281204808481C38700028F21F8C18FEFF87502008120212ABF08105486C06AEC1C95E000B0390180C70A18A530018863800007D7BB2F3],'b'=[ZIP5E02000078DA63606004420909010610F06062601003D21A402C01C40640CCC8C002966B6064C0011AC088A1A1014281204808481C38700028F21F8C18FEFF87502008120212AB70022E047301CC1E6436173A1BA2963C362E3391ED85A926870D3311CE865A0E17C605188638000049E89147],'g'=[ZIP5E02000078DAD54F310E80200C3C8C139393E1098E3EC367F194CE7D053FC3B69880264D74F4DA6B2F4728050812292D501C13B04ADF8449B80B03663BCB010EB225726E4D432D29A51471AA256A6D4D432D29EC82C8469BBE9E89836EBE3934E88F155D93A3398EF3F9B56EB7223F76A6DBFEFD5B0EF0739C871A9C91]] } Add(FilePart,8303095,392,364) { link(onExt,11377787:doModify,[]) } Add(Case,2698174,497,378) { Value=String(TXT) DataOnTrue=Integer(0) link(onNextCase,15314851:doCase,[]) link(onTrue,9033694:doWork2,[(544,391)(544,405)]) } Add(Case,15314851,560,378) { Value=String(BMP) DataOnTrue=Integer(1) link(onNextCase,1447000:doCase,[]) link(onTrue,9033694:doWork1,[(606,391)]) } Add(IndexManager,15351906,700,189) { Name="Index" Index=[] } Add(Hub,1286859,105,189) { OutCount=3 link(onEvent1,15351906:doClear,[]) link(onEvent2,13227999:doClear,[(256,202)(256,244)]) link(onEvent3,2791411:doEnum,[(161,209)(161,363)]) } Add(Case,1447000,623,378) { Value=String(JPG) DataOnTrue=Integer(2) link(onTrue,9377594:doWork2,[]) } Add(StrCase,11377787,441,378) { Type=1 link(onModify,2698174:doCase,[]) } Add(ArrayRW,15939757,700,371) { link(Array,15351906:Indexes,[]) } Add(HubEx,9377594,672,378) { link(onEvent,15939757:doAdd,[]) } Add(HubEx,9033694,602,392) { link(onEvent,9377594:doWork3,[(676,405)]) } Add(WinTools,5463488,350,399) { Point(doRedraw) link(Handle,13227999:Handle,[]) } Add(StrList,9484418,189,259) { Strings=#19:c:/folder/image.bmp|19:c:/folder/image.BMP|19:c:/folder/image.txt|19:c:/folder/image.TXT|19:c:/folder/image.jpg|19:c:/folder/image.JPG| } Add(ArrayEnum,2791411,203,357) { link(onItem,15961716:doEvent1,[]) link(onEndEnum,5463488:doRedraw,[(248,370)(248,433)]) link(Array,9484418:Array,[]) } Add(ArrayRW,7709784,322,343) { link(Array,13227999:Array,[]) } Add(Button,5472268,42,189) { Left=145 Top=340 Caption="Load" link(onClick,1286859:doEvent1,[]) } Add(Hub,15961716,273,357) { link(onEvent1,7709784:doAdd,[]) link(onEvent2,8303095:doPart,[]) }
Предупреждение! Требуется обновление IndexManager, а то у него баг был при очистке пустого списка
[svn]IndexManager.pas[/svn]
|