Скачать: CL | DM;

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

← →
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]

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

---

← →
_Nikolay ©   (2004-11-30 12:37) [7]

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

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.

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.036 c