paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 12:59:14 +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], Window := CreateWindowEx(FlagsEx, @EditClsName[0],
PChar(Utf8ToAnsi(StrCaption)), Flags, PChar(Utf8ToAnsi(StrCaption)), Flags,
Left, Top, Width, Height, Parent, HMENU(nil), HInstance, nil); 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], WS_CHILD or WS_VISIBLE or UDS_ALIGNRIGHT or UDS_ARROWKEYS or UpDownHotStyle[HotTracking],
0, 0, 8, Height, Parent, HMENU(nil), HInstance, nil); 0, 0, 8, Height, Parent, HMENU(nil), HInstance, nil);
end; end;
{$ELSE} {$ELSE}
Window := CreateWindowEx(FlagsEx, @EditClsName[0], PChar(StrCaption), Window := CreateWindowEx(FlagsEx, @EditClsName[0], PChar(StrCaption),
Flags, Left, Top, Width, Height, Parent, HMENU(nil), HInstance, nil); 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], WS_CHILD or WS_VISIBLE or UDS_ALIGNRIGHT or UDS_ARROWKEYS or UpDownHotStyle[HotTracking],
0, 0, 8, Height, Parent, HMENU(nil), HInstance, nil); 0, 0, 8, Height, Parent, HMENU(nil), HInstance, nil);
{$ENDIF} {$ENDIF}