|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
13.01.2008, 11:04 | #1 |
Участник клуба Подтвердите свой е-майл
Регистрация: 14.12.2007
Сообщений: 1,434
|
Замостить изображение
Подскажите пожалуйста, как можно в Image замостить изображение (пример: рабочий стол)?
Проповедую design patterns, верую в MVC, доверяю eXtrime programming.
|
13.01.2008, 12:38 | #2 |
Участник клуба
Регистрация: 28.11.2007
Сообщений: 1,521
|
procedure TForm1.Button1Click(Sender: TObject);
begin SystemParametersInfo(SPI_SETDESKWAL LPAPER, 0, PChar(Image1.Picture), SPIF_SENDWININICHANGE); end; Только на рабочий стол стввятся картинки с расширением .bmp
Всегда рад помочь!
|
13.01.2008, 12:43 | #3 |
Участник клуба Подтвердите свой е-майл
Регистрация: 14.12.2007
Сообщений: 1,434
|
Нет Вы меня неправильно поняли. Мне нужно в обьект Image не просто вставить изображение, а замостить т.е. заполнить всю область Image одним и тем же рисунком.
Проповедую design patterns, верую в MVC, доверяю eXtrime programming.
|
13.01.2008, 13:08 | #4 |
Участник клуба
Регистрация: 21.11.2007
Сообщений: 1,690
|
Код:
Последний раз редактировалось Kostia; 13.01.2008 в 13:11. |
13.01.2008, 13:57 | #5 |
Участник клуба Подтвердите свой е-майл
Регистрация: 14.12.2007
Сообщений: 1,434
|
Всем огромное спасибо!
Проповедую design patterns, верую в MVC, доверяю eXtrime programming.
|
13.01.2008, 14:23 | #6 |
Телепат с дипломом
Старожил
Регистрация: 10.06.2007
Сообщений: 4,929
|
Еще можно API функциями замостить. BitBlt или PatBlt вроде.
Заливку в них можно делать не только цветом, но и рисунком.
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)
Проверь себя! Онлайн тестирование | Мой блог |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
БД в Delphi7 +Изображение | _NATASHENKA_ | Помощь студентам | 3 | 15.04.2008 08:31 |
Изображение | Terran | Работа с сетью в Delphi | 2 | 08.02.2008 22:28 |
Изображение | Artem | Мультимедиа в Delphi | 10 | 13.07.2007 13:27 |