Dismiss Notice

REGISTRATION IS AFTER ADMIN ACTIVATION

DONATIONS WITH PAYPAL CLICK TO BUTTON

3 MONTHS VIP - 10$; 6 MONTHS VIP - 20$; 1 YEAR VIP - 30$; 2 YEARS VIP - 50$; GOLD USER FOR LIFE VIP - 150$

DONATIONS WITH Bitcoin Address:3NRs3CK3fhXifrNYxHEZKpETDd9vNLMsMD

Dismiss Notice
The registration is approved by the Administrator. It takes about 1 day to approve your registration
Dismiss Notice
For open hidden message no need write thanks, thank etc. Enough is click to like button on right side of thread.

RSS Reader Full Source Code Android and Delphi Xe5

Discussion in 'Delphi Android And IOS' started by N0body, Feb 5, 2014.

  1. N0body
    Online

    N0bodyN0body is a Verified Member DelphiFan Administrator Staff Member DF Staff

    I found this RSS viewer application built with Delphi XE5 Firemonkey for Android over on a Turkish forum for Delphi. I like the formatting they used for displaying the data from the RSS feed. It uses the Indy HTTP component to download the images and formats everything in a TListView control. It looks like it just manually moves through the RSS file and parses the data so there is no XML component to deal with. It will also send the link from the RSS feed item to Android for viewing in the device browser. Here is some sample source from the project which shows the creation of the TListViewItem:

    [​IMG]

    Download Here


    Code:
    Procedure ObjectOlustur( AItem:TListViewItem; LItem: TListItemText; strRefKod, strText:String; iOffsetX, iOffsetY, iWidth,iHeight, iFontSize:Integer; iFontColor: LongInt );
    begin
    LItem := TListItemText.Create(AItem);
    LItem.Name := strRefKod;
    LItem.Font.Size := iFontSize;
    LItem.TextColor := iFontColor;
    LItem.Align := TListItemAlign.Leading; // En Sol
    LItem.VertAlign := TListItemAlign.Leading; // En Üst
    LItem.PlaceOffset.X := iOffsetX;
    LItem.PlaceOffset.Y := iOffsetY;
    LItem.TextAlign := TTextAlign.taLeading;
    LItem.Trimming := TTextTrimming.ttCharacter;
    LItem.IsDetailText := True;
    LItem.Width := iWidth;
    LItem.Height := iHeight;
    LItem.Text := strText;
    end;
    
     
  2. barisatalay
    Offline

    barisatalay DF Senior

    RE:

    Bir hocamın bana yardım olarak hazırlamış olduğu bir projedir ve Run-time listview item ekleme konusunda çok geniş bir örnek sayılabilir.
     
  3. DeQe
    Offline

    DeQe DF Member

    bookmark
     
  4. racehv
    Offline

    racehv Guest

    RE:

    Will try.

    Thanks alot.
     

Share This Page

Laws
Our website, law, laws, copyright and aims to be respectful of individual rights. Our site, as defined in the law of 5651 serves as a provider of space. According to the law, contrary to the law of site management has no obligation to monitor content. Therefore, our site has adopted the principle of fit and remove. Works are subject to copyright laws and is shared in a manner that violated their legal rights, or professional associations, rights holders who, adsdelphi@gmail.com I can reach us at e-mail address. Complaints considered to be infringing on the examination of the content will be removed from our site.
Donate Help To Us and Be VIP
DONATIONS WITH PAYPAL CLICK TO BUTTON
6 MONTHS VIP - 20$; 1 YEAR VIP - 30$; 2 YEARS VIP - 50$; GOLD USER FOR LIFE VIP - 150$
Social Block