|
Вопрос # 3 561/ вопрос открыт / |
|
Приветствую, уважаемые эксперты!
Есть 2 объекта типа TBitmap. Один Bitmap я загружаю из файла. На втором рисуются примитивы и линии белого цвета. После этого я совмещаю с прозрачностью эти 2 рисунка (приложение). Возможно ли сделать так, чтобы линий белого цвета небыло совсем? А то они совмещаются с первым Bitmap'ом с прозрачностью так же как и другие линии и остаются видимыми.
Приложение: Переключить в обычный режим- var
- bmp1, bmp2: TBitMap;
- Blend: TBlendFunction;
- begin
- bmp1 := TBitMap.Create;
- bmp2 := TBitMap.Create;
-
- bmp1.LoadFromFile('C:1.bmp');
- bmp1.PixelFormat := pf32bit;
- bmp2.PixelFormat := pf32bit;
- Blend.BlendOp := AC_SRC_OVER;
- Blend.BlendFlags := 0;
- Blend.SourceConstantAlpha := 128;
- Blend.AlphaFormat := AC_SRC_ALPHA;
-
- if Windows.AlphaBlend(bmp1.Canvas.Handle, 0, 0, bmp1.Width, bmp1.Height,
- bmp2.Canvas.Handle, 0, 0, bmp2.Width, bmp2.Height, Blend) then
- Canvas.Draw(0, 0, bmp1)
- else ShowMessage(IntToStr(GetLastError));
- bmp1.Free; bmp2.Free;
- end;
 |
Вопрос задал: Евгений Eklmn (статус: Посетитель)
Вопрос отправлен: 22 декабря 2009, 18:43
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Мини-форум пуст.
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
