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

win32: fix typo in spinedit createhandle for non-unicode version

Browse Source 
git-svn-id: trunk@25231 -
This commit is contained in:
paul 2010-05-07 02:55:36 +00:00
parent 2138813221
commit a74fe9bc84
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/win32/win32wsspin.pp
View File

@ -184,14 +184,14 @@ begin
Window := CreateWindowEx(FlagsEx, @EditClsName[0],
PChar(Utf8ToAnsi(StrCaption)), Flags,
Left, Top, Width, Height, Parent, HMENU(nil), HInstance, nil);
UpDown := CreateWindowExW(0, UPDOWN_CLASSA, nil,
UpDown := CreateWindowEx(0, UPDOWN_CLASSA, nil,
WS_CHILD or WS_VISIBLE or UDS_ALIGNRIGHT or UDS_ARROWKEYS or UpDownHotStyle[HotTracking],
0, 0, 8, Height, Parent, HMENU(nil), HInstance, nil);
end;
{$ELSE}
Window := CreateWindowEx(FlagsEx, @EditClsName[0], PChar(StrCaption),
Flags, Left, Top, Width, Height, Parent, HMENU(nil), HInstance, nil);
UpDown := CreateWindowExW(0, UPDOWN_CLASSW, nil,
UpDown := CreateWindowEx(0, UPDOWN_CLASSW, nil,
WS_CHILD or WS_VISIBLE or UDS_ALIGNRIGHT or UDS_ARROWKEYS or UpDownHotStyle[HotTracking],
0, 0, 8, Height, Parent, HMENU(nil), HInstance, nil);
{$ENDIF}