Advanced File Finder

[Matze]

Hi zusammen!

Kürzlich habe ich mich über die Windows-Suche aufgeregt, da sie nicht zuverlässig Wörter innerhalb von Dateien sucht und ich dies aber dringendst benötigte.

Deshalb habe ich dieses Tool geschrieben, das einem dateien auf der Festplatte sucht. Man kann nur Dateinamen durchsuchen lassen, nur in Dateien suchen oder beides kombiniert.
Es kann zusätzlich auch nach bestimmten Dateitypen suchen.
Diese Dateien können direkt aus dem Programm gelöscht bzw. bearbeitet werden.

Vielleicht ein Programm à la "Programme, die die Welt nicht braucht", dennoch dachte ich, vielleicht braucht es einer.


Ich habe das z.B. gebraucht, umdie Dateien meines Forums umbenennen zu können, und wusste dann sofort, welche Dateien ich alles verändern musste.


Bitte kritisiert das Programm und gebt Verbesserungsvorschläge ab.

Getestet unter Windows XP.

[Matze]

Wieso ist das so, weiß das zufällig einer?

Ich hab also nichts irgendwie verändert im OnResize etc.

[gmarts]

Du hast wahrscheinlich für das Edit die Anchors für links UND rechts aktiviert bzw./und die Anchors für die Buttons auf Right gestellt. Dies im Zusammenhang mit der größeren Schriftart ist der Grund. Beim Größerziehen
"schiebt" das Edit die anderen Buttons immer wieder raus.

MfG GM

[Sprint]

Zitat von Matze:

Ich hab also nichts irgendwie verändert im OnResize etc.

Du musst deine Form auch wenn diese nicht resizeable ist, an die neue Größe anpassen. Das machst du am besten mit dem Steuerelement was am dichtestens an der rechten Seite liegt. In deinem Fall der Finden bzw. Search Button. Nehmen wir mal an, das dein Finden Button btnSearch heißt, dann könnte das so aussehen:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Self.ClientWidth := btnSearch.Left + btnSearch.Width + 8;
end;

[Matze]

Danke euch beiden.

@gmarts: Ja, ich habe Anchors verstellt.