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

Qt: simplified TCN_SELCHANGING for qt < 4.7

Browse Source 
git-svn-id: trunk@30172 -
This commit is contained in:
zeljko 2011-04-04 09:11:48 +00:00
parent 60b436fdbd
commit ee25740910
1 changed files with 2 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -7045,27 +7045,6 @@ begin
MousePos := QMouseEvent_pos(QMouseEventH(Event))^;
NewIndex := QTabBar_tabAt(QTabBarH(Sender), @MousePos);
CurIndex := QTabBar_currentIndex(QTabBarH(Sender));
if (QtVersionMajor = 4) and (QtVersionMinor < 7) and
(NewIndex <> CurIndex) and (NewIndex <> -1) and (CurIndex <> -1) then
begin
FillChar(Msg, SizeOf(Msg), 0);
Msg.Msg := LM_NOTIFY;
FillChar(Hdr, SizeOf(Hdr), 0);
Hdr.hwndFrom := LCLObject.Handle;
Hdr.Code := TCN_SELCHANGING;
Hdr.idFrom := TQtTabWidget(LCLObject.Handle).GetLCLPageIndex(CurIndex);
Msg.NMHdr := @Hdr;
Msg.Result := 0;
DeliverMessage(Msg);
if Msg.Result <> 0 then
begin
QEvent_accept(Event);
Result := True;
Exit;
end;
end;
if Assigned(FOwner) then
begin
@ -7141,10 +7120,7 @@ begin
QEventKeyPress,
QEventKeyRelease:
begin
{$note check if this works correctly under qt-4.6 and then remove
TCN_SELCHANGING from SlotTabBarMouse}
if (QEvent_type(Event) = QEventKeyPress) and
(QtVersionMajor = 4) and (QtVersionMinor > 6) then
if (QEvent_type(Event) = QEventKeyPress) then
FSavedIndexOnPageChanging := QTabBar_currentIndex(QTabBarH(Widget));
SlotKey(Sender, Event);
end;
@ -7154,10 +7130,7 @@ begin
begin
if QMouseEvent_button(QMouseEventH(Event)) = QtLeftButton then
begin
{$note check if this works correctly under qt-4.6 and then remove
TCN_SELCHANGING from SlotTabBarMouse}
if (QEvent_type(Event) = QEventMouseButtonPress) and
(QtVersionMajor = 4) and (QtVersionMinor > 6) then
if (QEvent_type(Event) = QEventMouseButtonPress) then
FSavedIndexOnPageChanging := QTabBar_currentIndex(QTabBarH(Widget));
Result := SlotTabBarMouse(Sender, Event);
SetNoMousePropagation(QWidgetH(Sender), False);