Jump to content

xorpas

Members
  • Content Count

    94
  • Joined

  • Last visited

Posts posted by xorpas


  1. On 2/5/2021 at 6:34 AM, Turan Can said:

    The problem is solved. I convert from the Java example.
    Thanks. It only receives the form you send. Please check the picture above.

     

    How you solved this problem Can you put Your Code Hier ?

    • Like 1

  2. I can do it without animation Like this

     

    procedure TForm1.Button1Click(Sender: TObject);
    var item :TListViewItem;
    begin
    ListView1.Items.Clear;
       item:=ListView1.Items.Add;
      item.Data['Text1']:='Animate Me in postion  x =136 y =256 ';
    //  PlaceOffset.X:=8;
    //  PlaceOffset.Y:=8;
      item.Objects.FindObjectT<TListItemText>('Text1').PlaceOffset.X:=136;
     item.Objects.FindObjectT<TListItemText>('Text1').PlaceOffset.y:=256;
    end;
    
    procedure TForm1.Button2Click(Sender: TObject);
    var item :TListViewItem;
    begin
    ListView1.Items.Clear;
       item:=ListView1.Items.Add;
      item.Data['Text1']:='Animate Me in postion  x =8 y =8';
     item.Objects.FindObjectT<TListItemText>('Text1').PlaceOffset.X:=8;
     item.Objects.FindObjectT<TListItemText>('Text1').PlaceOffset.y:=8;
    end;

    But How can Do it With TFloatanimation

    1559417431_Sanstitre.png.3028aa185bc03faf084700875e415a6e.png

×