Рисование квадрата, работа на canvas

[lubov_morkov]

Срочно нужно сделать программку на делфи:
Создать приложение, позволяющее:
1) рисовать квадрат в середине формы (размер стороны квадрата вводится пользователем). Предусмотреть, что размер стороны не может быть текстом, не может быть отрицательным числом и не может превышать меньшего размера формы.
2) делить квадрат одной или диагональю или двумя в зависимости от выбора радиокнопок и каждый полученный треугольник закрашивать в разный цвет. Выбор цвета производит пользователь

[IT-man]

ICQ IN PROFILE!

[Stilet]

Ниче сложного. Описываем 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