Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на Delphi


РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 826
от 31.05.2007, 18:35

Администратор:Калашников О.А.
В рассылке:Подписчиков: 463, Экспертов: 80
В номере:Вопросов: 6, Ответов: 9


Вопрос № 88569: Как связать окно выбора шрифта TFontDialog c TMemo. т.е. при выборе стиля шрифта в TFontDialog, в TMemo можно было пистать именно этим шрифтом. Или если в TMemo нельзя то в каком компоненте можно. ...
Вопрос № 88613: Здравствуйте Уважаемые эксперты. ListView в режиме vsReport отображает выделенную строку синим цветом. Можно ли изменить цвет на другой....
Вопрос № 88617: Как можно сделать чтобы сообщение из программы на Delphi, которая работает в фоновом режиме, появлялось на рабочем столе поверх всех окон других программ....
Вопрос № 88636: Здравствуйте уважаемые эксперты!Я только начинаю работать с Делфи и хочу Вам задать вопрос.Надо написать небольшую программу по учету выдачи электроинструмента.Таблицу (базу)я сделал в Аccesse.Как мне подвязать Аксесовскую однотабличную базу к Делфи....
Вопрос № 88665: Вот такой вот вопросец: есть windrop/eggdrop (IRC-бот). Хотелось бы просматривать логи бота (еггдропа) в он-лайн режиме, то есть можно ли создать как бы форму в Делфи (ну или ещё в чём), чтобы бот сохранял логи в файл, а программа (которую надо напис...
Вопрос № 88670: Вопрос такой как из Реестра Прочитать модель CD-ROM-ов и узнать сколько их установлено в системе ...

Вопрос № 88.569
Как связать окно выбора шрифта TFontDialog c TMemo. т.е. при выборе стиля шрифта в TFontDialog, в TMemo можно было пистать именно этим шрифтом. Или если в TMemo нельзя то в каком компоненте можно.
Отправлен: 25.05.2007, 19:02
Вопрос задал: Сидоров Александр Александрович (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Ерёмин Андрей
Здравствуйте, Сидоров Александр Александрович!
Почему же нельзя? Шрифт Memo можно изменять, значит и диалог можно присоединить. Всё просто:
Memo.Font:=FontDialog.Font;
---------
Нет правила без исключений. Правило без исключений - исключение из правил.
Ответ отправил: Ерёмин Андрей (статус: Профессор)
Россия, Тула
WWW: Программирование на DELPHI
----
Ответ отправлен: 25.05.2007, 19:10

Отвечает: Gh0stik
Здравствуйте, Сидоров Александр Александрович!

Данной окно выбора можно связать со всеми компонентами у которых есть свойство Font по такой схеме:

If FontDialog1.Execute then
Obj.Font:=FontDialog1.Font;


где Obj - это название объекта у которого нужно свойства шрифта.

Good Luck!!!

Приложение:

---------
Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.

Ответ отправил: Gh0stik (статус: Профессор)
Украина, Славянск
Организация: Славянский государственный педагогический университет (Кафедра алгебры)
ICQ: 289363162
----
Ответ отправлен: 25.05.2007, 19:37


Вопрос № 88.613
Здравствуйте Уважаемые эксперты.
ListView в режиме vsReport отображает выделенную строку синим цветом.
Можно ли изменить цвет на другой.
Отправлен: 26.05.2007, 00:18
Вопрос задал: Мартов С.Е. (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: PGM
Здравствуйте, Мартов С.Е.!

Полагаю вам стоит обратить внимание на обработку событий OnCustomDrawItem & OnCustomDrawSubItem - Они позволяют переопределить поведение отрисовки по умолчанию, а отделить ситуацию когда происходит именно выделение поможет параметр этих событий State (cdsSelected и/или cdsFocused). Есть еще события OnAdvancedCustomDrawItem/SubItem (для постотрисовки), но для вашего случая полагаю хватит обычных CustomDraw и в них нечто типа изменение ListView.Canvas.Brush.Color внутри события.
Ответ отправил: PGM (статус: 7-ой класс)
Ответ отправлен: 26.05.2007, 22:33


Вопрос № 88.617

Как можно сделать чтобы сообщение из программы на Delphi,
которая работает в фоновом режиме, появлялось на рабочем
столе поверх всех окон других программ.
Отправлен: 26.05.2007, 00:49
Вопрос задал: Кулешов Владимир Григорьевич (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Gh0stik
Здравствуйте, Кулешов Владимир Григорьевич!

Используете такой нехитрый способ - вызывайте сообщение с параметром MB_SYSTEMMODAL при соответствующем действии.

Пример использования:
Application.MessageBox('Сообщение','Заголовок сообщения',MB_SYSTEMMODAL)

Good Luck!!!
---------
Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.
Ответ отправил: Gh0stik (статус: Профессор)
Украина, Славянск
Организация: Славянский государственный педагогический университет (Кафедра алгебры)
ICQ: 289363162
----
Ответ отправлен: 26.05.2007, 01:44

Отвечает: LEXASOFT
Здравствуйте, Кулешов Владимир Григорьевич!

Код в приложении.

Приложение:

---------
Нет безвыходных положений...

Ответ отправил: LEXASOFT (статус: 5-ый класс)
Ответ отправлен: 26.05.2007, 23:29


Вопрос № 88.636
Здравствуйте уважаемые эксперты!Я только начинаю работать с Делфи и хочу Вам задать вопрос.Надо написать небольшую программу по учету выдачи электроинструмента.Таблицу (базу)я сделал в Аccesse.Как мне подвязать Аксесовскую однотабличную базу к Делфи.А в делфи сделать интерфейс по стандарту-учет выдачи электроинструмента с фамилией,названием инструмента и сроками выдачи и приема.С формой на выборку инструмента и редактировнием.С поиском по фамилии и инструменту?Или дайте ссылку где можно почитать по этому вопросу.
Помогите пожалуиста в этом вопросе.gaz10@yandex.ru
Отправлен: 26.05.2007, 10:55
Вопрос задал: Kuznetsov Sergey (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Вадим Викторович Витомский
Здравствуйте, Kuznetsov Sergey!
Книгу по работе с базами данныйх в Delphi можно скачать по ссылке в приложении

Приложение:

Ответ отправил: Вадим Викторович Витомский (статус: 9-ый класс)
Ответ отправлен: 29.05.2007, 11:08


Вопрос № 88.665
Вот такой вот вопросец: есть windrop/eggdrop (IRC-бот). Хотелось бы просматривать логи бота (еггдропа) в он-лайн режиме, то есть можно ли создать как бы форму в Делфи (ну или ещё в чём), чтобы бот сохранял логи в файл, а программа (которую надо написать) смотрела на размерность файла с логами бота и обновляла его открытие в форму либо просто обновляла открытие каждые n секунд?
Дело в том, что ни в тикле, ни в Делфи кодить я не очень умею, только скрипты править некоторые. Кто может накидать пример скрипта и исходник формы на Делфи для этого дела?
Ну или кто чем может, помоги, пожалуйста! Очень нужно!
Заранее всех благодарю!
Отправлен: 26.05.2007, 14:51
Вопрос задал: Луконин Сергей Эдуардович (статус: 3-ий класс)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Ерёмин Андрей
Здравствуйте, Луконин Сергей Эдуардович!
В прикреплённом файле примере программы, которая загружает файл каждые 5 секунд. Путь к файлу вводится в поле сверху. Чтобы изменить частоту загрузки файла, следует изменить свойство Interval у Timer1. Желаю удачи!

Приложение:

Прикреплённый файл: Загрузить >>
Срок хранения файла на сервере RusFAQ.ru составляет 30 суток с момента отправки ответа.
---------
Нет правила без исключений. Правило без исключений - исключение из правил.

Ответ отправил: Ерёмин Андрей (статус: Профессор)
Россия, Тула
WWW: Программирование на DELPHI
----
Ответ отправлен: 26.05.2007, 15:48
Оценка за ответ: 5
Комментарий оценки:
Огромное спасибо!!! Изменил директорию файла, задержку поставил на 2000, а всё остальное оставил. Огромнейшее спасибо!!! )))) Впредь буду знать к кому обратиться ))


Вопрос № 88.670
Вопрос такой

как из Реестра Прочитать модель CD-ROM-ов и узнать сколько их установлено в системе

Отправлен: 26.05.2007, 15:25
Вопрос задал: ~mr_Profit~ (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Ерёмин Андрей
Здравствуйте, ~mr_Profit~!
Насчёт моделей точно не скажу. В приложении функция, которая, находит все CD-ROM'ы (или DVD-ROM'ы) в системе и выводит их в список TStrings. Пример вызова:
FindDisks(Memo1.Lines);

Приложение:

---------
Нет правила без исключений. Правило без исключений - исключение из правил.

Ответ отправил: Ерёмин Андрей (статус: Профессор)
Россия, Тула
WWW: Программирование на DELPHI
----
Ответ отправлен: 26.05.2007, 15:56
Оценка за ответ: 5

Отвечает: PGM
Здравствуйте, ~mr_Profit~!

Как узнать сколько приводов и их буквы смотрите предыдущий ответ.

На счет моделей - есть несколько способов - выбирайте под свою задачу:

1. ключ HKLMHARDWAREDEVICEMAPScsi.
Далее надо сканировать все подключи до уровня Logical Unit Id 0 и считывать значение Type - если равно CdRomPeripheral - считывать Identifier - обычно там храниться имя модели.

2. ключ HKLMSYSTEMCurrentControlSetServicesCdromEnum
Читаете Count - выясняете количество, потом от 0 до Count-1 - будут ссылки на устройства (включая много другой информации), из них можно извлечь имя.

3. ключ HKLMSYSTEMMountedDevices
Там много значений вида DosDevicesE:, в которых в Unicode храняться те же значения, что и предыдущем ключе - этот вариант позволит сопоставить буквы устройствм.
Ответ отправил: PGM (статус: 7-ой класс)
Ответ отправлен: 26.05.2007, 22:57


Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

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


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2007, Портал RusFAQ.ru, Россия, Москва.
Авторское право: ООО "Мастер-Эксперт Про"
Email: support@rusfaq.ru, тел.: +7 (926) 535-23-31
Хостинг: "Московский хостер"
Поддержка: "Московский дизайнер"
Авторские права | Реклама на портале
Версия системы: 4.52 от 02.05.2007
Яндекс Rambler's Top100
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru
Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru

В избранное