From 73ca04b33c15b39e7dd0218069d6cf13f2524e57 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Thu, 19 Jul 2012 07:52:56 +0000
Subject: [PATCH] chmmaker: unit output directory

git-svn-id: trunk@37966 -
---
 tools/chmmaker/chmmaker.lpi         | 6 ++++++
 tools/chmmaker/chmsitemapeditor.pas | 2 +-
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/tools/chmmaker/chmmaker.lpi b/tools/chmmaker/chmmaker.lpi
index 51d8d7b47f..dcf2b8240f 100644
--- a/tools/chmmaker/chmmaker.lpi
+++ b/tools/chmmaker/chmmaker.lpi
@@ -64,6 +64,12 @@
   </ProjectOptions>
   <CompilerOptions>
     <Version Value="11"/>
+    <Target>
+      <Filename Value="chmmaker"/>
+    </Target>
+    <SearchPaths>
+      <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
+    </SearchPaths>
     <Parsing>
       <SyntaxOptions>
         <CStyleOperator Value="False"/>
diff --git a/tools/chmmaker/chmsitemapeditor.pas b/tools/chmmaker/chmsitemapeditor.pas
index 709ca273d6..dad20fe8b9 100644
--- a/tools/chmmaker/chmsitemapeditor.pas
+++ b/tools/chmmaker/chmsitemapeditor.pas
@@ -40,7 +40,7 @@ type
     procedure DeleteBtnClick(Sender: TObject);
     procedure DescriptionEditChange(Sender: TObject);
     procedure LocalComboChange(Sender: TObject);
-    procedure LocalComboKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
+    procedure LocalComboKeyUp(Sender: TObject; var Key: Word; {%H-}Shift: TShiftState);
     procedure SaveBtnClick(Sender: TObject);
     procedure SitemapTreeCustomCreateItem(Sender: TCustomTreeView;
       var ATreeNode: TTreenode);