• R/O
  • HTTP
  • SSH
  • HTTPS

gikonavi: Commit


Commit MetaInfo

Revision5066ed427345003de51b0f7d77a4ba03ade499d9 (tree)
Time2007-07-25 04:12:36
Authorcvs2git <cvs2git>
Commitercvs2git

Log Message

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

Change Summary

Incremental Difference

--- a/InputAssist.pas
+++ b/InputAssist.pas
@@ -64,8 +64,7 @@ type
6464 FSortColumn : Integer;
6565 FInsertText : String;
6666 procedure AddListViewItem(ResWord : TResistWord);
67- procedure SetCategory(combo: TComboBox; selected: String);
68- function ValidateKey(key, category: String): boolean;
67+ procedure SetCategory(combo: TComboBox);
6968 public
7069 { Public 宣言 }
7170 procedure SetUpFromEditor();
@@ -144,35 +143,22 @@ procedure TInputAssistForm.AddButtonClick(Sender: TObject);
144143 var
145144 resWord : TResistWord;
146145 begin
147- if (ValidateKey(KeyNameEdit.Text, CategoryNameComboBox.Text)) then begin
146+ if (Length(KeyNameEdit.Text) = 0) then begin
147+ ShowMessage('キー名を設定してください。');
148+ end else begin
148149 if (not InputAssistDM.IsDupulicate(
149150 KeyNameEdit.Text, CategoryNameComboBox.Text) ) then begin
150151 resWord := InputAssistDM.Add(KeyNameEdit.Text);
151152 resWord.SetCategory(CategoryNameComboBox.Text);
152153 resWord.SetText(TextMemo.Text);
153154 AddListViewItem(resWord);
154- SetCategory(CategoryNameComboBox, resWord.GetCategory);
155+ SetCategory(CategoryNameComboBox);
155156 GikoListView1.AlphaSort;
156157 end else begin
157158 ShowMessage('同一のキー名・カテゴリ名で既に登録済みです。');
158159 end;
159160 end;
160161 end;
161-//! キー名・カテゴリ有効チェック
162-function TInputAssistForm.ValidateKey(key, category: String): boolean;
163-begin
164- Result := True;
165- if (Length(key) = 0) then begin
166- ShowMessage('キー名を設定してください。');
167- Result := False;
168- end else begin
169- if (Length(category) = 0) then begin
170- ShowMessage('カテゴリを設定してください。');
171- Result := False;
172- end;
173- end;
174-end;
175-
176162 //! 削除ボタン押下時のイベント
177163 procedure TInputAssistForm.DeleteButtonClick(Sender: TObject);
178164 begin
@@ -188,7 +174,9 @@ var
188174 resWord : TResistWord;
189175 begin
190176 if GikoListView1.Selected <> nil then begin
191- if (ValidateKey(KeyNameEdit.Text, CategoryNameComboBox.Text)) then begin
177+ if (Length(KeyNameEdit.Text) = 0) then begin
178+ ShowMessage('キー名を無しにはできません。');
179+ end else begin
192180 if (not InputAssistDM.IsDupulicate(
193181 KeyNameEdit.Text, CategoryNameComboBox.Text) ) then begin
194182 resWord := TResistWord(GikoListView1.Selected.Data);
@@ -198,7 +186,7 @@ begin
198186 // 一覧の更新
199187 GikoListView1.Selected.Caption := resWord.GetKey;
200188 GikoListView1.Selected.SubItems[0] := resWord.GetCategory;
201- SetCategory(CategoryNameComboBox, resWord.GetCategory);
189+ SetCategory(CategoryNameComboBox);
202190 GikoListView1.AlphaSort;
203191 end else begin
204192 ShowMessage('同一のキー名・カテゴリ名で既に登録済みです。');
@@ -309,10 +297,9 @@ begin
309297 LockWindowUpdate(0);
310298 end;
311299 //! カテゴリコンボボックス設定
312-procedure TInputAssistForm.SetCategory(combo: TComboBox; selected: String);
300+procedure TInputAssistForm.SetCategory(combo: TComboBox);
313301 var
314302 cat : TStringList;
315- i : Integer;
316303 begin
317304 // 検索用
318305 cat := TStringList.Create;
@@ -324,11 +311,6 @@ begin
324311 combo.Items.AddStrings(cat);
325312 combo.ItemIndex := 0;
326313 combo.Items.EndUpdate;
327- // 選択済みのカテゴリにインデックスを変更
328- i := combo.Items.IndexOf(selected);
329- if (i <> -1) then begin
330- combo.ItemIndex := i;
331- end;
332314 finally
333315 cat.Free;
334316 end;
@@ -344,9 +326,11 @@ begin
344326 FInsertText := '';
345327 CloseAction.ShortCut := TShortCut(0);
346328 // 追加用キー入力OK
347- SetCategory(CategoryNameComboBox, '');
329+ SetCategory(CategoryNameComboBox);
348330 end;
349331 procedure TInputAssistForm.SetUpFromEditor();
332+var
333+ cat : TStringList;
350334 begin
351335 Self.Caption := '入力アシスト';
352336 Panel3.Visible := False;
@@ -356,7 +340,7 @@ begin
356340 FInsertText := '';
357341 CloseAction.ShortCut := ShortCut(VK_ESCAPE, []);
358342 // 検索用
359- SetCategory(CategoryComboBox, '');
343+ SetCategory(CategoryComboBox);
360344 end;
361345 function TInputAssistForm.GetInsertText(): String;
362346 begin
Binary files a/gikoNavi.res and b/gikoNavi.res differ
--- a/readme/readme.txt
+++ b/readme/readme.txt
@@ -108,17 +108,9 @@ LICENSE
108108 ------------------------------
109109 履歴
110110 ------------------------------
111-2007/08/05
111+2007/XX/YY
112112 Version バタ56
113- レスポップアップの多段対応
114- 表示しているスレッド中のリンクのURLの取得アクションを追加
115- 履歴リストにしてEnterでスレッドを表示するとエラーが表示される不具合の修正
116- Tab自動保存・復元を有効にしているときに、起動時の復元で表示していたタブを開くように修正
117- 入力アシストのカテゴリの項目をComboBox化
118- 詳細設定で100レス表示の先頭表示レス数が毎回1と表示される不具合の修正
119- スクリプト誤反応対策機能のデフォルトファイル(replace.default)の更新
120- (アップデートの場合、手動で更新する必要があります)
121- インストーラをInno Setup(http://www.jrsoftware.org/)で作り直した
113+ レスポップアップの多段対応
122114
123115 2007/04/01
124116 Version バタ55
--- a/res/default/replace.default
+++ b/res/default/replace.default
@@ -4,5 +4,4 @@ body onload=window\(\)
44 GetSpecialFolder\(
55 CodeModule\.Lines
66 ms-its:mhtml:
7-!exec*:*:
8-$mircexe mircexe
\ No newline at end of file
7+!exec*:*:
\ No newline at end of file
Show on old repository browser