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

Равиль Зарипов (ZuBy)

Модераторы
  • Постов

    2 517
  • Зарегистрирован

  • Посещение

  • Победитель дней

    264

Весь контент Равиль Зарипов (ZuBy)

  1. Добрый день! Интересует следующее, как делаются вот такие свойства? Красным выделено как у меня сейчас Синим как хочу сделать Подробно: Создаю компонент, у него будут настройки цвета и шрифтов, т.к. таких настроек будет несколько я создал класс TVBTextPresent = class(TPersistent) private FFont: TFont; FFontColor: TAlphaColor; FTextSettings: TTextSettings; procedure SetFont(Value: TFont); procedure SetFontColor(Value: TAlphaColor); procedure SetTextSettings(Value: TTextSettings); public constructor Create; destructor Destroy; override; procedure Assign(Source: TPersistent); override; published property Font: TFont read FFont write SetFont; property FontColor: TAlphaColor read FFontColor write SetFontColor; property TextSettings: TTextSettings read FTextSettings write SetTextSettings; end; его объявляю в компоненте published property TitlePresent: TVBTextPresent read FTitlePresent write SetTitlePresent; но не получается чтобы свойства TVBtextPresent были видны в Object Inspector'e нужно как-то зарегистрировать класс? или я неправильно объявляю свойства?
  2. Если обратить внимание, "Вставить" появляется сразу при клике. т.к. при клике запускается таймер у Edit'a (бред конечно, но видать они ничего лучше не придумали) на LongTap ничего не покажется, при любом раскладе
  3. в демке все показано, общение идёт через Intent
  4. если без стилей, то наверное положить что нить под кнопочку (TRectangle например). Топорно конечно, но как вариант думаю сработает
  5. так в любом случае не получится 1) нужно вставить не полностью файл, а только сами объекты 2) переименовать StyleLookup'ы, т.к. один будет одинаковы 3) вы уверены что предусмотрено загрузка двух картинок?
  6. Сколько сил и времени затратили для реализации? Писалось в личное время? Если продавать, то включите еще частичную стоимость лицензии Embarcadero
  7. есть несколько видов сервисов, читаем подробно тут http://docwiki.embarcadero.com/RADStudio/Seattle/en/Android_Service http://docwiki.embarcadero.com/RADStudio/Seattle/en/Creating_Android_Services https://community.embarcadero.com/blogs/blog-menu/entry/download-an-image-in-background-with-android-services
  8. правильно понимаете и этот модуль кроссплатформенный. прежде чем ставить сторонние компоненты убедитесь что такого модуля нет в Delphi.
  9. // uses RegularExpressions if (not TRegEx.Match(edValue.Text, '^\d{10,18}$').Success) then begin // ошибочка в введенных данных end;
  10. procedure LoadStyleByName(const StyleName: string); var MyStyle: TFmxObject; begin if FileExists(StyleName) then begin MyStyle := TStyleStreaming.LoadFromFile(StyleName); TStyleManager.SetStyle(MyStyle); end; end; использовать так, если в ComboBox'e указаны имена OnChange LoadStyleByName('путь/'+ComboBox1.Items[ComboBox1.ItemIndex]);
  11. нет, я просто отрисовал нужные контролы в Item'e. а тот класс это для покраски TListView, через него я убрал разделитель. все что вам нужно находиться в OnUpdateObjects, посмотрите на константы и как присваиваются данные
  12. procedure LoadStyleByPlatform; const {$IFDEF ANDROID} StyleName = 'ANDROID'; {$ENDIF} {$IFDEF MSWINDOWS} StyleName = 'WINDOWS'; {$ENDIF} {$IFDEF MacOS} StyleName = {$IFDEF IOS} 'IOS'; {$ELSE} 'MACOS';{$ENDIF} {$ENDIF} var MyStyle: TFmxObject; begin if (FindResource(Hinstance, PChar(StyleName), RT_RCDATA) <> 0) then begin MyStyle := TStyleStreaming.LoadFromResource(Hinstance, StyleName, RT_RCDATA); TStyleManager.SetStyle(MyStyle); end; end; вот так загружается стиль из ресурсов, для определенной платформы
  13. посмотрите, на этом примере можете поучиться http://fire-monkey.ru/topic/2062-kak-realizovat-eto/?p=11013
  14. winapi.activeX модуль можно подключить. значит и работать будет. а на счёт трансляции, вам нужно воспроизвести поток. флеш плеер - это плеер. вы можете получить url самой трансляции, какой кодек используется?
  15. возможно вы путаете с ListBox? у ListView нельзя регулировать высоту отдельного Itema кто вам такую неправду поведал? киньте в него камень в OnUpdateObjects делаем AItem.Height:= random(150); не знал, спасибо за информацию!
  16. что именно вам нужно? я смутно помню как Delphi 7
  17. да Control.StyledData['data'] := 'храним данные'; Control.StyledData['data2'] := 2;
  18. возможно вы путаете с ListBox? у ListView нельзя регулировать высоту отдельного Itema
  19. можно самому сделать отрисовку по вкусу, с нужным кол-вом "контролов" в TListView событие OnUpdateObjects
  20. в Андроиде можно хранить во внутренней памяти которая доступна только вашему приложению или на ExternalStorage http://fire-monkey.ru/topic/31-vkliuchenie-svoikh-failov-v-prilozhenie/?hl=deployment#entry85
  21. покажите демо проект, чтобы понять что у вас происходит
×
×
  • Создать...