Главная страница
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
14-1093540371
Knight
2004-08-26 21:12
2004.09.19
Была тут тема про помехи на экране монитора... нашёл причину!!!


14-1093610510
ИМХО
2004-08-27 16:41
2004.09.19
Тем, кто занимается бодибилдингом (и сочувствующим)


3-1093279783
mouse_web
2004-08-23 20:49
2004.09.19
Запустить дополнительную форму параллельно процессу


1-1094032448
Anderson
2004-09-01 13:54
2004.09.19
Уменьшение/увеличение прозрачности отдельных цветов формы


14-1092599346
Vasya.ru
2004-08-15 23:49
2004.09.19
alg.exe - что за процесс?