Quote:
Originally Posted by Fak Eid
Can we make the Directory box editable?
|
use FFolderTreeView / FStartMenuFolderTreeView
Code:
// Folder TreeView
type
FFolderTreeView = Interface(IUnknown)
'{22193C2C-6109-4625-92A3-6CECE9A56348}'
procedure FCreate(hHandle: HWND; FLeft, FTop, FWidth, FHeight: Integer; const ADir: WideString);
procedure NewFolder(const Folder: WideString);
procedure ChangeDirectory(const ADir: WideString);
procedure OnChange(FEvent: TNotifyEvent);
function GetCurrrentDir: WideString;
procedure Left(FLeft: Integer);
procedure Top(FTop: Integer);
procedure Width(FWidth: Integer);
procedure Height(FHeight: Integer);
procedure Hide;
procedure Show;
function GetObject: Longint;
function HandleHWND: HWND;
procedure Free;
End;
// StartMenu Folder TreeView
type
FStartMenuFolderTreeView = Interface(IUnknown)
'{22193C2C-6109-4625-92A3-6CECE9A56348}'
procedure FCreate(hHandle: HWND; FLeft, FTop, FWidth, FHeight: Integer; const ADir: WideString);
procedure NewFolder(const Folder: WideString);
procedure ChangeDirectory(const ADir: WideString);
procedure OnChange(FEvent: TNotifyEvent);
function GetCurrrentDir: WideString;
procedure Left(FLeft: Integer);
procedure Top(FTop: Integer);
procedure Width(FWidth: Integer);
procedure Height(FHeight: Integer);
procedure Hide;
procedure Show;
function GetObject: Longint;
function HandleHWND: HWND;
procedure Free;
End;