FreePascal.ru

Баг проявляется, как минимум, на двух линукс-компах с разными видеокартами и на двух разных оконных менеджерах. Это слишком много. А win-версия работает в нативной Windows 7, но глючит в вайне.

Спасибо за попытку помочь. Если дойдут руки - влезу и в LCL, но... Программирование - не моя основная работа, а последние годы - даже и не хобби. Прогу эту я сваял под свои нужды как биолога - обмерять морфометрические признаки на фотографиях насекомых - причем желательна была еще и ...

2 WAYFARER:
А какое окружение и какой оконный менеджер у Вас?

Выслать сейчас могу только 64-битную сборку. 32-битная осталась на работе - ведут себя они одинаково. Только через форум мне этого не сделать: "Слишком большой размер вложения. Максимальный разрешённый размер: 256 КБ.". Так что посылаю ...

А если я исходники этой проблемной проги сюда скину? Может, я где-то сам дурак все-таки?
Там меньше 1000 строк.

Добавлено спустя 10 минут 54 секунды:
В общем, вот оно...

Эта штука работает нормально. Нужно бы проверить вариант с двумя окнами - обычным и "плавающим". Попробую сотворить на основе и испытать.

Добавлено спустя 14 минут 35 секунд:
В общем, и двухоконный вариант ведет себя вполне адекватно. Выходит, проблема где-то в LCL?

Спасибо, попробую - хотя лазарь не дельфи, а иксы - не винда. О результате сообщу - думаю, он может быть интересен не только мне одному.

Добавлено спустя 6 минут 6 секунд:
Пока впечатление такое, что в LCL отсутствует TApplication.RestoreTopMosts

Попробовал все эти советы - результат нулевой. Кстати, обратил внимание вот на какую вещь: окно это как бы все-таки остается поверх всех открытых - кроме 2-й формы этого же самого приложения (которое, кстати, имеет FormStyle=fsNormal - вот такой бред).

Пробовал по-всякому, и так тоже. Не помогало.

Дык я на одних и тех же машинах разные оконные менеджеры запускаю. Ну, и собираю из исходников прогу там же.

Описываю ситуацию.
Linux, GTK2, Lazarus 1.4.4.

Тривиальный код: форма, кнопочка, обработчик кнопки вот такого вида:
procedure TForm1.Button1Click(Sender: TObject);
begin
Hide;
Sleep(700);
Show;
end;

И занятный баг.
Дело в том, что форма имеет свойство FormStyle со значением fsSystemStayOnTop ...

Спасибо Посмотрю непременно. Правда, если эту штуку буду демонстрировать с Вашими патчами - теперь же на Вас ссылаться придется Хоть скажите, как правильно Вас упоминать.

За это время сделал вот что: пересобрал "бегающий" тестик под qt и увидел, что там Refresh просто не работает (нет отрисовки контрола во время "бега"). Рискну предположить, что в Lazarus 1.2.x/GTK2 было так же. Возможно, в ближайшее время проверю на компе со старым Лазарем (на этом переставлять ...

pupsik писал(а):Хм лазарь 1.5, фпс 3.3.1, ну..у и жтк2 = 0 лагов. Т.е. ваш пример не лагает по отрисове. Скачет себе.

С отрубленным Refresh или с работающим?

Поставил опыт. С Refresh и без Refresh у меня "побегали" TLabel и TStaticText. Без Refresh у меня процесс перемещения контролов вообще не виден. C Refresh "на глазок" контрол типа TLabel при равных условиях в несколько раз уступает в "скорости пробега" контролу типа TStaticText. Намекаю: TLabel, как ...

В данном случае - примерно так, для отрисовки и, еще в большей мере, для возможности остановить цикл вручную через стандартный интерфейс. Конечно, теоретически можно было бы воткнуть в главный цикл Application.ProcessMessages и обойтись одним потоком, но этот способ очень сильно подтормаживает цикл ...