Прозрачность изображения+наложение 2-х изображений

← →
seregka (2005-03-02 22:12) [0]

Есть ли готовые компоненты/решения для такой задачи:
имеем 2 jpg файла и нужно наложить один на другой с задаваемым коэффициентом прозрачности верхнего

← →
Fenik (2005-03-02 22:28) [1]

Переведи в TBitmap и используй
http://delphibase.spb.ru/?action=viewfunc&topic=mediaimg&id=10300

← →
X-Disa (2005-03-03 11:18) [2]

Наложение цвета
...
Dst,Src,Result:TColor;
R,G,B,R1,R1,G1:byte;
K:integer - прозрачность от 1 до 100
...
R:=GetRValue(Dst);G:=GetGValue(Dst);B:=GetBValue(Dst);
R1:=GetRValue(Src);G1:=GetGValue(Src);B1:=GetBValue(Src);
R:=Round(R/100*(100-K)+R1/100*K);
B:=Round(B/100*(100-K)+B1/100*K);
G:=Round(G/100*(100-K)+G1/100*K);
Result:=RGB(R,G,B);

← →
seregka (2005-03-03 11:41) [3]

Спасибо за процедурку, но ума я ей не дал.

Если я пишу fbitmap.loadfromfile(), то она ругается

← →
Fenik (2005-03-03 21:22) [4]

>seregka (03.03.05 11:41) [3]

:)) Его надо сначала создать. Например:

type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); private FBitmap: TBitmap; end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin FBitmap := TBitmap.Create; FBitmap.LoadFromFile("kkk"); end; procedure TForm1.FormDestroy(Sender: TObject); begin FBitmap.Free; end;

А лучше почитай литературу по делфи.

← →
seregka (2005-03-04 09:15) [5]

Огромное спасибо

С радостью почитаю лит-ру.

Прозрачность изображения+наложение 2-х изображений Найти похожие ветки