Bug in TOpendialog ??

[corpsman]

Guten Morgen allerseits.

Ich habe eine TForm einen TButton und einen TOpendialog in ein Project gepackt. Und folgendes Programmiert :

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenDialog1.Options := OpenDialog1.Options + [ofAllowMultiSelect];
  if OpenDialog1.Execute then begin
    showmessage('Fertig.');
  end;
end;

Nun erwarten wir doch alle, wenn man im sich öffnenden Dialog ein Paar Dateien anwählt und auf OK drückt, dass man dann die Meldung fertig sieht.

Das ist auch der Fall wenn ich sagen wir ca. 20 Dateien auswähle. Wenn es aber 5966 wie in meinem Fall sind, geht es nicht mehr. Bereits bei 100 Dateien bekomme ich 100% CPU Load und das Programm bleibt quasi stehen, und dass ohne dass ich auf die Dateien zugreife und oder sie verarbeitet habe..

Ist da ein Bug bekannt ?

Hier noch die üblichen zusätzlichen Informationen :

Code: Alles auswählen

Linux corpsman2 3.2.0-24-generic #37-Ubuntu SMP Wed Apr 25 08:43:52 UTC 2012 i686 i686 i386 GNU/Linux
Free Pascal Compiler version 2.4.4-3.1 [2012/01/04] for i386
Lazarus SVN Revision : 37131

[theo]

Das ist ziemlich sicher ein GTK Problem.
Aber wie kommt ihr bloss auf solche Ideen? Von Hand 5000 Dateien auswählen? Tss...
Wenn du ein ganzes Verzeichnis einlesen willst, dann nimm ein TSelectDirectoryDialog und lies es mit FindFirst.... etc. ein.

[corpsman]

naja, ansich hast du recht, doch was ich hier gerade geschieben hatte war absolut Prototyping und ein

Opendialog.execute

strg+a

for i := 0 to opendialog1.item.count-1 do begin

ist einfach schneller als alles mit findfirst ... zu machen .

[creed steiger]

scheint ein GTK Bug zu sein

http://stackoverflow.com/questions/9275 ... -files-wit" onclick="window.open(this.href);return false;

[corpsman]

hmm, dann macht es auch keinen sinn, wenn ich da nen Bug Report dazu schreibe, da die LCL ja nichts dafür kann. Danke..