paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 05:39:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: fix TabControl invalidation

Browse Source 
git-svn-id: trunk@42559 -
This commit is contained in:
martin 2013-09-02 13:04:15 +00:00
parent 112f98bc2f
commit aae0ab1f7b
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/comctrls.pp
View File

@ -356,7 +356,7 @@ type
procedure SetPageIndex(AValue: Integer); procedure SetPageIndex(AValue: Integer);
procedure SetPages(AValue: TStrings); procedure SetPages(AValue: TStrings);
procedure SetShowTabs(AValue: Boolean); procedure SetShowTabs(AValue: Boolean);
procedure SetTabPosition(tabPos: TTabPosition); procedure SetTabPosition(tabPos: TTabPosition); virtual;
procedure ShowCurrentPage; procedure ShowCurrentPage;
procedure UpdateAllDesignerFlags; procedure UpdateAllDesignerFlags;
procedure UpdateDesignerFlags(APageIndex: integer); procedure UpdateDesignerFlags(APageIndex: integer);
@ -721,7 +721,7 @@ type
procedure SetScrollOpposite(const AValue: Boolean); procedure SetScrollOpposite(const AValue: Boolean);
procedure SetStyle(const AValue: TTabStyle); procedure SetStyle(const AValue: TTabStyle);
procedure SetTabHeight(const AValue: Smallint); procedure SetTabHeight(const AValue: Smallint);
procedure SetTabPosition(const AValue: TTabPosition); procedure SetTabPosition(AValue: TTabPosition); override;
procedure SetTabs(const AValue: TStrings); procedure SetTabs(const AValue: TStrings);
procedure SetTabWidth(const AValue: Smallint); procedure SetTabWidth(const AValue: Smallint);
protected protected

4
lcl/include/tabcontrol.inc
View File

@ -337,6 +337,8 @@ begin
NewWidth,TabControl.ClientHeight); NewWidth,TabControl.ClientHeight);
end; end;
end; end;
TabControl.Invalidate;
end; end;
function TTabControlNoteBookStrings.IndexOfTabAt(X, Y: Integer): Integer; function TTabControlNoteBookStrings.IndexOfTabAt(X, Y: Integer): Integer;
@ -463,7 +465,7 @@ begin
TTabControlStrings(FTabs).TabHeight:=AValue; TTabControlStrings(FTabs).TabHeight:=AValue;
end; end;
procedure TTabControl.SetTabPosition(const AValue: TTabPosition); procedure TTabControl.SetTabPosition(AValue: TTabPosition);
begin begin
if FTabPosition=AValue then exit; if FTabPosition=AValue then exit;
FTabPosition:=AValue; FTabPosition:=AValue;