|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
22.11.2007, 16:53 | #1 |
Форумчанин
Регистрация: 22.06.2007
Сообщений: 414
|
Рабочий стол, рисование
Рисуем прямоугольник на рабочем столе:
Код:
Нет невыполнимых задач, всё дело времени...
|
22.11.2007, 17:03 | #2 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Функцией BitBTN или StretchBTN.
I'm learning to live...
|
22.11.2007, 17:04 | #3 |
Старожил
Регистрация: 13.12.2006
Сообщений: 3,859
|
var c: tcanvas;
r:trect; begin c := tcanvas.create; c.brush.color := clblue; c.font.color := clyellow; c.font.name := 'fixedsys'; c.handle := getdc(getwindow(getdesktopwindow, gw_owner)); SystemParametersInfo(SPI_GETWORKARE A, 0, @r, 0); c.Draw((r.Bottom div screen.MonitorCount)div 2,(r.Right div screen.MonitorCount )div 4,image1.Picture.Graphic); c.free;
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи |
22.11.2007, 17:05 | #4 |
Старожил
Регистрация: 13.12.2006
Сообщений: 3,859
|
Этот код я писал чтобы картинка выводилась в центре монитора (вне зависимости от их кол-ва)
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи |
22.11.2007, 17:06 | #5 |
Форумчанин
Регистрация: 22.06.2007
Сообщений: 414
|
Нет невыполнимых задач, всё дело времени...
|
22.11.2007, 17:38 | #6 | |
я получил эту роль
Старожил
Регистрация: 25.05.2007
Сообщений: 3,694
|
Цитата:
Кстати всё-таки проще tcanvas пользоваться пример - как-то так: Код:
читай MSDN там всё это есть
пыщь
|
|
22.11.2007, 17:44 | #7 |
Форумчанин
Регистрация: 22.06.2007
Сообщений: 414
|
Всем спасибо.
Нет невыполнимых задач, всё дело времени...
|
22.11.2007, 18:54 | #8 |
Познаю мир
Форумчанин Подтвердите свой е-майл
Регистрация: 05.10.2007
Сообщений: 387
|
procedure TForm1.Button20Click(Sender: TObject);
var Picture: TPicture; Desktop: TCanvas; X, Y: Integer; begin Picture := TPicture.Create; Desktop := TCanvas.Create; Picture.LoadFromFile('c:/my.bmp'); Desktop.Handle := GetWindowDC(0); X := 100; // по иксу Y := 100; // по игрику Desktop.Draw(X, Y, Picture.Graphic); ReleaseDC(0, Desktop.Handle); Picture.Free; Desktop.Free; end; ---
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
пропадает пуск, рабочий стол. | SAYLOR | Безопасность, Шифрование | 6 | 27.08.2008 05:03 |
Ярлык книги на рабочий стол | FoxRiver | Microsoft Office Excel | 4 | 28.07.2008 09:24 |
Рабочий стол | masterdela | Win Api | 3 | 31.01.2008 19:03 |
обновление в блоге - Рабочий стол | Pblog | Обсуждение статей | 0 | 27.05.2007 03:17 |