Film.Transparent:=True;

← →
HF-Trade (2004-06-22 21:51) [0]

Господа, подскажите как задать 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;
.......

← →
Palladin © (2004-06-22 22:02) [1]

Какие у битмапа кадры? И вообще TBitmap + F1

← →
HF-Trade (2004-06-22 22:12) [2]

Битмап разбит на 8-мь кадров...как каждому ПО ОТДЕЛЬНОСТИ задать прозрачность...как ВСЕМУ сразу задать прозрачность?
Ы?
Мож я не так описал проблему?

Film.Transparent:=True; Найти похожие ветки