-Добавил свойства для вставки текста при отсутствующей метки (TextEmptyLabel) и при отсутствующей файловой системе (TextEmptyFileSystem). Данные о серийном номере сбрасываются в 0. Нижняя таблица демонстрирует внесенные правки.
-Добавил возможность выбора вывода данных о размере диска как Real (был только Integer)
-Добавил возможность выбора вывода данных о типе диска строкой (был только код Integer)
-Добавил вывод ошибки и по выбору код или текст ошибки
На данный момент у элемента устаревший код (наверняка с выходом win 10) отключения диска doEject. Он отключает диск, но тот остается видимым в системе. Можно проверить на тестовой схеме идущей с обновленными данными, с типом диском REMOVABLE. Если у кого есть грамотное решение этого вопроса или хорошая статься, сообщите.
Вид формы тестовой схемы:
Тестовая схема (для тестирования до внесенных изменений)Add(MainForm,14519189,336,175)
{
Width=529
Height=228
Caption="Пример использования HardDisk"
Position=1
link(onCreate,6760413:doEnum,[])
}
Add(HardDisk,6760413,385,182)
{
Size=1
Point(doEnum)
Point(onEnum)
link(onEnum,8167481:doString,[])
}
Add(StringTable,8916597,490,182)
{
Left=5
Top=5
Width=505
Height=180
Font=[MS Sans Serif,12,0,0,1]
Columns=#4:Disk|4:Type|9:Label=120|10:Serial=120|14:FileSystem=110|
Grid=0
}
Add(FormatStr,8167481,434,182)
{
DataCount=5
Mask="%1;%2;%3;%4;%5"
link(onFString,8916597:doAdd,[])
}
Архив с измененными файлами 2025.04.18
В архиве отдельно папка для FPC 3.2
Редактировалось 5 раз(а), последний 2025-04-18 14:29:39
Поиск
Друзья
Администрация