Увеличение канвы у TImage

@Lifebinder · Регистрация: 04.10.2009

Студворк — интернет-сервис помощи студентам

Доброго всем времени суток.

Хотел задать один вопрос по канве компонента TImage.
Возникла такая ситуация:

Есть небольшая форма, на которой расположен TImage размером, предположим, 256х256.
На канве TImage нарисован график, который не умещается в 256х256 и скроллится СкроллБарами.
Теперь мы растягиваем форму на FullSize, и вместе с ним растягиваем TImage на весь экран.
Вроде бы теперь наш график должен уместиться, и скроллбары нам больше не нужны.

НО!

TImage растянулся на весь экран, это точно (проверено). А вот канва, похоже, не растянулась,
и за пределами 256х256 ничего рисовать не собирается.

Собственно вопрос:
Как мне решить данную ситуацию? Перепробовал уже, кажется, всё, что только можно

Аттачи прилагаются.

@gunslinger · 05.09.2016, 03:20

"А у меня растягивается" (с)
Проблему с кодом по скриншотам окна программы решают на втором этаже.
Как рисуешь? Перерисовываешь ли при растягивании? Что перепробовал? Что не перепробовал?
Код рисования выложить кто-то запрещает?

@Lifebinder · 05.09.2016, 07:18 **[ТС]**

При растягивании окна:

C++
1
2
3
4
5
6
7
void __fastcall TForm2::FormCanResize(TObject *Sender, int &NewWidth, int &NewHeight,
          bool &Resize)
{
    imgGraphic->Height = NewHeight-710+465;
        imgGraphic->Width = NewWidth-300;
    RepaintAll();
}

Часть кода RepaintAll, где перерисовывается график:

C++
1
2
3
4
5
6
7
8
9
...
Form2->imgGraphic->Refresh();
Form2->imgGraphic->Canvas->Pen->Color = clWhite;
Form2->imgGraphic->Canvas->Brush->Color = clWhite;
Form2->imgGraphic->Canvas->Rectangle(0,0,Form2->imgGraphic->Width,Form2->imgGraphic->Height);
 
Form2->imgGraphic->Canvas->MoveTo(0,4+yyy-offset_y);
Form2->imgGraphic->Canvas->LineTo(Form2->imgGraphic->Width,4+yyy-offset_y);
...

Вот.
Функция RepaintAll вызывается так же при дёргании ползунков ScrollBar-ов

@k399et · 06.09.2016, 06:29

Добавь в код:

C++
1
2
3
4
5
6
7
8
9
10
void __fastcall TForm2::FormCanResize(TObject *Sender, int &NewWidth, int &NewHeight, bool &Resize)
{
    imgGraphic->Height = NewHeight-710+465;
    imgGraphic->Width = NewWidth-300;
    
    imgGraphic->Picture->Bitmap->Width  = imgGraphic->Width;
    imgGraphic->Picture->Bitmap->Height = imgGraphic->Height;
 
    RepaintAll();
}

@Avazart · 11.09.2016, 22:15

А не проще сразу рисовать на TPaintBox в OnPaint?

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@Lifebinder 9 / 9 / 2 Регистрация: 04.10.2009 Сообщений: 111

	Увеличение канвы у TImage 04.09.2016, 23:44. Показов 1263. Ответов 4 Метки нет (Все метки) Доброго всем времени суток. Хотел задать один вопрос по канве компонента TImage. Возникла такая ситуация: Есть небольшая форма, на которой расположен TImage размером, предположим, 256х256. На канве TImage нарисован график, который не умещается в 256х256 и скроллится СкроллБарами. Теперь мы растягиваем форму на FullSize, и вместе с ним растягиваем TImage на весь экран. Вроде бы теперь наш график должен уместиться, и скроллбары нам больше не нужны. НО! TImage растянулся на весь экран, это точно (проверено). А вот канва, похоже, не растянулась, и за пределами 256х256 ничего рисовать не собирается. Собственно вопрос: Как мне решить данную ситуацию? Перепробовал уже, кажется, всё, что только можно Аттачи прилагаются. Миниатюры 0

@gunslinger place status here 3190 / 2227 / 640 Регистрация: 20.07.2013 Сообщений: 6,023
	05.09.2016, 03:20
	"А у меня растягивается" (с) Проблему с кодом по скриншотам окна программы решают на втором этаже. Как рисуешь? Перерисовываешь ли при растягивании? Что перепробовал? Что не перепробовал? Код рисования выложить кто-то запрещает? 0

@Avazart 8488 / 6155 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	11.09.2016, 22:15
	А не проще сразу рисовать на TPaintBox в OnPaint? 0