Вывести в Image фигуру (например, прямоугольник) по вводимым пользователем размерам

@Svetlaya666 · Регистрация: 24.11.2016

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

Нужно вывести в Image1 фигуру (прямоугольник например) по вводимым пользователем размерам (x и y, у меня типа Real).
Перерыла кучу материала, но нашла только как нарисовать прямоугольник по заданным пикселям.
Никак не разберусь как сделать так чтоб рисовалось по вводимым данным!!!
кто может подробно для чайника в графике объяснить, отзовитесь пожалуйста!!!

@Svetlaya666 · 03.12.2016, 18:45 **[ТС]**

Rect1.Right:=Rect1.Left+Wi;
Rect1.Bottom:=Rect1.Top+He;
ошибка типов (у тебя работало)
[Error] Unit2.pas(527): Incompatible types: 'Integer' and 'Extended'

Добавлено через 1 минуту
Rect1.Right:=Rect1.Left+Wi;
Rect1.Bottom:=Rect1.Top+He;
ошибка типов (у тебя работало)
[Error] Unit2.pas(527): Incompatible types: 'Integer' and 'Extended'

@cfbogd · 03.12.2016, 18:54

Сообщение от Svetlaya666

у меня типа Real

real не подходит, нужен integer

@cfbogd · 03.12.2016, 19:01

del

@Svetlaya666 · 03.12.2016, 19:49 **[ТС]**

cfbogd, а можно перевести real в integer?

@cfbogd · 03.12.2016, 19:53

Svetlaya666, целое_число:=round(дробное_число);

@Svetlaya666 · 03.12.2016, 20:03 **[ТС]**

cfbogd, Спасибо тебе!!!!!!!!!!!! Долго парилась)

Новые блоги и статьи Все статьи Все блоги /
Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .	Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия	Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо anaschu 10.08.2026 Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .
Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .

@Svetlaya666 0 / 0 / 0 Регистрация: 24.11.2016 Сообщений: 35

	Вывести в Image фигуру (например, прямоугольник) по вводимым пользователем размерам 29.11.2016, 09:38. Показов 7027. Ответов 25 Метки нет (Все метки) Нужно вывести в Image1 фигуру (прямоугольник например) по вводимым пользователем размерам (x и y, у меня типа Real). Перерыла кучу материала, но нашла только как нарисовать прямоугольник по заданным пикселям. Никак не разберусь как сделать так чтоб рисовалось по вводимым данным!!! кто может подробно для чайника в графике объяснить, отзовитесь пожалуйста!!! 0

@Svetlaya666 0 / 0 / 0 Регистрация: 24.11.2016 Сообщений: 35
	03.12.2016, 18:45 [ТС]
	Rect1.Right:=Rect1.Left+Wi; Rect1.Bottom:=Rect1.Top+He; ошибка типов (у тебя работало) [Error] Unit2.pas(527): Incompatible types: 'Integer' and 'Extended' Добавлено через 1 минуту Rect1.Right:=Rect1.Left+Wi; Rect1.Bottom:=Rect1.Top+He; ошибка типов (у тебя работало) [Error] Unit2.pas(527): Incompatible types: 'Integer' and 'Extended' 0

@cfbogd botsik 262 / 262 / 140 Регистрация: 05.06.2016 Сообщений: 1,247 Записей в блоге: 1
	03.12.2016, 19:01
	del 0

@Svetlaya666 0 / 0 / 0 Регистрация: 24.11.2016 Сообщений: 35
	03.12.2016, 19:49 [ТС]
	cfbogd, а можно перевести real в integer? 0

@cfbogd botsik 262 / 262 / 140 Регистрация: 05.06.2016 Сообщений: 1,247 Записей в блоге: 1
	03.12.2016, 19:53
	Svetlaya666, целое_число:=round(дробное_число); 0

@Svetlaya666 0 / 0 / 0 Регистрация: 24.11.2016 Сообщений: 35
	03.12.2016, 20:03 [ТС]
	cfbogd, Спасибо тебе!!!!!!!!!!!! Долго парилась) 0