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

fixed glyph display issue and Luiz Americo Pereira Camara

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@534 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
eugene1
2008-08-25 13:07:22 +00:00
parent 7296df02a0
commit c469f3a322
12 changed files with 521 additions and 1457 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
components/gradcontrols/src/ugradtabcontrol.pas
View File

@ -70,8 +70,8 @@ type
property TabButton : TGradTabPageButton read FButton;
function VisibleIndex: integer;
published
property ControlState;
property ControlStyle;
//property ControlState;
//property ControlStyle;
property TabVisible : Boolean read FTabVisible write SetTabVisible default true;
property PageIndex : Integer read GetPageIndex write SetPageIndex;
property Caption : TCaption read GetText write SetText;
@ -1169,6 +1169,9 @@ begin
FPagesBar.Top:=0;
FPagesBar.Width:=FBar.Width;
FPagesBar.Height:=FBar.Height;
Height:=200;
Width:=200;
end;
{------------------------------------------------------------------------------
@ -1409,7 +1412,7 @@ begin
if (Index<0) or (Index>=fPageList.Count) then Exit;
FPagesBar.UnFocusButton(Index);
//UpdateDesignerFlags(Index);
UpdateDesignerFlags(Index);
with TGradTabPage(FPageList.Items[Index]) do
Visible:=false;