paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 21:40:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt: optimized TQtTabWidget setting tab caption and moving page,those ops are about 25-30% faster now.

Browse Source 
git-svn-id: trunk@26030 -
This commit is contained in:
zeljko 2010-06-10 17:48:50 +00:00
parent c875150547
commit 694c03fb9a
1 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lcl/interfaces/qt/qtwsextctrls.pp
View File

@ -328,23 +328,23 @@ class procedure TQtWSCustomNotebook.MovePage(const ANotebook: TCustomNotebook;
const AChild: TCustomPage; const NewIndex: integer);
var
TabWidget: TQtTabWidget;
AIndex: Integer;
Index: Integer;
Page: TQtPage;
begin
Page := TQtPage(AChild.Handle);
TabWidget := TQtTabWidget(ANotebook.Handle);
AIndex := ANoteBook.IndexOf(AChild);
Index := AChild.PageIndex;
if Index < 0 then
Index := ANoteBook.IndexOf(AChild);
TabWidget.BeginUpdate;
TabWidget.setUpdatesEnabled(false);
TabWidget.removeTab(AIndex);
TabWidget.removeTab(Index);
TabWidget.insertTab(NewIndex, Page.Widget, Page.getIcon, Page.getText);
TabWidget.setUpdatesEnabled(true);
TabWidget.EndUpdate;
if TabWidget.getCurrentIndex <> NewIndex then
TabWidget.setCurrentWidget(Page);
TabWidget.EndUpdate;
end;
class procedure TQtWSCustomNotebook.RemovePage(const ANotebook: TCustomNotebook;
@ -435,8 +435,13 @@ end;
class procedure TQtWSCustomNotebook.SetTabCaption(
const ANotebook: TCustomNotebook; const AChild: TCustomPage;
const AText: string);
var
Index: Integer;
begin
TQtTabWidget(ANotebook.Handle).setTabText(ANoteBook.IndexOf(AChild), GetUtf8String(AText));
Index := AChild.PageIndex;
if Index < 0 then
Index := ANotebook.IndexOf(AChild);
TQtTabWidget(ANotebook.Handle).setTabText(Index, GetUtf8String(AText));
end;
class procedure TQtWSCustomNotebook.SetTabPosition(