merhaba
xe8 ve xe10 da çalışan
procedure Tfrm_araclar.Yenile;
var
AItem : TListViewItem;
LData1 : TListItemText;
begin
List_ana.Items.Clear;
with Query2 do
begin
try
if RecordCount = 0 then Exit;
First;
List_ana.BeginUpdate;
while not Eof do
begin
AItem := List_ana.Items.Add;
AItem.Height := 70;
AItem.Text := FieldByName('IDNO').AsString;
ObjectOlustur( AItem, LData1, 'MARKASI', FieldByName('MARKASI').AsString, 250, 6, 200, 40, 10, TAlphaColorRec.white);
ObjectOlustur( AItem, LData1, 'MODEL', FieldByName('MODEL').AsString, 350, 6, 200, 40, 10, TAlphaColorRec.white);
ObjectOlustur( AItem, LData1, 'Gizli', FieldByName('KAYITNO').AsString, 0, 6, 200, 40, 11, TAlphaColorRec.Lightslategrey);
Next;
end;
finally
List_ana.EndUpdate;
Free;
end;
end;
end;
KODU XE10.2 BERLIN DE CALIŞMIYOR. LISTVIEW BOŞ GELIYOR.
NEDENINI BILEN VAR MI?