Не могу убрать линию

@Onyschuck · Регистрация: 22.02.2016

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

Не могу убрать диагональною линию, как сделать что бы она была как цвет прапора, а не пунктиром?

Pascal
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
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
program Flag1;
 
uses
  GraphABC;
 
var
  i, j: integer;
 
begin
  SetWindowTop(0);
  SetWindowLeft(0);
  Window.Caption := 'Папуа - Нова Гвінея';
  SetWindowHeight(768);
  SetWindowWidth(1366);
  Line(0, 0, 1389, 758);
  Line(0, 0, 0, 768);
  Line(0, 768, 1366, 768);
  FloodFill(100, 400, clBlack);
  FloodFill(500, 100, clRed);
  //______________________________________
  
  {while i < 1389 do
  begin
  TextOut(i,10, IntToStr(i)); 
  inc(i,50);
  SetPenColor(clYellow);
  Line(i,0,i,768)
  end;
  
  while j < 768 do
  begin
  TextOut(10,j, IntToStr(j)); 
  inc(j,50);
  SetPenColor(clYellow);
  Line(0,j,1389,j);
  end;
  }
  //_______________________________________
  
  //Зірка 1
  SetPenColor(RGB(3, 3, 3));
  Line(342, 238, 326, 276);
  Line(342, 238, 357, 276);
  Line(326, 276, 277, 277);
  Line(357, 276, 408, 276);
  Line(277, 277, 315, 300);
  Line(408, 276, 369, 300);
  Line(315, 300, 301, 336);
  Line(369, 300, 383, 336);
  Line(301, 336, 342, 315);
  Line(383, 337, 342, 315);
  FloodFill(338, 286, clWhite); 
  
  //Зірка 2
  SetPenColor(RGB(3, 3, 3));
  Line(186, 388, 169, 427);
  Line(186, 388, 201, 427);
  Line(169, 427, 120, 427);
  Line(201, 427, 252, 427);
  Line(120, 427, 159, 450);
  Line(252, 427, 212, 450);
  Line(159, 450, 145, 486);
  Line(212, 450, 227, 486);
  Line(145, 486, 186, 464);
  Line(227, 486, 186, 464);
  FloodFill(189, 437, clWhite); 
  
  //Зірка 3
  SetPenColor(RGB(3, 3, 3));
  Line(498, 377, 481, 414);
  Line(498, 377, 512, 414);
  Line(481, 414, 431, 414);
  Line(512, 414, 564, 414);
  Line(431, 414, 470, 440);
  Line(564, 414, 525, 440);
  Line(470, 440, 457, 475);
  Line(525, 440, 538, 475);
  Line(457, 475, 498, 454);
  Line(538, 476, 498, 454);
  FloodFill(496, 429, clWhite);
  
  //Зірка 4
  SetPenColor(RGB(3, 3, 3));
  Line(342, 591, 325, 628);
  Line(342, 591, 357, 628);
  Line(325, 628, 276, 628);
  Line(357, 628, 408, 628);
  Line(276, 628, 315, 652);
  Line(408, 628, 369, 652);
  Line(315, 652, 301, 688);
  Line(369, 652, 382, 688);
  Line(301, 688, 342, 667);
  Line(382, 688, 342, 667);
  FloodFill(350, 641, clWhite);
  
  //Зірка 5
  SetPenColor(RGB(3, 3, 3));
  Line(412, 509, 404, 527);
  Line(412, 509, 419, 527);
  Line(404, 527, 379, 527);
  Line(419, 527, 445, 527);
  Line(379, 527, 398, 540);
  Line(445, 527, 425, 540);
  Line(398, 540, 392, 558);
  Line(425, 540, 432, 558);
  Line(392, 558, 412, 547);
  Line(432, 558, 412, 547);
  FloodFill(404, 536, clWhite);
  
end.

@shilko2013 · 06.06.2016, 16:10

Onyschuck, Код у тебя отвратный, сделай 1366 и 786 константами и с ними работай, подгонять код под экран - глупость.

Добавлено через 6 минут

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
uses graphabc;
const width = 1366; Heigth = 786;
BEGIN
SetWindowTop(0);
SetWindowLeft(0);
SetWindowHeight(Heigth);
SetWindowWidth(width);
Window.Caption := 'Папуа - Нова Гвінея';
Line (0,0,width,Heigth);
FloodFill (50,50,clBlack);
SetPenColor (clWhite);
Line (0,0,width,Heigth);
END.

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .