Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 12.12.2019
Сообщений: 35
1

Создать приложение, рисующее красный, синий или зеленый прямоугольник

13.12.2019, 06:33. Показов 684. Ответов 2
Метки нет (Все метки)

Создать приложение, рисующее красный, синий или зеленый прямоугольник. Выбор цвета
осуществляется пользователем. В качестве графической поверхности используйте компонент
Image.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.12.2019, 06:33
Ответы с готовыми решениями:

Строки. Напечатать названия цветов зеленый, синий, красный и т.д
Имеется строка текста (на любом языке) из нескольких слов, разделјнных пробелами и/или знаками...

Создать приложение, рисующее Циклоиду
Не могли бы вы составить приложение рисующие самую обыкновенную циклоиду.Ну то есть катящаяся...

Угадать определённые цвета (красный, чёрный или зелёный) с указанной вероятностью
Суть программы, заключается в том, что она должна угадывать определённые цвета (красный, чёрный или...

Связать Shape1(Круг желтого цвета) с RadioGroup в радиогруп - выбор цвета Этого круга(Shape1) - Красный, Синий, Зелёный.
with Shape1 do case RadioGroup2.ItemIndex of 0:Shape1.TShape:= clLime 1:Font.Color := clLime;...

__________________
2
2010 / 1000 / 369
Регистрация: 15.11.2015
Сообщений: 4,051
13.12.2019, 07:02 2
На форме Image и RadioGroup с элементами "Красный", "Зелёный", "Синий". Код обработчика события нажатия на RadioGroup:
Delphi
1
2
3
4
5
6
7
procedure TForm1.RadioGroup1Click(Sender: TObject);
const
  col1: array[0..2] of TColor = (clRed, clGreen, clBlue);
begin
  Image1.Canvas.Brush.Color := col1[(Sender as TRadioGroup).ItemIndex];
  Image1.Canvas.FillRect(Rect(0, 0, Image1.Width, Image1.Height));
end;
0
1 / 1 / 0
Регистрация: 12.12.2019
Сообщений: 26
13.12.2019, 13:52 3
Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure TForm3.Button1Click(Sender: TObject);
var y,x,a:integer;
begin
a:= StrtoInt(edit1.Text);
PaintBox1.Canvas.Brush.Color:=clWhite;
PaintBox1.Canvas.FillRect(ClientRect);
for x := 1 to PaintBox1.Width do
begin
  y:=Round(((3*x/100*sqr(x/100)-a)));;
  PaintBox1.Canvas.Pixels[x,y]:=clBlack;
end;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.12.2019, 13:52

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Создать приложение, рисующее солнце, в котором лучи меняют свое направление по часовой стрелке
Создать приложение, рисующее солнце, в котором лучи меняют свое направление по часовой стрелке ...

Синий или красный?
требуется купить Rfid считыватель, но меня пугает цвет, вроде все детали были красными, ничего что...

Какой оптоволоконный кабель лучше синий или зелёный?
Подскажите пожалуйста. Вычитала: SC/PC-SC/PC — используются для построения интернет сетей...

Программа, которая по нажатию клавиши r или к рисует красный прямоугольник, а по нажатию q или й завершает работу
по нажатию клавиши r или к рисует красный прямоугольник, а по нажатию q или й завершает...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.