From 29f67f0d23a19e438b3ee4461dd060e908aab2e2 Mon Sep 17 00:00:00 2001
From: naru <bottle@mikage.to>
Date: Tue, 6 May 2003 16:23:07 +0000
Subject: [PATCH] Add ChannelDefault Constant

---
 bottleclient/BottleDef.pas | 2 ++
 bottleclient/MainForm.pas  | 4 ++--
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/bottleclient/BottleDef.pas b/bottleclient/BottleDef.pas
index d18e8d1..9a8a6cb 100755
--- a/bottleclient/BottleDef.pas
+++ b/bottleclient/BottleDef.pas
@@ -313,6 +313,8 @@ const
   BottleDisclaimer = '(C)2001 - 2003 naru/Mikage Sawatari'#13#10 +
     DefaultHomePage;
 
+  ChannelDefault = '(CH„§)'; 
+
 implementation
 
 { TBottlePrefs }
diff --git a/bottleclient/MainForm.pas b/bottleclient/MainForm.pas
index fb02af7..57ccab2 100755
--- a/bottleclient/MainForm.pas
+++ b/bottleclient/MainForm.pas
@@ -2094,7 +2094,7 @@ begin
   with cbxTargetGhost do begin
     Items.BeginUpdate;
     Items.Clear;
-    Items.Add('(CH„§)');
+    Items.Add(ChannelDefault);
     for i := 0 to SakuraSeeker.Count-1 do begin
       // ”j‘¹FMO‘΍ôBHWND‚Ì’f•Ð‚ªŽc‚Á‚Ä‚¢‚邪Name‚ªÁ‚¦‚Ä‚¢‚éê‡‚ª‚ ‚é
       if Length(SakuraSeeker[i].Name) = 0 then Continue;
@@ -2108,7 +2108,7 @@ begin
         cbxTargetGhost.Items.Add(SakuraSeeker[i].Name);
     end;
     cbxTargetGhost.ItemIndex := 0;
-    if (Length(Selected) > 0) and (Selected <> '(CH„§)') then begin
+    if (Length(Selected) > 0) and (Selected <> ChannelDefault) then begin
       with cbxTargetGhost do begin
         for i := 1 to Items.Count-1 do begin
           if Items[i] = Selected then
-- 
2.11.0