Создал компонент Qrcode а он обрабатывается только в дизайнере

Abbat Faria

Создал компонент QRCode а он обрабатывается только в дизайнере. Компонент на основе TfrxPictureView, а он ведёт себя странно.
Свойству текст значение присваивается, но на отрисовку приходит экземпляр объекта совсем не тот который принял этот текст.
А какой то левый, из дизайнера.
Версия Фаста 4.10.5. Среда разработки : Delphi 2006.

Пример по ссылке, во вложение не влез.
Ссылка на DropBox

gpi

Попробуйте уже готовый: http://www.fast-report.com/en/forum/?p=/discussion/8833

Abbat Faria

Это не то, там развер не меняется, а у меня меняется, смотрите демо-пример.
Я ищу не QR код, а решение этой задачи.

gpi

Размер меняется. Исправления мои там приведены
В аттаче пример

Abbat Faria

gpi написал: »

Размер меняется. Исправления мои там приведены
В аттаче пример

Не меняется, посмотрите мой пример, вот там всё меняется. А у Вас, нет.

Abbat Faria

Вопрос решён. Вот что мне ответили в поддержки.

Нужно изменить процедуру перерисовки вот таким образом.

procedure TfrxQRcode.Draw(Canvas: TCanvas;
  ScaleX, ScaleY, OffsetX, OffsetY: Extended);
begin
  inherited;
  If Width>Height then
    Height := Width
  Else
    Width := Height;

  BeginDraw(Canvas, ScaleX, ScaleY, OffsetX, OffsetY);
  If Text<>'' then
  Begin
    Try
      Canvas.StretchDraw(Rect(FX, FY, FX1, FY1), FBitmap);
    Finally
      //
    End;
  End;
end;

Это относится к компоненту основанному на TfrxView, тогда то что я создал от TfrxPictureView не потребуется.