paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-05 00:13:39 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fixed PO output directory path delim, bug #16278

Browse Source 
git-svn-id: trunk@24665 -
This commit is contained in:
mattias 2010-04-17 15:11:44 +00:00
parent 5dafb4b21e
commit 45b62fabb4
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/frames/project_i18n_options.pas
View File

@ -6,7 +6,7 @@ interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
StdCtrls, Project, IDEOptionsIntf, LazarusIDEStrConsts, IDEDialogs;
StdCtrls, Project, IDEProcs, IDEOptionsIntf, LazarusIDEStrConsts, IDEDialogs;
type
@ -49,7 +49,8 @@ begin
NewDirectory := LazSelectDirectory(lisPOChoosePoFileDirectory,
FProject.ProjectDirectory);
if NewDirectory = '' then Exit;
FProject.ShortenFilename(NewDirectory);
if not FProject.IsVirtual then
NewDirectory:=CreateRelativePath(NewDirectory,FProject.ProjectDirectory);
POOutDirEdit.Text := NewDirectory;
end;

4
ide/project.pp
View File

@ -876,8 +876,8 @@ type
function FileIsInProjectDir(const AFilename: string): boolean;
procedure GetVirtualDefines(DefTree: TDefineTree; DirDef: TDirectoryDefines);
function SearchFile(const Filename,SearchPaths,InitialDir:string):string;
procedure ShortenFilename(var AFilename: string); override;
procedure LongenFilename(var AFilename: string); override;
procedure ShortenFilename(var AFilename: string); override; // for lpi file
procedure LongenFilename(var AFilename: string); override; // for lpi file
// package dependencies
function FindDependencyByName(const PackageName: string): TPkgDependency;