Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=165565&view=findpost&p=1447808 Fri, 09 Feb 2007 13:42:07 +0000 Предлагаю вашему вниманию - TOutLine9x и Win9x https://forum.sources.ru/index.php?showtopic=165565&view=findpost&p=1447808
Так как сейчас время есть, то через недельку попробую новую версию выпустить.
Заодно может и сай допишу ато страмота...]]> User32 Delphi: Разработка компонентов https://forum.sources.ru/index.php?showtopic=165565&view=findpost&p=1439045 Fri, 02 Feb 2007 23:59:14 +0000 Предлагаю вашему вниманию - TOutLine9x и Win9x https://forum.sources.ru/index.php?showtopic=165565&view=findpost&p=1439045 Цитата User32 @
сделаю подборку из 6 компонентов закладки Win3.1 в новой вариации

Было-бы ооочень круто если-бы это прямой наследник TWinControl или TCustomControl,
поддерживал 32битные иконки с альфаканалом и Unicode(utf-8, utf-16);
Потому-как с выходом висты(когда люди начнут массово переходить) будут проблемы, и не только с кодировками.

Но если ты пишешь для собственного развития, то дерзай, я сам нераз изобретал велосипеды просто для самообучения, практика рулит.

PS: И вообще я придерживаюсь правила: если что-то делаешь - делай это качественно или не делай вообще.]]> nuker2015 Delphi: Разработка компонентов https://forum.sources.ru/index.php?showtopic=165565&view=findpost&p=1438460 Fri, 02 Feb 2007 12:52:16 +0000 Предлагаю вашему вниманию - TOutLine9x и Win9x https://forum.sources.ru/index.php?showtopic=165565&view=findpost&p=1438460 Вот только когда я пока сказать немогу - сейчас занят, а навыходных особого желания писать нет.
Ну а так как только так сразу... будет новая версия с учётом всех замечаний и пожеланий. :)]]> User32 Delphi: Разработка компонентов https://forum.sources.ru/index.php?showtopic=165565&view=findpost&p=1436164 Wed, 31 Jan 2007 20:51:13 +0000 Предлагаю вашему вниманию - TOutLine9x и Win9x https://forum.sources.ru/index.php?showtopic=165565&view=findpost&p=1436164 Цитата dron-s @
нельзя ли сделать, чтобы он не обрезал её, а масштабировал?

Надо просто автоматически определять размеры значка и в соответственно его отрисовывать текст.
конечно свойство itemheight можно оставить и применять его только когда значение выше 0;]]> nuker2015 Delphi: Разработка компонентов https://forum.sources.ru/index.php?showtopic=165565&view=findpost&p=1385179 Thu, 21 Dec 2006 09:46:20 +0000 Предлагаю вашему вниманию - TOutLine9x и Win9x https://forum.sources.ru/index.php?showtopic=165565&view=findpost&p=1385179 а так в общем, очень даже :)]]> dron-s Delphi: Разработка компонентов https://forum.sources.ru/index.php?showtopic=165565&view=findpost&p=1385153 Thu, 21 Dec 2006 09:30:59 +0000 Предлагаю вашему вниманию - TOutLine9x и Win9x https://forum.sources.ru/index.php?showtopic=165565&view=findpost&p=1385153 Этот компонент представляет эволюцию обычного TOutline компонента с закладки Win3.1

Что же в нём нового? Спросите вы... и зачем я изобретал велосипед?
Да главное что меня подвигло к написанию компонента одна просьба + мой интерес.

Ну а теперь обо всём и по порядку.

Пер во наперво была решена проблема с загрузкой и отображением значков (иконок) размер которых превышает 14х14 пикселей.
Т.е. теперь если вы загрузите свой значок ну скажем 16х16 или 32х32, то он не обрежется а отобразится как есть, при условии того что вы в пропертях ItemHeight = 17 (по умолчанию) укажите свой размер, тот что вам нужен.
Для значков 16х16 пикселей я рекомендую ставить значение 19.
Для значков 32х32 пикселей я рекомендую ставить значение 38.

Теперь есть доступ к проперти ItemHeight и можно самому менять сетку грида, т.е. растягивать или сжимать компоновку значков.

user posted image

Ссылки для скачивания:

Демо (EXE): DemoOutLine9x.exe

Компонент + исходники (Delphi 6.0): ТOutLine9x v.1.0.0

Дополняю новыми компонентами из той же серии. А именно:
- TFileListBox9x
- TDirectoryListBox9x
- TDriveComboBox9x
- TFilterComboBox9x

Это слегка переделанные и всеми знакомые компоненты с которые последний раз были в Delphi 7 на закладке Win 3.1.
Я делал для себя и потому использовал иконки из Windows2000, если нужны из XP, то перепишите ресурсы FileCtrl9x.res я не стал добавлять функцию по формованию списка конок что по умолчанию используются в вашей ОС.
    ImgListHandle := SHGetFileInfo(nil, 0, SHFileInfo, SizeOf(SHFileInfo), SHGFI_ICON or SHGFI_SMALLICON or SHGFI_OPENICON or SHGFI_SYSICONINDEX);

Т.к. в XP например они получаются с черными теням, что не красиво.

Текущие дополнения и изменения...

- Добавлено проперти IconSize [tiSmallIcon, tiLargeIcon].
Что позволяет изменять рамера иконки во всех компонентах (TFileListBox9x, TDirectoryListBox9x, TDriveComboBox9x)
с 16х16 на 32х32 и обратно.
- Добавлено проперти TextCase [tcUpperCase, tcLowerCase].
Что позволяет изменять текст подписи от диска tcUpperCase на заглавный или tcLowerCase прописной в TDriveComboBox9x.
- Добавлено проперти Options [ doNoFloppy, doNoFixed, doNoCDROM, doNoNetwork, doNoRAM, doNoFree, doNoTape, doNoABDrives].
Что позволяет отключать (убирать) ненужные или не используемые диски и устройства из TDriveComboBox9x.

user posted image
Демо (EXE): Demo2.exe

Компонент + исходники + прмеры (Delphi 6.0): FalconFile9x ver. 2.0]]> User32 Delphi: Разработка компонентов