SIGSEGV TDBLookupComboBox on modal form
Original Reporter info from Mantis: tema
-
Reporter name: Artem Proskurnev
Original Reporter info from Mantis: tema
- Reporter name: Artem Proskurnev
Description:
FPC 3.0.0 and lazarus 1.6.2 all ok
FPC>=3.0.2
Lazarus>=1.6.4
SIGSEGV on post or cancel if use two TDBLookupComboBox on modalform.
SQLQuery1 have 2 lookup fields.
procedure TForm1.Button1Click(Sender: TObject);
var
a: TForm2;
begin
try
a := TForm2.Create(Form1);
a.SQLQuery2.Open;
a.SQLQuery3.Open;
a.SQLQuery1.Open;
a.SQLQuery1.Edit;
if a.ShowModal = idOk then
a.SQLQuery1.Post <-----SIGSEGV
else
a.SQLQuery1.Cancel; <------SIGSEGV
finally
a.Free;
end;
end;
in another programm:
/usr/lib64/lazarus/lcl/include/dblookup.inc line 88
if FRecordUpdated or ((FLookup.ControlItems <> nil) and (FLookup.ControlItems.Count <> DataSet.RecordCount)) then <----SIGSEGV
Error:
The object FLookup.ControlItems does not exist Count properties
Steps to reproduce:
Generate MariaDB(MySQL) database table.sql
unpack and compile program published.tar.gz
Mantis conversion info:
- Mantis ID: 31486
- OS: linux
- Fixed in revision: 54441 (#cd7fd1bc)
- Monitored by: » tema (Artem Proskurnev)
- Target version: 1.8