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

Комментарии

• gpi

  March 2015 отредактировано 16:13

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

  March 2015 отредактировано 16:13

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

  March 2015 отредактировано 16:13

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

  March 2015 отредактировано 16:13

  gpi написал: »

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

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

  March 2015 отредактировано 16:13

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

  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 не потребуется.