スレの絞込みで、空白を無視するようにしてみた。

diff --git a/BoardGroup.pas b/BoardGroup.pas
index 4ed1330..438676e 100644 (file)
--- a/BoardGroup.pas
+++ b/BoardGroup.pas
@@ -623,7 +623,7 @@ end;
 procedure TBBS.SetSelectText(s: string);
 begin
        FSelectText := s;
-       ShortSelectText := ZenToHan(s);
+       ShortSelectText := CustomStringReplace(ZenToHan(s), ' ', '');
 end;
 
 {class function TBBS.GetColumnName(Index: Integer): string;

diff --git a/GikoSystem.pas b/GikoSystem.pas
index 7a17b1b..7916402 100644 (file)
--- a/GikoSystem.pas
+++ b/GikoSystem.pas
@@ -558,6 +558,7 @@ begin
                                ThreadItem.No := Rec.FNo;
                                ThreadItem.FileName := Rec.FFileName;
                                ThreadItem.Title := Rec.FTitle;
+                               ThreadItem.ShortTitle := CustomStringReplace(ZenToHan(ThreadItem.Title), ' ', '');
                                ThreadItem.Count := Rec.FCount;
                                ThreadItem.Size := Rec.FSize;
 //                     ThreadItem.RoundNo := Rec.FRoundNo;