T
tseug
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TImage.Paint;var Save: Boolean;begin if csDesigning in ComponentState then with inherited Canvas do begin Pen.Style := psDash
Brush.Style := bsClear
Rectangle(0, 0, Width, Height)
end
Save := FDrawing
FDrawing := True
try with inherited Canvas do StretchDraw(DestRect, Picture.Graphic)
finally FDrawing := Save
end;end;
Brush.Style := bsClear
Rectangle(0, 0, Width, Height)
end
Save := FDrawing
FDrawing := True
try with inherited Canvas do StretchDraw(DestRect, Picture.Graphic)
finally FDrawing := Save
end;end;