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

Вниз

Убрать ФОН   Найти похожие ветки 

← →
Viper ©   (2004-10-16 20:51) [0]

Ситуация такая: нужно использовать рисунок с прозрачным фоном,
как это сделать?

---

← →
Fenik   (2004-10-16 21:02) [1]

TBitmap: Transparent, TransparentColor - F1

---

← →
Viper ©   (2004-10-16 21:05) [2]

можешь начеркать какой нибуть примерчик

---

← →
Fenik   (2004-10-16 21:08) [3]

Он в справке есть.

Canvas, Transparent, TransparentMode, TransparentColor example

procedure TForm1.Button1Click(Sender: TObject);
var
 Bitmap : TBitMap;
begin
 Bitmap := TBitmap.Create;
 try
   with Bitmap do begin
     LoadFromFile("MyBitmap.bmp");
     Transparent := True;
     TransParentColor := BitMap.Canvas.Brush.Color;
     Form1.Canvas.Draw(0,0,BitMap);
     TransparentMode := tmAuto;
     Form1.Canvas.Draw(50,50,BitMap);
   end;
 finally
   Bitmap.Free;
 end;
end;

---

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

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

Наверх

Память: 0.47 MB
Время: 0.274 c