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

estra

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

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

  • Посещение

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

    20

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

  1. Пост estra - сообщение в [TRESTClient] Как добавить данные в заголовок запроса (Authorization)? был отмечен как ответ   
    Оно?
    RESTClient1.Params.AddHeader()
  2. Пост estra - сообщение в Как узнать мой IP адрес? был отмечен как ответ   
    Подойдет?
  3. Пост estra - сообщение в Как создать собственный жест? был отмечен как ответ   
    Поддержка MultiTouch + Gestures в XE4, прочтите 6-ой раздел (а лучше всю статью целиком), должно помочь. 
  4. Пост estra - сообщение в [Android] Как указать название программы на русском языке? был отмечен как ответ   
    Progect Options (Ctrl + Shift + F11) -> Version Info -> label (вместо $(ModuleName) напишите название программы)
  5. Пост estra - сообщение в Генерация GUID на mac osX был отмечен как ответ   
    var g: TGUID; begin CreateGUID( g ); end; Этот способ подойдет и для VCL и для FM.
  6. Пост estra - сообщение в AnsiString Delphi XE7 [TEncoding] был отмечен как ответ   
    Частично поправил функцию GetConvertedText, условие if ss=SIGN then выполняется. Далее сами по аналогии...
    Test.zip
  7. Пост estra - сообщение в [OSX] Каким образом следует собирать проект и в каком виде рекомендуется предоставлять пользователям? был отмечен как ответ   
    Как поставлять?
    Отдавайте пакет *.app.
    dmg - это образ данных диска (аналогично iso, nrg и т.п.) для Mac OS X. Для чтения данных с этого образа его необходимо смонтировать на виртуальное устройство.

    Как создать инсталятор приложения для OSX?
    Спросить у Google?
    Вот пара ссылок с первой страницы результатов поиска: тынц и тынц.

  8. Пост estra - сообщение в Как вычислить размер виртуальной клавиатуры для корректного позиционирования TEdit? был отмечен как ответ   
    FGX, посмотрите компонент TfgVirtualKeyboard и пример к нему.
  9. Пост estra - сообщение в Обработчик достижения конца списка listview в Delphi XE7 был отмечен как ответ   
    Как вам такой вариант?
    procedure TForm1.ListView1Painting(Sender: TObject; Canvas: TCanvas; const ARect: TRectF); begin if ListView1.GetItemRect( ListView1.ItemCount-1 ).Bottom = ListView1.Height then       Label1.Text := 'YES! Через одно место, но работает!'    else       Label1.Text := 'Это еще не конец...'; end;
  10. Пост estra - сообщение в Почему отладчик показывает значение вещественной переменной типа Single, не 0.3, а 0.3000000001192029? был отмечен как ответ   
    так и должно быть.
     
    Обрезать? смотря для чего. Для представления в виде строки может и нужно будет. Вот код, поэкспериментируйте с 2 последними цифрами:
    var a: Double = 0.300000011920929; procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage( FloatToStrF( a, TFloatFormat.ffFixed, 4, 2 ) ); end; > В райнтайме отображается 0,3!
     
    Посмотрите какое значение указано в параметре DecimalDigits
  11. Пост estra - сообщение в Распараллеливание процессов был отмечен как ответ   
    Распараллеливание - это распределение вычислений между несколькими процессорами (или несколькими ядрами одного процессора). Есть подозрение, что вы неверно выбрали термин. Про распараллеливание можете почитать тут (Новый модуль System.Threading) или посмотреть тут. Вы же (исходя из сути вопроса) скорее всего имеете ввиду многопоточность. Если так, почитайте в интернете про класс TThread, статей и примеров великое множество.
  12. Пост estra - сообщение в Почему выскакивает access violation при прикреплении пользовательских данных к элементу TComboBox? был отмечен как ответ   
    Android.
     
    Вопрос можно закрывать, ответ тут - Using Primitive Types with TStrings in iOS. Во всем виноват ARC!!!
  13. Пост estra - сообщение в Цифровая клавиатура при нажатии кнопки. был отмечен как ответ   
    А как вы скрываете TEdit? Если Edit1.Visible = False, то в данном случае такой вариант не годится (для текстового поля с Visible = False клавиатура появляться не будет). В вашем случае надо делать так: Edit1.Visible = True, Edit1.Opacity = 0. Тогда для кнопки пишем такой код:
    procedure TForm1.Button1Click(Sender: TObject); begin Edit1.SetFocus; end; и получаем желаемый эффект.
  14. Пост estra - сообщение в [Android] [XE7] Как получить входящие/исходящие сообщения? был отмечен как ответ   
    Это подойдет - Получаем список SMS-сообщений?
  15. Пост estra - сообщение в [Android] [XE7] Как получить список контактов? был отмечен как ответ   
    Это подойдет - Работаем со списком контактов, #1, Работаем со списком контактов, #2?
  16. Пост estra - сообщение в [Android] [XE7] Как получить журнал вызовов? был отмечен как ответ   
    Это подойдет - Работаем со списком вызовов?
  17. Пост estra - сообщение в Запуск Анимацию по срабатыванию триггера другой анимации был отмечен как ответ   
    В триггере запускайте нужную вам анимацию
    FloatAnimation.Start;
  18. Пост estra - сообщение в Изменение размера шрифта в RunTime был отмечен как ответ   
    Добавьте строчку
    Status1.StyledSettings := Status1.StyledSettings - [TStyledSetting.Size];
  19. Пост estra - сообщение в [Android] XE7 Как получить состояние клавиатуры? был отмечен как ответ   
    uses FMX.VirtualKeyboard; var Keyboard: IFMXVirtualKeyboardService; begin if TPlatformServices.Current.SupportsPlatformService( IFMXVirtualKeyboardService, IInterface( Keyboard ) ) then if TVirtualKeyboardState.Visible in Keyboard.GetVirtualKeyBoardState then ShowMessage( 'клавиатура открыта' ) else ShowMessage( 'клавиатура скрыта' ); end;
  20. Пост estra - сообщение в [Windows] Как определить путь к исполняемому файлу приложения? был отмечен как ответ   
    Судя по разделу речь идет не о мобильных платформах. Тогда определить путь к исполняемому файлу приложения можно так:
    ParamStr( 0 );
    Если обратиться к справке, там написано:
    Returns a specified parameter from the command line.
    ParamStr returns the parameter from the command line that corresponds to Index, or an empty string if Index is greater than ParamCount. For example, an Index value of 2 returns the second command-line parameter.
    Note: ParamStr(0) returns the path and file name of the executing program (for example, C:\TEST\MYPROG.EXE).
    Другими словами - параметром для функции ParamStr является индекс параметра командной строки. Нулевой индекс всегда возвращает полный путь к файлу. Если вы запустили исполняемый файл с параметром (например: c:\app.exe param), то:
    ParamStr(0) = 'c:\app.exe'
    ParamStr(1) = 'param'
    Узнать количество параметров командной строки можно с помощью функции ParamCount.
  21. Пост estra - сообщение в Как определить цвет пикселя? был отмечен как ответ   
    В первую очередь нужно научиться пользоваться поиском.
     
    > Определить цвет нужного мне пикселя (X,Y)...
    http://blogs.embarcadero.com/yaroslavbrovin/2013/06/17/firemonkey-bitmap-scanline/ > и нарисовать хотя бы линию этого цвета на форме используя обычный: Canvas.DrawLine
    http://fire-monkey.ru/topic/3-kak-narisovat-tochku-na-kanve-v-firemonkey/#entry7 http://fire-monkey.ru/topic/13-pochemu-na-mobilnykh-platformakh-u-menia-ne-risuet/  
    На всякий случай пример:
    var C: TAlphaColor; procedure TForm1.FormCreate(Sender: TObject); begin c := TAlphaColorRec.Null; end; ///<Summary> /// Получение цвета пикселя ///</Summary> procedure TForm1.Button1Click(Sender: TObject); var bm: TBitmap; M: TBitmapData; begin bm := TBitmap.Create; bm.LoadFromFile( 'c:\TROP002_w100h100.PNG' ); // Получение цвета пикселя bm.Map( TMapAccess.Read, M ); C := M.GetPixel( 10, 10 ); bm.Unmap( M ); // Принудительная перерисовка Invalidate; bm.Free; end; ///<Summary> /// Отрисовка линии ///</Summary> procedure TForm1.FormPaint(Sender: TObject; Canvas: TCanvas; const ARect: TRectF); begin Canvas.Stroke.Color := C; Canvas.Stroke.Kind := TBrushKind.Solid; Canvas.DrawLine( PointF( 0, 0 ), PointF( 100, 100 ), 1 ); end;
  22. Пост estra - сообщение в Как в программе определить физические размеры экрана устройства? был отмечен как ответ   
    DPI для Android
      uses FMX.Helpers.Android, Androidapi.JNI.Util; procedure TForm1.Button1Click(Sender: TObject); var Disp: JDisplayMetrics; NativeClientHeight, NativeClientWidth: Single; begin Disp := GetJDisplayMetrics; NativeClientWidth := ClientWidth * Disp.density; NativeClientHeight := ClientHeight * Disp.density; //Label1.Text := 'Width: ' + FloatToStr(NativeClientWidth); //Label2.Text := 'Height: ' + FloatToStr(NativeClientHeight); Label1.Text := FloatToStr( Disp.xdpi ); Label2.Text := FloatToStr( Disp.ydpi ); Label3.Text := IntToStr( Disp.densityDpi ); end;   Для IOS облом, рассчитывай сам http://www.dpi.nu/, http://www.sven.de/dpi/, http://www.pxcalc.com/, http://www.pixelcalculator.com/ и т.п.
×
×
  • Создать...