paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-02 18:20:30 +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) TQtAbstractSpinBox = class(TQtWidget, IQtEdit)
private private
{$ifdef CPU64 and not WIN64} {$ifdef CPU64 and not WIN64}
FParentShowPassed: Integer; FParentShowPassed: PtrInt;
{$endif} {$endif}
FEditingFinishedHook: QAbstractSpinBox_hookH; FEditingFinishedHook: QAbstractSpinBox_hookH;
// parts // parts
@ -8694,7 +8694,9 @@ begin
if QEvent_type(Event) <> QEventPaint then if QEvent_type(Event) <> QEventPaint then
begin begin
inc(FParentShowPassed); inc(FParentShowPassed);
BeginUpdate;
setValue(getValue); setValue(getValue);
EndUpdate;
end; end;
end; end;