-
Постов
2 517 -
Зарегистрирован
-
Посещение
-
Победитель дней
265
Ответы сообщества
-
Пост Равиль Зарипов (ZuBy) - сообщение в Конфликт Hint и BorderStyle был отмечен как ответ
я тут посидел немного, сделал костыль. особо не заморачивался
копируем в проект и открываем FMX.Forms.pas Ctrl+F -> procedure TCommonCustomForm.SetShowHint(const Value: Boolean);
procedure TCommonCustomForm.SetShowHint(const Value: Boolean); begin FShowHint := Value; ReleaseLastHinted; // ZuBy *** if (not(csDesigning in ComponentState)) then begin FreeAndNil(FSharedHint); FSharedHint := THint.CreateNewInstance(Handle); end; // *** ZuBy end; сохраняем в событии OnCreate, OnShow пишем ShowHint := true; Готово!
-
Пост Равиль Зарипов (ZuBy) - сообщение в Проблема со свойством "GroupName" был отмечен как ответ
намёк
<TSpeedButton>.StaysPressed := false; -
Пост Равиль Зарипов (ZuBy) - сообщение в Компоненты поверх WebBrowser был отмечен как ответ
такой возможности пока нет, потому что нативные компоненты всегда располагаются выше стилизованных.
ждать нужно будущих версии студии, там будут нативные компоненты под андроид и ZOrder
-
Пост Равиль Зарипов (ZuBy) - сообщение в Delphi 10.1 пропало событие onDblClick в StringGrid был отмечен как ответ
временное решение
DblClick.zip
-
Пост Равиль Зарипов (ZuBy) - сообщение в В Add Planform нет iOS Simulator был отмечен как ответ
ребята ну вы чего?
http://docwiki.embarcadero.com/RADStudio/Berlin/en/Running_Your_iOS_Application_on_the_iOS_Simulator
-
Пост Равиль Зарипов (ZuBy) - сообщение в как позвонить на iPhone? был отмечен как ответ
Вот патч от @Brovin Yaroslav
iOSapi.CoreTelephony.pas.patch.zip
-
Пост Равиль Зарипов (ZuBy) - сообщение в iOS и долгая операция был отмечен как ответ
посмотрел видео. ваш бутерброд легко делается в TListView и сразу же решится несколько проблем
динамическая подгрузка ложное срабатывание скроллинг единственно не понятно на счёт смещение, это аналогично доп. меню в айос?
-
Пост Равиль Зарипов (ZuBy) - сообщение в Иконки в ListView был отмечен как ответ
есть два варианта
1) использовать FontAwesome и перед текстом ставить подходящую иконку (не рекомендую использовать иконку и текст в одном объекте, будут баги на некоторых девайсах из-за кириллицы)
2) добавить объекты в режиме DynamicAppearance
-
Пост Равиль Зарипов (ZuBy) - сообщение в Странное поведение TListBox при попытке прокрутки до конца списка был отмечен как ответ
не смог воспроизвести вашу ситуацию, есть подозрение на стиль. попробуйте при добавлении Item'a, прогрузить стиль вручную
LBScroll.zip
-
Пост Равиль Зарипов (ZuBy) - сообщение в собрать apk файл на комп был отмечен как ответ
да, достаточно нажать кнопку плей и в папке с проектом появится папка Android там во вложенных папках будет заветный файлик
-
Пост Равиль Зарипов (ZuBy) - сообщение в Как реализовать такой интерфейс? был отмечен как ответ
Такое есть из коробки, в TTabControl
-
Пост Равиль Зарипов (ZuBy) - сообщение в Управление окном заставки был отмечен как ответ
никак
если хотите менять текст и прочее, создайте форму сами и сделайте её главной. там и заставку ставьте и текст и прочее
-
Пост Равиль Зарипов (ZuBy) - сообщение в ListView получить текст Item был отмечен как ответ
WebBrowser1.URL := ListView1.Items[ListView1.ItemIndex].Text;
-
Пост Равиль Зарипов (ZuBy) - сообщение в Эмулировать нажатие на тач был отмечен как ответ
какая именно задача у вас стоит?
на мобилах нет понятия курсор, можно просто вызвать обработчик
ControlClick(Sender); или есть у вас идут расчёты по X/Y, скорей всего используется OnMouseDown/OnMouseUp, то вызвать обработчик
ControlMouseDown(Sender, TMouseButton.mbLeft, [], Control.Position.X + (Control.Width / 2), Control.Position.Y + (Control.Height / 2))
-
Пост Равиль Зарипов (ZuBy) - сообщение в Плавный скроллинг TListView под Windows был отмечен как ответ
Для Windows не работает TAniCalculations, можете проверить в ModernListView
Я там наружу вывел <TListView>.getAniCalc
if ListView1.getAniCalc <> nil then ListView1.getAniCalc.BoundsAnimation := false;
-
Пост Равиль Зарипов (ZuBy) - сообщение в Custom Font был отмечен как ответ
для берлина
для сиетла
для того чтобы на IOS работать с кастомными шрифтами, это нужно прописать в info.plist.TemplateiOS.xml (для берлина)
<?xml version="1.0" encoding="UTF-8"?> <!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd"> <plist version="1.0"> <dict> <%VersionInfoPListKeys%> <%ExtraInfoPListKeys%> <key>UIAppFonts</key> <array> <string>FontAwesome.ttf</string> </array> <key>ITSAppUsesNonExemptEncryption</key><false/> </dict> </plist>
-
Пост Равиль Зарипов (ZuBy) - сообщение в Вложенный список был отмечен как ответ
на скорую руку
SubMenu.zip
-
Пост Равиль Зарипов (ZuBy) - сообщение в [TListBoxGroupHeader] настройки был отмечен как ответ
вы забываете про StyledSettings
ListBoxGroupHeader.StyledSettings := ListBoxGroupHeader.StyledSettings - [TStyledSetting.Size, TStyledSetting.FontColor];
-
Пост Равиль Зарипов (ZuBy) - сообщение в [TListView] Как отловить нажатие на картинку в TListView? был отмечен как ответ
я могу дать две подсказки
1)
ваш вариант
мой вариант
2)
ShowMessage(ItemObject.Name); UPDATE:
Чтобы закрыть тему, приложу измененный вариант 111.zip
-
Пост Равиль Зарипов (ZuBy) - сообщение в Не работают стили на другом компьютере был отмечен как ответ
сохранить стиль в файл рядом Windows 10 Desktop нажать на кнопку удаления Добавить новый стиль, там должно быть написано WIndows Загрузить сохраненный стиль -
Пост Равиль Зарипов (ZuBy) - сообщение в Наложение картинки на фото был отмечен как ответ
procedure TForm5.TakePhotoFromCameraAction1DidFinishTaking(Image: TBitmap); var aBitmap: TBitmap; aRectF: TRectF; begin aBitmap := TBitmap.Create; aBitmap.SetSize(Image.Width, Image.Height); aBitmap.CopyFromBitmap(Image); aBitmap.Canvas.BeginScene; aRectF := RectF(aBitmap.Width - Image2.Bitmap.Width, aBitmap.Height - Image2.Bitmap.Height, aBitmap.Width, aBitmap.Height); aBitmap.Canvas.DrawBitmap(Image2.Bitmap, Image2.Bitmap.BoundsF, aRectF, 1, true); aBitmap.Canvas.EndScene; Image1.Bitmap.Assign(aBitmap); aBitmap.Free; end; Kitty
void __fastcall TFormCamera::TakePhotoFromCameraAction1DidFinishTaking(TBitmap *Image) { //умный указатель чтобы не использовать delete std::unique_ptr<TBitmap> aBitmap(new TBitmap()); TRectF aRectF; aBitmap->SetSize(Image->Width, Image->Height); aBitmap->CopyFromBitmap(Image); aBitmap->Canvas->BeginScene(); aRectF = RectF(aBitmap->Width - Form1->Image1->Bitmap->Width, aBitmap->Height - Form1->Image1->Bitmap->Height, aBitmap->Width, aBitmap->Height); aBitmap->Canvas->DrawBitmap(Form1->Image1->Bitmap, Form1->Image1->Bitmap->BoundsF, aRectF, 1, true); aBitmap->Canvas->EndScene(); Image1->Bitmap->Assign(aBitmap.get()); //сохранить в галерею _di_IFMXPhotoLibrary Service; if (TPlatformServices::Current->SupportsPlatformService(__uuidof(IFMXPhotoLibrary), &Service)) { Service->AddImageToSavedPhotosAlbum(Image1->Bitmap); } }
Image1 - TImage с конечным результатом
Image2 - с логотипом
-
Пост Равиль Зарипов (ZuBy) - сообщение в Отправка данных по http в фоновом режиме был отмечен как ответ
полезно к прочтению
-
Пост Равиль Зарипов (ZuBy) - сообщение в анимация батарейки с управлением "уровня заряда" был отмечен как ответ
ответ: можно
P.S. несколько раз прочитал, не понял о чем
-
Пост Равиль Зарипов (ZuBy) - сообщение в Проверить наличие интернета был отмечен как ответ
а вообще я как-то уже выкладывал, универсальный способ проверки интернета, для тех кто в танке)