You've already forked lazarus-ccr
ce8d2e3dba
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7399 8e941d3f-bd1b-0410-a28a-d453659cc2b4
124 lines
3.4 KiB
ObjectPascal
124 lines
3.4 KiB
ObjectPascal
{-----------------------------------------------------------------------------
|
|
The contents of this file are subject to the Mozilla Public License
|
|
Version 1.1 (the "License"); you may not use this file except in compliance
|
|
with the License. You may obtain a copy of the License at
|
|
http://www.mozilla.org/MPL/MPL-1.1.html
|
|
|
|
Software distributed under the License is distributed on an "AS IS" basis,
|
|
WITHOUT WARRANTY OF ANY KIND, either expressed or implied. See the License for
|
|
the specific language governing rights and limitations under the License.
|
|
|
|
The Original Code is: JvNotebookTabBar.pas, released on 2018-05-01.
|
|
|
|
This unit was created as a workaround for the Lazarus issues with TJvCustomPage
|
|
and TJvCustomPageList and their descendants.
|
|
-----------------------------------------------------------------------------}
|
|
|
|
unit JvNotebookPageList;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, ExtCtrls,
|
|
JvPageList;
|
|
|
|
type
|
|
TJvNotebookPageList = class(TNotebook, IUnknown, IPageList)
|
|
private
|
|
FOnChanging: TJvPageChangingEvent;
|
|
|
|
protected
|
|
procedure AddPage(const ACaption: string);
|
|
function CanChange(AIndex: Integer): Boolean;
|
|
procedure DeletePage(AIndex: Integer);
|
|
function GetPageCaption(AIndex: Integer): string;
|
|
function GetPageCount: Integer;
|
|
procedure MovePage(CurIndex, NewIndex: Integer);
|
|
procedure PageCaptionChanged(AIndex: Integer; const NewCaption: string);
|
|
procedure SetActivePageIndex(AIndex: Integer);
|
|
|
|
public
|
|
|
|
published
|
|
property OnChanging: TJvPageChangingEvent read FOnChanging write FOnChanging;
|
|
end;
|
|
|
|
implementation
|
|
|
|
function GetUniqueName(AOwner: TComponent; const AClassName: string): string;
|
|
var
|
|
i: Integer;
|
|
begin
|
|
i := 0;
|
|
if AOwner = nil then
|
|
begin
|
|
repeat
|
|
Inc(i);
|
|
Result := AClassName + IntToStr(i);
|
|
until FindGlobalComponent(Result) = nil;
|
|
end
|
|
else
|
|
repeat
|
|
Inc(i);
|
|
Result := AClassName + IntToStr(i);
|
|
until AOwner.FindComponent(Result) = nil;
|
|
end;
|
|
|
|
|
|
{-------------------------------------------------------------------------------
|
|
TJvNotebookPageList
|
|
-------------------------------------------------------------------------------}
|
|
|
|
procedure TJvNotebookPageList.AddPage(const ACaption: String);
|
|
begin
|
|
Pages.Add(ACaption);
|
|
end;
|
|
|
|
function TJvNotebookPageList.CanChange(AIndex: Integer): Boolean;
|
|
begin
|
|
Result := (AIndex >= 0) and (AIndex < GetPageCount);
|
|
if Result and Assigned(FOnChanging) then
|
|
FOnChanging(Self, AIndex, Result);
|
|
end;
|
|
|
|
procedure TJvNotebookPageList.DeletePage(AIndex: Integer);
|
|
begin
|
|
Pages.Delete(AIndex);
|
|
end;
|
|
|
|
function TJvNotebookPageList.GetPageCaption(AIndex: Integer): string;
|
|
begin
|
|
Result := Page[AIndex].Caption;
|
|
end;
|
|
|
|
function TJvNotebookPageList.GetPageCount: Integer;
|
|
begin
|
|
Result := inherited PageCount;
|
|
end;
|
|
|
|
procedure TJvNotebookPageList.MovePage(CurIndex, NewIndex: Integer);
|
|
begin
|
|
Pages.Move(CurIndex, NewIndex);
|
|
// Note: This code is not working for Laz < 2.1 (issue #36956),
|
|
// it exchanges the captions only (not the pages) when PageListTabLink is false
|
|
// or crashes when PageListTabLink is true.
|
|
// Required changes in TNotebook are available only in Laz 2.1+
|
|
end;
|
|
|
|
procedure TJvNotebookPagelist.PageCaptionChanged(AIndex: Integer;
|
|
const NewCaption: string);
|
|
begin
|
|
Page[AIndex].Caption := NewCaption;
|
|
end;
|
|
|
|
procedure TJvNotebookPageList.SetActivePageIndex(AIndex: Integer);
|
|
begin
|
|
PageIndex := AIndex;
|
|
end;
|
|
|
|
|
|
end.
|
|
|