Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Favorite.pas

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

revision 1.49 by h677, Sat Dec 10 16:11:30 2005 UTC revision 1.50 by h677, Mon Dec 12 14:52:57 2005 UTC
# Line 50  type Line 50  type
50                  { Private 宣言 }                  { Private 宣言 }
51                  FStack: TStack;                  FStack: TStack;
52                  FTreeView: TTreeView;                  FTreeView: TTreeView;
53                    FModified: boolean;
54                  procedure ReadNode(Node: IXMLNode);                  procedure ReadNode(Node: IXMLNode);
55                  procedure AddSaveString(Node: TTreeNode; SaveList: TStringList);                  procedure AddSaveString(Node: TTreeNode; SaveList: TStringList);
56  //              procedure AddSaveString(Node: TTreeNode; XMLNode: IXMLNode);  //              procedure AddSaveString(Node: TTreeNode; XMLNode: IXMLNode);
# Line 61  type Line 61  type
61  //              procedure SAXCharacters(Sender: TObject; const PCh: SAXString);  //              procedure SAXCharacters(Sender: TObject; const PCh: SAXString);
62          public          public
63                  { Public 宣言 }                  { Public 宣言 }
64          procedure Clear;                  procedure Clear;
65                                  function GetFavoriteFilePath() : String;                  function GetFavoriteFilePath() : String;
66                                  function SaveFavoriteFile(FileName: String) : Boolean;                  function SaveFavoriteFile(FileName: String) : Boolean;
67                  procedure SetFavTreeView(TreeView: TTreeView);                  procedure SetFavTreeView(TreeView: TTreeView);
68                  procedure ReadFavorite;                  procedure ReadFavorite;
69                  procedure WriteFavorite;                  procedure WriteFavorite;
70          procedure URLReplace(oldURLs: TStringList; newURLs: TStringList);                  procedure URLReplace(oldURLs: TStringList; newURLs: TStringList);
71                  property TreeView: TTreeView read FTreeView;                  property TreeView: TTreeView read FTreeView;
72                    property Modified: boolean read FModified write FModified;
73          end;          end;
74    
75  var  var
# Line 287  begin Line 288  begin
288          end;          end;
289                  TreeView.Items.Clear;                  TreeView.Items.Clear;
290                  TreeView.Items.EndUpdate;                  TreeView.Items.EndUpdate;
291      //TreeView.Free;  
292        FavoriteDM.Modified := true;
293  end;  end;
294    
295  procedure TFavoriteDM.SetFavTreeView(TreeView: TTreeView);  procedure TFavoriteDM.SetFavTreeView(TreeView: TTreeView);
# Line 305  var Line 307  var
307          FavFolder: TFavoriteFolder;          FavFolder: TFavoriteFolder;
308          LinkExists: Boolean;          LinkExists: Boolean;
309  begin  begin
310            FavoriteDM.Modified := true;
311          FileName := GikoSys.GetConfigDir + FAVORITE_FILE_NAME;          FileName := GikoSys.GetConfigDir + FAVORITE_FILE_NAME;
312    
313          FavFolder := TFavoriteFolder.Create;          FavFolder := TFavoriteFolder.Create;
# Line 477  var Line 479  var
479          SaveList: TStringList;          SaveList: TStringList;
480    
481  begin  begin
482        FavoriteDM.Modified := true;
483          FileName := GikoSys.GetConfigDir + FAVORITE_FILE_NAME;          FileName := GikoSys.GetConfigDir + FAVORITE_FILE_NAME;
484          if FileExists(FileName) then begin          if FileExists(FileName) then begin
485                  tmpFileName := GikoSys.GetConfigDir + '~' + FAVORITE_FILE_NAME;                  tmpFileName := GikoSys.GetConfigDir + '~' + FAVORITE_FILE_NAME;
# Line 488  begin Line 491  begin
491          try          try
492                  SaveList.Add('<?xml version="1.0" encoding="Shift_JIS" standalone="yes"?>');                  SaveList.Add('<?xml version="1.0" encoding="Shift_JIS" standalone="yes"?>');
493                  SaveList.Add('<favorite>');                  SaveList.Add('<favorite>');
494                  AddSaveString(TreeView.Items.GetFirstNode.getFirstChild, SaveList);                  try
495                            AddSaveString(TreeView.Items.GetFirstNode.getFirstChild, SaveList);
496                    except
497                    end;
498                  SaveList.Add('</favorite>');                  SaveList.Add('</favorite>');
499                  SaveList.SaveToFile(FileName);                  SaveList.SaveToFile(FileName);
500          finally          finally

Legend:
Removed from v.1.49  
changed lines
  Added in v.1.50

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