TOvcCustomLabel

type TOvcCustomLabel = class(TCustomLabel)

protected

  FAppearance: TOvcAppearance;

  FColorScheme: TOvcColorScheme;

  FCustomSettings: TOvcCustomSettings;

  eslSchemes: array [TOvcColorScheme,(cpHighlight,cpShadow,cpFace)] of TColor;

  SettingColorScheme: Boolean;

  SettingAppearance: Boolean;

  function GetWordWrap;

  procedure SetAppearance();

  procedure SetColorScheme();

  procedure SetWordWrap();

  procedure PaintPrim();

  procedure ColorChanged();

  procedure StyleChanged();

  procedure Paint; override;

  property Appearance: TOvcAppearance; [rw]

  property ColorScheme: TOvcColorScheme; [rw]

  property CustomSettings: TOvcCustomSettings; [rw]

  property WordWrap: Boolean; [rw]

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure PaintTo();

  property AutoSize;

end;

TOvcCustomLabel

TObject