| 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); |
| 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 |
| 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); |
| 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; |
| 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; |
| 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 |