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

Вниз

Не пойму как работает CopyMode у TCanvas   Найти похожие ветки 

 
Vladimir D Belousov   (2005-04-30 15:13) [0]

Добрый день!

Хочу скопировать битмап на форму, с эффктом наложения, но что-то делаю не так:

Var B: TBitmap;

begin
B:=Graphics.TBitmap.Create;
B.Width:=Form1.ClientWidth;
B.Height:=Form1.ClientHeight;
B.Transparent := true;
B.TransparentColor:=clWhite;
//Подразумевается, что я залью избражение прозрачным цветов - очищу её
B.Canvas.Brush.Color:=B.TransparentColor;
B.Canvas.FillRect(B.Canvas.ClipRect);
B.Canvas.Brush.Color:=clBlack;
B.Canvas.MoveTo(10,10);
B.Canvas.LineTo(100,100);
//Подозреваю что тут ошибка, но Combines the image on the canvas and the source bitmap by using the Boolean OR operator - то, что мне надо
B.Canvas.CopyMode:=cmSrcPaint;
Form1.Canvas.CopyRect(B.Canvas.ClipRect,B.Canvas,Form1.Canvas.ClipRect);
end;

Вот такой простой пример копирует B.Canvas на канву формы.
При это то, что было на канве формы - исчезает под скпированным изображением.

В чем я не прав?

Большое спасибо!


 
AlterEgo of WondeRu ©   (2005-05-02 18:33) [1]

используй StretchBlt+ StretchBltMode


 
Kind ©   (2005-05-02 18:50) [2]

или BitBlt с SRCAND; SRCPAINT;



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

Форум: "Media";
Текущий архив: 2005.09.11;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.014 c
14-1124099751
Delphi Workman
2005-08-15 13:55
2005.09.11
Ищу удаленную работу на Delphi


14-1124004350
boriskb
2005-08-14 11:25
2005.09.11
Ищу романс "Я ехала домой"


14-1124307013
lookin
2005-08-17 23:30
2005.09.11
ZoneAlarm не дает спокойно жить


14-1123713626
IncRed
2005-08-11 02:40
2005.09.11
Системные требования .NET


1-1124444871
Maximus86
2005-08-19 13:47
2005.09.11
Delphi 6 и Delphi 7





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский