Вопрос № 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
--------- Если дело заслуживает быть сделаным, то оно заслуживает, чтобы его сделали ХОРОШО
Доступ к реестру можно осуществлять при помощи 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
