Не появляется рисунок

@slavdon63 · Регистрация: 29.09.2013

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

Здравствуйте!
Задача такова: На экране должен перемещаться кораблик.
Объясните мне, пожалуйста, почему у меня на экране пусто? Я никак не разберусь, в чем ошибка...
Код привожу.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;
 
type
  TForm1 = class(TForm)
  Timer1: TTimer;
  procedure Timer1Timer(Sender: TObject);
  procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  x,y: integer;
 
implementation
 
{$R *.dfm}
  procedure Titanik(x,y: integer; color: TColor);
  const dx = 5; dy = 5;
  var
  buf: TColor;
  begin
  with form1.canvas do begin
  buf:=pen.Color;
  pen.Color:=color;
LineTo(x,y-2*dy);
LineTo (x+10*dx, y-2*dy);
LineTo (x+11*dx, y-3*dy);
LineTo (x+17*dx,y-3*dy);
LineTo (x+14*dx, y);
LineTo (x,y);
MoveTo(x+3*dx,y-2*dy);
LineTo (x+4*dx, y-3*dy);
LineTo (x+4*dx, y-4*dy);
LineTo (x+13*dx,y-4*dy);
LineTo (x+13*dx, y-3*dy);
MoveTo(x+5*dx,y-3*dy);
LineTo (x+9*dx, y-3*dy);
Rectangle (x+8*dx, y-4*dy, x+11*dx, y-5*dy);
Rectangle (x+7*dx, y-4*dy, x+8*dx, y-7*dy);
Ellipse (x+11*dx,y-2*dy,x+12*dx,y-1*dy);
Ellipse (x+13*dx, y-2*dy, x+14*dx, y-1*dy);
MoveTo(x+10*dx,y-5*dy);
LineTo(x+10*dx,y-10*dy);
MoveTo(x+17*dx,y-3*dy);
LineTo(x+10*dx,y-10*dy);
LineTo(x,y-2*dy);
pen.Color:=buf;
end;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Titanik(x,y,form1.color);
if x < Form1.ClientWidth
then x := x+5
else begin
y := Random(50) + 100;
end;
Titanik(x,y,clWhite);
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
x:=0; y:=100;
Form1.Color:=clNavy;
Timer1.Interval := 50;
end;
end.

@northener · 08.10.2013, 02:16

Сообщение от angstrom

События не были назначены.

Да. Ларчик просто открывался

@Audetore · 20.10.2013, 22:28

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
procedure Titanik(x, y: integer; color: TColor);
const
  dx = 5;
  dy = 5;
var
  buf: TColor;
begin
  with form1.canvas do
  begin
    buf := pen.Color;
    pen.Color := color;
    MoveTo(x, y);
    LineTo(x, y - 2 * dy);
    LineTo(x + 10 * dx, y - 2 * dy);
    LineTo(x + 11 * dx, y - 3 * dy);
    LineTo(x + 17 * dx, y - 3 * dy);
    LineTo(x + 14 * dx, y);
    LineTo(x, y);
    MoveTo(x + 3 * dx, y - 2 * dy);
    LineTo(x + 4 * dx, y - 3 * dy);
    LineTo(x + 4 * dx, y - 4 * dy);
    LineTo(x + 13 * dx, y - 4 * dy);
    LineTo(x + 13 * dx, y - 3 * dy);
    MoveTo(x + 5 * dx, y - 3 * dy);
    LineTo(x + 9 * dx, y - 3 * dy);
    Rectangle(x + 8 * dx, y - 4 * dy, x + 11 * dx, y - 5 * dy);
    Rectangle(x + 7 * dx, y - 4 * dy, x + 8 * dx, y - 7 * dy);
    Ellipse(x + 11 * dx, y - 2 * dy, x + 12 * dx, y - 1 * dy);
    Ellipse(x + 13 * dx, y - 2 * dy, x + 14 * dx, y - 1 * dy);
    MoveTo(x + 10 * dx, y - 5 * dy);
    LineTo(x + 10 * dx, y - 10 * dy);
    MoveTo(x + 17 * dx, y - 3 * dy);
    LineTo(x + 10 * dx, y - 10 * dy);
    LineTo(x, y - 2 * dy);
    pen.Color := buf;
  end;
 
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Titanik(x, y, form1.color);
  if x < Form1.ClientWidth then
    x := x + 5
  else
  begin
    x := 0;
    y := Random(50) + 100;
  end;
  Titanik(x, y, clWhite);
end;
 
procedure TForm1.FormActivate(Sender: TObject);
begin
  x := 0;
  y := 100;
  Form1.Color := clNavy;
  Timer1.Interval := 50;
end;
 
end.

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .