Лидеры

возможно ещё кому и понадобится switch.zip

Случилось так, что потребовался мне ввод номера телефона. Компонента, аналога 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.

пример рабочего сервера, я конечно не смогу скинуть, но pawel glowacki отличную серию сделал в свое время http://www.embarcadero.com/rad-in-action/delphi-labs

чтобы получить статус GPS (для Android) включен или нет, нужно использовать следующий код function CheckGPSActive: boolean; // uses // Androidapi.JNIBridge, Androidapi.JNI.Location, Androidapi.JNI.JavaTypes, // Androidapi.JNI.GraphicsContentViewText, Androidapi.Helpers {$IFDEF ANDROID} var LocManagerObj: JObject; LocationManager: JLocationManager; allProviders: JList; I: Integer; begin Result := false; // запрашиваем сервис Location LocManagerObj := SharedActivityContext.getSystemService(TJContext.JavaClass.LOCATION_SERVICE); if Assigned(LocManagerObj) then begin // получаем LocationManager LocationManager := TJLocationManager.Wrap((LocManagerObj as ILocalObject).GetObjectID); if Assigned(LocationManager) then begin // запрашиваем список всех провайдеров allProviders := LocationManager.getProviders(true); // выводим список if Assigned(allProviders) then begin with TStringList.Create do begin for I := 0 to allProviders.size - 1 do Add(JStringToString(allProviders.get(I).toString)); if ((IndexOf('gps') >= 0) or (IndexOf('network') >= 0)) then Result := true; Free; end; end; end; end; {$ELSE} begin Result := false; {$ENDIF} end;

Возникла задача добавить в компонент TSwitch надпись для включенного и выключенного состояния (например ON и OFF). Изучив компонент в исходниках, обнаружил следующее: в создании стиля компонента присутствуют подстили mask, ontext и offtext, видимо, разработчики предусмотрели этот случай. В связи с этим вопрос - как минимальными усилиями оживить отображение и стилизацию текста? Если ответ будет с кодом, буду втройне благодарен.

Требования к наличию у ученика: Наличие хорошего и быстрого интернет канала Skype RAD Studio XE10 Team Viewer

Меня зовут Бровин Ярослав Дмитриевич. Я работаю разработчиком в компании Embarcadero в команде FireMonkey. Поэтому в совершенстве знаю язык Delphi и FireMonkey. Несколько фактов: Педагогический опыт: Лауреат конкурса "Сердце отдаю детям" в рамках конкурса "Учитель года". Имею первую категорию по должности педагога дополнительного образования. Стаж работы педагогом 6 лет. Награжден нагрудным знаком правительством Санкт-Петербурга "За гуманизацию школы Санкт-Петербурга" Образование: Закончил с отличием Ленинградский Электротехнический институт им У. Ленина по специальности Технологии Разработки Программного Обеспечения. Увлечения помимо работы: В свободное время занимаюсь авиамоделированием, игрой на музыкальном инструменте и созданием и администрированием Web-ресурсов