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

Qt: optimisation - no more need to send resize event from TQtTabBar ResizeEvent.

Browse Source 
git-svn-id: trunk@18530 -
This commit is contained in:
zeljko 2009-02-01 15:17:04 +00:00
parent 1f63b94575
commit 4991dcc705
1 changed files with 0 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
lcl/interfaces/qt/qtwidgets.pas
View File

@ -5794,12 +5794,6 @@ end;
function TQtTabWidget.EventFilter(Sender: QObjectH; Event: QEventH): Boolean;
cdecl;
var
w: QWidgetH;
ResizeEvent: QResizeEventH;
i: Integer;
NewSize: TSize;
OldSize: TSize;
begin
Result := False;
@ -5808,28 +5802,6 @@ begin
exit;
BeginEventProcessing;
{qt doesn't call resize for inactive pages, so LCL don't know
about changes on inactive pages, we must send resizeEvent to
all pages except for active one.This is fix for #13018}
if QEvent_type(Event) = QEventResize then
begin
w := QTabWidget_currentWidget(QTabWidgetH(Widget));
if w <> nil then
begin
QWidget_size(w, @NewSize);
OldSize.Cx := 0;
OldSize.Cy := 0;
for i := 0 to QTabWidget_count(QTabWidgetH(Widget)) - 1 do
begin
w := QTabWidget_widget(QTabWidgetH(Widget), i);
if w <> QTabWidget_currentWidget(QTabWidgetH(Widget)) then
begin
ResizeEvent := QResizeEvent_create(@NewSize, @OldSize);
QCoreApplication_postEvent(w, ResizeEvent, 1);
end;
end;
end;
end;
case QEvent_type(Event) of
QEventKeyPress,
QEventKeyRelease: QEvent_ignore(Event);