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

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Отчетные системы [игнор отключен] [закрыт для гостей] / Создал компонент QRCode а он обрабатывается только в дизайнере

2 сообщений из 2, страница 1 из 1

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

#38918655

Tango600

Участник

Откуда: Новочеркасск

Сообщения: 182

Рейтинг: 0 / 0

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

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

...

Рейтинг:

0 / 0

27.03.2015, 11:17

| Ответить | Цитировать | Написать

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

#38921994

Tango600

Участник

Откуда: Новочеркасск

Сообщения: 182

Рейтинг: 0 / 0

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

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

Код: sql

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.

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

...

Рейтинг:

0 / 0

31.03.2015, 10:27

| Ответить | Цитировать | Написать

2 сообщений из 2, страница 1 из 1

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=31&fpage=18&tid=1533433]:	0ms
get settings:	11ms
get forum list:	13ms
check forum access:	3ms
check topic access:	3ms
track hit:	54ms
get topic data:	11ms
get forum data:	2ms
get page messages:	40ms
get tp. blocked users:	2ms
others:	221ms

total:	360ms