Текущий архив: 2003.07.21;
Скачать: CL | DM;
Вниз
TSHellTreeView: как запретить проверку диска 3.5 (A)? Найти похожие ветки
← →
Makhanev A.S. © (2003-05-10 16:18) [0]а ещё лучше его оттуда вообще убрать
← →
Makhanev A.S. © (2003-05-11 02:17) [1]никак?
← →
Ученик © (2003-05-11 19:02) [2]procedure TForm1.ShellTreeView1AddFolder(Sender: TObject;
AFolder: TShellFolder; var CanAdd: Boolean);
begin
CanAdd := CompareText(AFolder.PathName, "A:\") <> 0
end;
← →
Makhanev A.S. © (2003-05-12 02:06) [3]
> Ученик © (11.05.03 19:02)
Убирается, но проверка A:(скрёжет в дисководе) осталась. Как его убрать?
← →
Ученик © (2003-05-12 07:31) [4]"Ученик © (08.11.02 12:18)
{ Delphi6\Demos\ShellControls\ShellCtrls.pas }
procedure TCustomShellTreeView.InitNode(NewNode: TTreeNode; ID: PItemIDList; ParentNode: TTreeNode);
...
begin
...
//if fpShared in Properties then NewNode.OverlayIndex := 0;
...
end;
Не уверен, что это хорошо, лучше дополнительно проверять, что это Floppy"
Страницы: 1 вся ветка
Текущий архив: 2003.07.21;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.011 c
