Changeset 240 for Common/UCommon.pas

Timestamp:

May 4, 2011, 1:21:07 PM (14 years ago)

Author:

george

Message:

• Added: Routines for opendialog file extension evaluation.

File:

• Common/UCommon.pas (modified) (2 diffs)

Common/UCommon.pas

@@ -4 +4 @@
 
 uses
-  Windows, Classes, SysUtils, SpecializedList, StrUtils; //, ShFolder, ShellAPI;
+  Windows, Classes, SysUtils, SpecializedList, StrUtils, Dialogs; //, ShFolder, ShellAPI;
 
 type
@@ -43 +43 @@
 function LastPos(const SubStr: String; const S: String): Integer;
 function GenerateNewName(OldName: string): string;
+function GetFileFilterItemExt(Filter: string; Index: Integer): string;
+procedure FileDialogUpdateFilterFileType(FileDialog: TOpenDialog);
+
 
 implementation
+
+function GetFileFilterItemExt(Filter: string; Index: Integer): string;
+var
+  List: TStringList;
+begin
+  try
+    List := TStringList.Create;
+    List.Text := StringReplace(Filter, '|', #10, [rfReplaceAll]);
+    Result := List[Index * 2 + 1];
+  finally
+    List.Free;
+  end;
+end;
+
+procedure FileDialogUpdateFilterFileType(FileDialog: TOpenDialog);
+var
+  FileExt: string;
+begin
+  FileExt := GetFileFilterItemExt(FileDialog.Filter, FileDialog.FilterIndex - 1);
+  Delete(FileExt, 1, 1); // Remove symbol '*'
+  if FileExt <> '.*' then
+    FileDialog.FileName := ChangeFileExt(FileDialog.FileName, FileExt)
+end;
 
 function GenerateNewName(OldName: string): string;