Просьба плотно потестировать Lazarus

[dps]

Может файл особый?

Ошибка выдается на любом файле.
В ubuntu 8.04 x64 совершаю следующие действия:
1. запускаю Lazarus с пустым проектом
2. пытаюсь изменить кодировку файла.
В консоли получаю сообщения:

Код: Выделить всё

TMainIDE.ParseCmdLineOptions:
  PrimaryConfigPath="/home/dps/.lazarus"
  SecondaryConfigPath="/etc/lazarus"
NOTE: help options config file not found - using defaults
TMainIDE.DoNewProject A
TCustomFormEditor.CreateComponent Form1:TForm1 True
TMainIDE.DoNewEditorFile END unit1.pas
TSourceNotebook.EncodingClicked CP1251
TSourceNotebook.EncodingClicked Old=utf8 New=CP1251
TApplication.HandleException Access violation
  Stack trace:
  $00000000006A5307


[v-t-l]

Баг в lcl/include/canvas.inc

Код: Выделить всё

procedure TCanvas.GradientFill(ARect: TRect; AStart, AStop: TColor;
  ADirection: TGradientDirection);
var
  RStart, RStop: Byte;
  GStart, GStop: Byte;
  BStart, BStop: Byte;
  RDiff, GDiff, BDiff: Integer;
  Count, I: Integer;

begin
  RedGreenBlue(ColorToRGB(AStart), RStart, GStart, BStart);
  RedGreenBlue(ColorToRGB(AStop),  RStop,  GStop,  BStop);

  if ADirection = gdVertical then Count := ARect.Bottom - ARect.Top
                             else Count := ARect.Right - ARect.Left;
                             
  RDiff := RStop - RStart;
  GDiff := GStop - GStart;
  BDiff := BStop - BStart;

  Changing;
  for I := 0 to Count do
  begin
    Pen.Color := RGBToColor(RStart + (i * RDiff) div Count,
                            GStart + (i * GDiff) div Count,
                            BStart + (i * BDiff) div Count); // BUG: if Count=0 then we'll got "divide by zero" error


Должно быть:

Код: Выделить всё

procedure TCanvas.GradientFill(ARect: TRect; AStart, AStop: TColor;
  ADirection: TGradientDirection);
var
  RStart, RStop: Byte;
  GStart, GStop: Byte;
  BStart, BStop: Byte;
  RDiff, GDiff, BDiff: Integer;
  Count, I: Integer;

begin
  if ((ARect.Bottom - ARect.Top)=0) or ((ARect.Right - ARect.Left)=0) then Exit; // Nothing to paint
  ...


[Павел Ишенин]

v-t-l, спасибо, исправил.

[v-t-l]

v-t-l, спасибо, исправил.

А я дорвался до багтрекера и уже запостил . Issue ID 0012115
Кстати, стоит подумать насчет такой проверки в некоторых других процедурах. Зачем производить сложные вычисления, если рисовать нечего или не на чем.

Добавлено спустя 10 минут 53 секунды:
Посмотрел исправления. Не совсем хорошо. Я тоже сначала подумал перенести вычисление Count в начало, но если допустим, что ADirection = gdVertical, а ширина Rect = 0 или ADirection = gdHorizontal, а высота Rect = 0, то будем долго и упорно вычислять что-то для рисования нигде.

[Павел Ишенин]

Посмотрел исправления. Не совсем хорошо. Я тоже сначала подумал перенести вычисление Count в начало, но если допустим, что ADirection = gdVertical, а ширина Rect = 0 или ADirection = gdHorizontal, а высота Rect = 0, то будем долго и упорно вычислять что-то для рисования нигде.

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

[alexs]

v0.9.25 r15918:16519M i386-linux-gtk 2 (beta)
Free Pascal Compiler version 2.3.1 [2008/09/04] for i386
Copyright (c) 1993-2008 by Florian Klaempfl

Не сохраняются булевые проперти. А именно - на формах лежат объекты FBDataSet - выставляю свойство CashedUpdates = true в инспекторе - при запуске программы - они false. Таже петрушка для элементов TToolPanel - TToolbarItem - свойство ShowCaption.

[Павел Ишенин]

alexs, это новый баг в fpc. Используй 2.2.2 И еще, читай чаще личные сообщения.

[Logo]

Ой! В QT автодополнение совсем перестало работать. С латиницей ошибка, а на кирилицу не реагирует

Не нашел проблем. Нужен пример.

Linux, Lazarus rev. 16525
Widgetsets - QT
Перепробовал все, что мог, с надежой, что что-то у меня не так, но ошибка осталась.
AutoComleteText = True, при наборе латинских символов - RunError(233), при наборе кирилицы - не дополняет.

onUTF8KeyPress(Sender: TObject; var UTF8Key: TUTF8Char);
в UTF8Key не понятно в какой кодировке передается символ.

GTK работает превосходно!!!

testCombo.tar

[v-t-l]

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

Врядли сторонний разработчик полезет во внутренности LCL, если не возникнет ошибки. Я туда попал именно из-за ошибки при использовании стороннего компонента.
Поэтому предлагаю такой вариант:

Код: Выделить всё

procedure TCanvas.GradientFill(ARect: TRect; AStart, AStop: TColor;
  ADirection: TGradientDirection);
var
  RStart, RStop: Byte;
  GStart, GStop: Byte;
  BStart, BStop: Byte;
  RDiff, GDiff, BDiff: Integer;
  Count, I: Integer;
  RH, RW: Integer; // or we can temporary use RDiff, GDiff
begin
  RH := ARect.Bottom - ARect.Top;
  RW := ARect.Right - ARect.Left;

  if (RH=0) or (RW=0) then Exit; // Nothing to paint

  if ADirection = gdVertical then
    Count := RH
  else
    Count := RW;



Добавлено спустя 10 минут 6 секунд:
А еще лучше описать отдельную функцию, что-то типа
function IsValidRect(aRect: TRect): boolean; inline;
и возможно стоит проверять размеры на <=0, а не просто =0.

[Alexx2000]

Поправил: http://bugs.freepascal.org/view.php?id=12112 r16518

Спасибо, теперь работает

[Павел Ишенин]

Врядли сторонний разработчик полезет во внутренности LCL, если не возникнет ошибки. Я туда попал именно из-за ошибки при использовании стороннего компонента.

Улучшил в r16530. Надеюсь больше претензий нет

[v-t-l]

Улучшил в r16530. Надеюсь больше претензий нет

Нет предела совершенству . Можно было бы вставить такую проверку во все функции, использующие TRect, но это слегка замедлит реальное рисование.
Спасибо.

[Logo]

Это только у меня уже сутки Lazarus с SVN : Checked out revision 16526, или так оно и есть?

[Padre_Mortius]

16544. http://svn.freepascal.org/svn/lazarus/trunk

[Logo]

Спасибо, а я брал из https://lazarus.svn.sourceforge.net/svn ... arus/trunk