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

jvcllaz: Add component editor for TJvOutlookBar (still some issues...)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6349 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-04-24 15:22:33 +00:00
parent 0f98655a07
commit 3106033431
6 changed files with 1133 additions and 51 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
components/jvcllaz/run/JvCustomControls/JvOutlookBar.pas
View File

@ -138,6 +138,7 @@ type
constructor Create(AOwner: TPersistent);
function Add: TJvOutlookBarButton;
procedure Assign(Source: TPersistent); override;
function IndexOf(AButton: TJvOutlookBarButton): Integer;
function Insert(Index: Integer): TJvOutlookBarButton;
property Items[Index: Integer]: TJvOutlookBarButton read GetItem write SetItem; default;
end;
@ -219,6 +220,7 @@ type
public
constructor Create(AOwner: TPersistent);
function Add: TJvOutlookBarPage;
function IndexOf(APage: TJvOutlookBarPage): Integer;
function Insert(Index: Integer): TJvOutlookBarPage;
procedure Assign(Source: TPersistent); override;
property Items[Index: Integer]: TJvOutlookBarPage read GetItem write SetItem; default;
@ -1053,6 +1055,13 @@ begin
Result := TJvOutlookBarButton(inherited Items[Index]);
end;
function TJvOutlookBarButtons.IndexOf(AButton: TJvOutlookBarButton): Integer;
begin
for Result := 0 to Count-1 do
if AButton = GetItem(Result) then exit;
Result := -1;
end;
function TJvOutlookBarButtons.Insert(Index: Integer): TJvOutlookBarButton;
begin
Result := TJvOutlookBarButton(inherited Insert(Index));
@ -1361,6 +1370,13 @@ begin
Result := TJvOutlookBarPage(inherited Items[Index]);
end;
function TJvOutlookBarPages.IndexOf(APage: TJvOutlookBarPage): Integer;
begin
for Result := 0 to Count-1 do
if APage = GetItem(Result) then exit;
Result := -1;
end;
function TJvOutlookBarPages.Insert(Index: Integer): TJvOutlookBarPage;
begin
Result := TJvOutlookBarPage(inherited Insert(Index));