Advanced Inno Setup Example

[DelphiBuilder]

TFolderTreeViewCreate

FFolderTreeView:=FolderTreeViewCreate(WizardForm, crDefault, 'C:\Directory', 0, 'FolderTreeView Create Hint', True, 0, True, 0, True, 20, 20, 200, 200, @OnChange, nil);

FolderTreeViewGetParent(FFolderTreeView);
 FolderTreeViewGetCursor(FFolderTreeView);
 FolderTreeViewGetDirectory(FFolderTreeView);
 FolderTreeViewGetHelpContext(FFolderTreeView);
 FolderTreeViewGetHint(FFolderTreeView);
 FolderTreeViewGetShowAllFolders(FFolderTreeView);
 FolderTreeViewGetTabOrder(FFolderTreeView);
 FolderTreeViewGetTabStop(FFolderTreeView);
 FolderTreeViewGetTag(FFolderTreeView);
 FolderTreeViewGetVisible(FFolderTreeView);
 FolderTreeViewGetLeft(FFolderTreeView);
 FolderTreeViewGetTop(FFolderTreeView);
 FolderTreeViewGetHeight(FFolderTreeView);
 FolderTreeViewGetWidth(FFolderTreeView);
 FolderTreeViewGetBounds(FFolderTreeView);

FolderTreeViewSetParent(FFolderTreeView, WizardForm);
 FolderTreeViewSetCursor(FFolderTreeView, crDefault);
 FolderTreeViewSetDirectory(FFolderTreeView, 'C:\Directory');
 FolderTreeViewSetHelpContext(FFolderTreeView, 0);
 FolderTreeViewSetHint(FFolderTreeView, 'FolderTreeView Create Hint');
 FolderTreeViewSetShowAllFolders(FFolderTreeView, True);
 FolderTreeViewSetTabOrder(FFolderTreeView, 0);
 FolderTreeViewSetTabStop(FFolderTreeView, True);
 FolderTreeViewSetTag(FFolderTreeView, 0);
 FolderTreeViewSetVisible(FFolderTreeView, True);
 FolderTreeViewSetLeft(FFolderTreeView, 20);
 FolderTreeViewSetTop(FFolderTreeView, 20);
 FolderTreeViewSetHeight(FFolderTreeView, 200);
 FolderTreeViewSetWidth(FFolderTreeView, 200);
 FolderTreeViewSetBounds(FFolderTreeView, 20, 20, 200, 200);

 FolderTreeViewSetEvent(FFolderTreeView, @OnChange, nil);

FolderTreeViewChangeDirectory(FFolderTreeView, 'C:\Windows', True);
 FolderTreeViewCreateNewDirectory(FFolderTreeView, 'C:\CreateNewDirectory');