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

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


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

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

Выпуск № 757
от 22.03.2007, 04:05

Администратор:Калашников О.А.
В рассылке:Подписчиков: 445, Экспертов: 73
В номере:Вопросов: 4, Ответов: 7


Вопрос № 78519: Не найду метод scanline для Tbitmap от Lazarus.Есть замена? (переделываю с дельфи свою программу)...
Вопрос № 78595: Здраствуйте Уважаемые Эксперты! У меня такой вопрос. При запуске программы с формой, в она отображеться в Панели задач. Обычно текст - Имя файла, Однако некоторые программы могут отображать там Иной Текст(Браузеры и т.д.).Так вопрос, как поменят ...
Вопрос № 78600: Здраствуйте, эксперты. Подскажите, пожалуйста, как изменить параметр переменной в реестре. Адрес переменной: HKLMSOFTWAREMicrosoftWindows NTCurrentVersionSystemRestore переменная DisableSR. Как это сделать в Delphi 7....
Вопрос № 78635: Шановне панство,есть некая програмка:значит форма borderstyle="bsNone,с" помощью SetWindowRgn придаём ей нужную форму,в onPaint рисуется рамка по краю и вертикальный TitleBar,т.ж на форме лежит ТImage и по таймеру посредством copyrect на его canvas про...

Вопрос № 78.519
Не найду метод scanline для Tbitmap от Lazarus.Есть замена? (переделываю с дельфи свою программу)
Отправлен: 16.03.2007, 08:43
Вопрос задал: Тайкин (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: sir henry
Здравствуйте, Тайкин!
ScanLine, это не метод, это свойство. :) Впрочем, в контексте предстоящего ответа, это не имеет никакого значения.
ScanLine у TBitmap в Lazaruse действительно нет. Само свойство закомментировано, а реализация его отсутствует. Однако там же, в комментарии, предлагается использовать компонент типа TLazIntfImage, у которого есть аналогичное свойство GetDataLineStart(). Загрузить в этот компонент данные из битмапки можно с помощью LoadFromBitmap().
Надеюсь, эта информация Вам поможет.
Ответ отправил: sir henry (статус: Академик)
Россия, Красноярск
----
Ответ отправлен: 16.03.2007, 10:02


Вопрос № 78.595
Здраствуйте Уважаемые Эксперты!
У меня такой вопрос. При запуске программы с формой, в она отображеться в Панели задач. Обычно текст - Имя файла, Однако некоторые программы могут отображать там Иной Текст(Браузеры и т.д.).Так вопрос, как поменят там текст(имееться ввиду у своей программы)? Может кто ссылку на внешний ресурс предоставит, либо другую информацию.
Заранее Благодарен, Ustas
Отправлен: 16.03.2007, 17:35
Вопрос задал: Ustas (статус: Посетитель)
Всего ответов: 3
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Spawn
Здравствуйте, Ustas!
Если я правильно понял, то... Если в дизайне то заходим в Project Options и поле Application Title пишем что хочем увидить, для изменения этого текста во время работы программы пишем: Application.Title:= 'The Best Program'.

Приложение:

---------
Знания - сила!

Ответ отправил: Spawn (статус: 1-ый класс)
Ответ отправлен: 16.03.2007, 17:49
Оценка за ответ: 5
Комментарий оценки:
Да, вы поняли правильно, спасибо.Попробовал, все работает, получил то что хотел, Благодарю.

Отвечает: Писарев, Павел, Юрьевич
Здравствуйте, Ustas!
Для этого надо с помощью пункта меню <Project→Options> зайти в настройки проекта, и там в вкладке Aplications можно будет изменить надпись и иконку.
Ответ отправил: Писарев, Павел, Юрьевич (статус: 2-ой класс)
Ответ отправлен: 16.03.2007, 18:54
Оценка за ответ: 5
Комментарий оценки:
Благодарю, разобрался.

Отвечает: Pavel Maltsev
Здравствуйте, Ustas!

В файле проекта (dpr),
сразу после Begin

Application.Title := 'Моя программа';
Ответ отправил: Pavel Maltsev (статус: 2-ой класс)
Ответ отправлен: 16.03.2007, 19:10
Оценка за ответ: 5
Комментарий оценки:
Благодарю, разобрался.


Вопрос № 78.600
Здраствуйте, эксперты.

Подскажите, пожалуйста, как изменить параметр переменной в реестре. Адрес переменной: HKLMSOFTWAREMicrosoftWindows NTCurrentVersionSystemRestore переменная DisableSR. Как это сделать в Delphi 7.
Отправлен: 16.03.2007, 18:30
Вопрос задал: Alxx (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Архангельский Андрей Германович
Здравствуйте, Alxx!

см. здесь
http://www.az-design.ru/Support/SoftWare/Delphi/D3/SB06.shtml
---------
Если дело заслуживает быть сделаным, то оно заслуживает, чтобы его сделали ХОРОШО
Ответ отправил: Архангельский Андрей Германович (статус: Специалист)
Ответ отправлен: 16.03.2007, 18:37
Оценка за ответ: 5

Отвечает: Gh0stik
Здравствуйте, Alxx!

Доступ к реестру можно осуществлять при помощи TRegistry. ДЛя того чтобы записать информацию в ключ необходимо использовать такие функции:
WriteInteger();
WriteCurrency();
WriteBinaryData();
WriteBool();
WriteDate();
WriteString();
...


В приложении лежит пример, выполняющий нужные действия поставленные в вопросе, так же не забудьте прописать uses Registry.

Good Luck!!!

Приложение:

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

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


Вопрос № 78.635
Шановне панство,есть некая програмка:значит форма borderstyle="bsNone,с" помощью SetWindowRgn придаём ей нужную форму,в onPaint рисуется рамка по краю и вертикальный TitleBar,т.ж на форме лежит ТImage и по таймеру посредством copyrect на его canvas производится отрисовка(+ 3 буферных TImage).Всё работает,но минут (проверено неоднократно) через 5-6 вылетает окно "canvas does not allow drawing",и в левом верхнем углу монитора(!) остаётся белый след от формы,хотя она остаётся на том-же месте где и была (физически её никто не трогал,да и комп тоже), сбрасываем диспетчером задач.всё.При следующем запуске имеем тоже самое.Я понимаю,что сие есть какой-то конфликт по WM_PAINT,но никаких вариантов почему сие имеет место быть.Если закоментировать отрисовку в form.formpaint то всё идёт без срывов.Собственно там у меня всего(1) было.Перенёс и это дело в таймер - эфект тот-же.Сразу скажу что VerticalTitleBar работает в других программах нормально,да и удаление его ничего не меняет ,оставлял один RoundRect - всеравно валится...HELP.

Приложение:

Отправлен: 16.03.2007, 22:17
Вопрос задал: Rem_si (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Маренич Владимир
Здравствуйте, Rem_si!
Сделайте наследника от TCustomControl (например TMyImage).
В методе Paint делайте прорисовку как хотите.
По таймеру делайте MyImage1.Invalidate
Потом винда пошлет соотв. сообщение WM_PAINT и вызовется MyImage1.Paint.
Все будет работать правильно.

Или же перед прорисовкой делайте проверку на корректность TCanvas.Handle.
Можно попробовать еще блокировать Canvas:

procedure Form1Timer1Timer(Sender: TObject);
begin
if Canvas.TryLock then
try
if Canvas.HandleAllocated then
begin
//...
finally
Canvas.Unlock;
end;
end;

Приложение:

Ответ отправил: Маренич Владимир (статус: Студент)
Ответ отправлен: 17.03.2007, 14:43


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

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

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

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

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


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


© 2001-2007, Портал RusFAQ.ru, Россия, Москва.
Идея, дизайн, программирование: Калашников О.А.
Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31
ООО "Мастер-Эксперт Про", Москва, 2007
Авторские права | Реклама на портале
Версия системы: 4.46 от 18.03.2007
Яндекс Rambler's Top100

В избранное