{========================================================================}
{=                (c) 1995-98 SwiftSoft Ronald Dittrich                 =}
{========================================================================}
{=                          All Rights Reserved                         =}
{========================================================================}
{=  D 01099 Dresden             = Tel.: +0351-8012255                   =}
{=  Loewenstr.7a                = info@swiftsoft.de                     =}
{========================================================================}
{=  Actual versions on http://www.swiftsoft.de/mmtools.html             =}
{========================================================================}
{=  This code is for reference purposes only and may not be copied or   =}
{=  distributed in any format electronic or otherwise except one copy   =}
{=  for backup purposes.                                                =}
{=                                                                      =}
{=  No Delphi Component Kit or Component individually or in a collection=}
{=  subclassed or otherwise from the code in this unit, or associated   =}
{=  .pas, .dfm, .dcu, .asm or .obj files may be sold or distributed     =}
{=  without express permission from SwiftSoft.                          =}
{=                                                                      =}
{=  For more licence informations please refer to the associated        =}
{=  HelpFile.                                                           =}
{========================================================================}
{=  $Date: 20.01.1998 - 18:00:00 $                                      =}
{========================================================================}
unit MMMPanel;

{$I COMPILER.INC}

interface

uses
    Windows,
    Messages,
    SysUtils,
    Classes,
    Graphics,
    Controls,
    Forms,
    Dialogs,
    ExtCtrls,
    MMPanel,
    MMUtils,
    MMMulDiv;

type
  TMMGroupSelectEvent  = procedure(Sender: TObject; Index: integer; State: Boolean) of Object;
  TMMGlobalSelectEvent = procedure(Sender: TObject; State: Boolean; Initiator : integer) of Object;
  TMMPolyMoveQueryEvent= procedure(Sender: TObject; var cnt: integer;
                                   var min, max: Longint) of Object;
  TMMPolyMoveEvent     = procedure(Sender: TObject; Diff: Longint) of Object;
  TMMTimeInfoEvent     = procedure(Sender: TObject; Time: Longint) of Object;
  TMMVolumeInfoEvent   = procedure(Sender: TObject; Volume: Longint) of Object;


  {== TMediaPanel ======================================================}
  TMMMediaPanel = class(TMMCustomMarkerPanel)
  public
    procedure Clear; virtual; abstract;
    procedure SelectItem(Nr: integer; State: Boolean); virtual; abstract;
    procedure SelectGroup(Index : integer; State: Boolean); virtual; abstract;
    procedure SelectAll(State: Boolean; Ignore : integer); virtual; abstract;
    procedure SelectRange(min, max: longint); virtual; abstract;
    procedure SelectRangeFinal(min, max: longint); virtual; abstract;
    procedure QueryPolyMove(var cnt: integer; var dmin,dmax: longint); virtual; abstract;
    procedure PolyShift(Diff: longint); virtual; abstract;
    procedure DeleteItem(Nr : integer); virtual; abstract;

    property Count: integer read GetCount;
    property SelectedCount: integer read GetSelectedCount;
    property CurrentIndex: integer read GetCurrentIndex;

    property Freeze[Nr: integer]: Boolean read GetFreeze write SetFreeze;
    property Select[Nr: integer]: Boolean read GetSelect write SetSelect;
    property GroupIndex[Nr: integer]: integer read GetGIndex write SetGIndex;

    property MarkerList;

  published
    property OnGroupElementSelected: TMMGroupSelectEvent
             read FOnGroupElementSelected write FOnGroupElementSelected;
    property OnGlobalSelect: TMMGlobalSelectEvent
             read FOnGLobalSelect write FOnGLobalSelect;
    property OnPolyMoveQuery: TMMPolyMoveQueryEvent
             read FOnPolyMoveQuery write FOnPolyMoveQuery;
    property OnPolyMove: TMMPolyMoveEvent
             read FOnPolyMove write FOnPolyMove;
    property OnCountChanged: TNotifyEvent
             read FOnCountChanged write FOnCountChanged;

    property OnStartDrag;
    property OnDragDrop;
    property OnDragOver;
    property OnEndDrag;

    property OnMouseDown;
    property OnMouseMove;
    property OnMouseUp;
    property OnResize;

    property OnTrackBegin;
    property OnTrackEnd;
    property OnHelpLocatorChanged;
    property OnLocatorChanged;
    property OnMarkerAChanged;
    property OnMarkerBChanged;
    property OnMarkersChanged;
    property OnRangeChanged;

    property Align;
    property DragMode;
    property DragCursor;
    property Enabled;
    property Color;
    property Ctl3D;
    property Font;
    property ParentFont;
    property ParentColor;
    property PopupMenu;
    property TabOrder;
    property TabStop;
    property Visible;

    property CorralLocator;
    property UseHelpLocator;
    property UseLocator;
    property UseMarkers;
    property HelpLocator;
    property Locator;
    property MarkerA;
    property MarkerB;
    property GridWidthX;
    property SnapToGrid;
    property SnapRange;
    property LocatorColor;
    property GridColor;
    property DrawSolid;
    property DrawGriff;
    property DrawGridX;
    property RangeMinX;
    property RangeMaxX;
    property DispMinX;
    property DispMaxX;
  end;

implementation

end.