Open- und SaveDialoge sollen nur Dateien (keine Ordner) anzeigen

[Popov]

Wenn, dann im Reiter Beispiele.

[Gustav.R]

#NV (Nicht Verfügbar (in Delphi5))

Wozu ist das

ofNoChangeDir := true

eigentlich gut, wenn es gerade nicht das verhindert, was man (ich halt) davon erwartet?

Verwirrte Grüße
G

[Popov]

Was ich oben gesagt habe:

Zitat:

Bei OpenDialog gibt es die Möglichkeit nach dem Öffnen zurück zum Standardordner zurück zu kehren.

Wenn du dich in OpenDialog in Ordnern bewegst, egal wo du bist, bei nächsten Start ist er wieder im eingestellten Ordner.

[Gustav.R]

Und wie ich oben schon schrub:

"Der Anwender soll erst garnicht in einen anderen Ordner gehen dürfen, das ist das Problem - nicht die Fehlermeldung danach..." oder das Zurückwechseln in diesen Ordner.

Der Anwender soll und darf nur im festgelegten Ordner speichern oder öffnen dürfen, darum geht's mir...

GG

[himitsu]

Zitat von Gustav.R:

Der Anwender soll und darf nur im festgelegten Ordner speichern oder öffnen dürfen, darum geht's mir...

Und genau das kann man auch sicherstellen, selbst wenn der Benutzer im Dialog das Verzeichnis wechseln könnte.

Anderes Beispiel:
Bei einem Edit kann man auch erst im OnExit prüfen, ob die Eingabe gültig ist, anstatt im OnChange.
Wenn man das schon wärend der Eingabe prüft, könnte es einige Probleme geben.
z.B. prüfe mal, ob jemand eine gültige Zahl eingibt, wie z.B. "12,34".

"" = ungültig
"1" = gültig
"12" = gültig
"12," = ungültig
"12,3" = gültig
"12,34" = gültig

Und jetzt verrate mir mal einer, wie man dort jetzt diese Zahl eingeben soll?
"1234" und nachträglich das Komma rein?
Und was macht man, wenn schon "9" drinsteht? (rauslöschen und neu anfangen geht nicht)

Gut, hier hat nicht der Benutzer das Problem, sondern du, aber egal.
Man kann sich das Leben auch unnötig schwer machen.

[Gustav.R]

Zitat:

Gut, hier hat nicht der Benutzer das Problem, sondern du, aber egal.
Man kann sich das Leben auch unnötig schwer machen.

Im Notfall gibt es noch TFileListBox

Schrub ich doch bereits in #7

Schluß für heute! Und warum gibt's hier eigentlich keinen versöhnlichen "Prost-Smiley"

Prost!

[Sir Rufo]

Zitat von Gustav.R:

Schluß für heute! Und warum gibt's hier eigentlich keinen versöhnlichen "Prost-Smiley"

[Gustav.R]

@himitsu: Danke für den Qualtext (der unter D5 nicht kompilieren wird). Aber warum sollte ich dem Anwender in anderen Ordner nachschauen lassen, wenn er dort sowieso nicht speichern darf?

LG
Gustav

[himitsu]

Warum darf ich in WinNT (als nicht Administrator) z.B. im Speicherndialog Verzeichnisse wie C:\Programme oder C:\Windows auswählen, auch wenn ich dort nicht speichern darf?

Im Notfall gibt es noch TFileListBox

Zitat:

der unter D5 nicht kompilieren wird

Und warum nicht?

[Popov]

Ich habe auf die Schnelle etwas zusammengestellt. Du brauchst nur eine Listbox. Mit GetFiles werden die Dateien mit Pfad eingelesen. In DrawListBox wird es auf Dateinamen gekürzt und das passende Icon davorgezeichnet. Und siehe da, eine DateiListBox.

Delphi-Quellcode:

uses
  ShellApi;

//Liefert Datei-Liste ohne Unterordner
procedure GetFiles(Path, ExtMask: String; List: TStrings);
var
  Attrib, k: Integer;
  Search: TSearchRec;
begin
  if Path[Length(Path)] <> '\' then Path := Path + '\';

  Attrib := faArchive + faReadOnly + faHidden;

  while Copy(ExtMask, 1, 1) = '.' do
    Delete(ExtMask, 1, 1);

  if FindFirst(Path + '*.' + ExtMask, Attrib, Search) = 0 then
  repeat
    List.Add(Path + Search.Name);
  until FindNext(Search) <> 0;

  FindClose(Search);
end;

function GetIconFromFile(const szFilename: string;
  fSmall: boolean = false): TIcon; {uses ShellApi}
const
  dwIconFlags : array[boolean]of dword =
    (SHGFI_LARGEICON,SHGFI_SMALLICON);
var
  fi : TSHFileInfo;
begin
  Result := nil;

  // Symbol der Datei aus dem System ermitteln
  // Typ (= groß/klein) richtet sich nach dem
  // Funktionsparameter "fSmall" (default = false)
  ZeroMemory(@fi,sizeof(fi));
  SHGetFileInfo(pchar(szFilename),0,fi,sizeof(fi),
    SHGFI_ICON or dwIconFlags[fSmall]);

  // Symbol ermittelt
  if(fi.hIcon <> 0) then
  begin
    Result := TIcon.Create;
    if(Result <> nil) then
      Result.Handle := fi.hIcon;
  end;
end; {by MathiasSimmack}

procedure DrawListBox(Control: TWinControl; Index: Integer; Rect: TRect;
  State: TOwnerDrawState);
const
  Col1: array [Boolean] of TColor = (clWindow, clWindow); //Zebra-Wunschfarben
  Col2: array [Boolean] of TColor = (clInactiveCaptionText, clWindowText);
var
  TopDifTxt, TopDifIco: Integer; // Gleicht die Höhendifferenz aus
  Icon: TIcon;
begin
  with (Control as TListbox) do
  begin
    if odSelected in State then Canvas.Font.Color := clCaptionText else begin
      Canvas.Brush.Color := Col1[Odd(Index)];
      Canvas.Font.Color := Col2[(Control as TListbox).Enabled];
    end;
    TopDifTxt := (ItemHeight div 2) - (Canvas.TextHeight(Items[Index]) div 2);
    TopDifIco := (ItemHeight div 2) - (16 div 2);

    Canvas.TextRect(Rect, Rect.Left + 20, Rect.Top + TopDifTxt,
      ExtractFileName(Items[Index]));

    Canvas.Draw(Rect.Left + 2, Rect.Top + TopDifIco,
      GetIconFromFile(Items[Index], True));
  end;
end;

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  DrawListBox(Control, Index, Rect, State);
end;

Aufruf:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.Style := lbOwnerDrawFixed; //kann bereits in Create eingestellt werden
  ListBox1.ItemHeight := 20; //kann bereits in Create eingestellt werden

  GetFiles('c:\windows', '*', ListBox1.Items);
end;