imagelist1 property source does not exists

[x11]

Не могу понять, что случилось в проекте с TDataModule.

Проект мультиплатформенный. В прошлый раз сохранил, закрыл, ничего необычного. Сегодня открываю, а мне ошибку Delphi Berlin показывает.

Цитата

imagelist1 property source does not exists

 

И действительно, у TImageList отсутствует свойство source. Открываю, а он выглядит по-другому, как будто из VCL.

Закрываю проект, создаю мультиплатформенную форму, кладу TImageList на форму и о чудо - совершенно другой TImageList и свойство Source есть.

Что случилось с моим TDataModule? Как среде дать понять, что это мультиплатформенный проект?

[Brovin Yaroslav]

У дата модуля есть свойство отвечающее за то, дата модуль какого фреймворка это: VCL или FMX. На основании этого свойства среда определяет TImageList какого фреймворка использовать. Возможно у вас стоит значение VCL.

[x11]

как оно могла поменяться или исчезнуть?

[x11]

в pas-файле есть такое

 

{%CLASSGROUP 'FMX.Controls.TControl'}

[x11]

Почему-то свойство пустое

[Brovin Yaroslav]

Попробуйте его задать.

У меня есть подозрение, что среда не смогла его прочитать, из-за директив условной компиляции.

[x11]

при создании нового всё отлично

[x11]

1 минуту назад, Brovin Yaroslav сказал:

из-за директив условной компиляции

проверил - нет директив вообще никаких

[Brovin Yaroslav]

В том скриншоте, который вы прикрепили первым, директивы есть.

[x11]

У меня два датамодуля, во втором, именно, где и всплыла проблема, то же самое. Т.е. проблема в двух датамодулях.

[Brovin Yaroslav]

Если убрать директивы, то работает?

[x11]

Я же дал снимок - директив у второго датамодуля нет.

Я создаю новый мультиплатформенный проект, добавляю в него новый модуль данных - проблем нет и Imagelist правильный. Но при добавлении проблемного модуля данных к этому проекту получаю ошибку, что свойства Source нет, а затем ошибку:

Цитата

Unit "udmRepo.pas" is incompatible with the FMX framework used by the project.

Adding it may result in compilation errors or unexpected behavior. Continue?

 

 

 

[Brovin Yaroslav]

Почему в uses секции объявление двух модулей имадж листа?

Один от VCL, другой от FMX?

 

[x11]

Вот полный текст pas файда модуля данных

 

unit udmRepo;

interface

uses
  System.SysUtils, System.Classes, System.ImageList, FMX.ImgList;

type
  TdmRepo = class(TDataModule)
    ImageList1: TImageList;
    imgListListView: TImageList;
    procedure DataModuleCreate(Sender: TObject);
  private

    { Private declarations }
  public
    procedure SetStyle;
  end;

var
  dmRepo: TdmRepo;

implementation

uses
  FMX.Types, UDM, uShares, FMX.Dialogs, FMX.Styles, System.Types;

{%CLASSGROUP 'FMX.Controls.TControl'}

{$R *.dfm}


procedure TdmRepo.DataModuleCreate(Sender: TObject);
begin
  SetStyle;
end;

procedure TdmRepo.SetStyle;
 var
  aPlatformStyle, sStyle: String;
  aStyle: TFMXObject;
begin
   aStyle := nil;

   if not dm.UniConnection1.Connected then
     try
       dm.UniConnection1.Connect;
     except
       on e:exception do
       begin
         ShowMessage('Ошибка подключения к базе: ' + sLineBreak + e.Message);
         exit;
       end;

     end;// try


   sStyle := dm.GetOption2Param(AppStyleParamName);// название стиля берем из базы
   if sStyle = 'Default' then
   begin
     sStyle := '';
     exit;
   end;

   //если выбираем из ресурсов
   if sStyle <> '' then
   begin
     aPlatformStyle := constPlatform[TOSVersion.Platform] + sStyle;
     aStyle    := TStyleStreaming.LoadFromResource(HInstance, aPlatformStyle, RT_RCDATA);
     aStyle.StyleName := sStyle;

     if not assigned(aStyle) then
     begin
       ShowMessage('Стиль не найден: ' + aPlatformStyle);
       exit;
     end;
   end;// if comboStyles.ItemIndex > 0 then

   TStyleManager.SetStyle(aStyle);
end;


end.

 

[x11]

1 минуту назад, Brovin Yaroslav сказал:

Почему в uses секции объявление двух модулей имадж листа?

не знаю, не заметил...

Я добавил в новый мультиплатформенный проект новый модуль данных. Кинул в него 2 ImageList

Вот листинг Uses

unit Unit2;

interface

uses
  System.SysUtils, System.Classes, System.ImageList, FMX.ImgList;

 

я ничего руками не дописывал

[x11]

Если брать System.ImageList и нажать Сохранить, то System.ImageList автоматически добавляется в секцию USES.

[x11]

6 минут назад, Brovin Yaroslav сказал:

Почему в uses секции объявление двух модулей имадж листа?

Один от VCL, другой от FMX?

 

Видать, надо это спрашивать у разработчиков FMX и/или Delphi.

[x11]

а где должен быть {%CLASSGROUP 'FMX.Controls.TControl'} ?

Экспериментировал и заметил, что у др. модулей данных объявление в другом месте

[x11]

Всё встало на свои места. Объявление должно быть после implementation
 

implementation

{%CLASSGROUP 'FMX.Controls.TControl'}
{$R *.dfm}

 

Но я ручками ничего не переносил.

[x11]

А директива

{$R *.dfm}

где должна находиться?

[Brovin Yaroslav]

Только что, x11 сказал:

А директива

{$R *.dfm}

где должна находиться?

В любом месте в секции Implementation

[RoschinSpb]

15 часов назад, x11 сказал:

Объявление должно быть после implementation

Да, именно так, сам на это напарывался, даже вроде баг заводил. Понять это невозможно, это надо знать!
Раздел Uses может добавиться автоматически, например по Ctrl+A и он добавляется после implementation и перед %CLASSGROUP.