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

Вниз

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

 
Protey   (2002-12-03 05:56) [0]

Люди помогите! Имеется две картинки. Необходимо одну наложить на другую так, чтоб один из цетов оказался прозрачен.


 
MBo ©   (2002-12-03 06:15) [1]

TransparentBlt (не для всех версий windows)


 
SI-riuss ©   (2002-12-05 11:15) [2]

Ну да. Или так Image1.Transparent:=True; За прозрачный берется цвет с не помню какого угла картинки.


 
Mirovodin ©   (2002-12-05 11:34) [3]

2 SI-riuss © Вернего левого.


2 Protey Также см. пример процедуры:
http://delphigfx.mastak.ru/faq/gdi/gdi_faq.htm#Q6


 
Protey   (2002-12-15 03:03) [4]

Спасибо. Работает.


 
3223(jab)   (2003-04-24 15:03) [5]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Image1: TImage;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
( Sender: TObject) unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Image1: TImage;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
b1,b2,b3:TBitmap;
begin
b1:=TBitmap.Create;
b2:=TBitmap.Create;
b3:=TBitmap.Create;

b1.LoadFromFile("c:\1.bmp");
b2.LoadFromFile("c:\2.bmp");

b2.Transparent:=True;

b3.Width:=b1.Width; b3.Height:=b1.Height;
b3.Canvas.Draw(0,0,b1);
b3.Canvas.Draw(0,0,b2);

Image1.Picture.Assign(b3);

b1.free;
b2.free;
b3.free;
end;

end.



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

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

Наверх




Память: 0.47 MB
Время: 0.042 c
9-89088
Хранитель_7К
2003-04-22 09:15
2003.10.27
OpenGL: Triangles=>Triangle_Strip


1-89272
abb
2003-10-14 12:56
2003.10.27
Совет нужен по компоненте для отображения дерева и wisywig реда..


3-89105
Данила
2003-10-08 12:59
2003.10.27
Результаты в DBgrid.


3-89138
Denisiy
2003-10-07 16:38
2003.10.27
Как в DBgrid сделать заголовок поля отличный от заголовка в базе?


1-89280
ivc_andr
2003-10-14 11:50
2003.10.27
вытащить кусок текста