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

lcl: fix range check error

Browse Source 
git-svn-id: trunk@25051 -
This commit is contained in:
paul 2010-04-29 01:01:35 +00:00
parent 7787ab48a2
commit ae15eed5d3
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/customnotebook.inc
View File

@ -851,7 +851,7 @@ begin
(csDestroyingHandle in ControlState) then
begin
OldPageIndex := FPageIndex;
FPageIndex := NMHDR^.idfrom;
FPageIndex := PtrInt(NMHDR^.idfrom);
if FPageIndex >= PageCount then
FPageIndex := -1;
//debugln(['TCustomNotebook.CNNotify ',DbgSName(Self),' A Old=',OldPageIndex,' fPageIndex=',fPageIndex,' FLoadedPageIndex=',FLoadedPageIndex]);

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

@ -6304,7 +6304,7 @@ begin
Hdr.hwndFrom := LCLObject.Handle;
Hdr.Code := TCN_SELCHANGE;
Hdr.idFrom := TQtTabWidget(LCLObject.Handle).GetLCLPageIndex(Index);
Hdr.idFrom := PtrUInt(TQtTabWidget(LCLObject.Handle).GetLCLPageIndex(Index));
Msg.NMHdr := @Hdr;
Msg.Result := 0;
DeliverMessage(Msg);