Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/InputAssist.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.10 by h677, Sun Jul 22 10:23:51 2007 UTC revision 1.10.2.1 by h677, Mon Aug 6 16:01:37 2007 UTC
# Line 189  var Line 189  var
189  begin  begin
190          if GikoListView1.Selected <> nil then begin          if GikoListView1.Selected <> nil then begin
191          if (ValidateKey(KeyNameEdit.Text, CategoryNameComboBox.Text)) then begin          if (ValidateKey(KeyNameEdit.Text, CategoryNameComboBox.Text)) then begin
192              if (not InputAssistDM.IsDupulicate(              resWord := TResistWord(GikoListView1.Selected.Data);
193                // 変更前のキー/カテゴリと同一もしくは、他と重複無し
194                if ((resWord.GetKey = KeyNameEdit.Text)
195                    and (resWord.GetCategory = CategoryNameComboBox.Text)) or
196                    (not InputAssistDM.IsDupulicate(
197                          KeyNameEdit.Text, CategoryNameComboBox.Text) ) then begin                          KeyNameEdit.Text, CategoryNameComboBox.Text) ) then begin
198                          resWord := TResistWord(GikoListView1.Selected.Data);                  resWord.SetCategory(CategoryNameComboBox.Text);
199                          resWord.SetKey(KeyNameEdit.Text);                  resWord.SetText(TextMemo.Text);
200                              resWord.SetCategory(CategoryNameComboBox.Text);                  // キーが変わるときは、ChangeKeyを呼ぶ
201                          resWord.SetText(TextMemo.Text);                  if (resWord.GetKey <> KeyNameEdit.Text) then begin
202                            resWord.SetKey(KeyNameEdit.Text);
203                        InputAssistDM.ChangeKey(resWord);
204                    end;
205                          // 一覧の更新                          // 一覧の更新
206                              GikoListView1.Selected.Caption := resWord.GetKey;                              GikoListView1.Selected.Caption := resWord.GetKey;
207                          GikoListView1.Selected.SubItems[0] := resWord.GetCategory;                          GikoListView1.Selected.SubItems[0] := resWord.GetCategory;

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.10.2.1

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26