pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* Implement items.GetNamePath

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3866 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2015-01-04 01:12:42 +00:00
parent 98b35354b6
commit 41fe618242
1 changed files with 11 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
components/jvcllaz/run/JvXPBar.pas
View File

@ -135,6 +135,8 @@ type
TJvXPBarItemClass = class of TJvXPBarItem; TJvXPBarItemClass = class of TJvXPBarItem;
{ TJvXPBarItem }
TJvXPBarItem = class(TCollectionItem) TJvXPBarItem = class(TCollectionItem)
private private
FActionLink: TJvXPBarItemActionLink; FActionLink: TJvXPBarItemActionLink;
@ -189,6 +191,7 @@ type
constructor Create(ACollection: TCollection); override; constructor Create(ACollection: TCollection); override;
destructor Destroy; override; destructor Destroy; override;
procedure Assign(Source: TPersistent); override; procedure Assign(Source: TPersistent); override;
function GetNamePath: string; override;
property Data: Pointer read FData write FData; property Data: Pointer read FData write FData;
property DataObject: TObject read FDataObject write FDataObject; property DataObject: TObject read FDataObject write FDataObject;
property Images: TCustomImageList read GetImages; property Images: TCustomImageList read GetImages;
@ -875,6 +878,14 @@ begin
inherited Assign(Source); inherited Assign(Source);
end; end;
function TJvXPBarItem.GetNamePath: string;
begin
if FName <> '' then
Result := FWinXPBar.GetNamePath + '.' + FName
else
Result := inherited GetNamePath;
end;
function TJvXPBarItem.IsAutoCheckStored: Boolean; function TJvXPBarItem.IsAutoCheckStored: Boolean;
begin begin
Result := (ActionLink = nil) or not FActionLink.IsAutoCheckLinked; Result := (ActionLink = nil) or not FActionLink.IsAutoCheckLinked;