[GExperts-CVS] gexperts/unstable/Src/OpenFile GX_OpenFile.pas, 1.17, 1.18 GX_OpenFileConfig.dfm, 1.7, 1.8 GX_OpenFileConfig.pas, 1.13, 1.14

[Erik B. <eb...@us...>]

Update of /cvsroot/gexperts/gexperts/unstable/Src/OpenFile
In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv23091/Src/OpenFile

Modified Files:
	GX_OpenFile.pas GX_OpenFileConfig.dfm GX_OpenFileConfig.pas 
Log Message:
Relative path suggestion from Bernd Klaiber
Minor UI tweaks

Index: GX_OpenFileConfig.pas
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Src/OpenFile/GX_OpenFileConfig.pas,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -d -r1.13 -r1.14
--- GX_OpenFileConfig.pas	5 Jul 2006 13:54:32 -0000	1.13
+++ GX_OpenFileConfig.pas	17 Mar 2007 07:46:43 -0000	1.14
@@ -126,6 +126,7 @@
     procedure btnDirectoryReplaceClick(Sender: TObject);
     procedure lbxDirectoryListClick(Sender: TObject);
     procedure btnHelpClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
   private
     FCurrentFileType: TFileType;
     FSettings: TOpenFileSettings;
@@ -306,7 +307,7 @@
 
   FileType := TFileType.Create(FileTypes);
   FileType.FileTypeName := 'Delphi Projects';
-  FileType.Extensions := '*.dpr;*.dpk;*.bpg;*.bdsproj';
+  FileType.Extensions := '*.dpr;*.dpk;*.bpg;*.bdsproj;*.dproj';
   FileType.MaxRecentFiles := DefaultMaxMRU;
 
   FileType := TFileType.Create(FileTypes);
@@ -573,6 +574,13 @@
   end;
 end;
 
+procedure TfmOpenFileConfig.FormCreate(Sender: TObject);
+begin
+  SetParentBackgroundValue(gbxCustomDirectory, True);
+  SetParentBackgroundValue(gbxGeneralSettings, True);
+  SetParentBackgroundValue(gbxIDEMenuItems, True);
+end;
+
 procedure TfmOpenFileConfig.SaveSettings(Settings: TOpenFileSettings);
 begin
   Assert(Assigned(Settings));

Index: GX_OpenFileConfig.dfm
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Src/OpenFile/GX_OpenFileConfig.dfm,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- GX_OpenFileConfig.dfm	6 Apr 2006 00:16:51 -0000	1.7
+++ GX_OpenFileConfig.dfm	17 Mar 2007 07:46:43 -0000	1.8
@@ -15,9 +15,10 @@
   Font.Style = []
   OldCreateOrder = False
   Position = poScreenCenter
+  OnCreate = FormCreate
   DesignSize = (
     613
-    457)
+    459)
   PixelsPerInch = 96
   TextHeight = 13
   object pcConfigPages: TPageControl
@@ -237,7 +238,7 @@
           Width = 160
           Height = 21
           Style = csDropDownList
-          ItemHeight = 13
+          ItemHeight = 0
           TabOrder = 1
         end
         object cbxViewFormType: TComboBox
@@ -246,7 +247,7 @@
           Width = 160
           Height = 21
           Style = csDropDownList
-          ItemHeight = 13
+          ItemHeight = 0
           TabOrder = 3
         end
         object chkOverrideOpenProject: TCheckBox
@@ -263,7 +264,7 @@
           Width = 160
           Height = 21
           Style = csDropDownList
-          ItemHeight = 13
+          ItemHeight = 0
           TabOrder = 5
         end
       end
@@ -287,7 +288,7 @@
           Width = 160
           Height = 21
           Style = csDropDownList
-          ItemHeight = 13
+          ItemHeight = 0
           TabOrder = 1
         end
         object chkMatchAnywhere: TCheckBox

Index: GX_OpenFile.pas
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Src/OpenFile/GX_OpenFile.pas,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -d -r1.17 -r1.18
--- GX_OpenFile.pas	26 Oct 2006 01:18:32 -0000	1.17
+++ GX_OpenFile.pas	17 Mar 2007 07:46:43 -0000	1.18
@@ -471,7 +471,7 @@
     PathUnits.Sorted := True;
     PathUnits.Duplicates := dupIgnore;
     for i := 0 to PathFiles.Count - 1 do
-      PathUnits.Add(PathFiles[i]);
+      PathUnits.Add(ExpandFileName(PathFiles[i]));
 
     AddCurrentProjectFiles(PathUnits);
     FSearchPathFiles.Assign(PathUnits);
@@ -542,7 +542,7 @@
         begin
           FileName := ChangeFileExt(CurrentProjectFiles[i], ExtractFileExt(FileExtensions[ExtensionIndex]));
           if FileExists(FileName) then
-            PathUnits.Add(FileName);
+            PathUnits.Add(ExpandFileName(FileName));
         end;
     finally
       FreeAndNil(CurrentProjectFiles);