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

Qt: trial to fix #19881 under 64bit.

Browse Source 
git-svn-id: trunk@32092 -
This commit is contained in:
zeljko 2011-08-29 09:40:06 +00:00
parent c7a0468f7e
commit a508edf92f
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -8752,7 +8752,7 @@ end;
procedure TQtFloatSpinBox.SignalValueChanged(p1: Double); cdecl;
var
Msg: TLMessage;
Msg: TLMessage;
begin
FValue := p1;
FillChar(Msg, SizeOf(Msg), #0);
@ -8826,7 +8826,7 @@ end;
procedure TQtSpinBox.SignalValueChanged(p1: Integer); cdecl;
var
Msg: TLMessage;
Msg: TLMessage;
begin
FValue := p1;
FillChar(Msg, SizeOf(Msg), #0);

4
lcl/interfaces/qt/qtwsspin.pp
View File

@ -102,9 +102,9 @@ begin
QtSpinBox := TQtSpinBox.Create(AWinControl, AParams);
QtSpinBox.setBorder(TCustomFloatSpinEdit(AWinControl).BorderStyle = bsSingle);
QtSpinBox.AttachEvents;
InternalUpdateControl(QtSpinBox, TCustomFloatSpinEdit(AWinControl));
QtSpinBox.AttachEvents;
Result := TLCLIntfHandle(QtSpinBox);
end;