unit dummyCLX;
{
  Dummy clasess for CLX translation

  Author:     Vesa Lappalainen, Kave Oy, vesal@mit.jyu.fi
  Date:       29.9.2001
  Copyright:  Kave Oy
              Component may be used for free, if the origin is mentioned

}

interface

{$ifdef CLX}

{$else}
{$Message Fatal 'Only for CLX'}
{$endif}

uses
  Classes,QControls,QStdActns,QT;

type
  TDragType = (dtCopy, dtMove, dtLink);
  TDragTypes = set of TDragType;
  TDropFileSource = class(TComponent)
  private
    FAllowAsyncTransfer: boolean;
    FShowImage: boolean;
    FImageHotSpotY: integer;
    FImageHotSpotX: integer;
    FImageIndex: integer;
    FDragTypes: TDragTypes;
    FFiles: TStrings;
  public
    property Files : TStrings read FFiles;
    constructor Create(AOwner:TComponent); override;
    destructor Destroy; override;
    procedure Execute; virtual;   
  published
    property DragTypes : TDragTypes read FDragTypes write FDragTypes;
    property ImageIndex:integer read FImageIndex write FImageIndex;
    property ShowImage:boolean read FShowImage write FShowImage;
    property ImageHotSpotX:integer read FImageHotSpotX write FImageHotSpotX;
    property ImageHotSpotY:integer read FImageHotSpotY write FImageHotSpotY;
    property AllowAsyncTransfer:boolean read FAllowAsyncTransfer write FAllowAsyncTransfer;
  end;

  TEditUndo = class(TEditAction)
  public
    procedure UpdateTarget(Target: TObject); override;
  end;

var ForceCurrentDirectory : boolean;
procedure SetForegroundWindow(hande:QOpenScrollViewH);

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('DummyCLX',[TDropFileSource]);
  RegisterComponents('DummyCLX',[TEditUndo]);
end;

procedure SetForegroundWindow(hande:QOpenScrollViewH);
begin
end;

{ TEditUndo }

procedure TEditUndo.UpdateTarget(Target: TObject);
begin
  Enabled := false;
end;

{ TDropFileSource }

constructor TDropFileSource.Create(AOwner: TComponent);
begin
  inherited;
  FFiles := TStringList.Create;
end;

destructor TDropFileSource.Destroy;
begin
  FFiles.Free;
  inherited;
end;

procedure TDropFileSource.Execute;
begin
//
end;

end.