TBCSVGButton

type TBCSVGButton = class(TBCSVGViewer)

protected

  FOnPositionChange: TNotifyEvent;

  procedure MouseDown(); override;

  procedure MouseUp(); override;

  procedure MouseEnter; override;

  procedure MouseLeave; override;

  procedure setsvghoverxml();

  procedure setsvgnormalxml();

  procedure setsvgdownxml();

  procedure setFFileNameDown();

  procedure setFFileNameHover();

  procedure setFFileNameNormal();

  procedure SetInfo1();

  procedure SetInfo2();

  procedure Setposition();

  procedure SetMax();

  procedure RedrawBitmapContent; override;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure paint; override;

published

  property BorderSpacing;

  property Constraints;

  property FileNameDown: string; [rw]

  property FileNameHover: string; [rw]

  property FileNameNormal: string; [rw]

  property SVGNormalXML: tstrings; [rw]

  property SVGHoverXML: tstrings; [rw]

  property SVGDownXML: tstrings; [rw]

  property Down: Boolean; [rw]

  property Information1: string; [rw]

  property Information2: string; [rw]

  property Position: Integer; [rw]

  property Maximum: Integer; [rw]

  property OnPositionChange: TNotifyEvent; [rw]

end;

TBCSVGButton

TBCSVGViewer

TCustomBGRAGraphicControl

TBGRAGraphicCtrl

TObject