Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 02.06.2009, 11:12   #1
lubov_morkov
Пользователь
 
Регистрация: 21.05.2009
Сообщений: 37
По умолчанию Рисование квадрата, работа на canvas

Срочно нужно сделать программку на делфи:
Создать приложение, позволяющее:
1) рисовать квадрат в середине формы (размер стороны квадрата вводится пользователем). Предусмотреть, что размер стороны не может быть текстом, не может быть отрицательным числом и не может превышать меньшего размера формы.
2) делить квадрат одной или диагональю или двумя в зависимости от выбора радиокнопок и каждый полученный треугольник закрашивать в разный цвет. Выбор цвета производит пользователь
lubov_morkov вне форума Ответить с цитированием
Старый 02.06.2009, 12:22   #2
IT-man
АльTRUEи$т
Форумчанин
 
Аватар для IT-man
 
Регистрация: 19.03.2009
Сообщений: 784
По умолчанию

ICQ IN PROFILE!
Цитата:
«Никто не войдет в Рай, имея хотя бы крупицу гордыни в своем сердце». «Аллах Красив и любит красоту. Гордыня означает отказ от истины и высокомерие»
IT-man вне форума Ответить с цитированием
Старый 02.06.2009, 13:01   #3
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Ниче сложного. Описываем OnPaint формы;
Код:
procedure TForm1.FormPaint(Sender: TObject);
var cx,cy,q:Integer;
begin
 with Canvas do begin
  if TryStrToInt(Edit1.Text,q) then begin
   cx:=Width div 2; cy:=Height div 2;
   Rectangle(cx-q div 2,cy-q div 2,cx+q div 2,cy+q div 2);
  end;
  if CheckBox1.Checked then begin
   MoveTo(cx-q div 2,cy-q div 2);
   LineTo(cx+q div 2,cy+q div 2);
  end;
  if CheckBox2.Checked then begin
   MoveTo(cx+q div 2,cy-q div 2);
   LineTo(cx-q div 2,cy+q div 2);
  end;
 end;
end;
А в событиях изменения Эдита и чекбоксов вызываем метод Repaint
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Рисование квадрата KocT9 Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 10 22.10.2014 11:58
Рисование квадрата. Работа на Canvas Файзулка Мультимедиа в Delphi 8 26.02.2010 14:34
найти возможные координаты вершин квадрата(полное условие внутри).очень срочно.заранне благодарен. Juicy_G Помощь студентам 2 23.12.2008 18:19
работа с CANVAS BuT@JL Помощь студентам 6 30.11.2008 22:18
Рисование на Canvas при нажатии левой кнопки мыши. Ветас Помощь студентам 3 11.11.2007 22:02