Не срабатывает Window.Clear

@Puporev · Регистрация: 18.05.2008

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

Наставьте на путь истинный, почему в простом АВС это

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses graphABC,Events;
procedure keydown(key:integer);
begin
case key of
VK_Left:begin
      Clearwindow(clBlue);
      setbrushstyle(bsClear);
      Circle(200,200,100);
      end;
VK_Right:begin
      Clearwindow(clYellow);
      setbrushstyle(bsClear);
      Circle(200,200,150);
      end;
 end;
 end;
 begin
 onkeydown:=keydown
 end.

работает
а в АВС.net это же

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses graphABC;
procedure keydown(key:integer);
begin
case key of
VK_Left:begin
      window.Clear(clBlue);
      setbrushstyle(bsClear);
      Circle(200,200,100);
      end;
VK_Right:begin
      window.Clear(clYellow);
      setbrushstyle(bsClear);
      Circle(200,200,150);
      end;
 end;
 end;
 begin
 onkeydown:=keydown
 end.

не работает?

@Sun Serega · 23.11.2018, 17:51

Дело в

Pascal
1
        setbrushstyle(bsClear);

Оно влияет и на заполнение области. А window.Clear вызывает FillRect.

Вот только теперь внимание вопрос - правильно ли это?)) Как в простом ABC реализована очистка экрана?

@Puporev · 23.11.2018, 17:56 **[ТС]**

Да нет, дело в другом, так же работает

Pascal
1
2
3
4
5
6
7
8
uses GraphABC;
begin
Window.Clear(clYellow);
Circle(200,200,150);
readln;
Window.Clear(clLime);
Circle(200,200,100);
end.

@Sun Serega · 23.11.2018, 18:02

Ну и где тут

Pascal
1
        setbrushstyle(bsClear);

?

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

Pascal
1
2
3
4
5
6
7
8
uses GraphABC;
 
begin
  Window.Clear(clYellow);
  readln;
  setbrushstyle(bsClear);
  Window.Clear(clLime);
end.

Вот так уже не работает.

Я отладкой прошёлся по всему что там происходит перед тем как писать...

Добавлено через 1 минуту
И, всё же - это важно:

Сообщение от Sun Serega

Вот только теперь внимание вопрос - правильно ли это?)) Как в простом ABC реализована очистка экрана?

@Puporev · 23.11.2018, 18:18 **[ТС]**

Да я не знаю ни как в простом, ни как в .net.
Просто в простом если нужно вывести текст, то нужно setbrushstyle(bsClear), иначе под текстом появляется ненужный фон, а вот в .net оказывается этого нет. Короче спасибо.

Добавлено через 1 минуту
Нет, все не так, сейчас запустил, фон под текстом.

@Sun Serega · 23.11.2018, 18:20

Ну, возвращайте на обычную кисть, после рисования текста.

@Puporev · 23.11.2018, 18:21 **[ТС]**

Да нет, опять напутал, запустил программу простого АВС в net, сейчас разберусь.

@Sun Serega · 23.11.2018, 18:22

В .Net можно ещё ставит цвет кисти - пустой. Color.Empty или что то типо того.

@Puporev · 23.11.2018, 18:24 **[ТС]**

Вот написал, работает.
Двумерный динамический массив

Новые блоги и статьи Все статьи Все блоги /
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	23.11.2018, 18:18 [ТС]
	Да я не знаю ни как в простом, ни как в .net. Просто в простом если нужно вывести текст, то нужно setbrushstyle(bsClear), иначе под текстом появляется ненужный фон, а вот в .net оказывается этого нет. Короче спасибо. Добавлено через 1 минуту Нет, все не так, сейчас запустил, фон под текстом. 0

@Sun Serega 2355 / 1458 / 526 Регистрация: 07.04.2017 Сообщений: 4,798
	23.11.2018, 18:20
	Ну, возвращайте на обычную кисть, после рисования текста. 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	23.11.2018, 18:21 [ТС]
	Да нет, опять напутал, запустил программу простого АВС в net, сейчас разберусь. 0

@Sun Serega 2355 / 1458 / 526 Регистрация: 07.04.2017 Сообщений: 4,798
	23.11.2018, 18:22
	В .Net можно ещё ставит цвет кисти - пустой. Color.Empty или что то типо того. 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	23.11.2018, 18:24 [ТС]
	Вот написал, работает. Двумерный динамический массив 0