Так уж получилось, что пришлось мне вспоминать Delphi. Возникла необходимость в одной маааленькой программке для служебного пользования.
И по ходу написания этой программки шеф выразил пожелание, которое поставило меня в тупик.
Для обзора файлов я воспользовался ShellListView, в котором запретил отображение папок (настраивается в свойстве ObjectTypes). Однако, мне нужно было отображение файлов ТОЛЬКО с расширением .dwg. Такого в свойствах не было.
Лёгкое гугление вывело меня на нужную процедуру:
1
2
3
4
| procedure TForm1.ShellListView1AddFolder(Sender: TObject; AFolder: TShellFolder; var CanAdd: Boolean);
begin
CanAdd := MatchesMask(AFolder.PathName, '*.dwg');
end; |
Единственный нюанс: в раздел uses необходимо добавить Masks! После этого всё заработает. 
PS Выкладывать софтину не буду, т.к. для остальных она просто лишена смысла.
Метки: delphi
Рубрики: компьютерное, рабочее
Добавлено 14.04.2010 / Комментариев нет /
Сегодня коллега притащил на работу маленький радиоуправляемый вертолёт. Все тут же впали в детство и вспомнили баш:
– Ты кого больше хочешь? Мальчика или девочку?
– Мальчика: когда вырастет – радиоуправляемый вертолёт куплю!
Вобщем, весело. Только лепистричества жрёт много…
Метки: рабочее, цитата
Рубрики: рабочее
Добавлено 24.03.2010 / 15 комментариев /
Я даже не представлял, что я такой зануда в плане компьютеров. Особенно тех, что в моём пользовании.
Почему?
Объясняю. По порядку.
В понедельник мне дали новый системник на работе. С установленной системой, естественно. Весь день я убил на допиливание голой системы!!!
- доставил недостающие дрова;
- в переменных окружения сменил все каталоги временных файлов на один (загодя созданный);
- тема, естественно, классическая без всяких доп. эффектов;
- перенёс файл подкачки на второй раздел;
- перекроил меню “Пуск”: выкинул проктически всё, что там было и рассортировал программы по тематическим каталогам, как в linux
- поставил TweakUI (от M$) и настроил автовход;
- вычистил рабочий стол вплоть до отключения и удаления корзины.
Читать полностью »
Метки: microsoft, winXP, бэкап, программы, рабочее, рабочий стол
Рубрики: рабочее
Добавлено 29.01.2010 / 28 комментариев /
Это просто 3,14здец какой-то…
Дорога-работа-дорога-работа-сон. Наутро тот же алгоритм.
Некогда ни читать, ни писать. Кодинг вообще заброшен.
И при всём при этом зарплату опять задерживают.
Задолбало.
Метки: lytdybr, рабочее
Рубрики: lytdybr, рабочее
Добавлено 08.12.2009 / 19 комментариев /
Системщики начинают потихоньку обновлять нам компы. Разговорился с одним из – похоже, софт будут ставить опенсорсный.
Например, M$office ставить вообще не будут. Вместо него OOo и Thunderbird!
Поскольку и тем и другим пользуюсь уже давно, то только рад этому!
Метки: msoffice, OOo, Thunderbird, рабочее
Рубрики: soft, рабочее
Добавлено 19.11.2009 / 8 комментариев /
Отдел маркетинга и ПТО:
-Давай-давай-давай, у нас проектировщики без работы сидят!
Проектный отдел:
-Давай-давай-давай, завод простаивает!
Завод:
-Давай-давай-давай, нам нужно полторы тыщи тонн в месяц закрыть!
На объекте:
-Давай-давай-давай, на заводе восемьсот тонн конструкций ржавеет!
А потом…
Читать полностью »
Метки: рабочее
Рубрики: рабочее
Добавлено 26.10.2009 / 2 комментария /
Давеча Vl_ad_le_na спрашивала меня про мой непонятный статус в джаббере. Обещал рассказать, но попозже. Так вот, рассказываю, отчего же я решил, что наши заказчики пид с нетрадиционной ориентацией.
Около двух месяцев назад пришёл новый заказ на (а вот не буду я, пожалуй, палиться). Вобщем, крупный достаточно заказ. И срочный.
Весь объём разделили на части и начали делать втроём.
Читать полностью »
Метки: вопрос, Макс, рабочее
Рубрики: рабочее
Добавлено 22.10.2009 / 21 комментарий /
