From 9d4fd2cb03d5336bdc438e1eb93470a607ac6b54 Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Wed, 12 Dec 2007 15:17:43 +0000
Subject: [PATCH] win32 interface: menu drawing, only convert from UTF-8 once

git-svn-id: trunk@13297 -
---
 lcl/interfaces/win32/win32wsmenus.pp | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

diff --git a/lcl/interfaces/win32/win32wsmenus.pp b/lcl/interfaces/win32/win32wsmenus.pp
index 92a5391dfb..2a1ca32ca4 100644
--- a/lcl/interfaces/win32/win32wsmenus.pp
+++ b/lcl/interfaces/win32/win32wsmenus.pp
@@ -472,15 +472,9 @@ begin
 
 {$ifdef WindowsUnicodeSupport}
   if UnicodeEnabledOS then
-  begin
-    WideBuffer := Utf8Decode(aMenuItem.Caption);
-    DrawTextW(aHDC, PWideChar(WideBuffer), length(WideBuffer), @aRect, dtFlags);
-  end
+    DrawTextW(aHDC, PWideChar(WideBuffer), length(WideBuffer), @aRect, dtFlags)
   else
-  begin
-    AnsiBuffer := Utf8ToAnsi(aMenuItem.Caption);
     DrawText(aHDC, pChar(AnsiBuffer), length(AnsiBuffer), @aRect, dtFlags);
-  end;
 {$else}
   DrawText(aHDC, pChar(aMenuItem.Caption), length(aMenuItem.Caption), @aRect, dtFlags);
 {$endif}