Как исправить невидимые элементы управления в FireMonkey: решение проблемы рисования

Delphi , Компоненты и Классы , Компоненты

При работе с FireMonkey (FMX) в Delphi иногда возникают ситуации, когда элементы управления не отображаются должным образом, несмотря на попытки их отрисовки. В данной статье мы рассмотрим типичную проблему, с которой сталкиваются разработчики, и предложим решения, основанные на пересказе материала из контекста, а также приведем подтвержденный и альтернативный ответы.

Проблема

Разработчики, работающие с FireMonkey, могут столкнуться с ситуацией, когда элементы управления не рисуются, несмотря на применение методов TCanvas.BeginScene() и TCanvas.EndScene(), а также попытки переопределения метода OnPaint() главного формы или использования TControl.InvalidateRect(). В коде создается новый контроль TTestControl, который должен закрашиваться в цвет Blueviolet, но на форме он не отображается.

Пример кода

Вот пример кода, который не работает:

type
  TTestControl = class(TControl)
  protected
    procedure Paint; override;
  end;

  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    private
      fTestControl: TTestControl;
  end;

procedure TTestControl.Paint;
begin
  Canvas.Fill.Color := TColorRec.Blueviolet;
  Canvas.FillEllipse(ClipRect, AbsoluteOpacity);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  fTestControl := TTestControl.Create(Self);
  fTestControl.Parent := Self;
  fTestControl.Align := TAlignLayout.Client;
end;

Решение проблемы

Подтвержденный ответ

Проблема заключается в том, что Canvas.Fill.Color должен быть типа TAlphaColor. Нужно изменить строку:

Canvas.Fill.Color := TColorRec.Blueviolet;

на

Canvas.Fill.Color := TAlphaColors.Blueviolet;

Альтернативный ответ

Метод Paint должен быть реализован следующим образом:

procedure TTestControl.Paint;
begin
  inherited;
  Canvas.BeginScene;
  Canvas.Fill.Color := claBlueviolet;
  Canvas.FillEllipse(ClipRect, AbsoluteOpacity);
  Canvas.EndScene;
end;

Также рекомендуется переопределить метод DoPaint вместо Paint, так как Paint уже включает в себя некоторые операции, которые могут быть выполнены в коде FMX.

Заключение

При работе с отрисовкой элементов управления в FireMonkey важно обращать внимание на типы данных, используемые для цвета, и правильно переопределять методы для корректной работы с отрисовкой. Приведенные выше примеры должны помочь разработчикам исправить невидимые элементы управления и добиться их корректного отображения.

Обратите внимание, что использование блоков try / finally в методе Paint может быть избыточным, так как они уже обрабатываются в коде FMX.

Создано по материалам из источника по ссылке.

Проблема отсутствия отображения элементов управления в FireMonkey (FMX) из-за неправильной работы методов рисования, и пути её решения.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Компоненты ::