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

LCL: TabControl, inherit internal tabs from PageControl

Browse Source 
git-svn-id: trunk@42632 -
This commit is contained in:
martin 2013-09-06 09:49:37 +00:00
parent 2b9bef5afa
commit f7152825d1
2 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/comctrls.pp
View File

@ -687,10 +687,11 @@ type
{ TNoteBookStringsTabControl }
TNoteBookStringsTabControl = class(TCustomTabControl)
TNoteBookStringsTabControl = class(TPageControl) // TCustomTabControl, TODO TCustomTabControl, and fix all widgetsets
protected
FHandelCreated: TNotifyEvent;
procedure CreateHandle; override;
class procedure WSRegisterClass; override;
end;
TNoteBookStringsTabControlClass = class of TNoteBookStringsTabControl;

8
lcl/include/tabcontrol.inc
View File

@ -148,6 +148,13 @@ begin
FHandelCreated(self);
end;
class procedure TNoteBookStringsTabControl.WSRegisterClass;
begin
inherited WSRegisterClass;
// TODO:
//RegisterWSComponent(TNoteBookStringsTabControl, TWSPageControl);
end;
{ TTabControlNoteBookStrings }
procedure TTabControlNoteBookStrings.NBGetImageIndex(Sender: TObject;
@ -648,6 +655,7 @@ var
TabAreaSize: LongInt;
begin
TabAreaSize := TTabControlStrings(FTabs).GetSize;
case TabPosition of
tpTop: ARect.Top:=Min(TabAreaSize,ARect.Bottom);
tpBottom: ARect.Bottom:=Max(ARect.Bottom-TabAreaSize,ARect.Top);