paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-23 17:08:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

made TabVisible public

Browse Source 
git-svn-id: trunk@6534 -
This commit is contained in:
vincents 2005-01-10 16:35:35 +00:00
parent 1562f523fe
commit eb7cf06c6b
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/extctrls.pp
View File

@ -64,9 +64,9 @@ type
procedure DestroyHandle; override; procedure DestroyHandle; override;
function GetPageIndex: integer; function GetPageIndex: integer;
procedure SetPageIndex(AValue: Integer); procedure SetPageIndex(AValue: Integer);
property TabVisible: Boolean read GetTabVisible write SetTabVisible default True;
public public
property PageIndex: Integer read GetPageIndex write SetPageIndex; property PageIndex: Integer read GetPageIndex write SetPageIndex;
property TabVisible: Boolean read GetTabVisible write SetTabVisible default True;
constructor Create(TheOwner: TComponent); override; constructor Create(TheOwner: TComponent); override;
procedure AdjustClientRect(var ARect: TRect); override; procedure AdjustClientRect(var ARect: TRect); override;
function CanTab: boolean; override; function CanTab: boolean; override;
@ -986,6 +986,9 @@ end.
{ {
$Log$ $Log$
Revision 1.128 2005/01/10 16:35:35 vincents
made TabVisible public
Revision 1.127 2005/01/09 23:28:18 mattias Revision 1.127 2005/01/09 23:28:18 mattias
fixed loading no unit at start fixed loading no unit at start