Лидеры

Название: Собери картинку (Кошки и котята) Жанр: Пазлы Платформа: Android Тип устройства: смартфон, планшет Разрешение экрана: любое Описание: Новая увлекательная игра "Пазл собери картинки с кошками" Все картинки отличного качества, музыка и анимация. Этот увлекательный пазл обязательно понравится Вам и Вашим детям. В игре собрано 65 красочных картинок с кошками и котятами. Кроме того, абсолютно бесплатно! Уровни сложности. В игре есть 6 уровней сложности. Уровень усложняется по мере прохождения игры: 1 и 2 уровень пазл 2 на 2 картинки. с 3 по 10 уровень пазл 3 на 3 картинки. с 11 по 30 уровень пазл 4 на 4 картинки. с 31 по 40 уровень пазл 5 на 5 картинки. с 41 по 50 уровень пазл 6 на 6 картинки. с 51 по 65 уровень пазл 7 на 7 картинки. На каждом уровне есть 2 подсказки - можно в течении 5 секунд посмотреть собранную картинку Пазл с кошками способствуют развитию мелкой моторики и внимания, а также улучшает визуальные навыки, развивает память, логическое и абстрактное мышление. В конце каждого прохождения уровня вас ждёт сюрприз! Если подсказки закончились или вы не можете пройти уровень. Не беда! Нажмите на рекламу и вуаля! Откроется новый уровень и добавится дополнительная подсказка. Ссылка на Google Play: Ссылка Изображения:

Кто-нибудь знал, чтобы сервис автоматически запускался по событию BOOT_COMPLETED, нужно, чтобы сервис был Remote Service? В этом случае AndroidManifest.xml будет содержать строку <service android:exported="true" android:name="com.embarcadero.services.BootService" />, а это в свою очередь хорошо отразится на успешном запуске вашего сервиса после перезагрузки устройства. Это была хорошая новость. Плохая заключается в том, что если сервис уже написан, и вам надо включить его в автозагрузку, придется переписать сервис заново (перенести все написанное из обычного в Remote Service). Пора делать отдельный топик. Всем благ!

Вот исходники под XE8 - хотя, там позориться больше - замысел был, как часто бывает, хороший, но поскольку этот проект не оплачивается, пришлось отложить пока... fmx_decoder.zip

Я сделал недавно свой вспомогательный редактор -- именно для копирования из одного набора в другой и ряда дополнит. вещей...

если честно, это плохая реализация (( реакция идет после окончания движения для общепринятой схемы нужно обрабатывать MouseDown, MouseMove. если картинок немного, размещаем программно Images на PresentedScrollBox и прокручиваем от души, только Image.HitTest = false

у меня капает только если пользователи нажмут на рекламу. а нажимают ой как не охотно.

так я же говорю, там в Custom режиме просто создаются ListItemText c именем T,D,B и т.д. в Dynamic смотрите на названия элементов, вы их сами создаете и они видны в окне Structure тем не менее, для Header и Footer создается элемент с именем Text и все работает так же как и раньше procedure TForm1.b1Click(Sender: TObject); begin lv1.Items[trunc(SpinBox1.Value)].Text := lv1.Items[trunc(SpinBox1.Value)].Text + '1'; end;

procedure TForm1.b1Click(Sender: TObject); begin lbl1.Text:=lv1.Items[trunc(SpinBox1.Value)].Text; end; function TForm1.CreateItem(purpose: TListItemPurpose; const s:string): TListViewItem; begin Result := lv1.Items.Add; result.Purpose := purpose; result.text := s; end; procedure TForm1.FormCreate(Sender: TObject); begin CreateItem(TListItemPurpose.Header, 'Header 1'); CreateItem(TListItemPurpose.None, 'Item 1'); CreateItem(TListItemPurpose.None, 'Item 2'); CreateItem(TListItemPurpose.None, 'Item 3'); CreateItem(TListItemPurpose.Footer, 'Footer 1'); CreateItem(TListItemPurpose.Header, 'Header 2'); CreateItem(TListItemPurpose.None, 'Item 4'); CreateItem(TListItemPurpose.None, 'Item 5'); CreateItem(TListItemPurpose.Footer, 'Footer 3'); SpinBox1.Max := lv1.ItemCount-1; end;

Даже ветку на форуме

футер и хедер это обычные итемы. на них лежат ListItemText, у тех есть Text можно посмотреть код FindDrawable и найти способ как получить ссылку на них но думаю, это обычный Item.TextObject

function GetTextHeight(text: string; width: single; wordwrap: boolean; font: tfont; HAlign, VAlign: TTextAlign; Trimming: TTextTrimming): single; begin if FTextLyout = nil then FTextLyout := TTextLayoutManager.DefaultTextLayout.Create; FTextLyout.BeginUpdate; try // Инициализируем текстовый слой для корректного вычисления // размеров отображаемого текста FTextLyout.Text := text; FTextLyout.MaxSize := TPointF.Create(Width, 10000); FTextLyout.WordWrap := WordWrap; FTextLyout.Font := Font; FTextLyout.Trimming:= Trimming; FTextLyout.HorizontalAlign := HAlign; FTextLyout.VerticalAlign := VAlign; finally FTextLyout.EndUpdate; end; Result:=FTextLyout.Height; end; procedure TMainForm.GroupLVUpdateObjects(const Sender: TObject; const AItem: TListViewItem); var lvi: TListViewItem; t: Single; begin lvi:= TListView(Sender).Items[AItem.Index]; t:= GetTextHeight(lvi.Text, lvi.Objects.TextObject.Width, lvi.Objects.TextObject.WordWrap, lvi.Objects.TextObject.Font, TTExtAlign(lvi.Objects.TextObject.Align), TTExtAlign(lvi.Objects.TextObject.VertAlign) ); lvi.Height:= Round(t) + 30; end; у меня работает.

Нашел-таки глюк/баг (не знаю как назвать правильно) - все работает корректно в Windows. А вот что касается Android, то размер шрифта необходимо указывать вручную обязательно (даже если используете в ListViewItem неизменный размер шрифта), иначе время от времени наблюдаются артефакты в виде наложения текста, или уползания его на следующий Item. Drawable := TListItemText(AItem.View.FindDrawable('txtMain')); Text := Drawable.Text; Drawable.Font.Size := ListView1.ItemAppearanceObjects.ItemObjects.Text.Font.Size; - эта строчка решила проблему.

Вот посмотрите, просто и красиво TSimpleDNSServer http://www.delphipraxis.net/87433-dns-server-mit-indys-tiddnsserver-%3D-verwirrung.html

В новой версии студии RAD Studio Berline, дизайнер стилей TStyleBook теперь показывает эти два свойства для каждого стилевого компонента. Таким образом открыв стиль в TStyleBook, вы можете сбросить значения этих свойств для снятия ограничений. Или же поменять их на свои. Без ручных правок текстового вида стиля.

Появилась с версии XE7.

Бесплатные все врут. А платные правду говорят. Чтобы судьбу узнать, нужно ручку программиста позолотить. =) А серьезно, интересно опыт монетизации таких приложений узнать. Хотя при 5000 скачиваний за полгода трудно наверное что-то внятное понять.

А много купило приложение? А сколько всего скачало и из них платно/бесплатно ?

" сегодня вчера завтра на неделю" ? Шрифт Monotype Corsiva

Кидаем на форму GestureManager и Image.Image свойство Touch выбираем GestureManager. далее Gestures-Standart ставим галки на стандартных движениях Пишем для события TForm1.Image1Gesture. Запускаем программу и проводим вправо/влево по Image. Если принцип понятен, то реализуем загрузку картинки и радуемся:)

Несколько часов не мог понять, при чем тут Java2OP и Classes.dex, пока не прокачал обе темы и не нашел статью «Using a Custom Set of Java Libraries In Your RAD Studio Android Apps». За то теперь мой класс BootReceiver (extends BroadcastReceiver) добавляется через Project Manager, и проект компилируется и запускается. Правда при загрузке системы ресивер не отрабатывает — днем разберемся. 1. Написал JAVA класс. 2. Скомпилировал в JAR. 3. Сделал обертку при помощи Java2OP. 4. Подключил JAR в Project Manager. 5. Добавил к проекту обертку. 6. Подшаманил AndroidManifest.template.xml (если это нужно в задаче). 7. Пожалуйста → компилируй, собирай. Это реальный прогресс, по сравнению с ручным формированием DEX (ни Clean не сделать, ни Build Conf поменять). Только не знаю, с какой версии появилась такая возможность.

Ярослав! Все работает как надо, но при некоторых размерах шрифта (я подозреваю те размеры, про которые мы писали выше) все-таки вычисления некорректны - это касается платформы Windows. На конкретном устройстве - все работает корректно с любым размером шрифтов!

Только что поставил. Вот инструкция от производителя: Using the Feature Installer - If you installed Delphi, C++Builder or RAD Studio 10.1 Berlin using the feature installer, please follow these steps to install your Add-On Pack: 1. Register the license in the license manager 2. Launch the Feature Manager (docwiki.embarcadero.com/RADStudio/Berlin/en/Feature_Manager) to add the new features to the product

И [brunnengi] и [ZuBy] оба правы. В первом случае у TLayout нужно выключить свойсвто HitTest, чтобы сам TLayout не "перекрывал" клики мышь (или тапы) (TLayout позволит "выравнивать" несколько "кнопок" относительно друг друга проще) Во втором случае - все проще (любой лишний компонент на форме, не важно - в составе чего он, - это дополнительная память, а главное - расходы на отрисовку. Порой нам кажется, что вроде на форме и "нет ничего", а если копнуть поглубже - там окажется море того, чего мы не видим, а отрисовывать то их прийдется!). Простой TImage, на мой взгляд, лучше. Но, как мне кажется, в данном случае вовсе не обязательно обрабатывать выравнивание в событии OnResize. Достаточно в DesignTime разместить TImage (все) где нужно и установить его (их) свойство Anchors = [akRight, akBottom] (для Вашего случая)

Как это не зависит? ScrollBar1.ViewportSize := 50; ScrollBar1.Max := 200; В итоге ползунок по ширине равен 1/4 ширины скроллбара.

чего вдруг... копать модуль FMX.PhoneDialer, для сведений об операторе TCarrier, вызывать через GetCarrier, звонить - Call( const APhoneNumber: string; ) : Boolean; получить входящие GetCurrentCalls: TCalls; Александр, человек выше писал, что ему нужны исходники, т.е. работающий вариант, типа ланчера яндекса, который неделю назад вышел.... а вы немного не в тему...вы что хотите, чтобы люди здесь сами программы писали??! туплю

чего вдруг... копать модуль FMX.PhoneDialer, для сведений об операторе TCarrier, вызывать через GetCarrier, звонить - Call( const APhoneNumber: string; ) : Boolean; получить входящие GetCurrentCalls: TCalls; Александр, человек выше писал, что ему нужны исходники, т.е. работающий вариант, типа ланчера яндекса, который неделю назад вышел.... а вы немного не в тему...вы что хотите, чтобы люди здесь сами программы писали??!

Поясню немного: 1. Заходим в редактор стиля SpeedButton. 2. Сохраняем стиль. 3. В текстовом редакторе удаляем строку FixedHeight = ... и сохраняемся. 4. В редакторе стилей загружаем стиль обратно. 5. Готово) Upd: чуть самое главное не забыл) Чтобы это все заработало в ФМ, надо подшлифовать напильником: procedure TForm1.SpeedButton1ApplyStyleLookup(Sender: TObject); begin {$IFDEF ANDROID} SpeedButton1.RecalcSize; {$ENDIF} end;