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

fix spinedit value retrieval

Browse Source 
git-svn-id: trunk@4920 -
This commit is contained in:
micha 2003-12-20 12:54:34 +00:00
parent 35ccacafe9
commit 99e29f1635
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/win32/win32object.inc
View File

@ -2510,7 +2510,7 @@ Begin
End;
csSpinEdit:
Begin
Integer(Data^) := SendMessage(Handle, UDM_GETPOS, 0, 0);
Single(Data^) := SendMessage(Handle, UDM_GETPOS, 0, 0);
End;
Else
Assert (True, Format('WARNING:[TWin32Object.GetValue]] failed for %S', [Sender.ClassName]));
@ -2887,6 +2887,9 @@ End;
{
$Log$
Revision 1.150 2003/12/20 12:54:34 micha
fix spinedit value retrieval
Revision 1.149 2003/12/19 21:34:53 micha
fix compiler problem; wrong code for constants