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

rareMax

Пользователи
  • Постов

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

  • Посещение

  • Победитель дней

    35

Ответы сообщества

  1. Пост rareMax - сообщение в [Android] как вы решаете проблему с таймаутом? был отмечен как ответ   
    System.Net.HttpClient.THttpClient попробуй
  2. Пост rareMax - сообщение в Как сделать плиточное меню в приложении? был отмечен как ответ   
    ModernListView
    GridLayout(в названии мог ошибиться)
    Либо на скроллБокс кидаешь нужные тебе компоненты.
  3. Пост rareMax - сообщение в Проблемы с размерами компонентов. был отмечен как ответ   
    Помимо свойства Align используйте TLayout для группировки компонентов. Приложите простую демку - и возможно вам покажут как сделать пропорциональное изменение дизайна. 
    Еще обратите внимание на компонент TScaledLayout - он изменяет размеры всех дочерних контролов пропорционально изменению своих размеров
  4. Пост rareMax - сообщение в Производительность отрисовки текста на мобильных платформах был отмечен как ответ   
    Тык тык https://github.com/zhaoyipeng/FMXComponents/blob/master/ComponentsSource/FMX.Graphics.NativeCanvas.pas
  5. Пост rareMax - сообщение в Как узнать, что Android приложение свернуто? был отмечен как ответ   
    Прочитайте эту статью: http://delphifmandroid.blogspot.com/2016/09/delphi-android.html
  6. Пост rareMax - сообщение в Предупреждение MessageDlg был отмечен как ответ   
    Вот пример:
    procedure ShowMessage(const TheMessage:String); begin TDialogService.MessageDialog(TheMessage, TMsgDlgType.mtInformation, [TMsgDlgBtn.mbOk], TMsgDlgBtn.mbOk, 0, nil); end;  
  7. Пост rareMax - сообщение в Рабочий стол среды был отмечен как ответ   
  8. Пост rareMax - сообщение в Обязателен ли AddObject? был отмечен как ответ   
    AddObject  используйте если нужно добавить несколько объектов в другой объект. Например несколько  MyLabel_N  в  MyRect/
     
    И считайте что  FParent.AddObject(FChild)  и  FChild.Parent := FParent это просто синонимы
  9. Пост rareMax - сообщение в MD5 был отмечен как ответ   
    Для получения МД5 есть стандартный класс: http://docwiki.embarcadero.com/Libraries/XE8/en/System.Hash.THashMD5
    uses System.Hash; ////////// ... md5param:='&q='+reqest+'&auto_complete=1&lyrics=0&performer_only=0&sort=0&search_own=0'; with fGeneral.RESTRequest1.Params.AddItem do begin name:='sig'; Value:=THashMD5.GetHashString('/method/'+fGeneral.RESTRequest1.Resource+'?v=5.28&https=1'+md5param+'&count=100&offset=1&access_token='+fGeneral.OAuth2Authenticator1.AccessToken+fGeneral.OAuth2Authenticator1.ClientSecret); end;  
  10. Пост rareMax - сообщение в Слежка за утечкой памяти. был отмечен как ответ   
    ReportMemoryLeaksOnShutdown := true;  
  11. Пост rareMax - сообщение в Через NetHTTPClient передать фотографию на сервер был отмечен как ответ   
    В общем рабочее время подходит к концу - поэтому держи:
    Function SampleSendFile(Const Url, FileName: String): Boolean; var lHttp: THTTPClient; lSendData: TMultipartFormData; lResponse: IHTTPResponse; Begin lHttp := THTTPClient.Create; lSendData := TMultipartFormData.Create; try lSendData.AddFile('FileField', FileName); lResponse := lHttp.Post(Url, lSendData); Result := lResponse.StatusCode = 200; finally lSendData.Free; lHttp.Free; end; End;  
  12. Пост rareMax - сообщение в Как включать/выключать отображение пробок? был отмечен как ответ   
    Убрать трафик
    MapView.LayerOptions:=MapView.LayerOptions-[TMapLayerOptions.Traffic]; Включить трафик
    MapView.LayerOptions:=MapView.LayerOptions+[TMapLayerOptions.Traffic];
  13. Пост rareMax - сообщение в Диаграмма ганта был отмечен как ответ   
    Есть - но только после покупки TeeChart
  14. Пост rareMax - сообщение в Ошибка буилда XE10 был отмечен как ответ   
    Скачай и установи
  15. Пост rareMax - сообщение в Составление URL в HttpClient был отмечен как ответ   
    Ага, нашел, кажется
    class function THello.AdvancedShort(const URL, APIkey: String; const AppID: Int64; Domen, Folder: String; AdvertType: TAdvertType): String; var HTTP: THTTPClient; URI: TURI; begin HTTP := THTTPClient.Create; try //---cut URI.AddParameter('key', APIkey); URI.AddParameter('uid', AppID.ToString); URI.AddParameter('url', URL); Result := HTTP.Execute('GET', URI).ContentAsString.Trim; finally HTTP.Free; end; end;
  16. Пост rareMax - сообщение в NetHTTPClient и SSL был отмечен как ответ   
    Ну тут ошибка разрабов.
    Копируешь файл  System.Net.HttpClient в папку с проектом (правишь оригинал) Открываешь его на строке с твоей ошибкой(у меня это 1965 строка) Перед ней добавляешь строку: if Result.Value.Length>0 then То есть у тебя получится так(1964-1966 строка):
    Result.Value := Values[0].Substring(Pos + 1).Trim; if Result.Value.Length>0 then if (Result.Value.Chars[0] = '"') and (Result.Value[High(Result.Value)] = '"') then Удачи!
  17. Пост rareMax - сообщение в Использование TSuperRecord был отмечен как ответ   
    Я в восторге от этой библиотеки. Такое ощущение что автор продумал все
     
    Нашел как это сделать. Нужно всего лишь в нашем Record"е добавить атрибуты:
    TvtAntiVirusItems = Packed Record public [ALIAS('CAT-QuickHeal')] CAT_QuickHeal: TvtAntiVirusItem; End;
  18. Пост rareMax - сообщение в Построение UML диаграмм и диаграмм классов был отмечен как ответ   
    Под структурой своего проекта жми Model, затем В дереве с диаграмами выбераешь нужные проект, жмешь ПКМ и OpenDiagram
  19. Пост rareMax - сообщение в ListBoxGroupHeader.height перескакивает на 30 был отмечен как ответ   
    Думаю єто не баг, а фича: http://fire-monkey.ru/topic/38-android-ne-poluchaetsia-uvelichit-vysotu-tprogressbar/?hl=progress#entry101
  20. Пост rareMax - сообщение в Редактор ресурсов был отмечен как ответ   
    Можно простым пеинтом или фотошопом делать. Как? смотри тут
  21. Пост rareMax - сообщение в [TScrollBox] Возврат toolbar'a при лёгкой прокрутке вверх был отмечен как ответ   
    Source code e APK Link: Codice sorgente Delphi XE7
    Link: Demo APK (da installare sul vostro dispositivo Android)
  22. Пост rareMax - сообщение в Крякнутая версия XE8 был отмечен как ответ   
    ой успокойтесь вы. Простых смертных трогать никто не будет. В Solid Works, например, знают приблизительное кол-во пользователей, которые пользуются пиратской версией. На обычных пользователей они не обращают внимание. А вот если в компании будут пиратки - тогда уже делают какие-то телодвижения. Так же думаю и в абракадабре - если у меня, к примеру, пиратка - я сомневаюсь, что то будут принимать по отношению ко мне. Но если бы я работал в какой то компании - тогда думаю они бы могли и предъявить за нелицензионный софт. 
  23. Пост rareMax - сообщение в Где можно взять версию TWebBrowser для Windows и OSX? был отмечен как ответ   
    TWebBrowser.7z - iOS+Win+MacOS+Android
  24. Пост rareMax - сообщение в [JSON] Как выполнить парсинг массива в JSON? был отмечен как ответ   
    Со стандартной библиотекой JSON для Delphi только начал знакомится - возникла сложность как распарсить массив в структуре. 
     
    РЕШЕНИЕ ЕСТЬ ТУТ:  Как получить доступ к значениям элементов TJSON?
  25. Пост rareMax - сообщение в Почему у меня при старте приложения применяются все эффекты сразу, а не по триггеру? был отмечен как ответ   
    Ответ: Нужно было установить свойство для всех эффектов с заданными триггерами
    ​Enabled := False;
×
×
  • Создать...