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

IdeIntf: In TLazPackageID, use getter methods for IDAsString and IDAsWord. Will be used for iProjPack interface.

Browse Source 
git-svn-id: trunk@45895 -
This commit is contained in:
juha 2014-07-16 20:01:44 +00:00
parent f9bf2bb145
commit e9bfb08a8c
1 changed files with 22 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
components/ideintf/packageintf.pas
View File

@ -100,11 +100,13 @@ type
TLazPackageID = class(TIDEProjPackBase)
private
FIDAsString: string;
FIDAsWord: string;
function GetIDAsString: string;
function GetIDAsWord: string;
protected
FName: string;
FVersion: TPkgVersion;
FIDAsString: string;
procedure SetName(const AValue: string); virtual;
procedure UpdateIDAsString;
procedure VersionChanged(Sender: TObject); virtual;
@ -119,8 +121,8 @@ type
public
property Name: string read FName write SetName;
property Version: TPkgVersion read FVersion;
property IDAsString: string read FIDAsString;
property IDAsWord: string read FIDAsWord;
property IDAsString: string read GetIDAsString;
property IDAsWord: string read GetIDAsWord;
end;
TPackageInstallType = (
@ -570,13 +572,6 @@ end;
{ TLazPackageID }
procedure TLazPackageID.SetName(const AValue: string);
begin
if FName=AValue then exit;
FName:=AValue;
UpdateIDAsString;
end;
constructor TLazPackageID.Create;
begin
FVersion:=TPkgVersion.Create;
@ -671,6 +666,23 @@ begin
Version.Assign(Source.Version);
end;
function TLazPackageID.GetIDAsString: string;
begin
Result := FIDAsString;
end;
function TLazPackageID.GetIDAsWord: string;
begin
Result := FIDAsWord;
end;
procedure TLazPackageID.SetName(const AValue: string);
begin
if FName=AValue then exit;
FName:=AValue;
UpdateIDAsString;
end;
{ TIDEPackage }
procedure TIDEPackage.AssignOptions(Source: TPersistent);