Перейти к содержанию
Fire Monkey от А до Я

RapsodRF

Пользователи
 Профиль  Обзор контента

  • Постов

    23

  • Зарегистрирован

  • Посещение

Активность репутации

  1. Like
    RapsodRF
    RapsodRF отреагировална rareMax в Синтез речи (text-to-speech)   
    ни с ЯП, ни с ОС Вы не угадали
    https://github.com/jimmckeeth/FireMonkey-Android-Voice
    Есть и для делфи и для плюсов. Пользуйтесь
  2. Like
    Rusland
    RapsodRF получил реакцию от Rusland в Утечка памяти при использовании эффекта   
    Найдено решение. Может кому-то пригодится.
    Вот тут представлены четыре разных алгоритма размытия http://blog.ivank.net/fastest-gaussian-blur.html
    Работает быстро и утечки теперь не наблюдается, то что и надо было сделать))
    Так что всем спасибо! 
    Пользуйтесь! ;-)
  3. Like
    RapsodRF
    RapsodRF отреагировална kami в Создание и запуск нового потока (POSIX)   
    Под виндой все же рекомендуется использовать не виндовый CreateThread, а враппер BeginThread, если уж наследника TThread по каким-то причинам вы избегаете
  4. Like
    RapsodRF
    RapsodRF отреагировална Brovin Yaroslav в Создание и запуск нового потока (POSIX)   
    А обычный класс TThread не подходит?
  5. Like
    RapsodRF
    RapsodRF отреагировална rareMax в Создание и запуск нового потока (POSIX)   
    http://docwiki.embarcadero.com/RADStudio/Seattle/en/Using_the_Parallel_Programming_Library
  6. Like
    zairkz
    RapsodRF получил реакцию от zairkz в Утечка памяти при использовании эффекта   
    Найдено решение. Может кому-то пригодится.
    Вот тут представлены четыре разных алгоритма размытия http://blog.ivank.net/fastest-gaussian-blur.html
    Работает быстро и утечки теперь не наблюдается, то что и надо было сделать))
    Так что всем спасибо! 
    Пользуйтесь! ;-)
  7. Like
    RapsodRF
    RapsodRF отреагировална krapotkin в Циклическое воспроизведение звука   
    есть BASS
    там есть событие окончание трека
  8. Like
    RapsodRF
    RapsodRF отреагировална Равиль Зарипов (ZuBy) в Циклическое воспроизведение звука   
    пользуйтесь стандартными средствами воспроизведения звука, в интернете где-то видал классы для разных платформ
  9. Like
    RapsodRF
    RapsodRF отреагировална dnekrasov в [Win][FMX] Не работает RegisterHotKey   
    Нужно переопределять основной обработчик событий окна, но легче всего сделать так:
    ... FWnd := AllocateHWnd(WindowProc); ... procedure WindowProc(var AMsg: TMessage); begin case AMsg.Msg of WM_HOTKEY: case TWMHotKey(AMsg).hotkey of 1: ...; 2: ...; ... end; end; end; ... RegisterHotkey(FWnd, ...); // как обычно в VCL ... UnregisterHotkey(...); // как обычно в VCL ...  
    С OSX не все так просто.
    Посмотрите темы
    Глобальный Hook в OSX и Глобальные хоткеи в OS X
  10. Like
    Guitar
    RapsodRF получил реакцию от Guitar в Работа со звуком. Запись разговора на телефон   
    RE: Andrey Efimov
    Под Android.
    Да, именно запись.
  11. Like
    RapsodRF
    RapsodRF отреагировална zairkz в С помощью каких компонентов проще всего реализовать онлайн чат?   
    Можно помучаться с TListView, но я остановился на TPresentedScrollBox и стилизованных Label'ах (облачки сообщений, под разные scale на png 9patch), скорость скролла хорошая, плюс есть боунсы и тд.
    Приложил исходники проекта, также в архиве отдельно chat.style
    procedure TForm2.ChatUp(UsID: integer; LastId: integer; CText: string); var   Labb: TLabel;   Marg: Single;   LT: TLayout; begin   LT := TLayout.Create(PR);   LT.Parent := PR.Content;   LT.Margins.Top := 2;   LT.Align := TAlignLayout.Top;   LT.Position.Y := PR.ContentBounds.Height + 50;   Marg := PR.Width * 0.20;   Labb := TLabel.Create(PR);   Labb.Parent := PR;   Labb.Align := TAlignLayout.Top;   Labb.AutoSize := True;   Labb.WordWrap := True;   Labb.TextSettings.WordWrap := True;   if UsID = 0 then   begin     Labb.Margins.Left := Marg;     Labb.Margins.Right := 4;     Labb.TextAlign := TTextAlign.Trailing;     Labb.StyleLookup := 'labelchat_green';   end   else   begin     Labb.Margins.Right := Marg;     Labb.Margins.Left := 4;     Labb.TextAlign := TTextAlign.Leading;     Labb.StyleLookup := 'labelchat_white';   end;   Labb.NeedStyleLookup;   Labb.Text := ' ' + CText + ' ';   LT.Height := Labb.Height + 4;   Labb.Parent := LT;   if UsID = 0 then     Labb.Align := TAlignLayout.Right   else     Labb.Align := TAlignLayout.Left; end; Первые признаки шизофрении:

    Chat.zip
×
×
  • Создать...