Ворос про рисование на 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]

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

> 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 в помощь.

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