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

improved font handling and updated demo by Luiz Americo Pereira Camara

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@529 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
eugene1
2008-08-15 19:28:55 +00:00
parent e8f965bb06
commit 1a7f321de7
13 changed files with 647 additions and 454 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -32,7 +32,7 @@ type
procedure SetShowCloseButton(AValue: Boolean);
protected
procedure SetRotateDirection(const Value: TRotateDirection); override;
procedure SetText(const Value: TCaption); override;
procedure RealSetText(const Value: TCaption); override;
public
constructor Create(AOwner: TComponent); override;
procedure Resize; override;
@ -350,7 +350,7 @@ end;
{-------------------------------------------------------------------------------
TGradTabPageButton.SetText(const Value: TCaption)
------------------------------------------------------------------------------}
procedure TGradTabPageButton.SetText(const Value: TCaption);
procedure TGradTabPageButton.RealSetText(const Value: TCaption);
var
NewCaption : TCaption;
begin
@ -359,7 +359,7 @@ begin
{if FShowCloseButton then
NewCaption := NewCaption+' ';}
inherited SetText(NewCaption);
inherited RealSetText(NewCaption);
AlignCloseButton;