Главная страница
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-1093539517
Никита
2004-08-26 20:58
2004.09.19
Где можно найти хорошую книгу по ассемблеру?


14-1094015924
Vlad Oshin
2004-09-01 09:18
2004.09.19
Как поменять в WinXP прерывание у железки?


14-1094114862
maksim
2004-09-02 12:47
2004.09.19
удаление символов строки при нажатии кнопки


3-1092900466
Zhekson
2004-08-19 11:27
2004.09.19
Редактирование записи которая активна в навигаторе.


10-1039631715
frodo
2002-12-11 21:35
2004.09.19
В статье Создание CORBA-сервера для досту к данным  Delphi4