xe10 berlin listview sorunu

FireMonkey ve Mobil uygulama (iOS, Android, Windows Phone) ile ilgili sorularınızı bu foruma sorabilirsiniz.
Cevapla
hakanoguzer
Üye
Mesajlar: 44
Kayıt: 15 Kas 2013 10:22

xe10 berlin listview sorunu

Mesaj gönderen hakanoguzer »

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?
Cevapla