|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
02.06.2009, 08:54 | #1 |
Пользователь
Регистрация: 02.06.2009
Сообщений: 14
|
Рисование квадрата. Работа на Canvas
Создать приложение позволяющее:
1) рисовать квадрат в середине формы (размер стороны квадрата вводится пользователем). предусмотреть, что размер стороны не может быть текстом, не может быть отрицательным числом и не может превышать меньшего размера формы 2) делить квадрат одной или двумя диагоналями в зависимости от выбора радиокнопок и каждый полученый треугольник закрашивать в разный цвет. Выбор цвета производит пользователь |
02.06.2009, 09:36 | #2 |
Форумчанин
Регистрация: 23.10.2008
Сообщений: 460
|
стучись в аську, сделаю
|
02.06.2009, 14:35 | #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. |
02.06.2009, 14:46 | #4 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
http://programmersforum.ru/showthrea...EA%F1%F2%EE%EC
I'm learning to live...
|
|
02.06.2009, 19:37 | #5 | |
Пользователь
Регистрация: 02.06.2009
Сообщений: 14
|
Цитата:
и в таймере пишешь i:=StrToInt(Edit1.Caption); когда пишу Caption при запуске ошибку выдаетпочему? Последний раз редактировалось Stilet; 26.02.2010 в 15:34. |
|
02.06.2009, 21:20 | #6 |
Старожил
Регистрация: 28.01.2009
Сообщений: 21,000
|
замените на Text
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите. |
02.06.2009, 21:41 | #7 |
Пользователь
Регистрация: 02.06.2009
Сообщений: 14
|
А полный код кто нибудь может написать? очень прошууууу... я с этой практикой неделю сижу уже мозг кипит...
я уже поменяла на TEXT, сама догадалась. не работает... жесть Последний раз редактировалось Stilet; 26.02.2010 в 15:34. |
26.02.2010, 14:32 | #8 | |
Регистрация: 26.02.2010
Сообщений: 3
|
Вот у меня работает:
Цитата:
|
|
26.02.2010, 14:34 | #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 |