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

LCL: TTabControl: added comments

Browse Source 
git-svn-id: trunk@11086 -
This commit is contained in:
mattias 2007-05-06 08:34:20 +00:00
parent 0684e89b83
commit 545c0cee08
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/comctrls.pp
View File

@ -408,7 +408,7 @@ type
FStyle: TTabStyle; FStyle: TTabStyle;
FTabControlCreating: Boolean; FTabControlCreating: Boolean;
FTabPosition: TTabPosition; FTabPosition: TTabPosition;
FTabs: TStrings; FTabs: TStrings;// this is a TTabControlNoteBookStrings
function GetDisplayRect: TRect; function GetDisplayRect: TRect;
function GetHotTrack: Boolean; function GetHotTrack: Boolean;
function GetMultiLine: Boolean; function GetMultiLine: Boolean;

5
lcl/include/tabcontrol.inc
View File

@ -535,7 +535,10 @@ var
ARect: TRect; ARect: TRect;
TS : TTextStyle; TS : TTextStyle;
begin begin
ARect := GetClientRect; //DebugLn(['TCustomTabControl.Paint Bounds=',dbgs(BoundsRect),' ClientRect=',dbgs(ClientRect),' CientOrigin=',dbgs(ClientOrigin)]);
// clear the whole area
// ToDo: this clears the tabs as well on some widgetset, namely gtk2
ARect:=ClientRect;
Canvas.Brush.Color:=clBackground; Canvas.Brush.Color:=clBackground;
Canvas.FillRect(ARect); Canvas.FillRect(ARect);
ARect:=GetDisplayRect; ARect:=GetDisplayRect;