[fpc-devel] TFPCustomCanvas Expanded Clipping

[Felipe Monteiro de Carvalho]

On top of that the drawing routines in TFPCustomCanvas are not
single-liners calling DoSomething, for example:

procedure TFPCustomCanvas.Ellipse (const Bounds:TRect);
var p,b,dp,db,pb : boolean;
begin
  p := Pen.style <> psClear;
  b := Brush.style <> bsClear;
  pb := false;
  dp:=False;
  db:=False;
  if p and (Pen is TFPCustomDrawPen) then
........

So not having them as virtual ruins our hability to change their behavior.

Also TCanvas does not draw via Pen, Brush and Font like TFPCustomCanvas does.

-- 
Felipe Monteiro de Carvalho