FireMonkey. От простого к сложному #9. Впечатления от использования.

Сегодня пятница, как говорится, «укради, но выпей», но т.к. я человек не склонный к распитию горячительных напитков, решил сегодняшний пост про FireMonkey посвятить некоторым своим впечатлениям относительно использования этой самой платформы и, тем самым, немного отвлечься. Тем более, что поводов для такого поста несколько. Во-первых, за последнюю неделю-полторы уже не раз задавался в разных вариациях вопрос, который можно в нескольких словах сформулировать так: «Влад, ты работал с FireMonkey и как оно? Круто или полный отстой?«. Во-вторых, скоро выход Delphi XE3 о которой уже во всю идут разговоры и хотелось бы обобщить имеющийся небольшой опыт использования FireMonkey.

Вообще, если посмотреть на всё то же голосование в сайдбаре блога, то видно, что хоть большинство разработчиков и не планируют использовать FireMonkey, но тем не менее, к выходу XE3 ситуация для новой платформы медленно выравнивается в лучшую сторону. Что касается моих впечатлений от FireMonkey, то читаем далее :)

Итак, впервые с FireMonkey я познакомился 22 сентября 2011 года, когда написал пост «Delphi XE2. Знакомство с FireMonkey». До этого, конечно, знал, что есть такая штука как FMX, что она кроссплатформенная, красивая и всё такое, но плотно в хитросплетения FMX не лез. Первое впечатление оказалось для меня очень смешанным: с одной стороны, поработав с FMX, подумал «Да, крутая штука! Сколько всякого красивого добра можно написать с FMX!» можно и в 2D рисовать и, если уж сильно хочется, то и проект дома Ксения в 3D забабахать, а с другой — когда не можешь с первого клика выделить компонент и не потому, что ты косой, а потому что реально глюк в дизайнере, то как-то невольно приходит мысль о том, что «Продукт сырой…очень» Ну не может же быть таких мелких, но неприятных багов в релизе продукта. И это только на первый взгляд, не залезая в исходный код — просто по первому взгляду.

После того, как я познакомился с FireMonkey и даже начал писать серию постов про эту платформу, Embarcadero выпустила четыре апдейта, хотфикс и целых (если не ошибаюсь) шесть апдейтов для справочной системы. И в каждом из этих обновлений обязательно задевалась платформа FireMonkey. Можно даже сказать, что в основном-то только её и фиксили как могли. И к чему мы пришли в итоге всех этих правок?

Начнем с самого простого и элементарного — с форм. Создаем два проекта Delphi: FireMonkey HD Application и VCL Application. В каждом приложении будет по две формы и по 1 кнопке на главных формах. Суть этого мини-теста: посмотреть как позиционируются дочерние формы. В обоих приложениях делаем один и тот же обработчик OnClick кнопки:

procedure TMainForm.Button1Click(Sender: TObject);
begin
 OtherForm.ShowModal
end;

Соответственно у OtherForm свойство Position будет равно poMainFormCenter. Запускаем VCL-приложение, смотрим результат — все замечательно:

Запускаем FMX-проект:

Как, блин, так? Это мелочь, пустяк, но он напрягает на протяжении года :) При этом ведь и справка есть по части свойства Position где даже рассказывается про особенности некоторых значений под Mac OS X. Когда разрабатывал «Я математик» пришлось использовать костыль …млин, даже наверно не костыль, а цельный протез в виде хэлпера, который подсмотрел тут:

type
  TFormHelper = class helper for TForm
    procedure UpdateFormPosition;
  end;
 
procedure TFormHelper.UpdateFormPosition;
var
  RefForm: TCommonCustomForm;
begin
  RefForm := nil;
 
  case Position of
    TFormPosition.poOwnerFormCenter:
      if Assigned(Owner) and (Owner is TCommonCustomForm) then
        RefForm := Owner as TCommonCustomForm;
    TFormPosition.poMainFormCenter:
      RefForm := Application.MainForm;
  end;
 
  if Assigned(RefForm) then
  begin
    SetBounds(
      System.Round((RefForm.Width - Width) / 2) + RefForm.Left,
      System.Round((RefForm.Height - Height) / 2) + RefForm.Top,
      Width, Height);
  end;
end;

Ради интереса уже глянул как реализуется ShowModal и просто Show в FireMonkey:

function TCommonCustomForm.ShowModal: TModalResult;
begin
  FFormState := FFormState + [TFmxFormState.fsModal];
  Result := Platform.ShowWindowModal(Self);
  FFormState := FFormState - [TFmxFormState.fsModal];
  if not (csDestroying in ComponentState) then
    Recreate;
end;
 
procedure TCommonCustomForm.Show;
begin
  if not (csDesigning in ComponentState) then
  begin
    case FPosition of
      TFormPosition.poScreenCenter:
        begin
          with Platform.GetScreenSize do
            SetBounds(System.Round((X - Width) / 2), System.Round((Y - Height) / 2), Width, Height);
        end;
    end;
  end;
  Platform.ShowWindow(Self);
  FVisible := True;
end;

….В общем с позиционирование форм в FMX пока беда. Двигаемся далее. И пока не ушли от форм, ещё один момент, который по началу немного смущал — события форм. Думаю, что многие, кто впервые создавал приложение в FMX были удивлены отсутствием в инспекторе целого ряда событий для формы. На рисунке показаны Инспектор для VCL и FMX-формы:

Различия внушительные, не так ли? Однако, потом как-то более-менее привык к таким «странностям» в FireMonkey. Кто ещё не в курсе как необходимо поступать, если нам вдруг потребуется какое-нибудь отсутствующее в инспекторе событие — читаем пост в блоге Delphi2010.ru.

А вот что напрягает — это с ситуация, когда события есть, но чтобы их обрабатывать надо что-то включать. Например, возьмем такой компонент как TLabel — проще некуда. Бросаем на форму,  смотрим события — да, есть OnClick. Отлично, пишем обработчик:

procedure TForm12.Label1Click(Sender: TObject);
begin
  ShowMessage('Click');
end;

Запускаем программку, кликаем по Label’у…Где мое сообщение? Нету сообщения. А почему? А потому, что свойство HitTest у компонента в False стоит, а надо выставить в True. Устанавливаем в Инспекторе HitTest=True и OnClick начинает нормально обрабатываться. Зачем надо было, спрашивается, усложнять? Ну сделали бы по-дефолту True и не было бы ни вопросов, ни баг-репортов в QC по этому поводу. А так натыкаешься на что-нибудь подобное и сидишь 5 минут тупишь, справку листаешь и думаешь фича это такая или баг :)

Что касается вообще возможностей Firemonkey, то с одной стороны, их не просто много — их валом: хочешь простенькое приложение пиши, хочешь наворачивай в приложения кучу эффектов, 3D-моделей, красивых переходов, переделывай компоненты как душе угодно — добавляй новые элементы, переопределяй старые и т.д. и т.п. А с другой стороны всё опять же упирается в отсуствие чего-то, чего ну никак не хватает для комфотрта. Чего?  Да хотя бы тех же ActionList, ActionManager и т.д. Понятно что это компоненты, которые ну «сквозь виндузовские» и под Mac их «перетянуть» — это надо пуд соли съесть вперемешку с дёгтем, но без них бывает подчас очень тоскливо. Или, например, больная тема — гриды в FireMonkey. Тяжко с ними работать, очень тяжко. По идее, в FireMonkey можно переопределить класс столбца и запихать в ячейки что угодно — картинки, прогрессбары и т.д., но когда дело доходит до работы с БД, то тут начинается какой-то АДЪ. А учитывая, мягко говоря, не совсем прозрачную работу с LiveBindings, ад этот усиливается многократно. В итоге, чтобы не тратить время на долгие и мучительные поиски решений все сводится к возврату на VCL.

Полагаю, что если Вы дочитали пост до этого места, то у Вас могло сложится впечатление типа «Ппц, никогда в жизни не полезу в FireMonkey». Хотя я рассказал только самые мелочи, о которых вспомнил. Отчасти такое отношение к новой платформе может быть оправдано, НО только малой отчасти.

Хоть я сейчас немного и покритиковал новую платформу (да и не только я), но тем не менее, на данный момент я отдаю себе отчет в том, что FireMonkey в Delphi XE2 — это новое направление. Можно говорить о том, что Embarcadero поторопились с выпуском (иначе откуда столько апдейтов), но никак не могу сказать, что они (Embarcadero) облажались.  Скорее наоборот. Сейчас нам показали совершенно новый продукт, хоть немного, но продемонстрировали его возможности, собрали более менее нормальную документацию. За год работы с FireMonkey разработчики всех уровней и мастей накидали тысячи (надеюсь, что тысячи) отзывов, предложений и замечаний, провели массу тестов, попробовали, в конце концов, этот продукт.  Кто-то остался доволен, кто-то нет. И это нормально! Осталось дождаться второй версии. Если вторая версия платформы унаследует ошибки и откровенные ляпсусы своей предшественницы, то что тут сказать…будет обидно. Однако, т.к. я стараюсь быть оптимистом, надеюсь, что вторая версия, что называется «выстрелит» — появятся новые компоненты, улучшатся старые, LiveBinding станет прозрачным на столько, что с ним разберется пятилетний ребенок :). Никто ведь (кроме ярых холиварщиков, конечно) не будет спорить с тем, что тот же .Net Framework в своей первой версии был далеко не самым идеальным продуктом? А вот уже вторая и последующие версии были одна лучше другой (да простят меня за сие богохульство те, кто ненавидит кровно .Net). Так и с FireMonkey — первая версия комом, остальные должны стать намного лучше и стабильнее.

Что же касается моего мнения о том, стоит или нет использовать FireMonkey, то здесь могу сказать так: на данный момент я бы взялся за разработку небольшого по размерам проекта, используя FireMonkey, но рисковать и переносить что-либо существующее с VCL на FMX — нет. Почему я сейчас не против того, чтобы запускать что-нибудь более менее крупное в работу на Firemonkey? Здесь можно выделить две составляющие проблемы:

1. Неопределенность. Непонятно пока, что станет с FireMonkey в XE3. Скажу откровенно — Mac OS X мне пока до лампочки, как и iOS и Android. Не в кроссплатформе дело, а именно в удобстве и качестве платформы. Будет все кул — кроссплатформенность потребуется, нет — смысл ломать копья об то, что не работает как надо?
2. Документация. Для старта работы с FireMonkey документации валом — официальная вики, записи вебинаров, блоги. Но пока ещё очень не много народу полезли вглубь платформы и показали что-либо мощное, созданное на FireMonkey. Я не жду с моря погоды и по мере возможностей и сил читаю, смотрю, слушаю, пробую собрать что-то свое, но этого мало для того, чтобы писать что-нибудь серьезное.

А каковы ваши впечатления от использования FireMonkey? Что вам в ней понравилось или наоборот — раздражает?