Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> DriveComboBox 
:(
    Опции темы
W_A_K_E
  Дата 29.1.2005, 23:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 26
Регистрация: 14.1.2005

Репутация: нет
Всего: нет



Как можно сделать чтобы DriveComboBox показывал только локальные диски???
PM MAIL   Вверх
RA
Дата 30.1.2005, 02:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Брутальный буратина
****


Профиль
Группа: Участник Клуба
Сообщений: 3497
Регистрация: 31.3.2002
Где: Лес

Репутация: 14
Всего: 115



Самый быстрый вариант.

Зайди в юнит FileCtrl он в uses,
Найди вот эту процедуру procedure TDriveComboBox.BuildList;

и в этой процедуре поставь две косые ' // ' перед строкой:

dtNetwork: AddDrive(NetworkVolume(DriveChar), NetworkBMP);
PM   Вверх
W_A_K_E
Дата 30.1.2005, 04:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 26
Регистрация: 14.1.2005

Репутация: нет
Всего: нет



Вот что у меня написано:

Код

procedure TDriveComboBox.BuildList;
var
 DriveNum: Integer;
 DriveChar: Char;
 DriveType: TDriveType;
 DriveBits: set of 0..25;

 procedure AddDrive(const VolName: string; Obj: TObject);
 begin
   Items.AddObject(Format('%s: %s',[DriveChar, VolName]), Obj);
 end;

begin
 { fill list }
 Clear;
 Integer(DriveBits) := GetLogicalDrives;
 for DriveNum := 0 to 25 do
 begin
   if not (DriveNum in DriveBits) then Continue;
   DriveChar := Char(DriveNum + Ord('a'));
   DriveType := TDriveType(GetDriveType(PChar(DriveChar + ':\')));
   if TextCase = tcUpperCase then
     DriveChar := Upcase(DriveChar);

   case DriveType of
     dtFloppy:   Items.AddObject(DriveChar + ':', FloppyBMP);
     dtFixed:    AddDrive(VolumeID(DriveChar), FixedBMP);
     dtNetwork:  AddDrive(NetworkVolume(DriveChar), NetworkBMP);
     dtCDROM:    AddDrive(VolumeID(DriveChar), CDROMBMP);
     dtRAM:      AddDrive(VolumeID(DriveChar), RAMBMP);
   end;
 end;
end;



Цитата(RAdmin @ 30.1.2005, 02:09)
dtNetwork: AddDrive(NetworkVolume(DriveChar), NetworkBMP);


Эту строчку я нашел в другой процедуре ставил и перед этой и перед другими // нифига не получается
К тому же у меня компонент TSkinDriveComboBox он работает на подобе TComboBox+Поддержка скина, но там dcu файлы и поэтому в том бы я не как не смог поменять юнит он бы просто не открылся...

Я хотел бы в виде функции или процедуры... Заранее спасибо.

Это сообщение отредактировал(а) W_A_K_E - 30.1.2005, 04:07
PM MAIL   Вверх
Vit
Дата 30.1.2005, 04:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207



1) Использовать Combobox и самому его заполнять..

2) Унаследовать свой потомок от TDriveComboBox и переопределить метод BuildList


--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
W_A_K_E
Дата 30.1.2005, 20:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 26
Регистрация: 14.1.2005

Репутация: нет
Всего: нет



а можно по подробнее... smile
а что больше нет никаких вариантов?

Это сообщение отредактировал(а) W_A_K_E - 30.1.2005, 20:49
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.0811 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.