tcanvas

type tcanvas = class(tpersistent)

public

  target: tobject;

  drawinfopo: pointer;

  constructor create(); virtual;

  destructor destroy; override;

  class function getclassgdifuncs; virtual;

  procedure updatewindowoptions(); virtual;

  function creategc();

  procedure linktopaintdevice(); virtual;

  procedure fitppmm();

  function size;

  function highresdevice;

  procedure initflags(); virtual;

  procedure unlink;

  procedure initdrawinfo();

  function active;

  procedure reset; virtual;

  function save;

  function restore();

  procedure resetpaintedflag;

  procedure endpaint;

  procedure move();

  procedure remove();

  procedure copyarea();

  procedure drawpoint();

  procedure drawpoints();

  procedure drawline();

  procedure drawlinesegments();

  procedure drawlines();

  procedure drawvect();

  procedure drawrect();

  procedure drawcross();

  procedure drawellipse();

  procedure drawellipse1();

  procedure drawcircle();

  procedure drawarc();

  procedure drawarc1();

  procedure fillrect();

  procedure fillellipse();

  procedure fillellipse1();

  procedure fillcircle();

  procedure fillarcchord();

  procedure fillarcchord1();

  procedure fillarcpieslice();

  procedure fillarcpieslice1(); overload;

  procedure fillpolygon();

  procedure drawframe();

  procedure drawxorframe();

  procedure fillxorrect();

  procedure drawstring();

  function getstringwidth();

  function getfontmetrics();

  procedure resetclipregion;

  procedure setcliprect();

  procedure addcliprect();

  procedure addclipframe();

  procedure subcliprect();

  procedure subclipframe();

  procedure intersectcliprect();

  procedure intersectclipframe();

  procedure addclipregion();

  procedure subclipregion();

  procedure intersectclipregion();

  function copyclipregion;

  function clipregionisempty;

  function clipbox;

  function createregion();

  procedure destroyregion();

  procedure regmove();

  procedure regremove();

  procedure regaddrect();

  procedure regsubrect();

  procedure regintersectrect();

  procedure regaddregion();

  procedure regsubregion();

  procedure regintersectregion();

  function regionisempty();

  function regionclipbox();

  property origin: pointty; [rw]

  property clipregion: regionty; [w]

  property kind: bitmapkindty; [r]

  property color: colorty; [rw]

  property colorbackground: colorty; [rw]

  property rasterop: rasteropty; [rw]

  property font: tfont; [rw]

  property brush: tsimplebitmap; [rw]

  property brushorigin: pointty; [rw]

  property rootbrushorigin: pointty; [rw]

  procedure adjustbrushorigin();

  property linewidth: Integer; [rw]

  property linewidthmm: real; [rw]

  property dashes: dashesstringty; [rw]

  property capstyle: capstylety; [rw]

  property joinstyle: joinstylety; [rw]

  property smooth: Boolean; [rw]

  property options: canvasoptionsty; [rw]

  property paintdevice: paintdevicety; [r]

  property gchandle: PtrUInt; [r]

  property ppmm: real; [rw]

  property statestamp: LongWord; [r]

end;

tcanvas

tpersistent

TObject