paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 17:39:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: compiler options dialog: path editor dlg using relative paths

Browse Source 
git-svn-id: trunk@22203 -
This commit is contained in:
mattias 2009-10-17 10:19:47 +00:00
parent b039ff1f73
commit a66ef59cd2
2 changed files with 23 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ide/compileroptionsdlg.pp
View File

@ -1884,6 +1884,7 @@ begin
);
end else
exit;
AButton.CurrentPathEditor.BaseDirectory:=CompilerOpts.BaseDirectory;
AButton.CurrentPathEditor.Path:=OldPath;
AButton.CurrentPathEditor.Templates:=SetDirSeparators(Templates);
end;

24
ide/patheditordlg.pas
View File

@ -29,7 +29,8 @@ interface
uses
Classes, SysUtils, Forms, Controls, SynEdit, Buttons, StdCtrls, Dialogs,
LResources, FileUtil, ButtonPanel, LazarusIDEStrConsts, EditorOptions;
LResources, FileUtil, ButtonPanel, MacroIntf,
LazarusIDEStrConsts, EditorOptions;
type
@ -56,14 +57,19 @@ type
procedure MoveUpButtonClick(Sender: TObject);
procedure TemplatesListBoxDblClick(Sender: TObject);
private
FBaseDirectory: string;
FEffectiveBaseDirectory: string;
function GetPath: string;
function GetTemplates: string;
function PathToText(const APath: string): string;
procedure SelectCurrentPath;
procedure SetBaseDirectory(const AValue: string);
procedure SetPath(const AValue: string);
procedure SetTemplates(const AValue: string);
function TextToPath(const AText: string): string;
public
property BaseDirectory: string read FBaseDirectory write SetBaseDirectory;
property EffectiveBaseDirectory: string read FEffectiveBaseDirectory;
property Path: string read GetPath write SetPath;
property Templates: string read GetTemplates write SetTemplates;
end;
@ -116,13 +122,18 @@ end;
procedure TPathEditorDialog.BrowseButtonClick(Sender: TObject);
var y: integer;
NewPath: String;
begin
with BrowseDialog do begin
Title:=lisPathEditSelectDirectory;
if (not Execute) then exit;
y:=PathEdit.CaretY;
if y>PathEdit.Lines.Count then y:=PathEdit.Lines.Count;
PathEdit.Lines.Insert(y,Trim(Filename));
NewPath:=Filename;
if (FEffectiveBaseDirectory<>'')
and FilenameIsAbsolute(FEffectiveBaseDirectory) then
NewPath:=CreateRelativePath(NewPath,FEffectiveBaseDirectory);
PathEdit.Lines.Insert(y,Trim(NewPath));
PathEdit.CaretY:=y+1;
end;
SelectCurrentPath;
@ -313,6 +324,15 @@ begin
PathEdit.BlockEnd:=Point(length(PathEdit.Lines[y-1])+1,y);
end;
procedure TPathEditorDialog.SetBaseDirectory(const AValue: string);
begin
if FBaseDirectory=AValue then exit;
FBaseDirectory:=AValue;
FEffectiveBaseDirectory:=FBaseDirectory;
IDEMacros.SubstituteMacros(FEffectiveBaseDirectory);
BrowseDialog.InitialDir:=FEffectiveBaseDirectory;
end;
{ TPathEditorButton }
procedure TPathEditorButton.Click;