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

Ворос про рисование на Canvas   Найти похожие ветки 

← →
savyhinst ©   (2008-07-16 13:55) [0]

Здраствуйте.
Подскажите пожалуйста, как зделать, чтобы некоторая область на канвасе, помеченная чёрным, закрасилась битмапом.
Спасибо за внимание.

---

← →
brother ©   (2008-07-16 14:00) [1]

> закрасилась битмапом.

это как?

---

← →
NieL7   (2008-07-16 14:06) [2]

procedure Paint(Canvas: TCanvas);
var
 G: TBitmap;
begin
 G := TBitmap.Create;
 try
   G.LoadFromFile("D:\1.bmp");
   Canvas.StretchDraw(Rect(0, 0, 100, 100), G);
   Invalidate;
 finally
   G.Free;
 end;
end;

---

← →
Palladin ©   (2008-07-16 14:23) [3]

кто бы мог подумать...

---

← →
Ega23 ©   (2008-07-16 14:31) [4]

> NieL7   (16.07.08 14:06) [2]


Это ты на какой вопрос сейчас ответил?

---

← →
Renegat   (2008-07-16 14:33) [5]

> [3] Palladin ©   (16.07.08 14:23)

аха, +1 =)

Навскидку: создаёшь канвас нужного разрешения, на него накладываешь "маску" - где в исходном канвасе чёрные точки - они должны быть белыми, а во всех остальных местах - чёрными. Накладываешь битмап на этот канвас в режиме AND (т.е. где были чёрные точки - они останутся чёрными, где были белые - станут "как битмап"). Потом сводишь свой основной канвас и этот, в режиме OR. Всё просто. BitBLT в помощь.

---

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

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



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