Class TfrmSetPath (unit SolutionsUnlimitedPathEd) |
Inherits from
TForm
procedure About1Click(Sender: TObject);
procedure btnAddClick(Sender: TObject);
------------------------------------------------------------------------------
procedure btnDownClick(Sender: TObject);
------------------------------------------------------------------------------
procedure btnOptionsClick(Sender: TObject);
------------------------------------------------------------------------------
procedure btnRemoveClick(Sender: TObject);
------------------------------------------------------------------------------
procedure btnUpClick(Sender: TObject);
------------------------------------------------------------------------------
procedure FormClose(Sender: TObject; var Action: TCloseAction);
------------------------------------------------------------------------------
procedure FormCreate(Sender: TObject);
------------------------------------------------------------------------------
procedure FormDestroy(Sender: TObject);
procedure FormStorageRestorePlacement(Sender: TObject);
------------------------------------------------------------------------------
procedure Sort1Click(Sender: TObject);
------------------------------------------------------------------------------
procedure SetDisplayPackagePath(Value : Boolean);
------------------------------------------------------------------------------
procedure SetSyncPackages(Value : Boolean);
------------------------------------------------------------------------------
function ListSaved : Boolean;
------------------------------------------------------------------------------
procedure ParsePath;
------------------------------------------------------------------------------
procedure ReadPath;
------------------------------------------------------------------------------
procedure RestoreList;
------------------------------------------------------------------------------
procedure SaveList;
TfrmSetPath -----------------------------------------------------------------
procedure SyncWithPackages;
------------------------------------------------------------------------------
procedure WritePath;
------------------------------------------------------------------------------
property DisplayPackagePath : Boolean
Public declarations
property SyncPackages : Boolean
About1 : TMenuItem;
btnAdd : TButton;
btnClose : TButton;
btnDown : TButton;
btnOptions : TButton;
btnRemove : TButton;
btnUp : TButton;
FormStorage : TSUFormStorage;
lstPath : TCheckListBox;
N1 : TMenuItem;
Panel1 : TPanel;
pnlList : TPanel;
PopupMenu1 : TPopupMenu;
Sort1 : TMenuItem;
StatusBar1 : TStatusBar;
tabPath : TTabSheet;
FDisplayHistory : Boolean;
FDisplayPackagePath : Boolean;
FDisplayProject : Boolean;
FSyncPackages : Boolean;
OldList : TStringList;
PackageNotifier : TPackageNotifier;
Private declarations
PackagePath : TStringList;
procedure About1Click(Sender: TObject);
procedure btnAddClick(Sender: TObject);
------------------------------------------------------------------------------
procedure btnDownClick(Sender: TObject);
------------------------------------------------------------------------------
procedure btnOptionsClick(Sender: TObject);
------------------------------------------------------------------------------
procedure btnRemoveClick(Sender: TObject);
------------------------------------------------------------------------------
procedure btnUpClick(Sender: TObject);
------------------------------------------------------------------------------
procedure FormClose(Sender: TObject; var Action: TCloseAction);
------------------------------------------------------------------------------
procedure FormCreate(Sender: TObject);
------------------------------------------------------------------------------
procedure FormDestroy(Sender: TObject);
procedure FormStorageRestorePlacement(Sender: TObject);
------------------------------------------------------------------------------
procedure Sort1Click(Sender: TObject);
------------------------------------------------------------------------------
procedure SetDisplayPackagePath(Value : Boolean);
------------------------------------------------------------------------------
procedure SetSyncPackages(Value : Boolean);
------------------------------------------------------------------------------
function ListSaved : Boolean;
------------------------------------------------------------------------------
procedure ParsePath;
------------------------------------------------------------------------------
procedure ReadPath;
------------------------------------------------------------------------------
procedure RestoreList;
------------------------------------------------------------------------------
procedure SaveList;
TfrmSetPath -----------------------------------------------------------------
procedure SyncWithPackages;
------------------------------------------------------------------------------
procedure WritePath;
------------------------------------------------------------------------------
property DisplayPackagePath : Boolean
Public declarations
property SyncPackages : Boolean
About1 : TMenuItem;
btnAdd : TButton;
btnClose : TButton;
btnDown : TButton;
btnOptions : TButton;
btnRemove : TButton;
btnUp : TButton;
FormStorage : TSUFormStorage;
lstPath : TCheckListBox;
N1 : TMenuItem;
Panel1 : TPanel;
pnlList : TPanel;
PopupMenu1 : TPopupMenu;
Sort1 : TMenuItem;
StatusBar1 : TStatusBar;
tabPath : TTabSheet;
FDisplayHistory : Boolean;
FDisplayPackagePath : Boolean;
FDisplayProject : Boolean;
FSyncPackages : Boolean;
OldList : TStringList;
PackageNotifier : TPackageNotifier;
Private declarations
PackagePath : TStringList;