From c41d0ce223bbd51b7e3a110315ed5d2a55721275 Mon Sep 17 00:00:00 2001
From: h677 <h677>
Date: Sun, 15 Jun 2008 13:31:48 +0000
Subject: [PATCH] =?utf8?q?=E3=82=B9=E3=83=AC=E4=B8=80=E8=A6=A7=E3=81=AE?=
 =?utf8?q?=E7=B5=9E=E8=BE=BC=E3=81=BF=E3=81=A7CTRL+DEL=E3=81=A7=E5=80=8B?=
 =?utf8?q?=E5=88=A5=E3=81=AB=E5=89=8A=E9=99=A4=E3=81=A7=E3=81=8D=E3=82=8B?=
 =?utf8?q?=E3=82=88=E3=81=86=E3=81=AB=E4=BF=AE=E6=AD=A3?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 Giko.pas | 17 +++++++++++++++--
 1 file changed, 15 insertions(+), 2 deletions(-)

diff --git a/Giko.pas b/Giko.pas
index 971e6b6..dcb1a01 100644
--- a/Giko.pas
+++ b/Giko.pas
@@ -1549,7 +1549,6 @@ var
 	i				: Integer;
 	wp			: TWindowPlacement;
 	tmpBool	: Boolean;
-    doc:IHTMLDocument2;
     WindowPlacement: TWindowPlacement;
 begin
     // ƒ^ƒXƒNƒgƒŒƒC‚̃AƒCƒRƒ“íœ
@@ -5728,7 +5727,7 @@ procedure TGikoForm.SelectComboBoxKeyDown(Sender: TObject; var Key: Word;
 	Shift: TShiftState);
 var
   IMC: HIMC;
-  Len: integer;
+  Len, idx: integer;
   Str: string;
   tmp: string;
 begin
@@ -5754,6 +5753,20 @@ begin
 				SetSelectWord(Str);
 			end;
 		end;
+    end else if (Key = Windows.VK_DELETE) and (ssCtrl in Shift) then begin
+        // Ctrl + DEL ‚ō폜‚·‚é
+        Str := SelectComboBox.Text;
+        idx := GikoSys.Setting.SelectTextList.IndexOf( Str );
+        if idx <> -1 then begin
+            GikoSys.Setting.SelectTextList.Delete( idx );
+        end;
+        idx := SelectComboBox.Items.IndexOf( Str );
+		if idx <> -1 then begin
+            SelectComboBox.Items.Delete( idx );
+        end;
+        SelectComboBox.Text := '';
+        // iž‚Ý‚ð‰ðœ‚·‚邽‚߂ɕύXƒCƒxƒ“ƒg‚ðŒÄ‚яo‚·
+        SelectComboBox.OnChange(Sender);
 	end else if Length( SelectComboBox.Text ) = 0 then
 	begin
 		{* SelectComboBox.Text‚ª‹ó‚Å‚àA“ü—Í“r’†‚ÅEsc‚µ‚½‚Æ‚©
-- 
2.11.0