Hilfe mit der CheckBoxList

[StoRmtec]

Hy @all

Hätte da eine Frage.
Ich habe eine mThumbsKompo zum Bilder verkleinern und das arbeitet mit einer TString.
Wie kann ich das jetzt machen wenn ich zb vom Ordner 4 Bilder auswählen das er mir nur die 4 verkleinert. Weil zur Zeit verkleinert er mir immer den ganzen Ordner jetzt.

Vielleicht hat wer eine Antwort.

Mfg
StoRmtec

[Sharky]

Zitat von StoRmtec:

.... Weil zur Zeit verkleinert er mir immer den ganzen Ordner jetzt....

Hai StoRmtec,

wie wählst Du denn die Bilder in dem Ordner aus?

[StoRmtec]

Hy Sharky

Also ich mache es mit der OnClick von der CheckListBox.

und das ist der Ausführcode

procedure TForm1.Button3Click(Sender: TObject);
var
i : integer;
begin
for i := 0 to CheckListBox1.Items.Count - 1 do
if CheckListBox1.Checked[i] then
begin
mThumbs1.InFiles.Text := CheckListBox1.Items.text;
mThumbs1.CreateThumbnails;

checklistbox1.itemindex := checklistbox1.itemindex + 1;
end
else
begin
checklistbox1.itemindex := checklistbox1.itemindex + 1;
end;
checklistbox1.itemindex := 0;
end;

mfg
StoRmtec

[Sharky]

Zitat von StoRmtec:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
  i : integer;
begin
 for  i := 0 to  CheckListBox1.Items.Count - 1 do
  if CheckListBox1.Checked[i] then
  begin
  mThumbs1.InFiles.Text := CheckListBox1.Items.text;
  mThumbs1.CreateThumbnails;   

->>>> checklistbox1.itemindex := checklistbox1.itemindex + 1;
  end
  else
  begin
->>>> checklistbox1.itemindex := checklistbox1.itemindex + 1;
  end;
    checklistbox1.itemindex := 0;
end;

Wofür sind denn die markierten Zeilen?

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
  i : integer;
begin
 for  i := 0 to  CheckListBox1.Items.Count - 1 do
  if CheckListBox1.Checked[i] then
  begin
   mThumbs1.InFiles.Text := CheckListBox1.Items.text;
  end;
  mThumbs1.CreateThumbnails;   
end;

So müsste es doch gehen.

[StoRmtec]

danke für die Antwort aber er nimmt trotzdem den ganzen Ordner an.

Der unter Code ist dazu da das er bei dem Eintrag welchen er schon verkleinert hat den Balken nach unten schiebt.

Aber mit deinem aleine geht es auch nicht.

Mfg
StoRmtec

[Sharky]

Boing,

bin ich blöd.

Du übergibst ja immer die gesamte Item-Liste an deine Kompo:

mThumbs1.InFiles.Text := CheckListBox1.Items.text;

Da müsste mThumbs1.InFiles.Text := CheckListBox1.Items[i] stehen

[StoRmtec]

du sorry dich zu entäuschen aber jetzt verkleinert er mir nur die erste Datei im Ordner.

Hilft es dir was wenn ich dir die Kompo schicke das du dir das ansehen kannst.

Mfg
StoRmtec

[Sharky]

Ich glaube ich gehe wieder ins Bett. Ich schreibe ja nur müll!!! Kann ja nicht gehen.

Du musst ja für jedes Bild einen Eintrag in der Stringlist deiner Kompo machen.

Neuer Versuch:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
  i : integer;
begin
mThumbs1.InFiles.Clear;
for  i := 0 to  CheckListBox1.Items.Count - 1 do
  if CheckListBox1.Checked[i] then
  begin
   mThumbs1.InFiles.Add (CheckListBox1.Items.[i]);
  end;
  mThumbs1.CreateThumbnails;   
end;

[StoRmtec]

sorry geht auch nicht

kommt das beim compilieren

[Fehler] haupt.pas(253): Bezeichner erwartet, aber '[' gefunden
[Fehler] haupt.pas(255): Deklaration erwartet, aber Bezeichner 'mThumbs1' gefunden
[Fehler] haupt.pas(256): '.' erwartet, aber ';' gefunden

mfg
StoRmtec

[Sharky]

Okay, ich gehe jetzt ein Bier trinken.

Nimm mal den . bei Items.[i] weg !!!!