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);
|
