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

VladimirS

Пользователи
  • Постов

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

  • Посещение

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

    4

Сообщения, опубликованные VladimirS

  1. FM - это отдельный фреймворк, и на работу совместно с VCL он не заточен.

    Единственное что заточено - это среда. Она не разрешает в одном проекте использовать визуальные компоненты из разных наборов.

    Хотя некоторые умельцы смогли скрестить их.

  2. подозреваю, что передается в UTF8

    Попробуй сохранить приходящий текст в файл на андроиде, и посмотреть с компа - в какой кодировке он там.

  3. Кто-нибудь может объяснить почему RefCount такой большой? Ведь по идее в самом начале на объект ссылается только сама переменная "T" и плюс ссылка в списке "components" у form1.

    t := TImage.Create(Form1);

    Этого вам для начала будет достаточно?

  4. Пока что склоняюсь к варианту. предложенному GunSmoker:

    type
    {$IFDEF AUTOREFCOUNT}
      TContainerObject = class
      strict private
        FValue: Variant;
      protected
        constructor Create(const AValue: Variant);
      public
        property Value: Variant read FValue;
      end;
    
    constructor TContainerObject.Create(const AValue: Variant);
    begin
      inherited Create;
      FValue := AValue;
    end;
    
    function FakeObject(const AValue: Variant): TObject;
    begin
      Result := TContainerObject.Create(AValue);
    end;
    
    function RealObject(const AObject: TObject): Variant;
    begin
      Result := (AObject as TContainerObject).Value;
    end;
    {$ELSE}
      FakeObject = TObject;
      RealObject = Cardinal;
    {$ENDIF}
    
    
    List.AddObject('Some value', FakeObject(ID));
    ID := RealObject(List.Objects[0]);
  5. См. исходники, конкретно часть

        TListViewItemObjects = class(TListItemObjects)
        private
          FAppearance: TItemAppearanceObjects;
          function GetDetailObject: TListItemText;
          function GetGlyphButton: TListItemGlyphButton;
          function GetImageObject: TListItemImage;
          function GetTextButton: TListItemTextButton;
          function GetTextObject: TListItemText;
          function GetAccessoryObject: TListItemAccessory;
          function FindObjectT<T: TListItemObject>(const AName: string): T;
        public
          procedure Clear; override;
          property TextObject: TListItemText read GetTextObject;
          property DetailObject: TListItemText read GetDetailObject;
          property ImageObject: TListItemImage read GetImageObject;
          property TextButton: TListItemTextButton read GetTextButton;
          property GlyphButton: TListItemGlyphButton read GetGlyphButton;
          property AccessoryObject: TListItemAccessory read GetAccessoryObject;
        end;
    
    

    и думай, где и что тебе придется поменять, чтобы добавить в него еще один элемент - фон, с цветом/градиентом/картинкой/чем-нибудь-ещё

×
×
  • Создать...