Commit: 6f4460a121c2b842783661bf53b3194694b6575e - gikonavi (git)

ギコナビ

Commit MetaInfo

• Révision: 6f4460a121c2b842783661bf53b3194694b6575e (tree)
• l'heure: 2007-02-09 00:06:19
• Auteur: h677 <h677>
• Commiter: h677

Message de Log

追加時に、デフォルトの文字列がでるようにした。
チェックが反映されるようにした。

Change Summary

• modified: NGWordEdit.dfm
• modified: NGWordEdit.pas
• modified: NGWordUnit.pas

Modification

--- a/NGWordEdit.dfm
+++ b/NGWordEdit.dfm
@@ -1,6 +1,6 @@
 object NGWordEditForm: TNGWordEditForm
-  Left = 278
-  Top = 178
+  Left = 304
+  Top = 176
   Width = 490
   Height = 401
   Caption = 'NGWordEditForm'
@@ -52,13 +52,14 @@ object NGWordEditForm: TNGWordEditForm
         TabOrder = 1
         OnClick = DeleteButtonClick
       end
-      object Button3: TButton
+      object ApplyButton: TButton
         Left = 24
         Top = 80
         Width = 75
         Height = 25
-        Caption = 'Button3'
+        Caption = #36969#29992
         TabOrder = 2
+        OnClick = ApplyButtonClick
       end
       object Button4: TButton
         Left = 24

--- a/NGWordEdit.pas
+++ b/NGWordEdit.pas
@@ -14,7 +14,7 @@ type
     Panel3: TPanel;
     AddButton: TButton;
     DeleteButton: TButton;
-    Button3: TButton;
+    ApplyButton: TButton;
     Button4: TButton;
     Panel4: TPanel;
     Panel5: TPanel;
@@ -41,6 +41,7 @@ type
     procedure DeleteNGButtonClick(Sender: TObject);
     procedure AddButtonClick(Sender: TObject);
     procedure DeleteButtonClick(Sender: TObject);
+    procedure ApplyButtonClick(Sender: TObject);
   private
     { Private éŒ¾ }
     FNGWordList : TNGWordList;
@@ -83,6 +84,7 @@ begin
     Result.Caption := '';
     Result.SubItems.Clear;
     Result.SubItems.Add(ngWord.ToString);
+    Result.Checked := ngWord.Invisible;
     Result.Data := ngWord;
 end;
 
@@ -141,10 +143,19 @@ var
 begin
 	if (Item <> nil) and (Item.Data <> nil) then begin
         ngWord := TNGWords(item.Data);
+        GikoListView2.Items.BeginUpdate;
         GikoListView2.items.Clear;
-        for i := 0 to ngWord.Count - 1 do begin
-            AddWord( TNGWord(ngWord.Items[i]) );
+        if ngWord.Count = 0 then begin
+            // ‰½‚à‚È‚¢‚ÆŒ©‚¦‚È‚¢‚̂ŃfƒtƒHƒ‹ƒg‚̃ƒbƒZ[ƒW
+            AddWord(nil);
+        end else begin
+            // ‘S•”‚Ì—v‘f‚ð’ljÁ‚·‚é
+            for i := 0 to ngWord.Count - 1 do begin
+                AddWord( TNGWord(ngWord.Items[i]) );
+            end;
+
         end;
+        GikoListView2.Items.EndUpdate;
 	end;
 end;
 // ‰º•”ƒŠƒXƒg’ljÁƒƒ\ƒbƒh
@@ -154,16 +165,20 @@ var
 begin
     litem := GikoListView2.Items.Add;
     litem.ImageIndex := -1;
-    case Integer(word.NGType) of
-        Integer(gntAll):   litem.Caption := '‘S•”';
-        Integer(gntName):  litem.Caption := '–¼‘O—“';
-        Integer(gntMail):  litem.Caption := 'ƒ[ƒ‹—“';
-        Integer(gntDateId):litem.Caption := '“ú•tID—“';
-        Integer(gntBody):  litem.Caption := '–{•¶';
-    end;
     litem.SubItems.Clear;
-    litem.SubItems.Add(word.Word);
     litem.Data := word;
+    if (word = nil) then begin
+        litem.Caption := '<–¢“ü—Í>'
+    end else begin
+        case Integer(word.NGType) of
+            Integer(gntAll):   litem.Caption := '‘S•”';
+            Integer(gntName):  litem.Caption := '–¼‘O—“';
+            Integer(gntMail):  litem.Caption := 'ƒ[ƒ‹—“';
+            Integer(gntDateId):litem.Caption := '“ú•tID—“';
+            Integer(gntBody):  litem.Caption := '–{•¶';
+        end;
+        litem.SubItems.Add(word.Word);
+    end;
 end;
 //! NGƒ[ƒh’ljÁƒ{ƒ^ƒ“
 procedure TNGWordEditForm.AddNGButtonClick(Sender: TObject);
@@ -175,6 +190,10 @@ begin
     litem := GikoListView1.Selected;
     if (litem <> nil) then begin
         if NGWordEdit.Text <> '' then begin
+            // <–¢“ü—Í>‚ðíœ‚·‚é
+            if (TNGWords(litem.Data).Count = 0) then begin
+                GikoListView2.Items.Delete(0);
+            end;
             word := TNGWord.Create;
             word.NGType := TGikoNGType(ComboBox1.ItemIndex);
             word.Word := NGWordEdit.Text;
@@ -228,5 +247,15 @@ begin
     end;
 end;
 
+//! “K‰žƒ{ƒ^ƒ“ “§–¾ƒ`ƒFƒbƒN‚ðÝ’肵‚È‚¨‚·
+procedure TNGWordEditForm.ApplyButtonClick(Sender: TObject);
+var
+    i: Integer;
+begin
+    for i := 0 to GikoListView1.Items.Count - 1 do begin
+        TNGWords(GikoListView1.Items[i].Data).Invisible :=
+            GikoListView1.Items[i].Checked;
+    end;
+end;
 
 end.

--- a/NGWordUnit.pas
+++ b/NGWordUnit.pas
@@ -3,7 +3,7 @@ unit NGWordUnit;
 interface
 uses
     Windows,Messages, ShellAPI, SysUtils, Classes,StdCtrls,StrUtils,
-    GikoXMLDoc;
+    GikoXMLDoc, GikoSystem;
 
 type
 	//ƒŠƒXƒg‚Ì•\Ž¦ƒAƒCƒeƒ€‘I‘ð
@@ -53,6 +53,7 @@ type
         procedure LoadFromFile(fileName: String);
         procedure SaveToFrile(fileName: String);
         procedure Delte(NGWords: TNGWords); overload;
+        function IsNG(PRes : PResRec): Boolean;
     end;
 
     function CompareRank(Item1, Item2: Pointer): Integer;
@@ -253,5 +254,14 @@ begin
         end;
     end;
 end;
+//! NG”»’è
+function TNGWordList.IsNG(PRes : PResRec): Boolean;
+var
+    i: Integer;
+begin
+    for i := 0 to Count - 1 do begin
+        //
+    end;
+end;
 
 end.