TListBox를 스크롤 할 때 지연이 발생했습니다.

Question

TListBox에는 약 50 개의 TListboxItem이 포함되어 있습니다. 각 항목에는 레이블로 사용되는 3 개의 텍스트, '상태'를 나타내는 48x48 해상도의 1 개의 TImage 및 항목 선택을위한 확인란이 있습니다. 장치에서 스크롤 할 때 시간이 많이 걸립니다. 종종 불안정하고, 산발적이며, 일관성이 없습니다.

너무 많은 항목이 있기 때문에이게 맞습니까? 아니면 TTexts, Timage 등이 포함되어 있기 때문입니까? 또는 TListbox의 스크롤 과정을 부드럽게 처리 할 수있는 방법이 있습니다.

저는 Delphi xe5를 사용하여 iOS 응용 프로그램을 개발하고 있습니다. 나는 TListbox의 'sorted'속성이 다음과 같은지 확인했다 : = False;

UPDATE (제리 닷지에 대응) :

while XMLNode <> nil do begin 
      Main_Form.LBoxEntries.Items.Add(''); 
      Item1:=Main_Form.LBoxEntries.ListItems[Main_Form.LBoxEntries.Items.Count-1]; 
      Item1.Height    := 80; 
      Item1.Width    := ClientWidth; 

      if XMLNode.ChildNodes['SCANSTATUS'].Text = '0' then begin 
      Item1.ItemData.Bitmap := Main_Form.Red.Bitmap; 
      Item1.Tag    := 0; 
      end; 
      if XMLNode.ChildNodes['SCANSTATUS'].Text = '1' then begin 
      Item1.ItemData.Bitmap := Main_Form.Orange.Bitmap; 
      Item1.Tag    := 1; 
      end; 
      if XMLNode.ChildNodes['SCANSTATUS'].Text = '2' then begin 
      Item1.ItemData.Bitmap := Main_Form.Green.Bitmap; 
      Item1.Tag    := 2; 
      end; 

      Customer := TText.Create(nil); 
      Customer.Parent   := Item1; 
      Customer.Position.X  := 95; 
      Customer.Position.Y  := 8; 
      Customer.Text   := XMLNode.childNodes['CUSTOMERNAME'].text; 
      Customer.Width   := Item1.Width - 105; 
      Customer.WordWrap  := False; 
      Customer.Color   := TAlphaColors.Blue; 
      Customer.Trimming  := TTextTrimming(1); 
      Customer.Height   := 20; 
      Customer.Font.Size  := 18; 
      Customer.HorzTextAlign := TTextAlign(1); 
      Customer.Anchors := [TanchorKind.akLeft,TanchorKind.akRight]; 
      Customer.WordWrap  := False; 

      Product := TText.Create(nil); 
      Product.Parent  := Item1; 
      Product.Position.X := 105; 
      Product.Position.Y := 30; 
      Product.Text   := 'Product: ' +XMLNode.childNodes['PRODUCT'].text; 
      Product.Width   := Item1.Width - 115; 
      Product.Trimming  := TTextTrimming(1); 
      Product.Height  := 20; 
      Product.Font.Size  := 15; 
      Product.HorzTextAlign := TTextAlign(1); 
      Product.Anchors := [TanchorKind.akLeft,TanchorKind.akRight]; 
      Product.WordWrap  := False; 

      QTY := TText.Create(nil); 
      QTY.Parent  := Item1; 
      QTY.Position.X := 105; 
      QTY.Position.Y := 50; 
      QTY.Text   := 'QTY: ('+XMLNode.childNodes['QTY'].text+')'; 
      QTY.Width   := Item1.Width - 115; 
      QTY.Trimming  := TTextTrimming(1); 
      QTY.Height  := 20; 
      QTY.Font.Size  := 15; 
      QTY.HorzTextAlign := TTextAlign(1); 
      QTY.Anchors := [TanchorKind.akLeft,TanchorKind.akRight]; 
      QTY.WordWrap  := False; 

      Item1.ItemData.Detail := ' |' + XMLNode.childNodes['SID'].Text+'|'+ 
            ' |' + XMLNode.childNodes['CUSTOMERNAME'].Text+'|'+ 
            ' |' + XMLNode.childNodes['PRODUCT'].text+'|'+ 
            ' |' + XMLNode.childNodes['QTY'].Text+'| '; 


      XMLNode := XMLNode.NextSibling; 
     end; 
     Main_Form.LBoxEntries.EndUpdate; 

아무 게시물 작업은/이벤트 항목에 연결되지 않습니다.

Answer 1

사용중인 모든 TLayouts을 제거했는데, 그 중 내 Listbox가 배치되었습니다. 여전히 지연되었습니다.

그런 다음 양식 컨트롤 (사이드 메뉴를 열 때 슬라이딩 효과)의 역할을하는 부모 TPanel을 제거한 다음 지연이 사라졌습니다. TPayel을 TLayout으로 바꿀 수 있는지, 아니면 그에 맞게 프로그램과 사이드 메뉴를 조정할 수 있는지 더 자세히 테스트 할 것입니다.

업데이트 : TPanel은 스크롤 할 때 지연이 발생한 원인입니다. TLayout을 위해 구성 요소를 바꿔서 언제나처럼 원활하게 작동합니다!

Answer 2

Trollbox가 아닌 TListView를 사용하여 스크롤해야하는 경우 표준 조언이라고 생각합니다. 나는 iOS에서 간단한 앱을, XE5에서 Android를 TListView에 100 개 이상 추가하고 스크롤 작업을 매우 원활하게 수행했습니다.