I have tried fixing this myself for many hours now and I just cannot get it to work!
I have 2 TImages...This code basically creates a screenshot of both images together and saves it.
I of the Images is the frame and the other changes in a loop with the contents of the FilelistBox.
All this works BUT it's not saving the images to their original filename it's skipping 1 and this all the
original filenames are wrong :o/
Can you guys please check the code and see if anyone can spot the problem please???
Hope you can help
procedure TForm1.sButton1Click(Sender: TObject);
var i: integer;
for i:=0 to FileListBox1.Items.Count-1 do
bmp := TBitmap.Create;
jpg := TJPegImage.Create;
bmp.Width := Image1.Width;
bmp.height := Image1.height;
bmp.PixelFormat := pf24bit;