Search the Community

I have managed to write a program which demonstrates the methods outlined in parts 1&2. I created an image component with the ability to move built in. The program appears to work perfectly and gives the end user the impression that they are dragging and dropping the image. As you can see its pretty basic but surprisingly simple. I hope that this solution addresses the problem and could be adapted and improved. The main program is included as an attachment to this post. It also includes the code necessary to create the Angord component. Unit1.pas

I may be passing on old news, if not then I have found out how to successfully drag and drop images in Delphi. You do not use the existing commands concerned with drag and drop they are only used to move text from one text control to another or drag items from windows explorer. You use the PTinRect command and program a response to the outcome. The command checks if the top left corner of a control falls inside the boundary rectangle of another control. If it does then you can identify the name of the control underneath and perform an appropriate action. You have to create your own methods depending on the outcome but this is very easy basically IF..THEN commands. It works for any control and as I discovered is the standard method used by software companies to drag and drop images. Borland/Embarcadero never told us about this. I hope this has been helpful?

I have a project that at some point I need to display many images on the screen at the same time These images are registered by the user, so before I didn't pay attention to the size of the images one of the users was registering 11MB png images which at some point caused the app to crash because the RAM consumption was going too high Then I did a treatment to resize the images and it worked fine... But I can't stop thinking, what if I want to use the images with the best possible resolution? even on devices with high performance, the RAM consumption is huge, eight 11MB images displayed on the screen at the same time use 500MB+ i have a loop that create frames and do something like: for product in menu do begin frame:= TFrmImageItem.create(product, 'imagePath'); layoutFrmImageItem.addObject(frame); end; constructor TFrmImageItem.create(product:TProduct, imagepath:string); var bitmap:TBitmap begin lbName.text:=product.name; bitmap := tbitmap.create; bitmap.setSize(TSize.create(200,200)); bitmap. LoadFromFile(imagePath); Timage.bitmap.assign(bitmap); bitmap.free; end i wonder what else can be done to reduce the memory consuption without resizing the images i've alredy implemented a virtualization method to set frameVisible:=false when the frame is not on the screen also a double buffer method (wich didn't work well) i wonder if you guys can provide me any ideas maybe the memory is skyrocketing because i'm using frames?

Hi, I've created two new components based on TImageList and TImage in FMX. The new components load images from a directory during design and in run-time. Please have a look here: https://github.com/jkour/neImageTools Thanks