Прозначный 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 определяет по верхнему левому углу ...

> 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;

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