Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by franz,
16. Okt 2005
Nicht schockiert sein. Der Quelltext wurde von Version 1.0 übernommen und mehrmals erweitert.
procedure TfrmMain.CreatePreviewImage(FileName: TFileName; FileList: TStringList; ItemIndex: Integer = -1);
var
mIcon: TIcon;
mBitmap, mBmpCanvas: TBitmap;
mJPEG: TJPEGImage;
S: String;
mRatio: Single;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by franz,
15. Okt 2005
Hi,
ich weiß, dass es so eine ähnliche Frage schon einmal gab, habe das Thema aber leider nicht mehr gefunden.
Ich möchte in einer ListView Vorschaublider anzeigen. Dabei sollen aber nur die Bilder gezeichnet werden, die gerade benötigt werden. Dazu habe ich folgendes geschrieben:
procedure TfrmMain.ListViewFilesCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State:...