paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 08:58:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: keymapping: show ... when cutting long descriptions

Browse Source 
git-svn-id: trunk@30977 -
This commit is contained in:
mattias 2011-05-30 13:36:15 +00:00
parent 8364c253c9
commit c9b128f64a
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/frames/editor_keymapping_options.pas
View File

@ -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