Hola compañeros, resulta que tuve un problema en el equipo y he tenido que instalar todo nuevamente, pero al instalar mis componentes, me esta dand un error inesperado en un componente que funcionaba perfectamente el error en su fase de instalación es
Cita:
[DCC Error] SPBBC.pas(245): E2035 Not enough actual parameters
|
Y el código donde da el error es
Código Delphi
[-]procedure TSpeedButtonBC.Click;
begin
if FButtonRepeat then doRepeat;
inherited Click;
end;
He seguido el código y no veo nada mal, así que si me podéis echar una mano os lo agredecería, pongo otras partes del código relacionadas
Código Delphi
[-]
TSpeedButtonBC = class(TSpeedButton)
private
FAnchoBorde : Integer;
FBordeSpace : Integer;
FBordeColor : TColor;
FColor : TColor;
FStyleBorde : TStyleBorde;
FButtonStyle : TButtonStyle;
FStarInterval : Integer;
FTimeInterval : integer;
FButtonRepeat : Boolean;
FOnRepeat: TNotifyEvent;
procedure SetButtonRepeat(Value:Boolean);
procedure SetStarInterval(Value:Integer);
procedure SetTimeInterval(Value:Integer);
function GetRepeatInterval: integer;
function GetStartInterval: integer;
procedure AutoInitialize;
function GetBordeSpace : Integer;
procedure SetBordeSpace(Value : Integer);
function GetStyleBorde:TStyleBorde;
procedure SetStyleBorde(value:TStyleBorde);
function GetButtonStyle:TButtonStyle;
procedure SetButtonStyle(Value:TButtonStyle);
procedure WMSize(var Message: TWMSize); message WM_SIZE;
protected
procedure Click; override;
procedure Loaded; override;
procedure Paint; override;
procedure doRepeat(Sender: TObject);
procedure doStart(Sender: TObject);
public
tRepeat: TTimer;
tStart: TTimer;
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure MouseDown(Button: TMouseButton; Shift: TShiftState;X, Y: Integer); override;
procedure MouseUp(Button: TMouseButton; Shift: TShiftState;X, Y: Integer); override;
published
property OnClick;
property OnDblClick;
property OnDragDrop;
property OnMouseDown;
property OnMouseMove;
property OnMouseUp;
property StyleBorder:TStyleBorde read GetStyleBorde write SetStyleBorde default sbNone;
property ButtonStyle:TButtonStyle read GetButtonStyle write SetButtonStyle default SbtImagen;
property AnchoBorder : Integer read FAnchoBorde write FAnchoBorde default 3;
property BoderSpace : Integer read GetBordeSpace write SetBordeSpace default 2;
property BorderColor : TColor read FBordeColor write FBordeColor default clbtnface;
property Color : TColor read FColor write FColor default clbtnface;
property ButtonRepeat:Boolean read FButtonRepeat write SetButtonRepeat;
property StarInterval:Integer read FStarInterval write SetStarInterval;
property TimeInterval:integer read FTimeInterval write SetTimeInterval;
end;
.....
procedure TSpeedButtonBC.doRepeat(Sender: TObject);
begin
if FButtonRepeat then if assigned(OnClick) then OnClick(Self);
end;
Me falta por instalar multitud de componentes, pero es que no quiero instalarlos, ya que luego se vuelve lento, entre los que no he instalado y tenia antes están las Jedi, y un largo etc, no se si es que me hace falta uno de estos, para que lo reconozca, pero instalarlo todo seria una locura
P.D. me refiero a mi delphi 2010