TSpinEdit & TFloatSpinEdit - глюки...

[Роман1971]

В новой версии Lazarus 0.9.25 SVN 14138 от 15.02.2008
TSpinEdit & TFloatSpinEdit в свойствах Value всегда дают значение "0", а в режиме проектирования неправильно отображается перемещение компонента на форме.
Кто наблюдал аналогичный глюк?

[Padre_Mortius]

чуть более ранний срез svn. Все работает без проблем. прийду домой проверю. дома самый последний срез

[serg_iv]

В 0,9,23 в каком то наблюдал, Щаз 0,9,25 от 07,11,07 - не наблюдаю,

[Padre_Mortius]

Проверил на домашнем компе никаких глюков не замечаю. TSpinEdit.Value отрабатывает на ура. В режиме проетирования есть трабл при условии что данный компонент ложится не на саму форму, а на компонент типа TPageControl. На данном компоненте многие компоненты глючат в режиме проектирования. SVN от 22.02.2008

[Роман1971]

Странно, только что проверил на другой машине.
Win 2000 Server SP4
Lazarus 0.9.25 SVN 14138 2008-02-15 FPC 2.2.0

Глюки - всё теже:

При проектировании, компонент сам не перемещается, но перемещается только рамка выделения;

Не отображаются кнопки в компоненте TSpinEdit, ни в режиме проектирования, ни при выполнении;

Свойство Value всегда равно "0".

Может дело в компиляторе, а не в IDE?

[Padre_Mortius]

Выложите тестовый проект с бинарником для ознакомления с проблемой, либо отправьте на мыло.

[Роман1971]

Выложите тестовый проект с бинарником для ознакомления с проблемой, либо отправьте на мыло.

Участок кода:

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

unit Main; 

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Spin,
  StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    FloatSpinEdit1: TFloatSpinEdit;
    Label1: TLabel;
    Label2: TLabel;
    SpinEdit1: TSpinEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 

var
  Form1: TForm1; 

implementation

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('SpinEdit1.Value='+IntToStr(SpinEdit1.Value));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowMessage('FloatSpinEdit1.Value='+ FloatToStr(FloatSpinEdit1.Value));
end;

initialization
  {$I main.lrs}

end.

Весь тестовый проект вышлю на E-mail.

[Роман1971]

Выслал вам на E-mail.

[Padre_Mortius]

Проверил. Косяков в проекте нигде нет. Скомпилилировал на стабильной ветке fpc 2.2.0 + lazarus 0.9.24. Все работает на ура. В присланном бинарнике компоненты TSpinEdit и TFloatSpinEdit уж очень сильно TEdit напоминают. При создании компонента TSpinEdit и TFloatSpinEdit не создается компонент TUpDown(это подтвердил подтвердил поиск по окнам и показ всей информации с разделением по классам), что само по себе очень странно и наводит на мысль об измененом значении параметра csSpinEdit в файле LCLTypes. Эта константа должна быть равна 21. Если не поможет, то прийдется обновляться или пересобрать lazarus

[Роман1971]

Я так понял, что под "fpc 2.2.0 + lazarus 0.9.24" всё правильно работает, а под "fpc 2.3.1 + lazarus 0.9.25" - нет. У меня всё точно также...
Временно пришлось вернуться на "fpc 2.2.0 + lazarus 0.9.24".

Вопрос: надо залезть в lcltype.pp и проверить значение csSpinedit?
В версии 0.9.24 оно равно 21, такое же поставить и в 0.9.25?
(к сожалению 0.9.25 стоит на другой машине, смогу проверить только вечером... )

[Padre_Mortius]

csSpinEdit=21
Данный параметр такой же и в 0.9.25.

[Роман1971]

Тогда совсем не понятно...
Жаль...

[Padre_Mortius]

попробуй пересобрать лазаря