xorpas

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

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;