Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2006.06.25;
Скачать: [xml.tar.bz2];

Вниз

Рисование на канве другого приложения   Найти похожие ветки 

 
TStas ©   (2006-05-16 19:17) [0]

Из любопытства пробовал рисовать по канве другого приложения: через FindWindow получал Handle окна, дальше Canva:=Tcanvas.Create; Canva.Handle:=H; //Присваиваю Handle
Но почему-то ничего не выводилось. Однако подобным образом можно рисовать по рабочему столу. Почему не вывелся рисунок или это каким-то образом сами винды запрещают?


 
Rial ©   (2006-05-16 20:55) [1]

>>Однако подобным образом можно рисовать по рабочему столу
странно, не знал :))

Используй
LineTo(DC: HDC; X, Y: Integer)
Pie(DC: HDC; X1, Y1, X2, Y2, X3, Y3, X4, Y4: Integer)
Rectangle(DC: HDC; X1, Y1, X2, Y2: Integer)
и прочие функции из модуля Windows.
Первым параметром передается DC:HDC, причем:

Начало работы
DC:=GetDC(Handle);//Тот хендл, кот. ты получил
...
Конец работы
releaseDC(Handle,DC);

Функциональность та же, что и с Canvas.
С кистями попробуй разобраться сам.


 
REA   (2006-05-17 10:10) [2]

Canvas.Handle := GetDC(Handle);
Try
 ...
Finally
 ReleaseDC(Handle, Canvas.Handle);
End;


 
Neo Trinitron ©   (2006-05-17 10:56) [3]

Может быть у окна на котором идёт рисование вызывается обработчик события OnPaint который разрушает нарисованое и восстанавливает прежний вид окна?...


 
TStas ©   (2006-05-17 15:36) [4]

>REA Canvas.Handle := GetDC(Handle); :) Спасибо, торможу, именно так по столу и рисовал. А все функции рисования без канвы от рисования по канве отличаются на один параметр, как раз DC. Канва же это надстройка просто. ТОрможу. :)



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2006.06.25;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.008 c
2-1149450252
ZV
2006-06-04 23:44
2006.06.25
???


1-1147792675
TStas
2006-05-16 19:17
2006.06.25
Рисование на канве другого приложения


1-1147726374
Officeman
2006-05-16 00:52
2006.06.25
Вопрос о временный таблицах


3-1146588999
olevacho_
2006-05-02 20:56
2006.06.25
Надежность Absolute Database Personal


11-1120722665
Dodfr
2005-07-07 11:51
2006.06.25
TBitmap.PasteFromClipBoard bug ?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский