Глюки в 3.4 в Win10

@Massaraksh7 · Регистрация: 27.05.2017

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

Вроде, перешёл на 3.4, но, как и ожидал - рано.
Не сразу, но после определённых манипуляций, вид курсора мыши перестаёт изменяться. То есть, делаю

Pascal
1
PaintBox.Cursor:=crMyCursor

но ничего не происходит.
Учитывая, что большая часть работы со схемами построена на этом, работать в программе становится неприемлемо неудобно.
Допускаю, что у меня где-то ошибка, но, что в 3.4 на Linux, что в 2.2.6 на Win10 и Linux, такого не происходит.
Вынужден откатиться к 2.2.6

@Massaraksh7 · 10.10.2024, 02:15 **[ТС]**

Если сделать чистый пример, то всё работает.
В моей же программе интересная ситуация - при входе в один конкретный объект тоже всё работает, в другой - нет. Если после того, как вошёл в другой объект, и там перестал меняться курсор, зайти снова в первый объект - и там всё ломается.
При этом значение курсору присваивается. То есть, если я пишу

Pascal
1
2
Paintbox.Cursor:=crMyCursor;
Label1.Caption:=IntToStr(Paintbox.Cursor);

то вижу, что значение курсора правильное, такое, как надо. Но вид самого курсора при этом не изменяется.
Ошибок по памяти при этом нет. То есть что, что было занято - освобождено.

@Massaraksh7 · 08.02.2025, 03:08 **[ТС]**

Уже версия 3.8...
Ну вот что они такого сделали, что курсор в этом месте не меняется, в отличие от 2.2.6 ?

@Usaga · 08.02.2025, 04:32

Massaraksh7, я не шарю в Lazarus. Но возникает вопрос, а почему бы не завести тикет авторам Лазаря с прикладыванием минимального проекта, где можно увидеть проблему?

Обычно так вопросы и решаются.

@Massaraksh7 · 08.02.2025, 04:35 **[ТС]**

В том-то и дело, что если я создаю минимальный проект, ситуация не воспроизводится.
А прикладывать весь проект на 100000 строк глупо, никто не будет разбираться.
Тем более, там ещё базы данных.

@AzAtom · 08.02.2025, 04:56

Massaraksh7, а если в новый проект скопировать код из глючного?

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

после определённых манипуляций, вид курсора мыши перестаёт изменяться.

И эти определённые манипуляции гарантированно приводят к сбою?

@Massaraksh7 · 08.02.2025, 05:37 **[ТС]**

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

Massaraksh7, а если в новый проект скопировать код из глючного?

Не совсем понял.

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

И эти определённые манипуляции гарантированно приводят к сбою?

Вот сейчас на 3.8 проверил - сразу проявляются, без всяких манипуляций.

@AzAtom · 08.02.2025, 12:08

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

Не совсем понял.

В смысле, если:

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

я создаю минимальный проект, ситуация не воспроизводится.

то дальше перенести всё из того проекта. Желательно, проверяя поэтапно, на каком месте начинает глючить.

@Massaraksh7 · 08.02.2025, 17:32 **[ТС]**

Тут, собственно, небольшие блоки кода, вроде бы, ни с чём не связанные.

@Cyborg Drone · 09.02.2025, 00:04

Massaraksh7, фотографии текста запрещены. Пожалуйста, в следующий раз выкладывайте код в виде текста, заключённного в соответствующие теги, а проблемные места выделяйте комментариями.

Пока что картинку нельзя процитировать или протестировать. Для проверки Ваш код придётся перепечатывать врукопашную. Так что, выкладывание текста картинкой, по сути, есть неуважение к тем, кто желает Вам помочь. Неожиданно, обидно, но это так и есть.

На заметку: если желаете, с помощью тегов можете начать нумерацию строк со значения, которое Вам нужно:
[PASCAL=+100500]<Ваш код>[/PASCAL]
или вовсе отключить нумерацию строк:
[PASCAL=-1]<Ваш код>[/PASCAL].

@Massaraksh7 · 09.02.2025, 01:19 **[ТС]**

Хорошо, на будущее учту. Но этот код я выкладывал не для того, чтобы его кто-то проверил, тем более, это неполная информация (там нет самих ресурсов), а для иллюстрации "чистоты" действий.

@northener · 09.02.2025, 01:58

Не по теме:

Сообщение от Cyborg Drone

На заметку: если желаете, с помощью тегов можете начать нумерацию строк со значения, которое Вам нужно:

Pascal
100500
<Ваш код>

Это на любом теге из разряда языков работает? Или только на PASCAL?

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

Хорошо, на будущее учту. Но этот код я выкладывал не для того, чтобы его кто-то проверил, тем более, это неполная информация (там нет самих ресурсов), а для иллюстрации "чистоты" действий.

Это бред. Как можно проиллюстрировать "чистоту действий" фотками частей кода людям, которые про весь этот код не знают ничего?

@volvo · 09.02.2025, 10:51

Не по теме:

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

Это на любом теге из разряда языков работает?

Абсолютно. Все теги подсветки умеют отключать нумерацию или начинать ее с произвольного числа.

@Massaraksh7 · 20.02.2025, 03:23 **[ТС]**

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

Желательно, проверяя поэтапно, на каком месте начинает глючить.

Ура! Нашёл, следуя твоему совету. Это был ещё тот квест, учитывая объём кода...
Но, пока только нашёл "из-за чего", хотя это уже 99% работы. Потом буду искать "почему", ну это уже будет легче.

@Massaraksh7 · 20.02.2025, 16:56 **[ТС]**

Проект прикреплён. Ошибка (?) в строке 131 модуля UBlockList.pas

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TBlockList.MouseMove(Shift: TShiftState;X: Integer; Y: Integer);
var i:integer;
begin
  inherited;
  for i:=0 to nbc-1 do
     begin
     if (X>Bc[i].col*dx) and (X<(Bc[i].col+Bc[i].dx)*dx) and
        (Y>Bc[i].row*dy) and (Y<(Bc[i].row+Bc[i].dy)*dy) and ((Bc[i].typ=2) or (Bc[i].typ=3)) then
         begin
         Screen.Cursor:=crHandPoint;
         exit;
         end;
     end;
Screen.Cursor:=crArrow;   ///~~~Вот это бл....ое место! Надо Self.Cursor. 
end;

Суть в том, что при создании в компоненте TBlockList отрабатывается MouseMove и курсор меняется на crArrow. И при вызове дальнейших форм компонент не уничтожается, а продолжает работать. И если в 2.2.6 его события не отрабатывались в других формах, то в последующих версиях стали отрабатываться и курсор менялся, конечно, но при любом движении мыши возвращался снова в crArrow. Где тут ошибка, в 2.2.6 или в следующих версиях, сказать не берусь. Главное, что всё прояснилось.

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

@Usaga 14318 / 9403 / 1356 Регистрация: 21.01.2016 Сообщений: 35,468
	08.02.2025, 04:32
	Massaraksh7, я не шарю в Lazarus. Но возникает вопрос, а почему бы не завести тикет авторам Лазаря с прикладыванием минимального проекта, где можно увидеть проблему? Обычно так вопросы и решаются. 0

@Massaraksh7 Айлурофил 516 / 449 / 112 Регистрация: 27.05.2017 Сообщений: 2,716 Записей в блоге: 5
	08.02.2025, 04:35 [ТС]
	В том-то и дело, что если я создаю минимальный проект, ситуация не воспроизводится. А прикладывать весь проект на 100000 строк глупо, никто не будет разбираться. Тем более, там ещё базы данных. 0

@Massaraksh7 Айлурофил 516 / 449 / 112 Регистрация: 27.05.2017 Сообщений: 2,716 Записей в блоге: 5
	08.02.2025, 17:32 [ТС]
	Тут, собственно, небольшие блоки кода, вроде бы, ни с чём не связанные. Миниатюры 0

@Cyborg Drone Модератор 10451 / 5746 / 3409 Регистрация: 17.08.2012 Сообщений: 17,480
	09.02.2025, 00:04
	Massaraksh7, фотографии текста запрещены. Пожалуйста, в следующий раз выкладывайте код в виде текста, заключённного в соответствующие теги, а проблемные места выделяйте комментариями. Пока что картинку нельзя процитировать или протестировать. Для проверки Ваш код придётся перепечатывать врукопашную. Так что, выкладывание текста картинкой, по сути, есть неуважение к тем, кто желает Вам помочь. Неожиданно, обидно, но это так и есть. На заметку: если желаете, с помощью тегов можете начать нумерацию строк со значения, которое Вам нужно: [PASCAL=+100500]<Ваш код>[/PASCAL] или вовсе отключить нумерацию строк: [PASCAL=-1]<Ваш код>[/PASCAL]. 0

@Massaraksh7 Айлурофил 516 / 449 / 112 Регистрация: 27.05.2017 Сообщений: 2,716 Записей в блоге: 5
	09.02.2025, 01:19 [ТС]
	Хорошо, на будущее учту. Но этот код я выкладывал не для того, чтобы его кто-то проверил, тем более, это неполная информация (там нет самих ресурсов), а для иллюстрации "чистоты" действий. 0

Глюки в 3.4 в Win10

Решение