Vitaldj

Добрый день,
 
Забыли про StyledSettings. 
 
Итого весь код по поиску SearchBox и изменении цвета текста:
function FindSearchBox(const ARootControl: TControl): TSearchBox; var Child: TControl; begin Result := nil; for Child in ARootControl.Controls do if Child is TSearchBox then Exit(TSearchBox(Child)); end; procedure TForm15.Button1Click(Sender: TObject); var SearchBox: TSearchBox; begin SearchBox := FindSearchBox(ListView1); if SearchBox <> nil then begin SearchBox.TextSettings.FontColor := TAlphaColorRec.Red; SearchBox.StyledSettings := SearchBox.StyledSettings - [TStyledSetting.FontColor]; end; end;

Реализовывал через TIdSMTP, как и написал предыдущий оратор. Но встретился с рядом проблем, хочу поделиться с вами частичными решениями. Дело в том, что года 2-3 назад, многие почтовые сервисы перешли на авторизацию через ssl и тд и тп. На это я и напоролся. Решил проблему пока только с почтой яндекса, с маил.ру не решил и бросил. Но все по порядку. Используемые компоненты:
    IdAntiFreeze1: TIdAntiFreeze;    MailMessage: TIdMessage;     IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL;     IdServerIOHandlerSSLOpenSSL1: TIdServerIOHandlerSSLOpenSSL;     SMTP: TIdSMTP;   Далее, в вашем обработчике пишите код:   SMTP.Host:= 'smtp.yandex.ru' ; // хост  SMTP.Port:= 465 ; // порт  Smtp.Username:= ''; //edit3.Text; // почтовый адрес  Smtp.Password:= '';// edit4.Text; // пароль Для авторизации, обязательно!    SMTP.UseTLS :=utUseImplicitTLS ;     SMTP.Port:= 465 ; 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.CharSet := 'KOI8-R';   MailMessage.From.Name:= ''; // имя  MailMessage.Subject:= 'Проверка электронного ящика пользователя.' ; // тема  MailMessage.From.Address:= 'адрес с которого посылаете' ;  MailMessage.From.Domain:= 'yandex.ru'; // домен  MailMessage.From.User := 'PharmSuitePro'; MailMessage.From.Name := 'PharmSuitePro'; MailMessage.Recipients.EMailAddresses:= ''; // получатель и копия  MailMessage.Body.Text: // тело письма MailMessage.IsEncoded:=true;  MailMessage.ContentType:='text/plain; charset=KOI8-R'; Коннект и посыл, можно в try      SMTP.Connect;   SMTP.Send(MailMessage); Это потом:
SMTP.Disconnect(); Попробовал на компе, все получилось, но когда стал пробовать на реальном сервере, пришла ошибка, пришлось обновлять open SSL, и все заработало!

Да тут чайник не чайник, любой может потрахаться с этой ... Эта ошибка означает что имя проекта у вас не совпадает с идентификатором который вы указали в дев центре. Начиная с  IOS 8.1.3 это важно. К примеру вы выбираете провижн профиль в котором прописан ID приложения "wow.test", а проект у вас называется "project1", должны совпадать. Ну или ID должен быть wildcard. Советую открыть сгенерированный ".entitlements" и проверить что там идентификаторы совпадают с сертом.

Wamaco, решение пока одно - отказаться от xcode 6.2
 
Все что мы описывали с невидимостью SDK iOS 7.1 относится именно к этой версии.
 
1) удаляем  xcode 6.2;
2) устанавливаем xcode 6.1.1;
3) скачиваем на мак SDK iOS 7.1;
4) теперь RAD для симулятора увидит две версии SDK, но!... можно в RAD установить только одни SDK 8.1
Где-то в документации попадалось, что xcode 6 сам выбирает нужную версию SDK, а так как он пока в симуляторе 8.1 с PAServer-ом не дружит, всегда переключает на симуляцию iOS 7.1 (выше про такой эффект писали);
 
В итоге в симуляторе всегда IOS 7.1, а в iOS Devices нормально собираются приложения под iOS 8;
 
... и ждем обновлений....

На сколько я вижу, то хедер оформляется как TListViewItem, у которого свойство Purpose равно Header. Я вижу такой алгоритм получения хедера:
uses System.Math; {$R *.fmx} function ExtractGroupHeaderItem(Items: TListViewItems; Selected: TListViewItem): TListViewItem; var PreviousItem: TListItem; Index: Integer; begin Assert(Items <> nil); Assert(Selected <> nil); Index := Selected.Index; while InRange(Index, 0, Items.Count - 1) and (Items[Index].Purpose <> TListItemPurpose.Header) do Index := Index - 1; if InRange(Index, 0, Items.Count - 1) then Result := Items[Index] else Result := nil; end; Соответственно, чтобы получить хедер, если он есть для выделенного итема, нужно вызывать функцию так:
ExtractGroupHeaderItem(ListView1.Items, ListView1.Selected);

Тут будет инструкция: [iOS] Как установить предыдущую версии SDK и симуляторов?

Простите, а причем тут ос Х? Вы же про мобильные платформы говорили!? Вы не ответили на два моих предыдущих вопроса.

Добрый день,
 
Есть четыре типа настроек текста:
DefaultTextSettings. Это настройки текста по умолчанию. TextSettings - Это настройки текста, которые задает пользователь. StyledSettings - какие настройки текста брать из стиля, а какие из TextSettings. ResultTextSettings - это результирующие настройки текста с учетом значения StyledSettings. Поэтому, если вы хотите получить итоговые настройки, то используйте ResultTextSettings. Они вычисляются автоматически на основании DefaultTextSettings, TextSettings и StyledSettings.
 
P.S. Название шрифта по умолчанию присваивается в DefaultTextSettings.

Простите, но очень сумбурное описание, как уравнение с несколькими неизвестными))). Хотело бы сначала узнать платформу и что значит фраза: "На "сервере" создаю точку доступа и клиенты подключаются сначала по wi-fi, затем к приложению".

Коллеги, знаю, что TWebBrowser в FMX работает только для мобильных платформ. Что делать в Windows и OsX? Чем заменить, очень нужно. Пытаюсь писать кроссплатформенное (не мобильное) - тупик((.

Коллеги, знаю, что TWebBrowser в FMX работает только для мобильных платформ. Что делать в Windows и OsX? Чем заменить, очень нужно. Пытаюсь писать кроссплатформенное (не мобильное) - тупик((.

Разобрался, в бесплатной версии, которая прилагается к Delphi, просто эти функции отсутствуют. А в платной - есть. Жаль((