Форум: "Основная";
Текущий архив: 2004.09.19;
Скачать: [xml.tar.bz2];
Вниз
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.041 c