#8 0.64 Bug - TSQLite.Create never called!

[Tim David Otto]

There is a problem with TSQLite:

1. Everything is OK when you create TSQLite by code.
( Like: LiteDB := TSQLiteDB.Create(nil); )

2. When you drop the TSQLite Icon to the Form the
TSQLite.Create will not be called.

The real Problem: DB-Kind variable issn't assigned the
Escape function doesn't use SQLite Escape Functions.

[Tim David Otto]

Logged In: YES
user_id=1546220

Solution in passqlite - would be nice to see this fixed... :)

{...}
public
{...}
constructor Create (AOwner:TComponent); overload; override;
constructor Create (AOwner: TComponent; Database:
String); reintroduce; overload;
{...}
constructor TLiteDB.Create(AOwner:TComponent);
begin
inherited Create(AOwner);
showmessage('SQLite Create');
PrimaryKey := 'primary key';
FDataBaseType := dbSqlite;
end;

constructor TLiteDB.Create(AOwner: TComponent; Database:
String);
begin
inherited Create(AOwner);
PrimaryKey := 'primary key';
FDataBaseType := dbSqlite;
if DataBase<>'' then
Use (DataBase);
end;
{...}

[René Tegel]

Logged In: YES
user_id=764063

Good one, thanks.. (Indeed i never use it as droppable
component so i missed this one).
Changes are in cvs, will release new package soon.