Лидеры

Заменил одну кривую графика на функцию синуса: Код: вместо линейной функции точек: Lx:=-20; Ly:=0; for i :=0 to 300 do begin Larea.Curves.Last.Points.Add(TcvPoint.Create(i,Lx,Ly)); Lx:=Lx+2; Ly:=120+50*Sin(Lx*0.04); end; Видно, что для этой данной кривой выводятся не все значения точек, а только указанные...

Случилось так, что потребовался мне ввод номера телефона. Компонента, аналога TMaskEdit в FMX нет, так что пришлось "изобретать на коленке". Компонент писать было лень, потому просто покажу как я решил это в конкретном диалоге с использованием TEdit. Может кому то пригодится. Из кода я убрал все лишнее, оставил только то что относится к делу. uses .... System.MaskUtils, System.Character; type TFormRegistry = class(TForm) edtPhone: TEdit; procedure edtPhoneValidating(Sender: TObject; var Text: string); procedure edtPhoneKeyDown(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState); procedure FormCreate(Sender: TObject); procedure edtPhoneEnter(Sender: TObject); procedure edtPhoneTyping(Sender: TObject); private const Mask = '+7(000)000-00-00;0;*'; /// '+0(000)000-00-00;0;*' - для других стран, например для Украины +3(999).... private PhoneNumber: string; function GetCaretPos: Integer; function GetMaxLength: integer; public end; procedure TFormRegistry.FormCreate(Sender: TObject); begin edtPhone.Text := FormatMaskText(Mask, PhoneNumber); end; function TFormRegistry.GetCaretPos: Integer; var i: integer; begin Result := 0; for i := 0 to Mask.Length-1 do begin if not (MaskGetCharType(Mask, i) in [mcDirective, mcMask]) then Result := Result + 1; if (Result + PhoneNumber.Length) = i then Break; end; Result := Result + PhoneNumber.Length - 1; end; function TFormRegistry.GetMaxLength: integer; var i: integer; begin Result := 0; for i := 0 to Mask.Length-1 do if (MaskGetCharType(Mask, i) in [mcMask]) then Result := Result + 1; end; procedure TFormRegistry.edtPhoneKeyDown(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState); begin if (Key = 8) and (PhoneNumber.Length > 0) then PhoneNumber := Copy(PhoneNumber, 1, PhoneNumber.Length-1) else if (PhoneNumber.Length < GetMaxLength) and (Key = 0) and IsDigit(KeyChar) then PhoneNumber := PhoneNumber + KeyChar else KeyChar := #0; end; procedure TFormRegistry.edtPhoneEnter(Sender: TObject); begin edtPhone.CaretPosition := GetCaretPos; end; procedure TFormRegistry.edtPhoneTyping(Sender: TObject); begin edtPhone.CaretPosition := GetCaretPos; end; procedure TFormRegistry.edtPhoneValidating(Sender: TObject; var Text: string); begin Text := FormatMaskText(Mask, PhoneNumber); end; end.

System.UIConsts.RGBtoHSL(RGB: TAlphaColor; out H, S, L: Single). Параметр H и есть hue.

Реанимирую тему. Вылезла такая же ситуация, при очень странных обстоятельствах. Накануне вечером компилил проект - всё проигрывалось. Комп не выключался на ночь, IDE не закрывал, утром запускаю - ошибка. Что ещё страннее - скомпилированный и работавший вчера ехешник, лежащий в другой папке с другой копией mp3шного файла, тоже ругается.

да блин нет никаких логин и пароль для THttpClient есть форма логина. она должна принять от пользователя данные и послать их серверу. Способ передачи и вызываемый URL зависит от конкретного программиста В ответ сервер присылает обычно токен или куку или еще что-то в этом духе. и далее при каждом запросе нужно передавать серверу эти присланные данные и возможно что-то еще. Чаще всего в заголовке запроса. Но иногда и в URL. А иногда и там и там нужно что-то передавать, чтобы сервер идентифицировал, от кого ему прилетел запрос. и вот этот-то механизм и есть то, что нужно гуглить. если тут есть спецы по WP, они могут знать подробности...

Написал в XE10.1 простой модуль для вывода кривых на TImage в виде графика - есть возможность вывода столбцов для диаграмм, меток с надписями и прочей мелочи. В виде компонента не оформлял... Смысл: вводим массив точек - график сам подбирает область вывода чтобы влезли надписи и выводит с указанными параметрами и стилем кривые (имею в виду зависимости Y от X). Есть комментарии в коде - есть пример для тестов - см. проект https://github.com/willi-spb/arTrassing желательно тестирование, возможно я что-то упустил - сам модуль: https://github.com/willi-spb/arTrassing/blob/master/FMX.arCurveClasses.pas

Конечно можно. А что такое "авторизоваться" ?

На официальном сайте написано: нет, на все популярные платформы