procedure TGikoForm.CabinetFavoriteActionExecute(Sender: TObject);
begin
+ // \83L\83\83\83r\83l\83b\83g\83c\81[\83\8b\83o\81[\8by\82Ñ\83L\83\83\83r\83l\83b\83g\82Ì\95\\8e¦\90Ø\91Ö
HistoryToolBar.Hide;
FavoriteToolBar.Show;
TreeView.Visible := False;
FavoriteTreeView.Visible := True;
+ CabinetSelectToolButton.Caption := '\82¨\8bC\82É\93ü\82è';
+
+ // \83\81\83j\83\85\81[\8by\82Ñ\83{\83^\83\93\82Ì\83`\83F\83b\83N\82ð\90Ý\92è
Cabinet2chAction.Checked := False;
CabinetHistoryAction.Checked := False;
CabinetFavoriteAction.Checked := True;
+ // \82¨\8bC\82É\93ü\82è\82Ì\83c\83\8a\81[\82ð\93W\8aJ
FavoriteTreeView.TopItem.Expanded := True;
end;
except
end;
- SaveList.Add('<div class="title"><a name="top">' + sTitle + '</a></div>');
+ SaveList.Add('<a name="top"></a>');
for i := 0 to ReadList.Count - 1 do begin
if (Trim(ReadList[i]) <> '') then begin
try
SaveList.Add( LoadSkin( SkinBookmarkFileName ) );
except
+ SaveList.Add( '<a name="koko"></a>' );
end;
end;
end;