Problem on showing image in panel list item

[Davide]

Hello,

I'm trying to implement an imagelist so every time a user upload an image I update the image list.
After the image is uploaded the following code runs but the shown image is always the first I uploaded even though the "FileName" is different:

ImagesPanelList.Items.BeginUpdate;
try
with ImagesPanelList.Items.Add do
begin
PictureOptions.Picture.Url := FileName;
Caption := FileName;
end;
finally
ImagesPanelList.Items.EndUpdate;
end;
ImagesPanelList.AjaxReRender();

What I'm doing wrong?
Is the use of PanelList the best way to implement an image list?

Thank you,
Davide

[Alexander Bulei]

Hi Davide,

Better, you send us the simple demo.. for the faster help

Best Regards.

[Davide]

Hi Alexander,

attached you can find a sample as requested.

Thank you,
Davide

[Alexander Bulei]

Hi Davide,

After the checking your demo, you need change/add the follow code:

delphi code

procedure TPropertyFrame.AddPhotoButtonJQButtonOptionsClick(Sender: TObject; AParams: TStringList);
begin
  FUploadedFileName := ''; // CGDEVTOOLS: from - PhotoDialogExCancelClick
  PhotoFileUpload.FileNames.Clear; // CGDEVTOOLS: from - PhotoDialogExCancelClick
  PhotoFileUpload.JQFileUploadOptions.ClearStoredFiles;
  PhotoDialogEx.Visible := True;
end;

procedure TPropertyFrame.PhotoDialogExCancelClick(Sender: TObject; AParams: TStringList);
begin
  PhotoDialogEx.Visible := False;
end;

Best Regards.

[Davide]

Hello Alexander,

I understood my mistake...

Thank you,
Davide