Скачать: CL | DM;

Прозначный BitMap   Найти похожие ветки 

← →
Fl@sh ©   (2005-05-16 15:41) [0]

Уважаемие мастера
рисую битмап и присваиваю имежу

Var
BitMap : TBitMap;
..

BitMap := TBitMap.Create;
BitMap.Height := 50;
BitMap.Wigth := 50;
BitMap.Transperent := True;
//рисую несколько линий...

Form1.Image1.Picture.Assign(BitMap);
Form1.Image1.Transperent := True;

По идее должни пояляться только линии, а появляется белий
прямоугольник с линиями :(
Почему битмап не прозрачен
как избавиться от белого прямоугольника??



---

← →
-=XP=- ©   (2005-05-16 15:43) [1]

Цвет нижнего левого пикселя используется в качестве образца при определении прозрачного цвета. Таким образом, в Вашем растре этот пиксель должен быть белым.

---

← →
Palladin ©   (2005-05-16 15:43) [2]

> По идее должни пояляться только линии

По чьей идее?

---

← →
Fl@sh ©   (2005-05-16 16:25) [3]

> Palladin ©   (16.05.05 15:43) [2]


> По чьей идее?

По моей, а кто ж ещо это пишет


> -=XP=- ©   (16.05.05 15:43) [1]
> Цвет нижнего левого пикселя используется в качестве образца
> при определении прозрачного цвета. Таким образом, в Вашем
> растре этот пиксель должен быть белым.


Но я рисую только в левой верхней части
Это гдето 20 на 30
а все остальное не трогаю
так что вариант з нижним левим пикселем по моему не проходит, или я ошибаюсь??

---

← →
Amoeba ©   (2005-05-16 16:36) [4]

А чему равно св-во TransparentColor?

---

← →
Fl@sh ©   (2005-05-17 01:16) [5]

> Amoeba ©   (16.05.05 16:36) [4]
> А чему равно св-во TransparentColor?

Если
BitMap.TransparentColor := clWhite; //Ничего не происходит все равно остается белий прямоугольник

а если
BitMap.TransparentColor := clBlue; //То у меня линии (те што я рисую на битмапе) становляться прозрачными, а прямоугольник все равно остается
как решить проблему, нужно прозрачный битмап..

---

← →
Anonim   (2005-05-17 05:43) [6]

смени цвет фона на clFuchsia, например, и рисуй лини на нем, а image transparentcolor определяет по верхнему левому углу ...

---

← →
Palladin ©   (2005-05-17 14:52) [7]

> Fl@sh ©   (16.05.05 16:25) [3]

Так это по твоей идее. Видимо где то твоя идея с идеей истинной расходится. Нужно поштудировать справку. У меня вот лично все нормально.

procedure TForm1.Button1Click(Sender: TObject);
Var
BitMap : TBitMap;
begin

BitMap := TBitMap.Create;
BitMap.Height := 50;
BitMap.Width := 50;
BitMap.Transparent := True;
BitMap.Canvas.FloodFill(1,1,clWhite,fsSurface);
BitMap.Canvas.Brush.Color:=clBlue;
BitMap.Canvas.MoveTo(10,10);
BitMap.Canvas.LineTo(30,30);

Form1.Image1.Picture.Assign(BitMap);
Form1.Image1.Transparent := True;
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c