TTrayIcon+Lazarus>=1.0.1

Вопросы программирования и использования среды Lazarus.

Модератор: Модераторы

TTrayIcon+Lazarus>=1.0.1

Сообщение alex_alex_alex1 » 26.10.2012 16:03:28

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

Как лечить?
У вас нет необходимых прав для просмотра вложений в этом сообщении.
Последний раз редактировалось alex_alex_alex1 13.11.2013 15:54:39, всего редактировалось 1 раз.
alex_alex_alex1
постоялец
 
Сообщения: 207
Зарегистрирован: 15.10.2010 14:08:50

Re: TTrayIcon+Lazarus-1.0.1

Сообщение amateur » 26.10.2012 18:47:35

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

Подробнее изложите. Система, что "пихали", что писали. К примеру: в лазаре 1.1 фпс 2.6.0 у меня трей икон работает. Проверено в хрюшке, семерке, дебиане и бубунте.
Аватара пользователя
amateur
энтузиаст
 
Сообщения: 552
Зарегистрирован: 03.08.2007 10:15:32

Re: TTrayIcon+Lazarus>=1.0.1

Сообщение alex_alex_alex1 » 26.10.2012 18:58:04

У меня в 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.   
Последний раз редактировалось alex_alex_alex1 13.11.2013 15:55:07, всего редактировалось 1 раз.
alex_alex_alex1
постоялец
 
Сообщения: 207
Зарегистрирован: 15.10.2010 14:08:50

Re: TTrayIcon+Lazarus-1.0.1

Сообщение Ism » 26.10.2012 21:57:20

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

Да действительно , событие не возникает, возможно в Qt будет работать но это не выход
Ism
энтузиаст
 
Сообщения: 908
Зарегистрирован: 06.04.2007 17:36:08

Re: TTrayIcon+Lazarus>=1.0.1

Сообщение alex_alex_alex1 » 26.10.2012 22:50:26

Надо gtk.
Баги:
http://mantis.freepascal.org/view.php?id=23217
http://mantis.freepascal.org/view.php?id=23218
В Qt проблема сохраняется.
Последний раз редактировалось alex_alex_alex1 13.11.2013 15:55:28, всего редактировалось 1 раз.
alex_alex_alex1
постоялец
 
Сообщения: 207
Зарегистрирован: 15.10.2010 14:08:50

Re: TTrayIcon+Lazarus>=1.0.1

Сообщение alex_alex_alex1 » 13.11.2013 01:47:31

До сих пор вопрос с OnMouseMove висит, нифига не работает.
Кто как решает? Может у кого-то есть патч?
alex_alex_alex1
постоялец
 
Сообщения: 207
Зарегистрирован: 15.10.2010 14:08:50

Re: TTrayIcon+Lazarus>=1.0.1

Сообщение alex_alex_alex1 » 09.04.2014 20:50:58

Решено.
alex_alex_alex1
постоялец
 
Сообщения: 207
Зарегистрирован: 15.10.2010 14:08:50

Re: TTrayIcon+Lazarus>=1.0.1

Сообщение alex208210 » 10.04.2014 17:27:26

alex_alex_alex1 писал(а):Решено.

как познавательно, спасибо
alex208210
постоялец
 
Сообщения: 207
Зарегистрирован: 12.05.2010 13:16:51

Re: TTrayIcon+Lazarus>=1.0.1

Сообщение alex_alex_alex1 » 11.04.2014 09:42:20

Достаточно пройтись по ссылкам в теме.
alex_alex_alex1
постоялец
 
Сообщения: 207
Зарегистрирован: 15.10.2010 14:08:50

Re: TTrayIcon+Lazarus>=1.0.1

Сообщение zoltanleo » 28.04.2014 09:50:14

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


И все-таки вежливее было просто дать ссылку
Аватара пользователя
zoltanleo
постоялец
 
Сообщения: 374
Зарегистрирован: 17.10.2013 10:55:01

Re: TTrayIcon+Lazarus>=1.0.1

Сообщение alex_alex_alex1 » 28.04.2014 22:00:02

это совсем не из той оперы ссылка
см. viewtopic.php?f=5&t=8593&p=81307#p65952
alex_alex_alex1
постоялец
 
Сообщения: 207
Зарегистрирован: 15.10.2010 14:08:50


Вернуться в Lazarus

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 9

Рейтинг@Mail.ru