bigjorj

Привет Всем!
 
vkbdhelper.pas
 
Давно пользовался vkbdhelper'ом, но он был только для андроида.
руки добрались и до этого, теперь его можно использовать и на IOS
 
изменения
* почистил uses секцию
* убрал зависимость от платформ (кросс-платформенный)
* добавил глобальную переменную VKOffset
 
VKOffset - расстояние между контролом и клавиатурой
                 для тех случаев когда включены подсказки/автозамена
                 и контрол оказывается под доп. панелькой
 
Не все клавиатуры включают доп. панели в свой размер!
Например для IOS нужно всегда прибавлять 30-32 пикселя, панель с кнопкой Done перекрывает контрол
{$IFDEF IOS} VKOffset := 31; {$ELSE} VKOffset := 0; // на свой вкус // не знаю как определить размер доп. панельки // когда она не входит в размер клавиатуры // и определить есть ли панелька вообще... {$ENDIF} vkbdhelper.zip

Это будет ужасно тормозить, вот прям ужасно. Тестировали правда на другом компоненте, но также загрузка картинок из Кеша во время отрисовки...

Ярослав, прошу не закрывать форум ни при каком предлоге...веселого и так мало светит в 2016-ом...
 
p.s.: "Мы в ответе за тех, кого приручили."(с)

http://docwiki.embarcadero.com/Libraries/Seattle/en/FMX.MultiView.Types.TDrawerAppearance.Mode  
 
 
Смотри в сторону PushingDetailView

Больше не слух...
 
http://community.embarcadero.com/article/news/16209-appmethod-merges-with-rad-studio-product-line

Если кому-нибудь понадобится Listbox такой-же как и в списке сообщений в андроиде. 
 
                           
 
ListboxInteractions.zip

http://apps4all.ru/post/12-10-15-atanas-popov-embarcadero-prostota-udobstvo-ispolzovaniya-i-obsluzhivaniya-po-vyjdut-na-novyj-uroven

Александр, человек выше писал, что ему нужны исходники, т.е. работающий вариант,
типа ланчера яндекса, который неделю назад вышел....
а вы немного не в тему...вы что хотите, чтобы люди здесь сами программы писали??!

Да. Только Upd1. Он исправляет утечку памяти при которой после некоторого времени работы со студией она начинает безбожно тормозить.

обновите вот эту процедурку
procedure TUITabControl.PaintChildren; var Tab: TTabItem; begin inherited; if FSlide then for Tab in TransitionTabs do begin TMyTabItem(Tab).PaintInternal; TMyTabItem(Tab).PaintChildren; // fix end; end;

Слышу подобное долгие годы в темах про Дельфи. Дельфи умер, Rest In Peace и подобное, но всегда остаются те кто на нем пишут.
Что можно сказать на текущий момент:
а.) Firemonkey дал новый толчок к развитию студии, так как за мобильными устройствами будущее! Дельфи сильно преобразилась.
б.) продажа новому хозяину может стать плюсом (денег у них видать много, раз за такую сумму купили), а может наоборот (если не имеют стратегии по развитию продукта).
 
Что лично для меня, то мне не хватает поддержки при написании кода (справка не всегда помогает). Хорошо когда ты работаешь в команде разработчиков, коллективный разум помогает, а если ты один, то и остаешься с проблемами один на один. Есть куча Delphi форумов где можно поискать помощи, но из-за их огромного количества Delphi сообщество расслоилось/размазалось по интернету и людей там все меньше. Наибольшую поддержку по fmx можно получить на этом форуме (но далеко не на все вопросы), и опять таки если посмотреть, то активного народу здесь по пальцам можно посчитать. Надеюсь что Дельфи продолжит развиваться
 
Что касается темы - действительно, вакансия "Программист Delphi" очень редкая, зато много требуется "Программист 1C"... вот где деньги водятся 

http://edn.embarcadero.com/article/44619
 

http://edn.embarcadero.com/article/44619
 

Прочитал тему и небольшой холивар.
 
Проблема не в том, что не требуются те или иные специалисты. Рынок у нас в России пока не дошёл уж простите, до той стадии, когда даже средние компании задумывались о каких-либо мало-мальски разработках. Да объявления появляются, требуются кодеры на ObjC и Java, но как правило крупные компании, в которых уже идёт поддержка старых продуктов.
 
Delphi на эту сцену вышел совсем недавно и многие пока даже не подозревают, что его можно юзать для создания мобильных приложений. Отсюда низкая популярность.
 
C# доступен всем, но опять же, спрос в этой области крайне низкий, уровень "вхождения" в язык - низкий. Язык простой. Поэтому "специалистов" куча, а оплата такой работы крайне низкая. Да и вообще в последние 1,5-2 года наблюдается сильный спад уровня ЗП в области IT в России. Сам постоянно просматриваю объявления, т.к. работаю на себя и занимаюсь фрилансом. Уровень ЗП 1С-ников, которые сейчас ближе не к программистам, а к дизайнерам форм (да простят они меня), сильно снизился. при этом сказать, что выросло качество работ, тоже сложно. Хороших продуктов сейчас выходит не так много. Так что, получается вот так и живём.
 
А вообще, каждый язык хорош для решения определённых задач. Если вам нужная оболочка для консольных приложений или простенькие задачи, с максимально быстрой реализацией, то велкам на С#. Если что-то посложнее, с БД, то удобнее Delphi и С++. Ну и т.д.
 
Лично я на фрилансе использую для клиентов C# и Delphi. C# для десктопных приложений с небольшими задачами. Delphi, для решения на мобильных платформах. Ибо одному осиливать 2 доп. языка и потом вести оба проекта, крайне проблематично. Да и зачем усложнять себе задачу, если можно использовать знакомые средства.

Это Казахстан детка!!

Я так скажу, пока ничего не ясно, что да как. И даже в этой статье кроме упоминания о продажах ничего нет конкретного. Я имею в виду про развитие продуктов.

Вот кстати и подоспело решение проблемы со статусбаром под Intel аппаратами
 
https://magnumlabs.wordpress.com/2015/10/10/delphiandroid-misalignment-status-bar-on-intel-based-devices/

Давний глюк.
 
Если в uses есть директивы компилятора {IFDEF} или другие, то при добавлении новых модулей к проекту происходят чудеса. То задублируется раздел uses, то просто вырежется блок заключенный в диретивы.

Вот кстати и подоспело решение проблемы со статусбаром под Intel аппаратами
 
https://magnumlabs.wordpress.com/2015/10/10/delphiandroid-misalignment-status-bar-on-intel-based-devices/

Вот кстати и подоспело решение проблемы со статусбаром под Intel аппаратами
 
https://magnumlabs.wordpress.com/2015/10/10/delphiandroid-misalignment-status-bar-on-intel-based-devices/

Вот кстати и подоспело решение проблемы со статусбаром под Intel аппаратами
 
https://magnumlabs.wordpress.com/2015/10/10/delphiandroid-misalignment-status-bar-on-intel-based-devices/

Для запуска эмулятора с последними версиями среды требуется сделать следующее:
Открыть Deployment Manager. Project-> Deployment Снять галки с файлов libnative-activity.so
Более подробную информацию можно найти здесь.

Проверил - действительно, есть такое поведение. Постараюсь выложить исправление в ближайшее время.

Вот пример. У меня работает. Был один неприятный момент - после использования тестовых продуктов проверка покупки заработала примерно через день, сама по себе.
 
При старте приложения вызываем    
 
PurchaseDataModule.InAppPurchase1.SetupInAppPurchase;
procedure TPurchaseDataModule.DataModuleCreate(Sender: TObject); begin fisPurchased := true; {$IFDEF ANDROID} InAppPurchase1.ApplicationLicenseKey :=''; //Присваиваем ключ InAppPurchase1.ProductIDs.Add(ProductId); // Добавляем наш продукт InAppPurchase1.OnSetupComplete := InAppPurchase1SetupComplete; {$ENDIF} end; procedure TPurchaseDataModule.InAppPurchase1ProductsRequestResponse( Sender: TObject; const Products: TIAPProductList; const InvalidProductIDs: TStrings); var Product: TProduct; begin fisPurchased := false; for Product in Products do begin if ProductId = Product.ProductID then begin FProductIsValid := True; if InAppPurchase1.IsProductPurchased(ProductId) then begin fisPurchased := true; // КУПЛЕНО!!!! end end; end; end; procedure TPurchaseDataModule.InAppPurchase1PurchaseCompleted(Sender: TObject; const ProductID: string; NewTransaction: Boolean); begin MainDataModule.ShowToast('Премиум версия активирована'); fisPurchased := True end; procedure TPurchaseDataModule.InAppPurchase1SetupComplete(Sender: TObject); begin fisPurchased := False; try InAppPurchase1.QueryProducts; except on E:Exception do MainDataModule.ShowToast(e.Message); end; end; procedure TPurchaseDataModule.Purchase; begin {$IFDEF ANDROID} if InAppPurchase1.IsSetupComplete and InAppPurchase1.CanMakeInAppPurchases then begin InAppPurchase1.PurchaseProduct(ProductId); end else MainDataModule.ShowToast('В данный момент приобретение не возможно. Попробуйте позже'); {$ENDIF} end;

Вот пример. У меня работает. Был один неприятный момент - после использования тестовых продуктов проверка покупки заработала примерно через день, сама по себе.
 
При старте приложения вызываем    
 
PurchaseDataModule.InAppPurchase1.SetupInAppPurchase;
procedure TPurchaseDataModule.DataModuleCreate(Sender: TObject); begin fisPurchased := true; {$IFDEF ANDROID} InAppPurchase1.ApplicationLicenseKey :=''; //Присваиваем ключ InAppPurchase1.ProductIDs.Add(ProductId); // Добавляем наш продукт InAppPurchase1.OnSetupComplete := InAppPurchase1SetupComplete; {$ENDIF} end; procedure TPurchaseDataModule.InAppPurchase1ProductsRequestResponse( Sender: TObject; const Products: TIAPProductList; const InvalidProductIDs: TStrings); var Product: TProduct; begin fisPurchased := false; for Product in Products do begin if ProductId = Product.ProductID then begin FProductIsValid := True; if InAppPurchase1.IsProductPurchased(ProductId) then begin fisPurchased := true; // КУПЛЕНО!!!! end end; end; end; procedure TPurchaseDataModule.InAppPurchase1PurchaseCompleted(Sender: TObject; const ProductID: string; NewTransaction: Boolean); begin MainDataModule.ShowToast('Премиум версия активирована'); fisPurchased := True end; procedure TPurchaseDataModule.InAppPurchase1SetupComplete(Sender: TObject); begin fisPurchased := False; try InAppPurchase1.QueryProducts; except on E:Exception do MainDataModule.ShowToast(e.Message); end; end; procedure TPurchaseDataModule.Purchase; begin {$IFDEF ANDROID} if InAppPurchase1.IsSetupComplete and InAppPurchase1.CanMakeInAppPurchases then begin InAppPurchase1.PurchaseProduct(ProductId); end else MainDataModule.ShowToast('В данный момент приобретение не возможно. Попробуйте позже'); {$ENDIF} end;