So this code worked for over a year now:
while IsFound do begin
AdvSG_Rueckscheine.AddRow;
AdvSG_Rueckscheine.Cells[2,AdvSG_Rueckscheine.RowCount-1]:=SR.Name;
DS_E.ParamByName('NR').AsString:=LeftStr(SR.Name,length(Sr.Name)-4);
DS_E.Open;
if DS_E.RecordCount>0 then
begin
AdvSG_Rueckscheine.Cells[3,AdvSG_Rueckscheine.RowCount-1]:=FormatDateTime('DD.MM.YYYY', DS_E['datum_einlieferung']);
AdvSG_Rueckscheine.Cells[1,AdvSG_Rueckscheine.RowCount-1]:=inttostr(DS_E['nwbs_id']);
AdvSG_Rueckscheine.AddCheckBox(0, AdvSG_Rueckscheine.RowCount-1, true, false);
end
else
AdvSG_Rueckscheine.AddCheckBox(0, AdvSG_Rueckscheine.RowCount-1, false, false);
DS_E.Close;
IsFound := FindNext(SR) = 0;
end;
But since I compiled with a VCL UI Pack version 10.3 or higher the checkboxes don't show up anymore.
Why is this?
What do I have to change for the updated StringGrid?
Oh, and I don't have any fixed columns. Just like the 18 months before.