installing new own package
lazarus / 5-Lazarus Extra Components

----------------------------------------------------------------------
RainerHamann · 2006-08-03 21:03

I tried to installed a new own package which is derived from
TStringGrid. It compiles fine inside the package manager without
errors and the installation recompiles and restarts lazarus without
any errors, but my component is not shown in the toolbar.

----------------------------------------------------------------------
matthijs · 2006-08-04 09:55

Post your Register procedure for the component. Probably something
wrong there. (If you do not have any other error message.  )

----------------------------------------------------------------------
RainerHamann · 2006-08-04 18:19

The source code of the unit :

unit editgrid;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Controls, Grids;
 
type
  TEditGrid = class(TStringGrid)
    public
      constructor Create(AOwner: TComponent);
      destructor Destroy; override;
      procedure EditingDone(Sender: TObject);
      procedure SelectEditor(Sender: TObject; ACol, ARow: Integer; var
CellEditor: TWinControl);
  end;

  procedure Register;

implementation

constructor TEditGrid.Create(AOwner: TComponent);
begin
     inherited;
     OnEditingDone := @EditingDone;
     OnSelectEditor := @SelectEditor;
end;

destructor TEditGrid.Destroy;
begin
     inherited;
end;

procedure TEditGrid.EditingDone(Sender: TObject);
begin
end;

procedure TEditGrid.SelectEditor(Sender: TObject; ACol, ARow: Integer;
var CellEditor: TWinControl);
begin
end;

procedure Register;
begin
  RegisterComponents('RH',[TEditGrid]);
end;

end.

----------------------------------------------------------------------
RainerHamann · 2006-08-04 18:33

problem is solved :

I started lazarus from /usr/bin/lazarus and installed the unit.
Lazarus restarted /usr/bin/lazarus, but the new version with the
installed package is located in $HOME./lazarus/bin/lazarus!