![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 02.06.2009
Сообщений: 14
|
![]()
Создать приложение позволяющее:
1) рисовать квадрат в середине формы (размер стороны квадрата вводится пользователем). предусмотреть, что размер стороны не может быть текстом, не может быть отрицательным числом и не может превышать меньшего размера формы 2) делить квадрат одной или двумя диагоналями в зависимости от выбора радиокнопок и каждый полученый треугольник закрашивать в разный цвет. Выбор цвета производит пользователь |
![]() |
![]() |
![]() |
#2 |
Форумчанин
Регистрация: 23.10.2008
Сообщений: 460
|
![]()
стучись в аську, сделаю
|
![]() |
![]() |
![]() |
#3 |
Форумчанин
Регистрация: 23.02.2009
Сообщений: 237
|
![]()
Создаешь переменную допустим i:integer, и пнренесем на форму Edit, Button и таймер, затем по созданию формы открывается Edit в которое ты вводишь число, затем Видимость у Edit и кнопки:=false(по нажатию кнопки) и запускается таймер, и в таймере пишешь i:=StrToInt(Edit1.Caption);
Canvas.Rectangle(Form1.Width div 2 - i div 2, Form1.Height div 2 - i div 2, Form1.Width div 2 + i div 2, Form1.height div 2 + i div 2); Если что неправильно пиши а то по памяти делал! Последний раз редактировалось Stilet; 26.02.2010 в 15:32. |
![]() |
![]() |
![]() |
#4 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
![]() Цитата:
http://programmersforum.ru/showthrea...EA%F1%F2%EE%EC
I'm learning to live...
|
|
![]() |
![]() |
![]() |
#5 | |
Пользователь
Регистрация: 02.06.2009
Сообщений: 14
|
![]() Цитата:
и в таймере пишешь i:=StrToInt(Edit1.Caption); когда пишу Caption при запуске ошибку выдает ![]() Последний раз редактировалось Stilet; 26.02.2010 в 15:34. |
|
![]() |
![]() |
![]() |
#6 |
Старожил
Регистрация: 28.01.2009
Сообщений: 21,000
|
![]()
замените на Text
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите. |
![]() |
![]() |
![]() |
#7 |
Пользователь
Регистрация: 02.06.2009
Сообщений: 14
|
![]()
А полный код кто нибудь может написать? очень прошууууу... я с этой практикой неделю сижу уже мозг кипит...
я уже поменяла на TEXT, сама догадалась. не работает... жесть Последний раз редактировалось Stilet; 26.02.2010 в 15:34. |
![]() |
![]() |
![]() |
#8 | |
Регистрация: 26.02.2010
Сообщений: 3
|
![]()
Вот у меня работает:
Цитата:
|
|
![]() |
![]() |
![]() |
#9 |
Регистрация: 26.02.2010
Сообщений: 3
|
![]()
Вот у меня работает:
Код:
Последний раз редактировалось Stilet; 26.02.2010 в 15:35. |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Рисование квадрата | KocT9 | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 10 | 22.10.2014 11:58 |
найти возможные координаты вершин квадрата(полное условие внутри).очень срочно.заранне благодарен. | Juicy_G | Помощь студентам | 2 | 23.12.2008 18:19 |
работа с CANVAS | BuT@JL | Помощь студентам | 6 | 30.11.2008 22:18 |
Canvas | Zven | Общие вопросы Delphi | 9 | 06.12.2007 10:40 |
Рисование на Canvas при нажатии левой кнопки мыши. | Ветас | Помощь студентам | 3 | 11.11.2007 22:02 |