tfont

type tfont = class(tlinkedoptionalpersistent, icanvas)

public

  constructor create; override;

  destructor destroy; override;

  procedure assign(); override;

  procedure scale(); virtual;

  function gethandleforcanvas();

  property handle: fontnumty; [r]

  property ascent: Integer; [r]

  property descent: Integer; [r]

  property glyphheight: Integer; [r]

  property lineheight: Integer; [r]

  property linewidth: Integer; [r]

  property caretshift: Integer; [r]

  property onchange: notifyeventty; [rw]

  property bold: Boolean; [rw]

  property italic: Boolean; [rw]

  property underline: Boolean; [rw]

  property strikeout: Boolean; [rw]

  property heightflo: flo64; [rw]

published

  property color: colorty; [rws]

  property colorbackground: colorty; [rws]

  property colorselect: colorty; [rws]

  property colorselectbackground: colorty; [rws]

  property shadow_color: colorty; [rws]

  property shadow_shiftx: Integer; [rws]

  property shadow_shifty: Integer; [rws]

  property gloss_color: colorty; [rws]

  property gloss_shiftx: Integer; [rws]

  property gloss_shifty: Integer; [rws]

  property grayed_color: colorty; [rws]

  property grayed_colorshadow: colorty; [rws]

  property grayed_shiftx: Integer; [rws]

  property grayed_shifty: Integer; [rws]

  property height: Integer; [rws]

  property width: Integer; [rws]

  property extraspace: Integer; [rws]

  property style: fontstylesty; [rws]

  property name: string; [rws]

  property charset: string; [rws]

  property options: fontoptionsty; [rws]

  property xscale: real; [rws]

  property localprops: fontlocalpropsty; [rw]

  property template: tfontcomp; [rw]

end;

tfont,icanvas

tlinkedoptionalpersistent

tlinkedpersistent,iobjectlink

tnullinterfacedpersistent,iunknown

tvirtualpersistent

tpersistent

TObject