Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.064 c
14-1104527215
Игорь Шевченко
2005-01-01 00:06
2005.01.23
Наталия, с днем рождения!


6-1099338319
JR
2004-11-01 22:45
2005.01.23
RAS -> BytesReceived


1-1105584773
Antonn
2005-01-13 05:52
2005.01.23
Узнать ардес из интернет-ярлыка(*.url)


10-1080931350
Дуся
2004-04-02 22:42
2005.01.23
Помогите, при вызове метода объекта вылазит exeption:


14-1104981216
User_32
2005-01-06 06:13
2005.01.23
Делаю веб сервер, хочу что бы была поддержка php