GExperts: Favorite-Files (modifiziert damit es offen bleibt)
Ich nehme dazu gerne einen Patch.
Mal schauen was es war... Das Favorite-Files Fenster hat bei mir für die File-Auswahl die Projektverwaltung ersetzt
und war auf einem extra-Monitor die ganze Zeit offen. Per Keyboard-Shortcut habe ich das immer beim Programmstart geöffnet.
Damit das Formular sich seine Position merkt musste ich eine Kleinigkeit ändern.
Code:
procedure TfmFavFiles.LoadSettings;
var
Settings: TGExpertsSettings;
Key: string;
ALeft: Integer;
ATop: Integer;
AWidth: Integer;
AHeight: Integer;
begin
// Do not localize.
Settings := TGExpertsSettings.Create;
try
(* Patch *)
ALeft := Settings.ReadInteger(ConfigurationKey, 'Left', self.Left);
ATop := Settings.ReadInteger(ConfigurationKey, 'Top', self.Top);
AWidth := Settings.ReadInteger(ConfigurationKey, 'Width', self.Width);
AHeight := Settings.ReadInteger(ConfigurationKey, 'Height', self.Height);
self.DefaultMonitor := dmDesktop;
self.Position := poDesigned;
self.SetBounds(ALeft, ATop, AWidth, AHeight);
(* Patch *)
Den Standard-Filter für Files habe ich bei mir auch Richtung Delphi verändert (keine C-Files, dafür *.inc und *.rav)
Code:
constructor TfmFavFiles.Create(AOwner: TComponent);
resourcestring
SOpenFilter = // Note: Localize only the descriptive text, not the extensions
'Delphi Files (*.dpr;*.dpk;*.bpg;*.pas;*.inc;*.rav)|*.dpr;*.dpk*.bpg;*.pas;*.inc;*.rav'
procedure TfmFavFiles.SetFilter;
case Folder.FolderType of
ftNormal: dlgGetFiles.FilterIndex := 1;