mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-10-15 09:16:02 +02:00
IdeIntf: In TLazPackageID, use getter methods for IDAsString and IDAsWord. Will be used for iProjPack interface.
git-svn-id: trunk@45895 -
This commit is contained in:
parent
f9bf2bb145
commit
e9bfb08a8c
@ -100,11 +100,13 @@ type
|
|||||||
|
|
||||||
TLazPackageID = class(TIDEProjPackBase)
|
TLazPackageID = class(TIDEProjPackBase)
|
||||||
private
|
private
|
||||||
|
FIDAsString: string;
|
||||||
FIDAsWord: string;
|
FIDAsWord: string;
|
||||||
|
function GetIDAsString: string;
|
||||||
|
function GetIDAsWord: string;
|
||||||
protected
|
protected
|
||||||
FName: string;
|
FName: string;
|
||||||
FVersion: TPkgVersion;
|
FVersion: TPkgVersion;
|
||||||
FIDAsString: string;
|
|
||||||
procedure SetName(const AValue: string); virtual;
|
procedure SetName(const AValue: string); virtual;
|
||||||
procedure UpdateIDAsString;
|
procedure UpdateIDAsString;
|
||||||
procedure VersionChanged(Sender: TObject); virtual;
|
procedure VersionChanged(Sender: TObject); virtual;
|
||||||
@ -119,8 +121,8 @@ type
|
|||||||
public
|
public
|
||||||
property Name: string read FName write SetName;
|
property Name: string read FName write SetName;
|
||||||
property Version: TPkgVersion read FVersion;
|
property Version: TPkgVersion read FVersion;
|
||||||
property IDAsString: string read FIDAsString;
|
property IDAsString: string read GetIDAsString;
|
||||||
property IDAsWord: string read FIDAsWord;
|
property IDAsWord: string read GetIDAsWord;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
TPackageInstallType = (
|
TPackageInstallType = (
|
||||||
@ -570,13 +572,6 @@ end;
|
|||||||
|
|
||||||
{ TLazPackageID }
|
{ TLazPackageID }
|
||||||
|
|
||||||
procedure TLazPackageID.SetName(const AValue: string);
|
|
||||||
begin
|
|
||||||
if FName=AValue then exit;
|
|
||||||
FName:=AValue;
|
|
||||||
UpdateIDAsString;
|
|
||||||
end;
|
|
||||||
|
|
||||||
constructor TLazPackageID.Create;
|
constructor TLazPackageID.Create;
|
||||||
begin
|
begin
|
||||||
FVersion:=TPkgVersion.Create;
|
FVersion:=TPkgVersion.Create;
|
||||||
@ -671,6 +666,23 @@ begin
|
|||||||
Version.Assign(Source.Version);
|
Version.Assign(Source.Version);
|
||||||
end;
|
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 }
|
{ TIDEPackage }
|
||||||
|
|
||||||
procedure TIDEPackage.AssignOptions(Source: TPersistent);
|
procedure TIDEPackage.AssignOptions(Source: TPersistent);
|
||||||
|
Loading…
Reference in New Issue
Block a user