| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

seregka ©   (2005-03-02 22:12:00) 

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

---

seregka   (2005-03-04 09:15:00) [1]

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

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

---

Fenik   (2005-03-03 21:22:00) [2]

>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-03 11:41:00) [3]

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

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

---

X-Disa   (2005-03-03 11:18:00) [4]

Наложение цвета
...
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);

---

Fenik   (2005-03-02 22:28:00) [5]

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

---

Наверх