| Class TMainForm (unit F2BMain) |
TForm
Folder level (position in folder tree
| Constructors |
| Functions |
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure MakeBookmark(UrlRec: PUrlRec);
procedure MakeDocumentBottom;
procedure MakeDocumentTop;
procedure MakeHeaderBottom(UrlRec: PUrlRec);
procedure MakeHeaderTop(UrlRec: PUrlRec);
procedure GetFavoritesFolder;---------------------- TMainForm ---------------------
procedure MakeBookmarkFile;
procedure SearchURL(Folder: String; Level: Integer);
procedure TraverseFavList(Idx, PrevIdx: Integer);| Properties |
| Events |
| Variables |
Button1 : TButton;
Button2 : TButton;
Button3 : TButton;
CheckBox1 : TCheckBox;
Edit1 : TEdit;
Label1 : TLabel;
BmkList : TStringList;
FavFolder : String;
FavList : TList;| Constructors |
| Functions |
procedure Button1Click(Sender: TObject);Function to sort the list of favorites alphabetically
procedure Button2Click(Sender: TObject);Alternatively you could use ExecuteFile
procedure Button3Click(Sender: TObject);
procedure MakeBookmark(UrlRec: PUrlRec);End section containing bookmarks
procedure MakeDocumentBottom;
procedure MakeDocumentTop;Insert bookmark
procedure MakeHeaderBottom(UrlRec: PUrlRec);/ BmkList.Add('Level: ' + IntToStr(UrlRec.Level));
procedure MakeHeaderTop(UrlRec: PUrlRec);/ BmkList.Add(''); BmkList.Add('
');
procedure GetFavoritesFolder;Favorites converted into bookmarks
---------------------- TMainForm ---------------------
procedure MakeBookmarkFile;// Add a dummy record UrlRec := New(PUrlRec); UrlRec.Rep := ''; UrlRec.UrlName := ''; UrlRec.UrlPath := ''; UrlRec.Level := 0; FavList.Add(UrlRec);
procedure SearchURL(Folder: String; Level: Integer);Find the directory of the Internet Explorer favorites
procedure TraverseFavList(Idx, PrevIdx: Integer);Called recursively / MakeHeaderBottom(FavList[FavList.Count-1]);
| Properties |
| Events |
| Variables |
Button1 : TButton;
Button2 : TButton;
Button3 : TButton;
CheckBox1 : TCheckBox;
Edit1 : TEdit;
Label1 : TLabel;
BmkList : TStringList;List of the favorite links
FavFolder : String;
FavList : TList;Path of the favorites folder