TOvcCustomTimeEdit

type TOvcCustomTimeEdit = class(TOvcCustomEdit)

protected

  FDurationDisplay: TOvcDurationDisplay;

  FNowString: string;

  FDefaultToPM: Boolean;

  FPrimaryField: TOvcTimeField;

  FShowSeconds: Boolean;

  FShowUnits: Boolean;

  FTime: TDateTime;

  FTimeMode: TOvcTimeMode;

  FUnitsLength: Integer;

  FOnGetTime: TOvcGetTimeEvent;

  FOnPreParseTime: TOvcPreParseTimeEvent;

  FOnSetTime: TNotifyEvent;

  function GetAsHours;

  function GetAsMinutes;

  function GetAsSeconds;

  function GetTime;

  procedure SetAsHours();

  procedure SetAsMinutes();

  procedure SetAsSeconds();

  procedure SetDurationDisplay();

  procedure SetShowSeconds();

  procedure SetShowUnits();

  procedure SetTimeMode();

  procedure SetUnitsLength();

  procedure ParseFields();

  procedure DoExit; override;

  procedure SetTime();

  procedure SetTimeText(); dynamic;

  property DefaultToPM: Boolean; [rw]

  property DurationDisplay: TOvcDurationDisplay; [rw]

  property NowString: string; [rw]

  property PrimaryField: TOvcTimeField; [rw]

  property ShowSeconds: Boolean; [rw]

  property ShowUnits: Boolean; [rw]

  property TimeMode: TOvcTimeMode; [rw]

  property UnitsLength: Integer; [rw]

  property OnGetTime: TOvcGetTimeEvent; [rw]

  property OnPreParseTime: TOvcPreParseTimeEvent; [rw]

  property OnSetTime: TNotifyEvent; [rw]

public

  constructor Create(); override;

  function FormatTime(); dynamic;

  property AsDateTime: TDateTime; [rw]

  property AsHours: LongInt; [rw]

  property AsMinutes: LongInt; [rw]

  property AsSeconds: LongInt; [rw]

end;

TOvcCustomTimeEdit

TOvcCustomEdit

TObject