TKMemoImageBlock

type TKMemoImageBlock = class(TKMemoSingleton)

protected

  FCalcBaseLine: Integer;

  FCreatingCroppedImage: Boolean;

  FMouseCapture: Boolean;

  FScaledRect: TRect;

  function ContentLength; override;

  procedure CropChanged();

  function GetWrapMode; override;

  function GetImageHeight; virtual;

  function GetImageWidth; virtual;

  function GetNativeOrExplicitHeight; virtual;

  function GetNativeOrExplicitWidth; virtual;

  function GetResizable; override;

  function GetScaleHeight; virtual;

  function GetScaleWidth; virtual;

  function GetSizingRect; override;

  function GetWordBottomPadding(); override;

  function GetWordBoundsRect(); override;

  function GetWordCount; override;

  function GetWordHeight(); override;

  function GetWordLeft(); override;

  function GetWordLength(); override;

  function GetWords(); override;

  function GetWordTop(); override;

  function GetWordTopPadding(); override;

  function GetWordWidth(); override;

  procedure ImageChanged();

  procedure ImageStyleChanged();

  function CroppedImage; virtual;

  procedure SetResizable(); override;

  procedure SetWordBaseLine(); override;

  procedure SetWordBottomPadding(); override;

  procedure SetWordHeight(); override;

  procedure SetWordLeft(); override;

  procedure SetWordTop(); override;

  procedure SetWordTopPadding(); override;

public

  constructor Create; override;

  destructor Destroy; override;

  procedure Assign(); override;

  procedure AssignAttributes(); override;

  procedure AssignImage(); virtual;

  function CalcAscent(); override;

  function OuterRect(); virtual;

  procedure LoadFromFile(); virtual;

  procedure Resize(); override;

  function WordIndexToRect(); override;

  function WordMeasureExtent(); override;

  function WordMouseAction(); override;

  function WordPointToIndex(); override;

  procedure WordPaintToCanvas(); override;

  property Crop: TKRect; [rw]

  property Image: TGraphic; [rw]

  property ImageDPIX: Integer; [r]

  property ImageDPIY: Integer; [r]

  property ImageStyle: TKMemoBlockStyle; [r]

  property ImageHeight: Integer; [r]

  property ImageWidth: Integer; [r]

  property ExplicitHeight: Integer; [rw]

  property ExplicitWidth: Integer; [rw]

  property NativeOrExplicitHeight: Integer; [r]

  property NativeOrExplicitWidth: Integer; [r]

  property LogScaleX: Integer; [rw]

  property LogScaleY: Integer; [rw]

  property ScaleHeight: Integer; [rw]

  property ScaleWidth: Integer; [rw]

  property ScaleX: Integer; [rw]

  property ScaleY: Integer; [rw]

end;

TKMemoImageBlock

TKMemoSingleton

TKMemoBlock

TKObject

TObject