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;
The forum post is in Turkish so I have provided the link through Google Translate. The full project with source is at the end of the forum post. This project looks like it should also run on IOS without any problems though you will have to edit the close button since you don’t close apps on IOS. I’ve mirrored the source below in case the original goes down.
Check out the full forum post about the RSS reader and download the source.
Source Mirror: Turkish RSS Feed Reader In Delphi XE5 Firemonkey