From c9b128f64ac0343c4c129b941e67e3bfc9ce79b7 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Mon, 30 May 2011 13:36:15 +0000
Subject: [PATCH] IDE: keymapping: show ... when cutting long descriptions

git-svn-id: trunk@30977 -
---
 ide/frames/editor_keymapping_options.pas | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/ide/frames/editor_keymapping_options.pas b/ide/frames/editor_keymapping_options.pas
index 221063c640..30a6aefae3 100644
--- a/ide/frames/editor_keymapping_options.pas
+++ b/ide/frames/editor_keymapping_options.pas
@@ -397,6 +397,8 @@ end;
 
 function TEditorKeymappingOptionsFrame.KeyMappingRelationToString(
   KeyRelation: TKeyCommandRelation): String;
+const
+  MaxLength = 60;
 
   function AddBrakets(S: String): String;
   begin
@@ -406,7 +408,9 @@ function TEditorKeymappingOptionsFrame.KeyMappingRelationToString(
 begin
   with KeyRelation do
   begin
-    Result := UTF8Copy(LocalizedName, 1, 40);
+    Result := LocalizedName;
+    if UTF8Length(Result)>MaxLength then
+      Result := UTF8Copy(LocalizedName, 1, MaxLength)+'...';
     if Result <> '' then
       Result := Result + '  ';
     if (ShortcutA.Key1 = VK_UNKNOWN) and (ShortcutB.Key1 = VK_UNKNOWN) then