OSDN -- 오픈 소스 소프트웨어 개발 및 다운로드
Translation Status of 한국말 translation status for ko
  • R/O
  • HTTP
  • SSH
  • HTTPS
Fork

gikonavi: Commit


Commit MetaInfo

Revision575ae62aaf4715da21aef947f1a2ff4958423934 (tree)
Time2005-12-28 02:13:06
Authorcvs2git <cvs2git>
Commitercvs2git

Log Message

This commit was manufactured by cvs2svn to create tag 'v1_51_0_633'.

Change Summary

Incremental Difference

--- a/Editor.pas
+++ b/Editor.pas
@@ -967,7 +967,7 @@ begin
967967 if MsgResult = IDNO then begin
968968 Board.SPID := '';
969969 Board.PON := '';
970- FWork := false;
970+ FWork := false;
971971 EnableMenuItem(SysMenu, SC_CLOSE, MF_BYCOMMAND or MF_ENABLED);
972972 DrawMenuBar(Handle);
973973 Exit;
@@ -976,7 +976,7 @@ begin
976976 end;
977977
978978 if ResultType = grtOK then begin
979- if (GikoSys.Setting.UseSamba) and (Timer1.Enabled) then
979+ if GikoSys.Setting.UseSamba then
980980 WriteSambaTime(FHost, Now());
981981 State := gdsComplete;
982982 end else if ResultType = grtCookie then begin
@@ -1045,8 +1045,8 @@ begin
10451045 Exit;
10461046 end;
10471047 end else begin
1048- if (GikoSys.Setting.UseSamba) and (Timer1.Enabled) then
1049- WriteSambaTime(FHost, Now());
1048+ if GikoSys.Setting.UseSamba then
1049+ WriteSambaTime(FHost, Now());
10501050 State := gdsError;
10511051 raise Exception.Create('');
10521052 end;
--- a/Giko.dfm
+++ b/Giko.dfm
@@ -98,6 +98,7 @@ object GikoForm: TGikoForm
9898 Height = 167
9999 BorderStyle = bsNone
100100 ChangeDelay = 50
101+ DragMode = dmAutomatic
101102 HideSelection = False
102103 Images = ItemIcon16
103104 Indent = 19
@@ -106,12 +107,16 @@ object GikoForm: TGikoForm
106107 RightClickSelect = True
107108 ShowRoot = False
108109 TabOrder = 0
110+ OnClick = TreeViewClick
109111 OnCollapsed = TreeViewCollapsed
112+ OnCollapsing = TreeViewCollapsing
110113 OnCustomDraw = TreeViewCustomDraw
111114 OnCustomDrawItem = TreeViewCustomDrawItem
115+ OnDblClick = TreeViewDblClick
116+ OnExpanding = TreeViewExpanding
112117 OnExpanded = TreeViewExpanded
113118 OnKeyDown = TreeViewKeyDown
114- OnMouseDown = TreeViewMouseDown
119+ OnMouseUp = TreeViewMouseUp
115120 end
116121 object Panel3: TPanel
117122 Left = 0
@@ -226,13 +231,18 @@ object GikoForm: TGikoForm
226231 RightClickSelect = True
227232 ShowRoot = False
228233 TabOrder = 3
234+ OnClick = FavoriteTreeViewClick
235+ OnCollapsing = FavoriteTreeViewCollapsing
236+ OnDblClick = FavoriteTreeViewDblClick
229237 OnDragDrop = FavoriteTreeViewDragDrop
230238 OnDragOver = FavoriteTreeViewDragOver
231239 OnEdited = FavoriteTreeViewEdited
232240 OnEditing = FavoriteTreeViewEditing
233241 OnEndDrag = FavoriteTreeViewEndDrag
242+ OnExpanding = FavoriteTreeViewExpanding
234243 OnKeyDown = FavoriteTreeViewKeyDown
235244 OnMouseDown = FavoriteTreeViewMouseDown
245+ OnMouseUp = FavoriteTreeViewMouseUp
236246 end
237247 object FavoriteToolBar: TToolBar
238248 Left = 0
--- a/Giko.pas
+++ b/Giko.pas
@@ -423,6 +423,7 @@ type
423423 procedure TreeViewCustomDrawItem(Sender: TCustomTreeView;
424424 Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
425425 procedure TreeViewExpanded(Sender: TObject; Node: TTreeNode);
426+ procedure TreeViewDblClick(Sender: TObject);
426427 procedure ListViewCustomDraw(Sender: TCustomListView;
427428 const ARect: TRect; var DefaultDraw: Boolean);
428429 procedure ListViewMouseDown(Sender: TObject; Button: TMouseButton;
@@ -494,6 +495,7 @@ type
494495 procedure FavoriteTreeViewKeyDown(Sender: TObject; var Key: Word;
495496 Shift: TShiftState);
496497 procedure FavoriteTreePopupMenuPopup(Sender: TObject);
498+ procedure FavoriteTreeViewDblClick(Sender: TObject);
497499 procedure LinkToolBarDragDrop(Sender, Source: TObject; X, Y: Integer);
498500 procedure BrowserTabMouseUp(Sender: TObject; Button: TMouseButton;
499501 Shift: TShiftState; X, Y: Integer);
@@ -512,12 +514,15 @@ type
512514 var Handled: Boolean);
513515 procedure BrowserTabPopupMenuPopup(Sender: TObject);
514516 procedure BrowserTabResize(Sender: TObject);
517+ procedure TreeViewClick(Sender: TObject);
515518 procedure TreeViewKeyDown(Sender: TObject; var Key: Word;
516519 Shift: TShiftState);
517520 procedure FavoriteTreeViewMouseDown(Sender: TObject;
518521 Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
519522 procedure MessagePanelResize(Sender: TObject);
520523 procedure OnResized;
524+ procedure FavoriteTreeViewMouseUp(Sender: TObject;
525+ Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
521526 procedure SelectTimerTimer(Sender: TObject);
522527 procedure ListViewColumnRightClick(Sender: TObject;
523528 Column: TListColumn; Point: TPoint);
@@ -539,7 +544,16 @@ type
539544 var Handled: Boolean);
540545 procedure GikoApplicationEventsDeactivate(Sender: TObject);
541546 procedure GikoApplicationEventsException(Sender: TObject; E: Exception);
542- procedure TreeViewMouseDown(Sender: TObject; Button: TMouseButton;
547+ procedure FavoriteTreeViewClick(Sender: TObject);
548+ procedure FavoriteTreeViewCollapsing(Sender: TObject; Node: TTreeNode;
549+ var AllowCollapse: Boolean);
550+ procedure FavoriteTreeViewExpanding(Sender: TObject; Node: TTreeNode;
551+ var AllowExpansion: Boolean);
552+ procedure TreeViewCollapsing(Sender: TObject; Node: TTreeNode;
553+ var AllowCollapse: Boolean);
554+ procedure TreeViewExpanding(Sender: TObject; Node: TTreeNode;
555+ var AllowExpansion: Boolean);
556+ procedure TreeViewMouseUp(Sender: TObject; Button: TMouseButton;
543557 Shift: TShiftState; X, Y: Integer);
544558 private
545559 { Private 宣言 }
@@ -1200,7 +1214,6 @@ begin
12001214 FavoriteAddToolButton.Caption := '追加...';
12011215 AntiIndivAbonMenuItem.Caption := '個別あぼ〜ん解除';
12021216
1203-
12041217 end;
12051218
12061219 // CoolBar の設定を変数に保存
@@ -2010,9 +2023,15 @@ begin
20102023 if vSortIndex = id then
20112024 vSortOrder := not vSortOrder
20122025 else begin
2013- vSortOrder := id = 0;
2026+ vSortOrder := True;
20142027 end;
2015-
2028+{$IFDEF DEBUG}
2029+ If vSortOrder then begin
2030+ Writeln('True : id:' + IntToStr(id) + ' SI:' + IntToStr(vSortIndex));
2031+ end else begin
2032+ Writeln('False : id:' + IntToStr(id) + ' SI:' + IntToStr(vSortIndex));
2033+ end;
2034+{$ENDIF}
20162035 TListViewUtils.ListViewSort(Sender, ListView, Column, GikoDM.ListNumberVisibleAction.Checked, vSortOrder);
20172036 end;
20182037
@@ -2212,13 +2231,31 @@ begin
22122231 ListView.SetFocus;
22132232 ListView.SelectAll;
22142233 end;
2234+// *************************************************************************
2235+//! ツリービューのダブルクリックイベント
2236+// *************************************************************************
2237+procedure TGikoForm.TreeViewDblClick(Sender: TObject);
2238+var
2239+ pos : TPoint;
2240+ rect: TRect;
2241+begin
2242+ pos := FMouseDownPos;
2243+ if (FClickNode <> nil) and (FClickNode = TreeView.GetNodeAt(pos.X, pos.Y)) then begin
2244+ //マウスがnodeの上にいるか
2245+ rect := FClickNode.DisplayRect(true);
2246+ if ((rect.Left <= pos.X) and (rect.Right >= pos.X)) and
2247+ ((rect.Bottom >= pos.Y) and (rect.Top <= pos.Y)) then begin
2248+ TreeDoubleClick( FClickNode );
2249+ FClickNode := nil;
2250+ end;
2251+ end;
2252+end;
2253+
22152254 procedure TGikoForm.DownloadMsg(Sender: TObject; Item: TDownloadItem; Msg: string; Icon: TGikoMessageIcon);
22162255 begin
22172256 AddMessageList(Msg, nil, Icon);
22182257 end;
2219-// *************************************************************************
2220-//! ダウンロードが完了したときに発生するイベント
2221-// *************************************************************************
2258+
22222259 procedure TGikoForm.DownloadEnd(Sender: TObject; Item: TDownloadItem);
22232260 var
22242261 ATitle: string;
@@ -2524,9 +2561,6 @@ begin
25242561 BrowserNullTab := TBrowserRecord.Create;
25252562 BrowserNullTab.Browser := Browser;
25262563 end;
2527- if BrowserNullTab.thread <> ThreadItem then begin
2528- BrowserNullTab.Movement := '';
2529- end;
25302564 BrowserNullTab.thread := ThreadItem;
25312565 Result := BrowserNullTab;
25322566 BrowserTab.TabIndex := -1;
@@ -2556,7 +2590,6 @@ begin
25562590 idx := BrowserTab.TabIndex;
25572591 if (FActiveContent <> nil) and
25582592 (FActiveContent.Thread <> Thread.Thread) and
2559- (FActiveContent.Browser <> nil) and
25602593 (Assigned(FActiveContent.Browser.Document)) then begin
25612594 try
25622595 try
@@ -2728,19 +2761,9 @@ begin
27282761 ListView.Selected := nil;
27292762 // ListView.Columns.Clear;
27302763 if (FActiveContent <> nil) and (FActiveContent.Thread <> nil)
2731- and (FActiveContent.Thread.IsLogFile) then begin
2732- try
2733- Self.Caption := GikoDataModule.CAPTION_NAME + ' - [' + FActiveContent.Thread.Title + ']'
2734- except
2735- on E: Exception do begin
2736- //スレ一覧DL後などにFActiveContentの持つThreadが
2737- //削除されている場合があるのでここて処理する
2738- ReleaseBrowser(FActiveContent);
2739- FActiveContent.Thread := nil;
2740- Self.Caption := GikoDataModule.CAPTION_NAME;
2741- end;
2742- end;
2743- end else
2764+ and (FActiveContent.Thread.IsLogFile) then
2765+ Self.Caption := GikoDataModule.CAPTION_NAME + ' - [' + FActiveContent.Thread.Title + ']'
2766+ else
27442767 Self.Caption := GikoDataModule.CAPTION_NAME;
27452768 //Application.Title := CAPTION_NAME;
27462769
@@ -4431,7 +4454,9 @@ end;
44314454
44324455 procedure TGikoForm.FavoriteClick(Sender: TObject);
44334456 begin
4457+
44344458 FavoriteClick( Sender, True );
4459+
44354460 end;
44364461
44374462 procedure TGikoForm.FavoriteClick(Sender: TObject; ActiveTab: Boolean);
@@ -6092,10 +6117,7 @@ begin
60926117 FavoriteTreeView.Selected.Expanded := not FavoriteTreeView.Selected.Expanded;
60936118 end;
60946119 VK_SPACE:
6095- begin
6096- FClickNode := FavoriteTreeView.Selected;
6097- GikoDM.FavoriteTreeViewReloadActionExecute( Sender );
6098- end;
6120+ FavoriteTreeViewDblClick( Sender );
60996121 end;
61006122 end else begin
61016123 //編集中にESCを押したら、編集を終了して、元の文字列に戻す
@@ -6228,6 +6250,27 @@ begin
62286250 end;
62296251
62306252 end;
6253+// *************************************************************************
6254+//! お気に入りツリーのダブルクリックイベント
6255+// *************************************************************************
6256+procedure TGikoForm.FavoriteTreeViewDblClick(Sender: TObject);
6257+var
6258+ pos : TPoint;
6259+ rect: TRect;
6260+begin
6261+ //クリック時の選択イベントと同じならダブルクリック実行
6262+ pos := FMouseDownPos;
6263+ if (FClickNode <> nil) and (FClickNode = FavoriteTreeView.GetNodeAt(pos.X, pos.Y)) then begin
6264+ //マウスがnodeの上にいるか
6265+ rect := FClickNode.DisplayRect(true);
6266+ if ((rect.Left <= pos.X) and (rect.Right >= pos.X)) and
6267+ ((rect.Bottom >= pos.Y) and (rect.Top <= pos.Y)) then begin
6268+ GikoDM.FavoriteTreeViewReloadActionExecute( Sender );
6269+ FClickNode := nil;
6270+ end;
6271+ end;
6272+end;
6273+
62316274 function TGikoForm.TreeNodeDataFind(Node: TTreeNode; FindPointer: Pointer): TTreeNode;
62326275 var
62336276 Found: TTreeNode;
@@ -6658,8 +6701,13 @@ begin
66586701
66596702 end;
66606703 // *************************************************************************
6661-//! ツリービューのKeyDownイベント
6704+//! ツリービューのクリックイベント
66626705 // *************************************************************************
6706+procedure TGikoForm.TreeViewClick(Sender: TObject);
6707+begin
6708+ FClickNode := TreeView.Selected;
6709+ FMouseDownPos := TreeView.ScreenToClient(Mouse.CursorPos);
6710+end;
66636711 procedure TGikoForm.TreeViewKeyDown(Sender: TObject; var Key: Word;
66646712 Shift: TShiftState);
66656713 begin
@@ -6672,35 +6720,21 @@ begin
66726720 TreeView.Selected.Expanded := not TreeView.Selected.Expanded;
66736721 end;
66746722 end;
6675-//! お気に入りのMouseDownイベント
6723+
66766724 procedure TGikoForm.FavoriteTreeViewMouseDown(Sender: TObject;
66776725 Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
66786726 var
66796727 favItem : TTreeNode;
66806728 favThreadItem : TFavoriteThreadItem;
6681- rect: TRect;
66826729 begin
6730+
66836731 case Button of
6684- mbLeft:
6732+{ mbLeft:
66856733 begin
6686- if not (ssAlt in Shift) and (FavoriteTreeView.Selected <> nil) and
6687- (FavoriteTreeView.Selected = FavoriteTreeView.GetNodeAt(X, Y)) then begin
6688- //マウスがnodeの上にいるか
6689- rect := FavoriteTreeView.Selected.DisplayRect(true);
6690- if ((rect.Left <= X) and (rect.Right >= X)) and
6691- ((rect.Bottom >= Y) and (rect.Top <= Y)) then begin
6692- if ssDouble in Shift then begin
6693- FClickNode := FavoriteTreeView.Selected;
6694- GikoDM.FavoriteTreeViewReloadActionExecute(Sender);
6695- FClickNode := nil;
6696- end else begin
6697- FavoriteClick(
6698- TObject(FavoriteTreeView.Selected));
6699- end;
6700- end;
6701- end;
6734+ FMouseDownPos.X := X;
6735+ FMouseDownPos.Y := Y;
67026736 end;
6703- mbMiddle:
6737+} mbMiddle:
67046738 begin
67056739 favItem := FavoriteTreeView.GetNodeAt( X, Y );
67066740 if favItem = nil then Exit;
@@ -6760,6 +6794,16 @@ end;
67606794 // *************************************************************************
67616795 //! お気に入りツリーのマウスアップイベント
67626796 // *************************************************************************
6797+procedure TGikoForm.FavoriteTreeViewMouseUp(Sender: TObject;
6798+ Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
6799+begin
6800+ if (Button = mbLeft) and not (ssDouble in Shift) then begin
6801+ if (FClickNode <> nil) and (FClickNode = FavoriteTreeView.GetNodeAt(X, Y)) then begin
6802+ FavoriteClick( TObject( FClickNode ) );
6803+ end;
6804+ end;
6805+end;
6806+
67636807 function TGikoForm.WebBrowserClick(Sender: TObject): WordBool;
67646808 var
67656809 p : TPoint;
@@ -7635,6 +7679,61 @@ begin
76357679 end;
76367680 end;
76377681 // *************************************************************************
7682+//! お気に入りツリーのクリックイベント
7683+// *************************************************************************
7684+procedure TGikoForm.FavoriteTreeViewClick(Sender: TObject);
7685+begin
7686+ //現在選択されているアイテムを保存
7687+ FClickNode := FavoriteTreeView.Selected;
7688+ FMouseDownPos := FavoriteTreeView.ScreenToClient(Mouse.CursorPos);
7689+end;
7690+// *************************************************************************
7691+//! お気に入りツリーのアイテムの縮小時イベント
7692+// *************************************************************************
7693+procedure TGikoForm.FavoriteTreeViewCollapsing(Sender: TObject;
7694+ Node: TTreeNode; var AllowCollapse: Boolean);
7695+begin
7696+ //縮小されたら保存されているクリック時選択アイテムをクリア
7697+ FClickNode := Node;
7698+end;
7699+// *************************************************************************
7700+//! お気に入りツリーのアイテムの展開時イベント
7701+// *************************************************************************
7702+procedure TGikoForm.FavoriteTreeViewExpanding(Sender: TObject;
7703+ Node: TTreeNode; var AllowExpansion: Boolean);
7704+begin
7705+ //展開されたら保存されているクリック時選択アイテムをクリア
7706+ FClickNode := Node;
7707+end;
7708+// *************************************************************************
7709+//! ツリービューのアイテムの縮小時イベント
7710+// *************************************************************************
7711+procedure TGikoForm.TreeViewCollapsing(Sender: TObject; Node: TTreeNode;
7712+ var AllowCollapse: Boolean);
7713+begin
7714+ FClickNode := nil;
7715+end;
7716+// *************************************************************************
7717+//! ツリービューのアイテムの展開時イベント
7718+// *************************************************************************
7719+procedure TGikoForm.TreeViewExpanding(Sender: TObject; Node: TTreeNode;
7720+ var AllowExpansion: Boolean);
7721+begin
7722+ FClickNode := nil;
7723+end;
7724+// *************************************************************************
7725+//! ツリービューのマウスアップイベント
7726+// *************************************************************************
7727+procedure TGikoForm.TreeViewMouseUp(Sender: TObject; Button: TMouseButton;
7728+ Shift: TShiftState; X, Y: Integer);
7729+begin
7730+ if (Button = mbLeft) and not (ssDouble in Shift) then begin
7731+ if (FClickNode <> nil) and (FClickNode = TreeView.GetNodeAt(X, Y)) then begin
7732+ TreeClick(FClickNode);
7733+ end;
7734+ end;
7735+end;
7736+// *************************************************************************
76387737 //! ダウンロードコントロールスレッドの生成
76397738 // *************************************************************************
76407739 procedure TGikoForm.CreateControlThread();
@@ -7742,32 +7841,6 @@ begin
77427841 except
77437842 end;
77447843 end;
7745-//! キャビネットのマウスダウンイベント
7746-procedure TGikoForm.TreeViewMouseDown(Sender: TObject;
7747- Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
7748-var
7749- rect : TRect;
7750-begin
7751- case Button of
7752- mbLeft:
7753- begin
7754- if (TreeView.Selected <> nil) and
7755- (TreeView.Selected = TreeView.GetNodeAt(X, Y)) then begin
7756- //マウスがnodeの上にいるか
7757- rect := TreeView.Selected.DisplayRect(true);
7758- if ((rect.Left <= X) and (rect.Right >= X)) and
7759- ((rect.Bottom >= Y) and (rect.Top <= Y)) then begin
7760- // クリックとダブルクリックをココで判定
7761- if ssDouble in Shift then begin
7762- TreeDoubleClick( TreeView.Selected );
7763- end else begin
7764- TreeClick(TreeView.Selected);
7765- end;
7766- end;
7767- end;
7768- end;
7769- end;
7770-end;
77717844
77727845 initialization
77737846 OleInitialize(nil);
--- a/GikoDataModule.pas
+++ b/GikoDataModule.pas
@@ -695,21 +695,26 @@ end;
695695 // *************************************************************************
696696 procedure TGikoDM.FavoriteTreeViewReloadActionExecute(Sender: TObject);
697697 var
698+ ThreadItem: TThreadItem;
698699 FavThread: TFavoriteThreadItem;
700+ Board: TBoard;
699701 FavBoard: TFavoriteBoardItem;
700702 shiftDown: Boolean;
701703 begin
702- if (GikoForm.ClickNode = nil) then Exit;
704+
705+ if GikoForm.ClickNode = nil then Exit;
703706
704707 shiftDown := GetAsyncKeyState(VK_SHIFT) = Smallint($8001);
705708
706709 if TObject( GikoForm.ClickNode.Data ) is TFavoriteThreadItem then begin
707710 FavThread := TFavoriteThreadItem( GikoForm.ClickNode.Data );
708- if FavThread.Item <> nil then
709- GikoForm.DownloadContent(FavThread.Item, shiftDown);
711+ ThreadItem := FavThread.Item;
712+ if ThreadItem <> nil then
713+ GikoForm.DownloadContent(ThreadItem, shiftDown);
710714 end else if TObject( GikoForm.ClickNode.Data ) is TFavoriteBoardItem then begin
711715 FavBoard := TFavoriteBoardItem( GikoForm.ClickNode.Data );
712- GikoForm.DownloadList(FavBoard.Item, shiftDown);
716+ Board := FavBoard.Item;
717+ GikoForm.DownloadList(Board, shiftDown);
713718 end;
714719
715720 end;
@@ -3104,7 +3109,7 @@ begin
31043109 id := 0;
31053110 TListViewUtils.ListViewSort( nil, GikoForm.ListView,
31063111 GikoForm.ListView.Column[ id ], ListNumberVisibleAction.Checked,
3107- id = 0);
3112+ True);
31083113 break;
31093114 end;
31103115 end;
@@ -3124,7 +3129,7 @@ begin
31243129 id := GikoForm.ListView.Columns.Count - 1;
31253130 TListViewUtils.ListViewSort( nil, GikoForm.ListView,
31263131 GikoForm.ListView.Column[ id ], ListNumberVisibleAction.Checked,
3127- id = 0);
3132+ True);
31283133 break;
31293134 end;
31303135 end;
@@ -3723,7 +3728,7 @@ begin
37233728 //閾値の確認
37243729 limitSize := LIMIT_SIZE;
37253730 limitStr := IntToStr(limitSize);
3726- if InputQuery('閾値入力', '指定した数値 B以下の容量のスレッドのみ再計算します', limitStr) then begin
3731+ if InputQuery('閾値入力', '指定した数値以下の容量のスレッドのみ再計算します', limitStr) then begin
37273732 limitSize := StrToInt(MojuUtils.ZenToHan(limitStr));
37283733 if (limitSize < 0) then begin
37293734 ShowMessage('閾値に負は指定できません！');
--- a/ItemDownload.pas
+++ b/ItemDownload.pas
@@ -900,7 +900,6 @@ begin
900900 //1行目を削除
901901 if SList.Count > 1 then
902902 SList.Delete(0);
903- Item.Content := SList.Text;
904903 //改行コードをCRLF -> LFと考えて、行数分だけマイナス
905904 Item.ContentLength := Length(SList.Text) - SList.Count;
906905 finally
--- a/NewBoard.pas
+++ b/NewBoard.pas
@@ -63,7 +63,6 @@ var
6363 protocol, host, path, document, port, bookmark: String;
6464 begin
6565 try
66- MessageMemo.Clear;
6766 GikoSys.Setting.BoardURLSelected := BoardURLComboBox.ItemIndex + 1;
6867 FAbort := False;
6968 UpdateButton.Enabled := False;
@@ -116,6 +115,7 @@ var
116115 s: string;
117116 i: Integer;
118117 begin
118+ MessageMemo.Clear;
119119 Indy.Request.Clear;
120120 Indy.RecvBufferSize := Gikosys.Setting.RecvBufferSize;
121121 Indy.ProxyParams.BasicAuthentication := False;
Binary files a/gikoNavi.res and b/gikoNavi.res differ
--- a/readme/readme.txt
+++ b/readme/readme.txt
@@ -120,8 +120,6 @@ LICENSE
120120 　DAT落ちしたスレの容量を取得できない不具合の修正
121121 　板更新でローカルファイルを指定できるように変更
122122 　スレッド一覧ダウンロード後のソートをオプション化
123-　NGワードに全半角ひらがなカタカナの違いを同一視するオプションの追加
124-　レスの絞込みで全半角ひらがなカタカタの違いを無視するように変更
125123
126124 2005/10/10
127125 Version ﾊﾞﾀ50 リリース3
Show on old repository browser