Tru fix unicode problem

alphaonex86 · Jan 22, 2013 · 882338c · 882338c
1 parent 1f58d42
commit 882338c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Components/SCTeam/ScPopupButton.pas b/Components/SCTeam/ScPopupButton.pas
@@ -248,7 +248,7 @@ procedure TScPopupButton.Paint;
   begin
     if Win32Platform=VER_PLATFORM_WIN32_NT then
     begin
-      DrawTextW(Canvas.Handle,Pwidechar(pCaption),length(pCaption),Rect,DT_CENTER+DT_VCENTER+DT_SINGLELINE);
+      DrawTextW(Canvas.Handle,Pwidechar(Utf8Decode(pCaption)),length(pCaption),Rect,DT_CENTER+DT_VCENTER+DT_SINGLELINE);
     end else
     begin
       DrawText(Canvas.Handle,PChar(String(pCaption)),length(pCaption),Rect,DT_CENTER+DT_VCENTER+DT_SINGLELINE);