RAD Studio Ускорение TGraphic (TBitmap, TJpegImage и т.д.)

Регистрация
4 Окт 2008
Сообщения
25
Реакции
14
Credits
458
Рубрика "Хозяйке на заметку" :)

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

Код:
  TGraphic = class(TInterfacedPersistent, IStreamPersist)
...
    procedure EnableScaledDrawer(AGraphicScalerClass: TScaledGraphicDrawerClass; AInitialize: Boolean = True); virtual;
    procedure DisableScaledDrawer; virtual;
    procedure UpdateScaledDrawer; virtual;

В модуле Vcl.Direct2D соответственно добавлен класс TD2DScaledGraphicDrawer. Ну и использование (var синтаксис последних выпусков Delphi):

Код:
  var LScreen := TBitmap.Create;
  LScreen.EnableScaledDrawer(TD2DScaledGraphicDrawer);

Теперь при отрисовке должен использоваться видеоускоритель. По крайней мере в моем проекте в том месте стало быстрее :D