Also verkleinern du ich so über eine andere Kombo
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
var
i : integer;
begin
ProgressBar1.min := 1;
ProgressBar1.step := 1;
ProgressBar1.max := CheckListBox1.Items.Count;
mThumbs1.InFiles.Clear;
for i := 0 to CheckListBox1.Items.Count - 1 do
BEGIN
ProgressBar1.Position := i+1;
if CheckListBox1.Checked[i] then
begin
mThumbs1.InFiles.Add (CheckListBox1.Items[i]);
sleep(200);
end;
END;
mThumbs1.CreateThumbnails;
end;
einlesen so
Delphi-Quellcode:
function OpenFolder(root: Integer; Caption: string): string;
var
bi: TBrowseInfo;
lpBuffer: PChar;
pidlPrograms, pidlBrowse: PItemIDList;
begin
if (not SUCCEEDED(SHGetSpecialFolderLocation(GetActiveWindow, root,
pidlPrograms))) then
exit;
lpBuffer := StrAlloc(MAX_PATH);
bi.hwndOwner := GetActiveWindow;
bi.pidlRoot := pidlPrograms;
bi.pszDisplayName := lpBuffer;
bi.lpszTitle := PChar(Caption);
bi.ulFlags := BIF_RETURNONLYFSDIRS;
bi.lpfn := nil;
bi.lParam := 0;
pidlBrowse := SHBrowseForFolder(bi);
if (pidlBrowse <> nil) then
if SHGetPathFromIDList(pidlBrowse, lpBuffer) then
Result := lpBuffer;
StrDispose(lpBuffer);
end;