fix common duplicates

Author: Dimon-II

Diff for: Decard64/Decard64.dproj

@@ -140,8 +140,8 @@
         <DCC_Namespace>VCL;System;$(DCC_Namespace)</DCC_Namespace>
         <VerInfo_MinorVer>1</VerInfo_MinorVer>
         <VerInfo_Release>1</VerInfo_Release>
-        <VerInfo_Build>4</VerInfo_Build>
-        <VerInfo_Keys>CompanyName=Dmitri Iatsenko;FileDescription=Card game design/translate tool;FileVersion=1.1.1.4;InternalName=Decard;LegalCopyright=feeware opensource;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+        <VerInfo_Build>5</VerInfo_Build>
+        <VerInfo_Keys>CompanyName=Dmitri Iatsenko;FileDescription=Card game design/translate tool;FileVersion=1.1.1.5;InternalName=Decard;LegalCopyright=feeware opensource;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
     </PropertyGroup>
     <ItemGroup>
         <DelphiCompile Include="$(MainSource)">

Diff for: Decard64/Decard64.res

@@ -447,7 +447,7 @@ procedure TCellEditForm.lbMacrosDblClick(Sender: TObject);
 begin
   s := lbFiltered.Items[lbFiltered.ItemIndex];
 
-  if Sender<>nil then
+  if (Sender<>nil)and(lbCommon.Items.IndexOf(s)=-1) then
     lbCommon.Items.Add(s);
 
   if seWrap.Lines.IndexOf(s)>-1 then