Ir al contenido


Foto

error al instalar el componente


  • Por favor identifícate para responder
1 respuesta en este tema

#1 Desart

Desart

    Advanced Member

  • Miembro Platino
  • PipPipPip
  • 715 mensajes
  • LocationEspaña

Escrito 01 febrero 2014 - 03:09

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

[DCC Error] SPBBC.pas(245): E2035 Not enough actual parameters



Y el código donde da el error es

procedure TSpeedButtonBC.Click;
//------------------------------------------------------------------------------
//***************************************************************[ Click ]******
// Al Pulsar en  SetButtonStyle
//------------------------------------------------------------------------------
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


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);
//------------------------------------------------------------------------------
//****************************************************************[ Repeat ]****
// Repite la pulsación del click
//------------------------------------------------------------------------------
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

  • 0

#2 Desart

Desart

    Advanced Member

  • Miembro Platino
  • PipPipPip
  • 715 mensajes
  • LocationEspaña

Escrito 01 febrero 2014 - 03:53

Solucionado sólo tuve que neutralizar la linea del error y funciona bien, pero aun no se por que



delphi
  1. //  if FButtonRepeat then doRepeat;


  • 0




IP.Board spam blocked by CleanTalk.