![]() Item.Data := Stream // <- compiler stops here Item.Caption := Item.Caption ' - ' Trim(('Title').AsString) Jpgimg.loadfromfile(Trim() '\' Trim(('id').AsString) '.ndc') This is the procedure that I use to load the images: The first few sets of photos are displayed ok but when I try to generste the 4th or 5th set I get an EOutOfResources (Not enough storage to execute the command). I have a TreeView with different categories of photos and everytime I click on a category the EasyListView is supposed to load the corresponding images but it seems like it does not free the previously loaded photo streams from memory. I used the code snippets that you sent but I am having a memory problem while loading the images to the TEasyListView. RE: Visualising images liamlaurent (IS/IT-Management) Img.LoadFromStream(Item.Data as TMemoryStream) ĪlphaBlender.Blend(EasyListview, Item, ACanvas, (Item.Data as TMemoryStream).Position := 0 Procedure TThumbForm.EasyListviewItemImageDraw Yada Yada. Procedure TThumbForm.EasyListviewItemImageDrawIsCustom Yada Yada. Procedure TThumbForm.EasyListviewItemFreeing Yada Yada. Procedure TThumbForm.LoadThumbsBtnClick(Sender: Tbutton) īmpimg.assign(ResizeBmp(MakeBmp(jpgimg),134)) ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |