прозрачная текстура

← →
maxistent © (2004-11-15 09:54) [0]

Привет, Мастера! Наложиение битмапа. Нужно создать некую "дверь", чтобы в ней было "окно" не прямоугольной формы (прозрачное). Как придать прозрачность битмапу при наложении???

← →
WondeRu © (2004-11-15 13:05) [1]

BLENDING search in google

← →
aanco (2004-11-21 01:49) [2]

TGA поможет

← →
maxistent © (2004-11-29 09:37) [3]

объясните, пожалуйста, чайнику ???

← →
Sapersky (2004-11-29 13:08) [4]

TBitmap.Transparent, TBitmap.TransparentColor

← →
maxistent © (2004-11-29 16:16) [5]

--> TBitmap.Transparent, TBitmap.TransparentColor <-- НЕ РАБОТАЕТ!!!

← →
Sapersky (2004-11-30 00:42) [6]

В хелпе есть пример на эту тему - у меня он работает.
Проблема может быть только с правильным заданием прозрачного цвета - например, задаёшь черный, а на картинке он не совсем черный.

Почему бы не сделать прозрачной часть формы :

unit
U_Clip;
interface
uses Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls;
type
TForm1 = class(TForm)
protected
procedure RebuildWindowRgn;
procedure Resize; override;
public

end;
var
Form1 : TForm1;
implementation
{$R *.DFM}

procedure TForm1.Resize;
begin
inherited;
RebuildWindowRgn;
end;

procedure TForm1.RebuildWindowRgn;
var
FullRgn, Rgn: THandle;
ClientX, ClientY, I: Integer;
begin
FullRgn:= CreateRectRgn(0, 0, Width, Height);
Rgn := CreateEllipticRgn
(
round(Width/4) ,
Round(Height/4),
3 * round(Width/4) ,
3 * Round(Height/4)
);
CombineRgn(FullRgn, FullRgn, Rgn, rgn_Diff);
SetWindowRgn(Handle, FullRgn, True);
end;

end.

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