Bitmap и RGN?

← →
BlackRaven (2002-06-18 14:54) [0]

Как из Bitmapa вырезать определенный регион, допустим треугольник или элипс или свой определенный регион, чтобы за пределами региона фон был прозрачным? Или дайте ссылку где это можно найти. Самому времени нет искать. Заранее СПАСИБО!

← →
MBo (2002-06-18 16:12) [1]

>Самому времени нет искать
Это не воодушевляет на ответ

← →
BlackRaven (2002-06-19 11:15) [2]

MBo, согласен. Я очень редко задаю вопросы на форумах по программированию потому, что чаще всего я знаю где мне искать инфу. Но иногда возникает такая ситуация, что нет у меня полной информации по проблеме, есть только ПРЕДПОЛОЖЕНИЕ где это можно найти, а времени искать нету. "ПРЕДПОЛОЖЕНИЕ" я уже проверил :) нету. Скажите в каком направлении копать.
Есть идея создать окно обрезать его регионом и запихнуть туда битмап. Я это не проверял будет ли это вообще работать или это полный бред?
Вот собственно и все! Идеи кончились :(

С уважением Black Raven!

← →
BlackRaven (2002-06-19 11:19) [3]

MBo, согласен.
Я задаю вопросы на форумах по программированию в крайних случаях потому, что чаще всего я знаю где мне искать инфу. Но иногда возникает такая ситуация, что нет у меня полной информации по проблеме, есть только ПРЕДПОЛОЖЕНИЕ где это можно найти, а времени искать нету. "ПРЕДПОЛОЖЕНИЕ" я уже проверил :) нету. Скажите в каком направлении копать.
Есть идея создать окно обрезать его регионом и запихнуть туда битмап. Я это не проверял будет ли это вообще работать или это полный бред?
Вот собственно и все! Идеи кончились :(

С уважением Black Raven!

← →
MBo (2002-06-19 12:32) [4]

один из путей
Копирование непрямоугольной области рисунка в другой

procedure TForm1.Button1Click(Sender: TObject);
var
PolyRgn:hRgn;
APolygon:array[1..5] of TPoint;
r:trect;
begin
image1.Picture.LoadFromFile("e:\4.bmp");
APolygon[1]:=Point(0,0);
APolygon[2]:=Point(30,20);
APolygon[3]:=Point(50,50);
APolygon[4]:=Point(20,30);
APolygon[5]:=Point(0,0);
PolyRgn := CreatePolygonRgn(APolygon, 5, 0);
SelectClipRgn(image2.Canvas.Handle, PolyRgn);
r:=image1.clientrect;
image2.canvas.copyrect(r,image1.canvas,r);
DeleteObject(PolyRgn);
end;

← →
USAtyj (2002-06-19 13:42) [5]

Кладешь на форму панель нужного размера.
Картинку кладешь на ПАНЕЛЬ: Align=alClient.
Ну а на панеле режишь нужный регион.
procedure TForm1.Button1Click(Sender: TObject); var Reg,ResReg : HRGN; begin ResReg:=CreateRectRgn(0,0,Image1.Width,Image1.Height); Reg:=CreateEllipticRgn(20,20,Panel1.Width-20,Panel1.Height-20); CombineRgn(ResReg,ResReg,Reg,RGN_XOR); SetWindowRgn(Panel1.Handle, ResReg, True); end;

← →
USAtyj (2002-06-19 13:48) [6]

очепятка:
вместо
ResReg:=CreateRectRgn(0,0, Image1.Width, Image1.Height);
Лучше таки:
ResReg:=CreateRectRgn(0,0, Panel1.Width, Panel1.Height);
:)

← →
easy (2002-06-19 14:03) [7]

Может это поможет:
http://easy-.pisem.net/files/components/easyTransparent98.zip
это компонент для создания региона по определённому цвету битмапа. Писано для себя
хотя не уверен, что правильно понял вопрос...

← →
BlackRaven (2002-06-27 16:17) [8]

Всем ОГРОМНОЕ СПАСИБО!!!

С уважением Black Raven!

Bitmap и RGN? Найти похожие ветки