paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 14:59:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: po output directory setting: do not use longen/shortenfilename, bug #16278

Browse Source 
git-svn-id: trunk@24681 -
This commit is contained in:
mattias 2010-04-17 19:14:22 +00:00
parent 1ca82b2ef3
commit 240161aeb1
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/frames/project_i18n_options.pas
View File

@ -79,7 +79,8 @@ begin
with FProject do
begin
AFilename := POOutputDirectory;
ShortenFilename(AFilename);
if not IsVirtual then
AFilename:=CreateRelativePath(AFilename,FProject.ProjectDirectory);
POOutDirEdit.Text := AFilename;
EnableI18NCheckBox.Checked := Enablei18n;
Enablei18nInfo(Enablei18n);
@ -93,7 +94,8 @@ begin
with AOptions as TProject do
begin
AFilename := TrimFilename(POOutDirEdit.Text);
LongenFilename(AFilename);
if (not FilenameIsAbsolute(AFilename)) and (not IsVirtual) then
AFilename:=AppendPathDelim(ProjectDirectory)+AFilename;
POOutputDirectory := AFilename;
EnableI18N := EnableI18NCheckBox.Checked;
end;

2
lcl/lclclasses.pp
View File

@ -114,7 +114,7 @@ end;
procedure TLCLComponent.BeforeDestruction;
begin
inherited;
inherited BeforeDestruction;
Destroying;
end;