paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 15:09:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

tdbf: using project targetfile directory, issue #35301, from errno

Browse Source 
git-svn-id: trunk@60817 -
This commit is contained in:
mattias 2019-04-01 14:07:03 +00:00
parent 197014d2a1
commit 181ba313a6
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/tdbf/registerdbf.pas
View File

@ -16,7 +16,7 @@ unit RegisterDBF;
interface
uses
Classes, SysUtils, LResources, Dbf, LazarusPackageIntf, PropEdits;
Classes, SysUtils, LResources, Dbf, LazarusPackageIntf, PropEdits, MacroIntf;
resourcestring
dbfsAllDbasefiles = 'DBase Files';
@ -60,9 +60,17 @@ begin
Tdbf, 'TableName', TDbfFileNamePropertyEditor);
end;
function TargetPath: string;
begin
Result:='$TargetFile()';
IDEMacros.SubstituteMacros(Result);
Result:=ExtractFilePath(Result);
end;
procedure Register;
begin
RegisterUnit('DBF',@RegisterUnitDBF);
DbfBasePath:=@TargetPath;
end;
end.