Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.09.19;
Скачать: CL | DM;

Вниз

TImgView32 и слои   Найти похожие ветки 

 
X-Disa   (2004-09-03 14:12) [0]

Доброго времени суток.
Есть TImgView32. У него есть свойство Layers.
Я пробую получить битмап из заданного слоя так:

Bitmap:=TBitmapLayer(ImgView321.Layers.Items[i]).Bitmap;

Все получаеться нормально, но есть проблема.
После этого я пишу:

Bitmap.Canvas.MoveTo(X,Y);
Bitmap.Canvas.Pen.Color:=clred;
Bitmap.Canvas.LineTo(X1,Y1);

Линия рисуется, но вместо красной линии я получаю линию со 100% прозрачностью. Сквозь нее нижележащий слой видно. Что делать?


 
X-Disa   (2004-09-04 09:48) [1]

Да, еще после сохранение слоя в файл TBitmapLayer(ImgView321.Layers.Items[i]).Bitmap.SaveToFile("123.bmp");
После открытия этого файла например в ACDSee все нормально, линия красная.


 
Rem   (2004-09-05 11:46) [2]

>>но вместо красной линии я получаю линию со 100% прозрачностью. Сквозь нее нижележащий слой видно.

Что-то мне тут не понятно. Линии нет совсем, что ли?


 
Mihey_temporary ©   (2004-09-05 11:59) [3]

http://delphimaster.net/view/8-1094278240/
один вопрос в двух ветках.


 
X-Disa   (2004-09-05 13:26) [4]

Нашел решение: после рисования на канвасе нужно писать:
TBitmapLayer(ImgView321.Layers.Items[i]).Bitmap.ResetAlpha



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

Текущий архив: 2004.09.19;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.024 c
6-1089805731
RagE
2004-07-14 15:48
2004.09.19
Передача типа рекорд с помощью TCLientSocket/TServerSocket


1-1094024674
SNV-Soft
2004-09-01 11:44
2004.09.19
Где найти бесплатные компоненты в стиле XP или Office2000!?


14-1094113857
Гость
2004-09-02 12:30
2004.09.19
Блин... запарился два дня уже не могу сделать


1-1094211874
BillyJeans
2004-09-03 15:44
2004.09.19
Показания датчика температуры CPU


1-1094104687
Litr
2004-09-02 09:58
2004.09.19
StringGrid