Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.05.15;
Скачать: CL | DM;

Вниз

Полупрозрачная окружность   Найти похожие ветки 

 
vidiv ©   (2003-02-03 05:22) [0]

Господа, как нарисовать на конвасе окружность с заданым радиусом, цветом, толщиной линии и, саме главное, заданой прозрачностью?


 
MBo ©   (2003-02-03 07:56) [1]

procedure MergeBitmaps(BM1, BM2, BM3 : TBitmap; Alpha : byte);
var
bf:TBlendFunction;
begin
if not Assigned(BM3) then
BM3:=TBitmap.Create;
BM3.Assign(BM1);
bf.BlendOp:=AC_SRC_OVER;
bf.BlendFlags:=0;
bf.SourceConstantAlpha:=Alpha;
bf.AlphaFormat:=0;
//BM2.Width:=BM3.Width;
//BM2.Height:=BM3.Height;
AlphaBlend(BM3.Canvas.Handle,0,0,BM3.Width,BM3.Height,
BM2.canvas.handle,0,0,BM2.Width,BM2.Height,bf);
end;

procedure TForm1.Button1Click(Sender: TObject);
var b1,b2,b3:TBitmap;
begin
b1:=TBitmap.Create;
b2:=TBitmap.Create;
b3:=TBitmap.Create;
b1.LoadFromFile("e:\4.bmp");
Image1.Picture.assign(b1);
b2.LoadFromFile("e:\5.bmp");
b2.PixelFormat:=pf24bit;
Image2.Picture.assign(b2);
MergeBitmaps(B1, B2, B3, 100);//0..255
Image3.Picture.assign(b3);
b1.free;
b2.free;
b3.free;
end;



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

Текущий архив: 2003.05.15;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.019 c
1-46774
Little Horror
2003-04-29 16:22
2003.05.15
TActionToolBar и TControlBar


3-46633
tERRORist
2003-04-22 21:44
2003.05.15
Формат даты в MySQL


3-46664
VanesKo
2003-04-24 21:19
2003.05.15
BDE часьая ошибка


1-46688
salex
2003-05-03 07:33
2003.05.15
О печати


3-46586
Igor Mish
2003-04-23 12:35
2003.05.15
Rave отчет в полный экран