shuusei24110:端末ユーザーがIMやチャットで日本語入力しやすくする(idea by DuckDive)

diff --dos -urN 24109/channelform.dfm 24110/channelform.dfm
--- 24109/channelform.dfm	Mon Jan 27 19:08:24 2003
+++ 24110/channelform.dfm	Tue Jan 28 17:04:56 2003
@@ -173,7 +173,7 @@
       TabOrder = 0
       Text = 'edit'
       OnKeyPress = editKeyPress
-      OnKeyUp = editKeyUp
+      OnKeyDown = editKeyDown
     end
   end
   object panel_client: TPanel
diff --dos -urN 24109/channelform.pas 24110/channelform.pas
--- 24109/channelform.pas	Thu Dec 26 10:38:30 2002
+++ 24110/channelform.pas	Tue Jan 28 16:59:44 2003
@@ -68,7 +68,7 @@
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
-    procedure editKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
+    procedure editKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
     function  ProcessCommand(command: String): Boolean;
     procedure panel_clientResize(Sender: TObject);
     procedure DrawPopupItem(Sender: TObject; ACanvas: TCanvas;
@@ -265,7 +265,7 @@
  end;
 end;
 
-procedure TSlavaNapChannelWindow.editKeyUp(Sender: TObject; var Key: Word;
+procedure TSlavaNapChannelWindow.editKeyDown(Sender: TObject; var Key: Word;
   Shift: TShiftState);
 var
  str: String;
diff --dos -urN 24109/chatform.dfm 24110/chatform.dfm
--- 24109/chatform.dfm	Mon Jan 27 19:08:38 2003
+++ 24110/chatform.dfm	Tue Jan 28 17:05:12 2003
@@ -174,7 +174,7 @@
       TabOrder = 0
       Text = 'edit'
       OnKeyPress = editKeyPress
-      OnKeyUp = editKeyUp
+      OnKeyDown = editKeyDown
     end
   end
   object panel_left: TSlavaPanel
diff --dos -urN 24109/chatform.pas 24110/chatform.pas
--- 24109/chatform.pas	Mon Nov 25 21:19:40 2002
+++ 24110/chatform.pas	Tue Jan 28 17:01:14 2003
@@ -46,7 +46,7 @@
     procedure editKeyPress(Sender: TObject; var Key: Char);
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
-    procedure editKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
+    procedure editKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
     procedure mnu_draw(Sender: TObject; ACanvas: TCanvas; ARect: TRect;
       Selected: Boolean);
     procedure mnu_closeClick(Sender: TObject);
@@ -178,7 +178,7 @@
  Action:=caFree;
 end;
 
-procedure TSlavaNapChatWindow.editKeyUp(Sender: TObject; var Key: Word;
+procedure TSlavaNapChatWindow.editKeyDown(Sender: TObject; var Key: Word;
   Shift: TShiftState);
 var
  str: String;