Commit: 8c75b563f03558e13718e0ad85442da76b440247 - gikonavi (git)

ギコナビ

Commit MetaInfo

• Révision: 8c75b563f03558e13718e0ad85442da76b440247 (tree)
• l'heure: 2007-07-22 19:23:51
• Auteur: h677 <h677>
• Commiter: h677

Message de Log

追加・適用でカテゴリがクリアされないように修正。
カテゴリが設定されていない場合も登録できないように修正。

Change Summary

• modified: InputAssist.pas

Modification

--- a/InputAssist.pas
+++ b/InputAssist.pas
@@ -64,7 +64,8 @@ type
 	FSortColumn : Integer;
 	FInsertText : String;
 	procedure AddListViewItem(ResWord : TResistWord);
-    procedure SetCategory(combo: TComboBox);
+    procedure SetCategory(combo: TComboBox; selected: String);
+    function ValidateKey(key, category: String): boolean;
   public
 	{ Public éŒ¾ }
 	procedure SetUpFromEditor();
@@ -143,22 +144,35 @@ procedure TInputAssistForm.AddButtonClick(Sender: TObject);
 var
 	resWord : TResistWord;
 begin
-	if (Length(KeyNameEdit.Text) = 0) then begin
-		ShowMessage('ƒL[–¼‚ðÝ’肵‚Ä‚­‚¾‚³‚¢B');
-	end else begin
+	if (ValidateKey(KeyNameEdit.Text, CategoryNameComboBox.Text)) then begin
 		if (not InputAssistDM.IsDupulicate(
 			KeyNameEdit.Text, CategoryNameComboBox.Text) ) then begin
 			resWord := InputAssistDM.Add(KeyNameEdit.Text);
 			resWord.SetCategory(CategoryNameComboBox.Text);
 			resWord.SetText(TextMemo.Text);
 			AddListViewItem(resWord);
-            SetCategory(CategoryNameComboBox);
+            SetCategory(CategoryNameComboBox, resWord.GetCategory);
 			GikoListView1.AlphaSort;
 		end else begin
 			ShowMessage('“¯ˆê‚̃L[–¼EƒJƒeƒSƒŠ–¼‚ÅŠù‚É“o˜^Ï‚Ý‚Å‚·B');
 		end;
 	end;
 end;
+//! ƒL[–¼EƒJƒeƒSƒŠ—LŒøƒ`ƒFƒbƒN
+function TInputAssistForm.ValidateKey(key, category: String): boolean;
+begin
+    Result := True;
+    if (Length(key) = 0) then begin
+        ShowMessage('ƒL[–¼‚ðÝ’肵‚Ä‚­‚¾‚³‚¢B');
+        Result := False;
+    end else begin
+        if (Length(category) = 0) then begin
+            ShowMessage('ƒJƒeƒSƒŠ‚ðÝ’肵‚Ä‚­‚¾‚³‚¢B');
+            Result := False;
+        end;
+    end;
+end;
+
 //! íœƒ{ƒ^ƒ“‰Ÿ‰ºŽž‚̃Cƒxƒ“ƒg
 procedure TInputAssistForm.DeleteButtonClick(Sender: TObject);
 begin
@@ -174,9 +188,7 @@ var
 	resWord : TResistWord;
 begin
 	if GikoListView1.Selected <> nil then begin
-		if (Length(KeyNameEdit.Text) = 0) then begin
-			ShowMessage('ƒL[–¼‚𖳂µ‚É‚Í‚Å‚«‚Ü‚¹‚ñB');
-		end else begin
+    	if (ValidateKey(KeyNameEdit.Text, CategoryNameComboBox.Text)) then begin
             if (not InputAssistDM.IsDupulicate(
     			KeyNameEdit.Text, CategoryNameComboBox.Text) ) then begin
 	    		resWord := TResistWord(GikoListView1.Selected.Data);
@@ -186,7 +198,7 @@ begin
 		    	// ˆê——‚̍XV
 			    GikoListView1.Selected.Caption := resWord.GetKey;
     			GikoListView1.Selected.SubItems[0] := resWord.GetCategory;
-                SetCategory(CategoryNameComboBox);
+                SetCategory(CategoryNameComboBox, resWord.GetCategory);
 		    	GikoListView1.AlphaSort;
     		end else begin
 	    		ShowMessage('“¯ˆê‚̃L[–¼EƒJƒeƒSƒŠ–¼‚ÅŠù‚É“o˜^Ï‚Ý‚Å‚·B');
@@ -297,9 +309,10 @@ begin
 	LockWindowUpdate(0);
 end;
 //! ƒJƒeƒSƒŠƒRƒ“ƒ{ƒ{ƒbƒNƒXÝ’è
-procedure TInputAssistForm.SetCategory(combo: TComboBox);
+procedure TInputAssistForm.SetCategory(combo: TComboBox; selected: String);
 var
 	cat : TStringList;
+    i : Integer;
 begin
 	// ŒŸõ—p
 	cat := TStringList.Create;
@@ -311,6 +324,11 @@ begin
 		combo.Items.AddStrings(cat);
 		combo.ItemIndex := 0;
         combo.Items.EndUpdate;
+        // ‘I‘ðÏ‚݂̃JƒeƒSƒŠ‚ɃCƒ“ƒfƒbƒNƒX‚ð•ÏX
+        i := combo.Items.IndexOf(selected);
+        if (i <> -1) then begin
+            combo.ItemIndex := i;
+        end;
 	finally
 		cat.Free;
 	end;
@@ -326,11 +344,9 @@ begin
 	FInsertText := '';
 	CloseAction.ShortCut := TShortCut(0);
 	// ’ljÁ—pƒL[“ü—ÍOK
-    SetCategory(CategoryNameComboBox);
+    SetCategory(CategoryNameComboBox, '');
 end;
 procedure TInputAssistForm.SetUpFromEditor();
-var
-	cat : TStringList;
 begin
 	Self.Caption := '“ü—̓AƒVƒXƒg';
 	Panel3.Visible := False;
@@ -340,7 +356,7 @@ begin
 	FInsertText := '';
 	CloseAction.ShortCut := ShortCut(VK_ESCAPE, []);
 	// ŒŸõ—p
-    SetCategory(CategoryComboBox);
+    SetCategory(CategoryComboBox, '');
 end;
 function TInputAssistForm.GetInsertText(): String;
 begin