Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
2 / 2 / 1
Регистрация: 22.02.2016
Сообщений: 55

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

06.06.2016, 14:57. Показов 1243. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Не могу убрать диагональною линию, как сделать что бы она была как цвет прапора, а не пунктиром?
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.
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
06.06.2016, 14:57
Ответы с готовыми решениями:

Помогите убрать линию!!!
Нарисовал линию Canvas.LineTo, Canvas.MoveTo. Вопрос: Каким образом ее программно можно удалить? допустим при нажатии кнопки ЛИНИЯ-рисуется...

Как убрать линию в Word
Как убрать линию в Word, которая идет после темы

Распознавание капчи, как убрать линию?
добрый день, знаю, что тема заезжена , но всеж. Есть капча : проблема только в линии, как ее убрать ? ведь она тоже черная как и сам...

1
 Аватар для shilko2013
257 / 234 / 185
Регистрация: 02.04.2016
Сообщений: 898
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.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
06.06.2016, 16:10
Помогаю со студенческими работами здесь

Как убрать линию возле логотипа
Здравствуйте. подскажите, как убрать горизонтальную линию возле логотипа... сайт www.хм72.рф мне кажется это прописано в шаблоне где это...

Как узнать текущую выводимую строку в отчёте и убрать линию внизу
Что-то уже замучился, ТП.Область().Рамка(1,0,1.1), снимает по всей таблице... ...

Как убрать цифру 1, не могу ее убрать после установки шаблона
Вот ссылка на мой сайт http://qhag.ru/ На каждой странице стоит ЦИФРА &quot;1&quot;. Как ее убрать не знаю, помогите, пожалуйста. Сайт сделан на...

Не могу нарисовать линию
Вот код private void Form1_Paint(object sender, PaintEventArgs e) { Pen pen = new Pen(Color.Red); ...

Не могу поставить на место вертикальную линию
&lt;!DOCTYPE html&gt; &lt;html&gt; &lt;head&gt; &lt;meta charset=&quot;utf-8&quot;&gt; &lt;title&gt;стр&lt;/title&gt; &lt;/head&gt; &lt;style&gt; p{ margin-top: 90px; ...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Автозаполнение реквизита при выборе элемента справочника
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, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru