Einzelnen Beitrag anzeigen

StoRmtec

Registriert seit: 6. Jan 2003
209 Beiträge
 
#3

Re: Hilfe zum Daten überschreiben

  Alt 28. Okt 2003, 20:35
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;
  Mit Zitat antworten Zitat