посмотрите RunStringEx for Android

[beegl]

Привет, посмотрите RunStringEx for Android. Что туда добавить/убрать?)

https://www.youtube.com/watch?v=459v6uBtX3I



Описание: - приложение, которое умеет проверять активно ли подключение к 2G/3G/4G или WiFi когда нажимаешь на кнопку About DialogEx. Есть "трей-сообщение" и срабатывает вибро при нажатии на кнопки. Работает на 6-м Андроиде. Много занимает, из-за того, что там есть пару сторонних компонентов, да и пустой проект = ~ 6Mb.

Та то клацал Delphi 10 Seattle, и глянул в интернете пару примеров)) - (скачать)

unit RunStringEx;
interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, System.StrUtils, FMX.Layouts,
  FMX.Menus,Generics.Collections, FMX.Types, FMX.Controls, System.UIConsts, FMX.Platform,
  FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Controls.Presentation, FMX.StdCtrls, FMX.Text;

//  ExtCtrls, StrUtils;// добавляем


type
  TRunStringEx = class(TLabel)
  private
    FTimer: TTimer;
    procedure MoveText(Sender: TObject);
    function GetSpeed: Integer;
    procedure SetSpeed(MSec: Integer);
  protected
  public
    constructor Create(AOwner: TComponent); override;
  published
    property AutoSize;
    property Wordwrap;
    property Text;
    property Font;
    property Speed: Integer read GetSpeed write SetSpeed;
end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('RunStringEx', [TRunStringEx]);
end;

constructor TRunStringEx.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FTimer := TTimer.Create(Self);
  FTimer.OnTimer := MoveText;
  FTimer.Interval :=300;
  FTimer.Enabled := True;
end;

procedure TRunStringEx.MoveText(Sender: TObject);
begin
  Text := RightStr(Text, Length(Text)-1) + Text[1];
end;

function TRunStringEx.GetSpeed: Integer;
begin
  Result := FTimer.Interval;
end ;

procedure TRunStringEx.SetSpeed(MSec: Integer);
begin
  FTimer.Interval := MSec;
end;
end.

[ZuBy]

ай-яй-яй, проект даже не переименовал...

[kropotkina-alice]

Сообщение от ZuBy

ай-яй-яй, проект даже не переименовал...

А я вот смотрю, ребятки...
Михалыча на вас не хватает.
Я молчу, хотя иногда... Так и хочется "дать по балде""...
Извините, накипело...
Столько идиотов прибегает...
Видимо из меня препод не получился бы...

[beegl]

а это Loading Indicator Ex FMX



Извлек оттуда: KernowSoftwareFMX

[ZuBy]

Сообщение от kropotkina-alice

А я вот смотрю, ребятки...
Михалыча на вас не хватает.
Я молчу, хотя иногда... Так и хочется "дать по балде""...
Извините, накипело...
Столько идиотов прибегает...
Видимо из меня препод не получился бы...

не понял адресацию к моему сообщению...

проект был использован мой, нативные окна и скорей всего определение данных о сети (к чему я собственно и написал пост)

P.S. не знаете что написать, проходите мимо. Мне глубоко ... что у вас там кипит
А на счёт идиотов это верно, тут форум прям кипит ими, наверное поэтому я эту мусорку покинул.

Welcome (только FMX) : http://fire-monkey.ru чат в telegram

[Alar]

ZuBy, дело не в форуме, а в Вас, с возрастом вы прокачались и вам многое уже не интересно, а большинство вопросов идут от новичков по базовым знаниям.