Здравствуйте, dikma, Вы писали:
D>Пишу наследника от TGraphiccontrol в методе paint отрисовываю на канву битмапы примерно так
D>D>if OilImageList.GetOilImage(FSize, TempSide, PstPicture, PBitMap) then begin
D> PBitMap.TransparentColor := $00FF00FF;
D> PBitMap.Transparent := True;
D> Canvas.StretchDraw(FPumpRect.Pistolet, PBitMap);
D> Canvas.Brush.Bitmap := nil;
D> PBitMap.FreeImage;
D>end;
D>
D>под объектом находится другой объект который должен быть виден. ControlStyle := ControlStyle + [csOpaque] чтоб не моргало.
D>Как очищать канву чтоб ранее отрисованное исчезло?
D>Пробывал
D>D>canvas.fillrect(canvas.cliprect);
D>
D>но это лишь делает участки объекта белыми.
Ставлю вопрос попроще, как перехватить стирание фона в tgraphiccontrol?
