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

Прозрачность изображения+наложение 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]

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

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

---

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

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



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