CGDevTools Forum

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

Hi Davide,

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

Best Regards.

Hi Alexander,

attached you can find a sample as requested.

Thank you,
Davide

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.

Hello Alexander,

I understood my mistake...

Thank you,
Davide