TplAnalogWatch

type TplAnalogWatch = class(TGraphicControl)

protected

  procedure PaintWatch;

  procedure ResizeWatch;

  procedure Paint; override;

  procedure WatchOnTimer();

  procedure Resize; override;

public

  constructor Create(); override;

  destructor Destroy; override;

  property StopwatchRunning: Boolean; [rw]

published

  property Depth: Byte; [rw]

  property WholeRepaint: Boolean; [rw]

  property ColorFace: TColor; [rw]

  property ColorHoursHand: TColor; [rw]

  property ColorMinutesHand: TColor; [rw]

  property ColorSecondsHand: TColor; [rw]

  property ColorThicks: TColor; [rw]

  property DisplayDigits: Boolean; [rw]

  property DisplayTicks: Boolean; [rw]

  property DisplayHours: Boolean; [rw]

  property DisplayMinutes: Boolean; [rw]

  property DisplaySeconds: Boolean; [rw]

  property Interval: Cardinal; [rw]

  property Mode: WatchMode; [rw]

  property DefinedTime: string; [rw]

  property MeetTime: string; [rw]

  property OnAppointment: TNotifyEvent; [rw]

  property Align;

  property Anchors;

  property BorderSpacing;

  property Caption;

  property ClientHeight;

  property ClientWidth;

  property Constraints;

  property DragMode;

  property ParentColor;

  property ParentShowHint;

  property PopupMenu;

  property ShowHint;

  property Visible;

  property OnClick;

  property OnDblClick;

  property OnPaint;

  property OnResize;

  property OnChangeBounds;

  property OnContextPopup;

  property OnEndDrag;

  property OnMouseDown;

  property OnMouseUp;

  property OnMouseEnter;

  property OnMouseLeave;

  property OnMouseMove;

  property OnMouseWheel;

  property OnMouseWheelDown;

  property OnMouseWheelUp;

  property OnMouseWheelHorz;

  property OnMouseWheelLeft;

  property OnMouseWheelRight;

  property OnDragDrop;

  property OnDragOver;

  property OnStartDrag;

  property OnStartDock;

  property OnEndDock;

end;

TplAnalogWatch

TObject