Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Dani,
24. Jan 2008
Bin den Code per Debugger durchgegangen und dort wurde nach jeder Einfügeoperation die Update-Methode der TPngImageCollectionItems aufgerufen:
procedure TPngImageCollectionItems.Update(Item: TCollectionItem);
begin
inherited Update(Item);
if FOwner is TPngImageList
then TPngImageList(FOwner).CopyPngs;
end;
wobei CopyPngs so aussieht:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Dani,
23. Jan 2008
Verwende ImgList.PngImages.BeginUpdate und ImgList.PngImages.EndUpdate, das dürfte den Vorgang erheblich beschleunigen.
Edit: Beispiel ohne Fehlerbehandlung
procedure TForm1.Button1Click(Sender: TObject);
const
TimeFormat = 'nn:ss:zzz';
var I: Integer;
StartTime, EndTime: TDateTime;
TempFileName: String;