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

Поиск сообщества

Показаны результаты для тегов 'Delphi xe6'.

  • Поиск по тегам

    Введите теги через запятую.
  • Поиск по автору

Тип контента


Форумы

  • Общие вопросы
    • Анимация
    • Графика
    • Стили
    • Базы данных и REST
    • Компоненты
    • Положение, размеры, выравнивание
    • Работа с текстом
    • Приложение и формы
    • Отладка
    • Развертывание приложений
    • Вопросы по языку Object Pascal и RTL
    • Общая информация о TControl
    • События
    • Прочие вопросы
  • Вопросы по платформам
    • Android
    • iOS
    • OSX
    • Windows
    • Windows Phone
    • Linux
  • Вопросы по использованию RAD Studio
    • Лицензирование
    • Сборка проектов
    • Multi-Device Designer
    • Редактор кода
    • Вопросы
  • Обучение
    • Основная информация
    • Вопросы
    • Отзывы
  • Поиск специалистов по FireMonkey
    • Консультации
    • Ищу подрядчика
  • Дополнительные ресурсы по FireMonkey
    • Сторонние компоненты
    • Приложения, написанные с использованием FireMonkey
    • Примеры
    • Руководства
    • Шаблоны
    • Статьи и заметки
    • Информация о версиях RAD Studio
    • Новости
  • Организация работы данного форума

Поиск результатов в...

Поиск контента, содержащего...


Дата создания

  • Начало

    Конец


Дата обновления

  • Начало

    Конец


Фильтр по количеству...

Регистрация

  • Начало

    Конец


Группа


AIM


MSN


Сайт


ICQ


Yahoo


Jabber


Skype


StackOverflow


Защита от ботов


Город


Интересы

Найдено: 2 результата

  1. в delphi xe4 и xe5 это осуществлялось вот так: procedure TForm1.FormCreate(Sender: TObject); var Col, Row: Integer; CellCtrl: TStyledControl; begin StringGrid1.Cells[ 0, 0 ] := 'Cell00'; StringGrid1.Cells[ 1, 0 ] := 'Cell10'; StringGrid1.Cells[ 0, 1 ] := 'Cell01'; StringGrid1.Cells[ 1, 1 ] := 'Cell11'; for Col := 0 to StringGrid1.ColumnCount - 1 do begin for Row := 0 to StringGrid1.RowCount - 1 do begin CellCtrl := TColumnAccess( StringGrid1.Columns[ Col ] ).CellControlByRow( Row ); if ( CellCtrl <> nil ) and ( CellCtrl is TTextCell ) then begin TTextCell( CellCtrl ).StyledSettings := []; TTextCell( CellCtrl ).FontColor := claBlueViolet; TTextCell( CellCtrl ).Font.Family := 'Times New Roman'; TTextCell( CellCtrl ).Font.Style := [ TFontStyle.fsBold ]; TTextCell( CellCtrl ).Font.Size := 14; end; end; end; end; в Delphi xe6 этот код ошибок не выдает, но и не чего не делает (( Подскажите, что не так?
  2. Недавно старый AdMob от гугла заменили на новый. Со старым я не работал, а новый поднять не выходит, предполагаю, что дело может быть в том, что новый AdMob не предусмотрен в способе настройки старого, но вполне возможно, что дело не в этом. На месте где баннер должен быть в общем не вижу ничего, правда программу собирал в режиме дебага и название её сменил и путь установки (иначе не давало установить, писало что-то о сертификате, насколько я понял дело в том, что у меня по тому адресу, с тем названием стояла уже прога подписанная сертификатом, скаченная с гугл плей) , т.е. по сути это уже не та прога, что на гугл плее, но должно же хоть что-то на месте баннера было появиться наверно (?) К сути: 0) На странице apps.admob.com создал рекламный блок для своего уже активного приложения. Используя старый проект приложения, стал добавлять нужное, а именно: 1) Добавил TBannerAd 2) Настроил соединение с рекламой. Delphi: BannerAd1.AdUnitID := 'YourAdUnitID'; В файле AndroidManifest.template добавил сразу после </activity> на линии 32: <activity android:name="com.google.ads.AdActivity" android:configChanges="keyboard|keyboardHidden|orientation|screenLayout|uiMode|screenSize|smallestScreenSize"/> В Uses Permissions включил Access network state и Internet. 3) Выставил TestMode в TBannerAd на True. 4) В "Unit1.pas", в private секции добавил: ActionBeginDate: TDateTime; WastedSeconds: Integer; 5) В uses секции прописал "System.DateUtils". 6) Определил обработчики событий с реализациями, показанными в разделе Code ниже. Выбрал форму и определил обработчик событий для её OnShow события. Выбрал баннер и определил обработчики событий для его событий OnActionCanBegin и OnActionDidFinish. Источник 1 Источник 2 На примере: unit Unit1; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls, FMX.Advertising, System.DateUtils; type TForm1 = class(TForm) BannerAd1: TBannerAd; Label1: TLabel; procedure FormShow(Sender: TObject); procedure BannerAd1ActionCanBegin(Sender: TObject; var WillLeaveApplication: Boolean); procedure BannerAd1ActionDidFinish(Sender: TObject); private ActionBeginDate: TDateTime; WastedSeconds: Integer; end; var Form1: TForm1; implementation {$R *.fmx} procedure TForm1.BannerAd1ActionCanBegin(Sender: TObject; var WillLeaveApplication: Boolean); begin ActionBeginDate := Now; end; procedure TForm1.BannerAd1ActionDidFinish(Sender: TObject); var Seconds: Integer; begin Seconds := SecondsBetween(ActionBeginDate, Now); WastedSeconds := WastedSeconds + Seconds; Label1.Text := IntToStr(WastedSeconds) + ' seconds wasted watching ads so far.' end; procedure TForm1.FormShow(Sender: TObject); begin BannerAd1.LoadAd; end; end. У гуглов в их справке в манифест ещё просят внести мету: <meta-data android:name="com.google.android.gms.version" android:value="@integer/google_play_services_version"/> и объявление немного отличается от того, что в справке Rad XE6: <activity android:name="com.google.android.gms.ads.AdActivity" android:configChanges="keyboard|keyboardHidden|orientation|screenLayout|uiMode|screenSize|smallestScreenSize"/> но мету когда добавил ошибка вышла, а в объявлении разница состоит в "gms.", но нужен он или нет не знаю (?)
×
×
  • Создать...