From a74fe9bc844c5e772d20337f90d310635575bb97 Mon Sep 17 00:00:00 2001 From: paul Date: Fri, 7 May 2010 02:55:36 +0000 Subject: [PATCH] win32: fix typo in spinedit createhandle for non-unicode version git-svn-id: trunk@25231 - --- lcl/interfaces/win32/win32wsspin.pp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lcl/interfaces/win32/win32wsspin.pp b/lcl/interfaces/win32/win32wsspin.pp index 5d2f19a1d6..6c4bd313a3 100644 --- a/lcl/interfaces/win32/win32wsspin.pp +++ b/lcl/interfaces/win32/win32wsspin.pp @@ -48,7 +48,7 @@ type published class procedure AdaptBounds(const AWinControl: TWinControl; var Left, Top, Width, Height: integer; var SuppressMove: boolean); override; - class function CreateHandle(const AWinControl: TWinControl; + class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): HWND; override; class procedure DefaultWndHandler(const AWinControl: TWinControl; var AMessage); override; @@ -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}