TImageObj

type TImageObj = class(TSizeableObj)

public

  ObjHeight: Integer;

  ObjWidth: Integer;

  IsMap: Boolean;

  UseMap: Boolean;

  MapName: ThtString;

  MyFormControl: TImageFormControlObj;

  Swapped: Boolean;

  Missing: Boolean;

  constructor Create();

  constructor SimpleCreate();

  constructor CreateCopy(); override;

  destructor Destroy; override;

  procedure DrawLogicInline(); override;

  procedure DrawInline(); override;

  function InsertImage();

  property Graphic: TGraphic; [r]

  property Hover: ThtHover; [rw]

  property Image: ThtImage; [r]

  property Source: ThtString; [r]

  procedure ReplaceImage();

end;

TImageObj

TSizeableObj

TFloatingObj

TBlockBase

TSectionBase

THtmlNode

TIDObject

TObject