![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Film.Transparent:=True; [D7, WinXP]
HF-Trade © (2004-06-22 21:51:00)Господа, подскажите как задать Transparent:=true кадрам битмапа в данной ситуации?
........
VK_DOWN:
begin
Film := TBitMap.Create;
Film.LoadFromFile(FILMFILE);
WKadr := Round(Film.Width/N_Kadr);
HKadr := Film.Height;
Rect1 := Bounds(200,200,WKadr,HKadr);
RectKadr:=Bounds(WKadr*CKadr,0,WKadr,HKadr);
Form1.Canvas.CopyRect(Rect1,Film.Canvas,RectKadr);
CKadr:=CKadr+1;
IF CKadr = N_KADR then CKadr:=0;
.......
HF-Trade (2004-06-22 22:12:00) [1]Битмап разбит на 8-мь кадров...как каждому ПО ОТДЕЛЬНОСТИ задать прозрачность...как ВСЕМУ сразу задать прозрачность?
Ы?
Мож я не так описал проблему?
Palladin (2004-06-22 22:02:00) [2]Какие у битмапа кадры? И вообще TBitmap + F1