lazarus

[tema]

Последнее обновление принесло ошибки, о которых я писал тут:
http://freepascal.ru/forum/viewtopic.php?f=5&t=17326#p111891 и ниже. http://mantis.freepascal.org/view.php?id=31486
А так же ещё не решена проблема будущего (fpc 3.1.1 и lazarus 1.7):
http://bugs.freepascal.org/view.php?id=31445
и
http://mantis.freepascal.org/view.php?id=31447
Сейчас их нет, но дальше обновлять не стоит, пока точно не скажут, что эти проблемы исправлены, т.к. они такие же критичные как прыгающий курсор. Эта фигня обязательно вылезет в 1.8, раз она сейчас присутствует в 1.7.
Думаю, надо вернуть компилятор 3.0.0 и оставить Лазарус 1.6.2 пока не утрясутся эти реальные проблемы. Т.к. с прыжком курсора справиться легко, а вот эти добавленные баги реально не решаемы пока.

Попытка откатить у меня не удалась. 
Удалил всё что связано с fpc взял пакеты из кеша 3.0.0 и лазарус 1.6.2 установил это, но эти глюки остались в программе... Вероятно, они где-то глубже... 
Прям не знаю что теперь делать! Программа нужна срочно в работающем виде!
Всё ок я неправильно устанавливал. Я пытался поставить эти rpm так: apt-get install и перечислял файлы и он просто ставил новые, а не те которые в папке, хотя показывал, что отбирал те, которые в в папке. Помогло:

Код: [Выделить]

rpm -Uvh *.rpmВ общем, на 3.0.0 и 1.6.2 этих ошибок нет. Есть только прыжок курсора, но он легко лечится.
Для lazarus 1.6.4 пришлось не спать эту ночь 
https://bugzilla.altlinux.org/show_bug.cgi?id=33204

[Skull]

Так починен же прыжок курсора.
Что касается даунгрейда, то подключается архив, убирается бранч и выполняется http://altlinux.org/downgrade

[tema]

Так починен же прыжок курсора.

Починена одна ошибка добавлена другая 

[tema]

Прошло всего лишь три года и баг выловлен! 
https://bugs.freepascal.org/view.php?id=34678
Коллеги, любители Паскаля, поздравляю! Теперь осталось дождаться исправления этого в апстриме.
Пока же для апстрима есть такое моё решение:

Код: [Выделить]

I added the following code to make it work:
MaskEdit.pp
==========
// Single key down procedure
procedure TCustomMaskEdit.KeyDown(var Key: Word; Shift: TShiftState);
begin
  Inherited KeyDown(Key, Shift);
  // Not masked -> old procedure
  if not IsMasked then
  begin
    Exit;
  end;
/////+++++++++++++++++
  if SelLength=0 then
    SetSel(FCursorPos, FCursorPos+1);
/////+++++++++++++++++
  FCursorPos := GetSelStart;
  // shift and arrowkey -> old procedure
  if (ssShift in Shift) then
  begin
    if (Key = VK_LEFT) or (Key = VK_RIGHT) or
       (Key = VK_HOME) or (Key = VK_END) then

[YYY]

С багом в своих поделках не сталкивался, но всегда хорошо, когда жучков ловят :)