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

Qt: do not pass OnChange to LCL when value is setted up for the first time under 64bit. issue #19881

Browse Source 
git-svn-id: trunk@32698 -
This commit is contained in:
zeljko 2011-10-05 08:30:49 +00:00
parent 181a9fa84b
commit f69330e51e
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -914,7 +914,7 @@ type
TQtAbstractSpinBox = class(TQtWidget, IQtEdit)
private
{$ifdef CPU64 and not WIN64}
FParentShowPassed: Integer;
FParentShowPassed: PtrInt;
{$endif}
FEditingFinishedHook: QAbstractSpinBox_hookH;
// parts
@ -8694,7 +8694,9 @@ begin
if QEvent_type(Event) <> QEventPaint then
begin
inc(FParentShowPassed);
BeginUpdate;
setValue(getValue);
EndUpdate;
end;
end;