hello

I want to move a rectangle using animate option need when mouse enter rectangle is move to a specific position  and when mouse leave return to a first position , I have 2 rectangle one is a child I use this code when mouse enter a rectangle is move to top but when mouse leave the rectagle fix in their  new place

code

procedure TForm2.Rectangle1MouseEnter(Sender: TObject);
begin
  Rectangle2.AnimateFloat('Position.y', 1.0, 5, TAnimationType.InOut,
    TInterpolationType.Linear);
  Rectangle2.Position.y := Rectangle2.Height + 52;

end;

procedure TForm2.Rectangle1MouseLeave(Sender: TObject);
begin
  Rectangle2.AnimateFloat('Position.y', 1.0, 5, TAnimationType.InOut,
    TInterpolationType.Linear);
  Rectangle2.Position.y := 52;
end;

how can do it ?

تامر نفاع.rar

directt link   fmx rtl arabic

I will put in the link a zip file containing three files

Step 1: Go to C:\Program Files (x86)\Embarcadero\Studio\17.0\source\fmx

Step 2: Copy everything in it to your project path

Step3: Then copy the three files that I will give you and replace the existing ones

Step 4: Press Shift+F11 from Delphi and select all the libraries that we have placed in your project path.

The 5plan: bulid the program (note that you do not run, but do bulid). You will get an error message, but do not worry.

Step 6: Delete all the libraries that we added from Delphi... From the right menu, select all libraries, then press delete.

Step 7: Press Shift + F11 and add the following three libraries only FMX. FontGlyphs. Android. pas FMX. FontGlyphs. pas FMX. TextLayout. GPU

Step 8: Run.

you will get an Android application written in Arabic

Thank you mr  havrlisan

install fmxrtl  FmxRtl

or use this  unit from  see this forum

arabic fmx

I need a way to dropdown combobox with icon and text  in firemonkey  like this one

How can get the index of item that mouse is enter on it ?

Thank you Mr  serge it work , Ii their a tuto For a complete Using And access To Listboxitem ? ,I have more questions like how to change text Or color and some things like this

Thank you VM , sorry men How about click button

On 11/28/2021 at 7:15 AM, Serge_G said:

 ListboxItem.StylesData['button.text']:='Data btn';
 ListboxItem.StylesData['speedbtn.text']:='speed btn';

work great but can't access To btn  Is their a way   ?

 

project Hier  

Project1.rar

Hellow

I have A problem when customize Listbox item Using This tutorial   ListBox   All things Is ok But when scroll box the Listbox all object is empty

like this one

This is my Code  hier  

Var
  ListBoxItem: TListBoxItem;
  ItemText: TText;
  // if you get an error here, ensure that FMX.Objects is included in your uses above.
  Itembtn: TSpeedButton;
  ItemCircle: TCircle;
begin
  // First, we create an empty ListBoxItem with no parent
  ListBoxItem := TListBoxItem.Create(self);
  // now, we set a parent for this item
  // ListBox1.BeginUpdate;
  ListBoxItem.BeginUpdate;
  ListBoxItem.Parent := ListBox1;

  ListBoxItem.Height := 113;
  ListBoxItem.Width := 336;
  // Associate the Style you created with the ListBoxItem - not the ListBox itself.
  ListBoxItem.StyleLookup := 'NewList';

  // Next up, we're going to populate ItemText with the Caption of the Style using a style name lookup.
  ItemText := ListBoxItem.FindStyleResource('TxtUser') as TText;
  // We're going to set the text of the object to be whatever the caption should be.
  if Assigned(ItemText) then
    ItemText.Text := 'Hello World!';
  Itembtn := ListBoxItem.FindStyleResource('BtnAddFriend') as TSpeedButton;
  // We're going to set the text of the object to be whatever the caption should be.
  if Assigned(Itembtn) then
    Itembtn.Text := 'Hello World!';
  Itembtn := ListBoxItem.FindStyleResource('BtnRemove') as TSpeedButton;
  // We're going to set the text of the object to be whatever the caption should be.
  if Assigned(Itembtn) then
    Itembtn.Text := 'Hello World!';
  ItemCircle := ListBoxItem.FindStyleResource('Img') as TCircle;
  // We're going to set the text of the object to be whatever the caption should be.
  if Assigned(ItemCircle) then
    ItemCircle.Fill.Bitmap.Bitmap.LoadFromFile('E:\badger_1f9a1.png');
  ListBoxItem.EndUpdate;
  TabControl1.ActiveTab := TabUsers;

any help Please

hellow

when try to send image to storage in firebase  with tnethttpclient Using this code I get access denied  How can Resolve It

ms.LoadFromFile(op.FileName);
    link := 'https://firebasestorage.clients6.google.com/v0/b/chat-9641e.appspot.com/o?name=userProfiles/test.png?key=AIzaSyDptyDgZ9Zl-i06AI2cNJxSDky1mKs_fIo';
    Memo1.Text := HTTP.post(link, ms).ContentAsString;

when using api or token I have a same result

{
  "error": {
    "code": 403,
    "message": "Permission denied."
  }
}

the Authentication tab  fill it with basic method  email and password

when I use firebase4delphi it work but can't simulate it with rest debbuger 

email invocker.error@gmail.com

pass  123456789

api  AIzaSyDptyDgZ9Zl-i06AI2cNJxSDky1mKs_fIo

Hello

I want To Get  respense with rest debugger using Authentication by check email and password and Clé API Web   with Règles read and write false  ,How can do it with rest debugger Please ?

procedure TForm1.Button1Click(Sender: TObject);
begin
  ///  add user password apikey

    Request.Execute;
    memo1.Text:=Response.Content; // { "error" : "Permission denied" }
end;

Dear friends:

How can write on image and save it the new in fmx android I can't found similar then txtout  in fmx  this code work but can't write text in specific position

var
  ARect: TRectF;
  s: string;
begin
  with Image1.Bitmap do
  begin
    Canvas.Font.Family := 'Arial';
    Canvas.Fill.Color := TAlphaColorRec.Black;
    ARect.Top := 200;
    ARect.Left := 100;
    ARect.Width := 105;
    ARect.Height := 50;
    s := 'hellow Fmx';
    Canvas.BeginScene;
//    canvas.textout(20,20,'hellow Fmx');
    Canvas.FillText(ARect, s, false, 1, [], TTextAlign.Leading,
      TTextAlign.Leading);
    Canvas.EndScene;
  end;

end;

Thank you It Work a  Perfetc Now  thank you again

I can't Understand what line you mean Please Can you modify this code to work

The same problem

procedure TForm1.ListView1ItemClick(const Sender: TObject;
  const AItem: TListViewItem);
begin
  AItem1 := AItem;
  name := AItem1.Data['Text1'].AsString;
  phone := AItem1.Data['Text2'].AsString;
  index := AItem1.Data['Text3'].AsString;

end;

procedure TForm1.MenuItem1Click(Sender: TObject);
var
  I: integer;
  list: TStringList;
begin
  list := TStringList.Create;
  for I := 0 to ListView1.Items.Count - 1 do
  begin
     AItem1 := ListView1.Items[I];
     ListView1.Selected := AItem1;
     list.Add(name + sLineBreak + phone + sLineBreak + index + sLineBreak);
  end;
  list.SaveToFile('C:\Users\Gt\Desktop\TestContactBack.vcf');
  list.Free;
end;

How can  save all item from listview with DynamicAppearance  I use this code but it save only first item

procedure TForm1.ListView1ItemClick(const Sender: TObject;
  const AItem: TListViewItem);
var
  I: integer;
  AItem1: TListViewItem;

  list: TStringList;
begin
  list := TStringList.Create;

  for I := 0 to ListView1.Items.Count - 1 do
  begin
    ListView1.Selected := ListView1.Items[I];

    name := AItem.Data['Text1'].AsString;
    phone := AItem.Data['Text2'].AsString;
    index := AItem.Data['Text3'].AsString;
    list.Add(name + sLineBreak + phone + sLineBreak + index + sLineBreak);

  end;
  list.SaveToFile('C:\Users\Gt\Desktop\TestContactBack.vcf');
  list.Free;
end;

Thank you I resolve it ,Scrolbar not showing in android that all ,thank you

H I

I Have an issue with fmx android when run app it display a form Created in the first click But not in the second click  ,  It work perfectly in Windows but not in android

I use VertScrollBox as parent

this is my code

var
 f: TForm3;
begin
  f :=  TForm3.Create(self);
  f.Layout1.Align := TAlignLayout.Top;
  f.TXTID.Text := ID;
  self.AddObject(f.Layout1);
end;