AV in TQtWSWinControl.ShowHide
Original Reporter info from Mantis: zamtmn @zamtmn
-
Reporter name: Andrey Zubarev
Original Reporter info from Mantis: zamtmn @zamtmn
- Reporter name: Andrey Zubarev
Description:
Call stack:
#0 SHOWHIDE(0x7fffe380a0f0, 0x7fffe3809ab0) at qt/qtwscontrols.pp:636
#1 DOSENDSHOWHIDETOINTERFACE(0x7fffe3809ab0) at include/wincontrol.inc:8364
#2 CMSHOWINGCHANGED(0x7fffe3809ab0, {MSG = 45081, UNUSEDMSG = 0, WPARAM = 0, LPARAM = 0, RESULT = 0}) at include/wincontrol.inc:8552
#3 SYSTEM$_$TOBJECT_$__$$_DISPATCH$formal at :0
#4 ?? at :0
#5 .Ld228 at :0
#6 ?? at :0
#7 ?? at :0
#8 ?? at :0
#9 ?? at :0
#10 ?? at :0
Fix:
Index: lcl/interfaces/qt/qtwscontrols.pp
===================================================================
--- lcl/interfaces/qt/qtwscontrols.pp (revision 54646)
+++ lcl/interfaces/qt/qtwscontrols.pp (working copy)
@@ -632,7 +632,7 @@
if AWinControl.HandleObjectShouldBeVisible and
(LowerCase(AWinControl.Font.Name) = 'default') then
begin
- if AWinControl.IsParentFont then
+ if (AWinControl.IsParentFont)and(assigned(AWinControl.Parent)) then
SetFont(AWinControl, AWinControl.Parent.Font) {DO NOT TOUCH THIS PLEASE !}
else
SetFont(AWinControl, AWinControl.Font); {DO NOT TOUCH THIS PLEASE !}
Mantis conversion info:
- Mantis ID: 31684
- Fixed in revision: 54654 (#4dddd800)