Равиль Зарипов (ZuBy)

удали НАЗВАНИЕпроекта.dproj и открой .dpr заново только помни, что все задеплоенные файлы улетят и прочие радости

протестировал на Huawei MediaPad 10, все прекрасно двигается никаких зависании только я исправил Width -> ClientWidth и Height -> ClientHeight

чтобы получить статус 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;

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

XE8 без апдейта, полет нормальный switch.zip

что то я суть потерял, какой поиск? ты о чем?

такого точно нет

Nexus 5 (5.1.1), Samsung S4(4.х) все работает корректно

TComboBox это тот же TListBox, смотрите в эту сторону

По событиям OnStartShow, OnStartHide (или как-то так) Выполняешь эффект анимации, все анимации доступны в FMX, осталось найти нужную

во первых колонки есть! смотреть внимаельно в опциях TListBox Columns = 1, поменяй на 2 для Add есть еще один способ, просто указать парент LItem:=TListBoxItem.Create(nil); LItem.Parent := ListBox1; ... для Delete if Assigned(ListBox1.Selected) then ListBox1.Items.Delete(listbox1.Selected.index); зачем нужно делать переименование?? а перемещение где-то было в стандартных демо если не ошибаюсь

эээ, у меня она и на XE8 работает...

я так понимаю это будет встроенно в настольную версию клиента для форума, т.к. бесплатных аналогов нет. плюс расширение библиотеки FGX, отлично просто. ждём, надеюсь андроид не обидете?

ну логические операции для пользователя, например заказ товара на TTabControl 1. Товар -> 2. Детали -> 3. Оплата -> 4. Подтверждение это все через SetActiveTabWithTransition(Таб, TTabTransition.Slide, TTabTransitionDirection.Normal); остальные опции, типа регистрации можно сделать на отдельной форме

Возможно вместо Control надо указать MultiView

а зачем эти галкт убирать?

это для iOS только получается?

Ios из коробки может работать с защищенными соединениями? Или либы нужно деплоить? И виснуть будет в любом случае, нужно использовать поток

Для анимации переходов точно TTabControl, но не лепить все на одной форме

SMTP.Host:= 'smtp.yandex.ru' ; // хост SMTP.Port:= 465 ; // порт Smtp.Username:='TestUser'; Smtp.Password:='pass123'; SMTP.UseTLS :=utUseImplicitTLS ; IdSSLIOHandlerSocketOpenSSL1 := TIdSSLIOHandlerSocketOpenSSL.Create(nil); IdSSLIOHandlerSocketOpenSSL1.Destination := SMTP.Host+':'+IntToStr(SMTP.Port); IdSSLIOHandlerSocketOpenSSL1.Host := SMTP.Host; IdSSLIOHandlerSocketOpenSSL1.Port := SMTP.Port; IdSSLIOHandlerSocketOpenSSL1.DefaultPort := 0; IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := sslvTLSv1; // Уверен что именно этот метод используется?? IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Mode := sslmUnassigned; SMTP.IOHandler := IdSSLIOHandlerSocketOpenSSL1; MailMessage.Body.Clear; MailMessage.Body.Add('Первая строка'); MailMessage.Body.Add('Вторая строка'); SMTP.Connect; mailMessage.CharSet := 'UTF-8'; mailMessage.CharSet:='UTF-8'; MailMessage.ContentType:='multipart/mixed; charset=UTF-8'; MailMessage.ContentType:='text/plain; charset=KOI8-R'; MailMessage.Subject:=UTF8Encode('Reserve') ; // тема MailMessage.From.Address:='testadres@yandex.ru' ; MailMessage.From.Domain:= 'yandex.ru'; // домен MailMessage.From.User:= 'TestUser'; MailMessage.From.Name:=UTF8Encode('TestUserName'); MailMessage.Recipients.EMailAddresses:='TestUser0@list.ru'; // получатель и копия //2192100@list.ru MailMessage.IsEncoded:=true; SMTP.Send(MailMessage); SMTP.Disconnect; ================================== А теперь еще раз на код посмотри и сделай все правильно

Вы сначала присваиваете, а потом создаете. Ничего не перепутали?

код покажите

SMTP.IOHandler := IdSSLIOHandlerSocketOpenSSL1; SMTP.UseTLS :=utUseImplicitTLS ; IdSSLIOHandlerSocketOpenSSL1 := TIdSSLIOHandlerSocketOpenSSL.Create(nil);

использовать TMultiView с режимом Custom + FMX.MultiView.CustomPresentation.pas смотреть демо пример кинуть на этот MultiView edit и кнопку, готово

StringReplace, не?