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

tvplant: More features in demo project.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4805 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-06-22 20:19:35 +00:00
parent 705a6878ac
commit 9b5d03f687
6 changed files with 1614 additions and 491 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
components/tvplanit/source/vpnavbar.pas
View File

@@ -128,6 +128,7 @@ type
constructor Create(Collection: TCollection); override;
destructor Destroy; override;
function GetContainer: TVpFolderContainer;
function ItemByName(AName: String): TVpNavBtnItem;
property Items[Index: Integer]: TVpNavBtnItem read GetItem;
property ItemCount: Integer read GetItemCount;
@@ -834,6 +835,18 @@ begin
end;
{=====}
function TVpNavFolder.ItemByName(AName: String): TVpNavBtnItem;
var
i: Integer;
begin
for i:=0 to ItemCount-1 do begin
Result := Items[i];
if Result.Name = AName then
exit;
end;
Result := nil;
end;
procedure TVpNavFolder.lfGetEditorCaption(var Caption: string);
begin
Caption := RSEditingItems;