Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 26.08.2007, 17:09   #1
tonight
Новичок
Джуниор
 
Регистрация: 26.08.2007
Сообщений: 1
По умолчанию Отображение ряда рисунков в произвольных областях экрана

Вот такой вопрос.
Не получается рализовать отображение на экране просто рисунка, без формы. В итоге хочу получить что то вроде цикла из н-шагов, отображающего несколько разных картинок на дисплее...
tonight вне форума Ответить с цитированием
Старый 26.08.2007, 17:20   #2
UnD)eaD)Snake
Форумчанин Подтвердите свой е-майл
 
Аватар для UnD)eaD)Snake
 
Регистрация: 07.07.2007
Сообщений: 241
По умолчанию

Можно использовать экран как канвас и на нем рисовать рисунки, или сделать форму bsnone,autosize , туда image с autosize и загружать картинки
UnD)eaD)Snake вне форума Ответить с цитированием
Старый 27.08.2007, 00:20   #3
mutabor
Телепат с дипломом
Старожил
 
Аватар для mutabor
 
Регистрация: 10.06.2007
Сообщений: 4,929
По умолчанию

Что именно не получается?
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог
mutabor вне форума Ответить с цитированием
Старый 27.08.2007, 10:11   #4
zetrix
Delphi/C++/C#
Участник клуба
 
Аватар для zetrix
 
Регистрация: 29.10.2006
Сообщений: 1,972
По умолчанию

Экран - это, я так понимаю, Рабочий Стол.

Объявляем переменную: scr:TCanvas;
//Получаем дискриптор (handle) на канву рабочего стола:
procedure TForm1.FormCreate(Sender: TObject);
begin
scr:=TCanvas.Create;
Scr.Handle := GetDC(HWND_DESKTOP);
end;
//освобождаем ресурсы
procedure TForm1.FormDestroy(Sender: TObject);
begin
scr.Free;
end;

Форму сделать так:
BorderStyle = bsNone
Color = clBlack
TransparentColor = true
TransparentColorValue = clBlack

Вроде бы и всё. Формы нету, есть канва рабочего стола. (учти, что при обновлении рабочего стола, всё что ты нарисовал - сотрётся)
zetrix вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сумма ряда Sova123456 Помощь студентам 8 11.06.2010 17:10
Загрузка/сохранение рисунков Marsik Помощь студентам 20 20.11.2008 18:09
Помещение гиф рисунков на форму Rusl92 Общие вопросы Delphi 4 30.08.2008 08:32
Отображение рисунков Witaliy Компоненты Delphi 0 26.05.2008 17:33
Форматирование таблиц и рисунков Ludmila Microsoft Office Word 24 09.10.2007 13:56