Jump to content

xorpas

Members
  • Content Count

    37
  • Joined

  • Last visited

Community Reputation

2 Neutral

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. xorpas

    Custom ListBox Layout in fmx

    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
  2. xorpas

    Custom ListBox Layout in fmx

    Thank you VM , sorry men How about click button
  3. xorpas

    Custom ListBox Layout in fmx

    project Hier Project1.rar
  4. xorpas

    Custom ListBox Layout in fmx

    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;
  5. xorpas

    Firebase Storage and tnethttpclient

    any help Please
  6. xorpas

    Firebase Storage and tnethttpclient

    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." } }
  7. xorpas

    Get respense with rest debugger when regle is false

    the Authentication tab fill it with basic method email and password
  8. xorpas

    Get respense with rest debugger when regle is false

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

    Get respense with rest debugger when regle is false

    email invocker.error@gmail.com pass 123456789 api AIzaSyDptyDgZ9Zl-i06AI2cNJxSDky1mKs_fIo
  10. 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;
  11. 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;
  12. xorpas

    save all item from listview with DynamicAppearance

    Thank you It Work a Perfetc Now thank you again
  13. xorpas

    save all item from listview with DynamicAppearance

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

    save all item from listview with DynamicAppearance

    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;
×