Программа в Delphi 10 Seattle. Создать приложение, которое будет выводить изображение домика

@Петр135 · Регистрация: 10.06.2017

Author24 — интернет-сервис помощи студентам

Создать приложение, которое будет выводить изображение домика.

@droider · 13.06.2017, 10:34

Сообщение от Петр135

выводить изображение домика

Петр135, есть такое понятие, называется "поиск". Вам оно не знакомо?

Одна из тем форума ---> Рисунок В Делфи

Можно код сделать чуть более компактным

Delphi

procedure TForm1.FormPaint(Sender: TObject);
begin
with Canvas do begin
MoveTo(50, 200);
LineTo(100, 150);
LineTo(150, 200);
LineTo(50, 200);
LineTo(50, 275);
LineTo(150, 275);
LineTo(150, 200);
MoveTo(60, 220);
LineTo(110, 220);
LineTo(110, 250);
LineTo(60, 250);
LineTo(60, 220);
MoveTo(85, 220);
LineTo(85, 250);
MoveTo(120, 240);
LineTo(140, 240);
LineTo(140, 270);
LineTo(120, 270);
LineTo(120, 240);
MoveTo(120, 150);
LineTo(130, 150);
LineTo(130, 180);
MoveTo(120, 150);
LineTo(120, 170);
end;
 
end;
 
end.

@Петр135 1 / 9 / 0 Регистрация: 10.06.2017 Сообщений: 162
		1
	Программа в Delphi 10 Seattle. Создать приложение, которое будет выводить изображение домика 13.06.2017, 09:33. Показов 2321. Ответов 1 Метки нет (Все метки) Создать приложение, которое будет выводить изображение домика. 0

	13.06.2017, 10:34

Программа в Delphi 10 Seattle. Создать приложение, которое будет выводить изображение домика

Решение