TTrayIcon+Lazarus>=1.0.1

[alex_alex_alex1]

В Lazarus-0.9.30 всё нормально.
В Lazarus-1.0.1 TTrayIcon нерабочая:
1) Не работает OnMouseMove.
2) Вместо иконки полосочки.

abc004.png

Как лечить?

[amateur]

Доктор, доктор: я пациЭЭЭнт, полечите меня. Я ветеринар.

Подробнее изложите. Система, что "пихали", что писали. К примеру: в лазаре 1.1 фпс 2.6.0 у меня трей икон работает. Проверено в хрюшке, семерке, дебиане и бубунте.

[alex_alex_alex1]

У меня в Lazarus-0.9.30 (fpc 2.6.0) тоже всё прекрасно работает, но не меняя кода у программы, только перейдя на Lazarus-1.0.1 начались баги.
lazarus-1.0.2 тоже всё плохо.

Добавлено спустя 58 минут 43 секунды:
Нарыл пока следующее:
OnMouseMove изменился.
Стал:
procedure TrayIcon1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
Был:
procedure TrayIcon1MouseMove(Sender: TObject);

Добавлено спустя 10 минут 2 секунды:
Метод "TrayIcon1MouseMove" несовместим с этим событием (OnMouseMove).
Нажмите "Отмена" для отмены действия,
нажмите "Игнорировать" для принудительного выполнения.

Добавлено спустя 11 минут 50 секунд:
Вот только сколько в трее не водил мышкой события OnMouseMove не возникает.

Добавлено спустя 10 минут 47 секунд:
Простейший код, чтобы воспроизвести баг:

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

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    TrayIcon1: TTrayIcon;
    procedure FormCreate(Sender: TObject);
    procedure TrayIcon1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.TrayIcon1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   halt;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  TrayIcon1.Visible:=true;
end;

end.   


[Ism]

TrayIcon1MouseMove Не может быть, попробуй удалить событие и потом заново его создать , возможно глюк перехода на новый проект

Да действительно , событие не возникает, возможно в Qt будет работать но это не выход

[alex_alex_alex1]

Надо gtk.
Баги:
http://mantis.freepascal.org/view.php?id=23217
http://mantis.freepascal.org/view.php?id=23218
В Qt проблема сохраняется.

[alex_alex_alex1]

До сих пор вопрос с OnMouseMove висит, нифига не работает.
Кто как решает? Может у кого-то есть патч?

[alex_alex_alex1]

Решено.

[alex208210]

Решено.

как познавательно, спасибо

[alex_alex_alex1]

Достаточно пройтись по ссылкам в теме.

[zoltanleo]

Достаточно пройтись по ссылкам в теме

И все-таки вежливее было просто дать ссылку

[alex_alex_alex1]

это совсем не из той оперы ссылка
см. viewtopic.php?f=5&t=8593&p=81307#p65952