OnePeople

Делал чисто для себя! И только для своего удовольствия!
Возможны ошибки!*(вернее точно есть))) 
Графика не окончательная!
Скриншоты сервер:
Скриншоты клиент:
Сервер на комп, клиент Android (должны находиться в одной сети)
P/S И так как все устройства у меня Full HD, проверял только на них(
Monopoly.rar

Делал чисто для себя! И только для своего удовольствия!
Возможны ошибки!*(вернее точно есть))) 
Графика не окончательная!
Скриншоты сервер:
Скриншоты клиент:
Сервер на комп, клиент Android (должны находиться в одной сети)
P/S И так как все устройства у меня Full HD, проверял только на них(
Monopoly.rar

Делал чисто для себя! И только для своего удовольствия!
Возможны ошибки!*(вернее точно есть))) 
Графика не окончательная!
Скриншоты сервер:
Скриншоты клиент:
Сервер на комп, клиент Android (должны находиться в одной сети)
P/S И так как все устройства у меня Full HD, проверял только на них(
Monopoly.rar

Делал чисто для себя! И только для своего удовольствия!
Возможны ошибки!*(вернее точно есть))) 
Графика не окончательная!
Скриншоты сервер:
Скриншоты клиент:
Сервер на комп, клиент Android (должны находиться в одной сети)
P/S И так как все устройства у меня Full HD, проверял только на них(
Monopoly.rar

Делал чисто для себя! И только для своего удовольствия!
Возможны ошибки!*(вернее точно есть))) 
Графика не окончательная!
Скриншоты сервер:
Скриншоты клиент:
Сервер на комп, клиент Android (должны находиться в одной сети)
P/S И так как все устройства у меня Full HD, проверял только на них(
Monopoly.rar

Такая же проблема (Rio). Переделал всё на просто AnimateFloat с разными костылями(((

Не знаю куда уж проще?
Кидаешь на форму StyleBook и в свойствах формы выставляешь его.

Создаешь свой прогрессбар например.
Кликаешь по нему правой кнопкой мыши и выбираешь изменить стиль по умолчанию или же создать свой новый стиль для компонента.

Затем редактируешь его как компонент содержащий в себе другие компоненты, причем не обязательно как я сделал для примера из прямоугольников, можно сделать и из картинок, главное чтобы названия StyleName совпадали c родными.

 

да!

var Reg:TRegistry; begin     Reg:=TRegistry.Create;     reg.RootKey:=HKEY_CURRENT_USER;     reg.openKey('SOFTWARE\Microsoft\Windows\DWM',true);     value:=reg.ReadInteger('ColorizationColor');     Reg.CloseKey;     Reg.Free;     TAlphaColorRec(Value).R:=Round(TAlphaColorRec(Value).R /100 *35);     TAlphaColorRec(Value).G:=Round(TAlphaColorRec(Value).G /100 *35);     TAlphaColorRec(Value).B:=Round(TAlphaColorRec(Value).B /100 *35); Color:=Value;
Я делаю так!

var Reg:TRegistry; begin     Reg:=TRegistry.Create;     reg.RootKey:=HKEY_CURRENT_USER;     reg.openKey('SOFTWARE\Microsoft\Windows\DWM',true);     value:=reg.ReadInteger('ColorizationColor');     Reg.CloseKey;     Reg.Free;     TAlphaColorRec(Value).R:=Round(TAlphaColorRec(Value).R /100 *35);     TAlphaColorRec(Value).G:=Round(TAlphaColorRec(Value).G /100 *35);     TAlphaColorRec(Value).B:=Round(TAlphaColorRec(Value).B /100 *35); Color:=Value;
Я делаю так!

with Server do begin BufferSize:=buffersize  ???
 
with Server do begin BufferSize:=buffer_size

with Server do begin BufferSize:=buffersize  ???
 
with Server do begin BufferSize:=buffer_size

Сделал простой пример приложения рации в локальной сети под Android. Реализация через UDP. 
Буду рад, если кому окажется полезным.
Для начала/окончания сеанса связи нужно нажать на окружность

Для проверки нужно 2 телефона
unit Unit5; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Controls.Presentation, FMX.StdCtrls, IdUDPServer, IdBaseComponent, IdComponent, IdUDPBase, IdUDPClient, IdGlobal, IdSocketHandle, Androidapi.JNI.Media, Androidapi.JNI.JavaTypes, Androidapi.JNIBridge, AndroidApi.JNI, AndroidApi.Helpers, FMX.Objects, System.Math; type TForm1 = class(TForm) Circle: TCircle; procedure ServerUDPRead(AThread: TIdUDPListenerThread; const AData: TIdBytes; ABinding: TIdSocketHandle); procedure FormCreate(Sender: TObject); procedure CircleTap(Sender: TObject; const Point: TPointF); end; TSendThread = class(TThread) protected procedure Execute; override; end; var Form1: TForm1; SendThread: TSendThread; Server: TIdUDPServer; audioRecord: JaudioRecord; audiotrack: JAudioTrack; recording: boolean; buffer_Size, port,ch_in, ch_out, format, freq, source: integer; implementation {$R *.fmx} procedure TSendThread.Execute; var buffer: TJavaArray<Byte>; begin buffer := TJavaArray<Byte>.create(buffer_size); while recording do begin audioRecord.read(buffer,0,buffer_size); Server.Broadcast(TIDBytes(TJavaArrayToTBytes(buffer)),port); end; buffer.Free; end; procedure TForm1.CircleTap(Sender: TObject; const Point: TPointF); begin recording:= not recording; if recording then begin Circle.Fill.Color:=TAlphaColors.Red; Server.OnUDPRead:=nil; audiorecord.startRecording; SendThread:=TSendThread.Create; end else begin Circle.Fill.Color:=TAlphaColors.Gray; audiorecord.stop; Server.OnUDPRead:=ServerUDPRead; end; end; procedure TForm1.FormCreate(Sender: TObject); begin buffer_size:=2048; freq:=8000; port:=5555; Server:=TIdUdpServer.Create(Form1); with Server do begin BufferSize:=buffer_size; DefaultPort:=port; BroadCastEnabled:=true; Active:=true; OnUDPRead:=ServerUDPRead; end; Circle.Width:=min(Screen.Width,Screen.Height)*0.7; Circle.Height:=Circle.Width; ch_in:=TJAudioFormat.JavaClass.CHANNEL_IN_MONO; ch_out:=TJAudioFormat.JavaClass.CHANNEL_OUT_MONO; format:=TJAudioFormat.JavaClass.ENCODING_PCM_16BIT; source:=TJMediaRecorder_AudioSource.JavaClass.MIC; audioRecord := TJAudioRecord.JavaClass.init(source, freq, ch_in, format, buffer_size); audiotrack:=TJAudioTrack.JavaClass.init(3, freq, ch_out, format, buffer_size,1); end; procedure TForm1.ServerUDPRead(AThread: TIdUDPListenerThread; const AData: TIdBytes; ABinding: TIdSocketHandle); begin audiotrack.write(TBytesToTJavaArray(TBytes(AData)),0,Length(AData)); audiotrack.play; end; end.  
radio.zip

Перезалил.
Итого:
1. Поправил звук, теперь проценты отображаются верно
2. Переместил иконку закрыть, не знаю даст это что то???(wamaco проверь пожалуйста)
3. Звук теперь регулируется вместе со звуком windows
И так по мелочи доработал)

Регулировка звука теперь ошибается на 1%, иногда показывает правильное значение. Ещё заметил, что можно в большой минус уйти
Если регулировать звук через систему, то значение в приложении не меняется, т.е. в системе выставил 20, а в приложении так и осталось 56.
 

Да они и так нормально обновляются, с учётом того что по вкладкам не кто туда сюда прыгать не будет, ведь минус ищут постепенно прослушивая или просто определенный по названию. Но зависания при прыжках по вкладкам я убрал.
1. Нет такого(
2. Спасибо убрал)
Перезалил еще дофига багов убрал)

Программа для скачивания минусовок

 
DX-minus b259.rar

Это исправил. Как и звук.
А здесь наверно добавлю webbrowser, там потом перекидывает на страницу проверки на бота(
А вот баг с отрисовкой, это не мой косяк, а делфи
procedure TForm1.rTopBackgroundPaint(Sender: TObject; Canvas: TCanvas;   const ARect: TRectF);   var   BitmapSource: TBitmap;   BitmapDest: TBitmap;   DestWidth: Integer;   DestHeight: Integer;   BitmapSourceRect: TRectF;   BitmapDestRect: TRectF;   lt: TLayout; begin   BitmapSource := lbMinusList.MakeScreenshot;   BitmapSourceRect := TRectF.Create(TPointF.Create(lTop.Position.X, lTop.Position.Y),   lTop.Width, lTop.Height);   DestWidth := Max(0, Round(rTopBackground.Width));   DestHeight := Max(0, Round(rTopBackground.Height));   BitmapDest := TBitmap.Create(DestWidth, DestHeight);   BitmapDestRect := TRectF.Create(0, 0, BitmapDest.Width, BitmapDest.Height);     if BitmapDest.Canvas.BeginScene then         try           BitmapDest.Canvas.DrawBitmap(BitmapSource, BitmapSourceRect, BitmapDestRect, 1);         finally           BitmapDest.Canvas.EndScene;         end;   rTopBackground.Fill.Bitmap.Bitmap.Assign(BitmapDest);   BitmapSource.Free;   BitmapDest.Free; end; В rTopBackground лежит GaussianBlurEffect, а с эффектами в делфи беда(((

Отлично!
Теперь нормально работает: перемотка, регулировка звука. Стало удобнее кликать по полоскам. После завершения воспроизведения, значок меняется. Ну и главное теперь видно, что загрузка началась, даже если она сразу же завершилась :).
Был замечен другой баг, но пока не понял, что предшествовало его появлению. В этот момент нельзя свернуть окно, кнопка просто не реагировала.
Ещё косяк, проценты в регулировке звука не совпадают с системным регулятором. Выставляю в программе 50%, а в системном меняется на 67 (из 100), 36% = 55 и т.д. При этом 100% в приложении = 100 в системе.
Стоит добавить поиск, может даже алфавитный указатель

Программа для скачивания минусовок

 
DX-minus b259.rar

При запуске пишет "Сервер возвратил ссылку" и приложение закрывается!

Программа для скачивания минусовок

 
DX-minus b259.rar

Программа для скачивания минусовок

 
DX-minus b259.rar

А если решитесь писать свой, то присмотретьсь к App Tethering 
 

Думаю, стоит перед загрузкой битмапа из Stream добавить
Stream.Position:=0