VPF::подсказка в трее - Форум программистов

Bima

Дата 31.1.2007, 06:58 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 518
Регистрация: 15.8.2006

Репутация: 2
Всего: 2

Цитата

Где-то в cpp пропало наше незабвенное

Да, удалил, случайно smile

вот код:
*.cpp

Код


//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include <Windows.h>
#include <ShellAPI.h>

#include "Kod.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "trayicon"
#pragma resource "*.dfm"
TFormMain *FormMain;
//---------------------------------------------------------------------------
__fastcall TFormMain::TFormMain(TComponent* Owner):TForm(Owner){}
//---------------------------------------------------------------------------
void __fastcall TFormMain::Button1Click(TObject *Sender)
{
DZBalloonTrayIcon(FormMain->Handle, 1, 10, "this is the balloon text", "title", bitWarning);
}
//---------------------------------------------------------------------------
bool __fastcall TFormMain::DZBalloonTrayIcon(HWND Window, Byte IconID, TBalloonTimeout Timeout, String BalloonText, String BalloonTitle, TBalloonIconType BalloonIconType)
{
TBalloonIconType aBalloonIconTypes;
NOTIFYICONDATA NID_50;

NID_50.hWnd = Window;
NID_50.uID =  IconID;
NID_50.uFlags = NIF_INFO;
strcpy(NID_50.szInfo,BalloonText.c_str());
NID_50.uTimeout = Timeout * 1000;
strcpy(NID_50.szInfoTitle,BalloonTitle.c_str());
NID_50.dwInfoFlags =aBalloonIconTypes;
NID_50.cbSize = sizeof(NID_50);

return Shell_NotifyIcon(NIM_MODIFY, &NID_50);
}
//---------------------------------------------------------------------------

*.h

Код


//---------------------------------------------------------------------------
#ifndef KodH
#define KodH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "trayicon.h"
#include <ImgList.hpp>
//---------------------------------------------------------------------------
class TFormMain : public TForm
{
__published:    // IDE-managed Components
   TTrayIcon *TrayIcon1;
   TButton *Button1;
   TImageList *ImageList1;
   void __fastcall Button1Click(TObject *Sender);
private:    // User declarations
public:        // User declarations
   __fastcall TFormMain(TComponent* Owner);
   typedef unsigned int  TBalloonTimeout;
   enum  TBalloonIconType {bitNone, bitInfo, bitWarning, bitError };
   bool __fastcall DZBalloonTrayIcon(HWND Window,
                                     Byte IconID,
                                     TBalloonTimeout Timeout,
                                     String BalloonText,
                                     String BalloonTitle,
                                     TBalloonIconType BalloonIconType);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormMain *FormMain;
//---------------------------------------------------------------------------
#endif

Нажимаю на кнопку и никокого эффекта smile

на форме TrayIcon, Button и ImageList.

--------------------

Чтобы дойти до цели, надо идти.

Клавиатура и мышь - это главные инструменты прогресса.

Grom

Дата 31.1.2007, 23:58 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 183
Регистрация: 17.8.2006
Где: Москва

Репутация: 1
Всего: 1

Bima, давно бы поставил то что я сказал - и не парил себе мозг. Ну или на крайняк изучил бы сорцы того компонента что я посоветовал раз так приспичило самому сделать smile

--------------------

Хостинг, Vds, Dedicated serve, регистрация доменов (RU,com,net,org) - обращаться в icq.

Anikmar

Дата 1.2.2007, 00:11 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2513
Регистрация: 26.11.2006
Где: Санкт-Петербург

Репутация: 34
Всего: 59

У меня пока не MSDN, поэтому лезу просто на вскидку:

Цитата(Bima @ 31.1.2007, 06:58

)

bool __fastcall TFormMain::DZBalloonTrayIcon(HWND Window, Byte IconID, TBalloonTimeout Timeout, String BalloonText, String BalloonTitle, TBalloonIconType BalloonIconType)

Я не увидел использование параметра BalloonIconType. Это так и надо?

Bima

Дата 1.2.2007, 06:55 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 518
Регистрация: 15.8.2006

Репутация: 2
Всего: 2

Цитата

Bima, давно бы поставил то что я сказал - и не парил себе мозг.

Вот чего мне до ужасти не хочется, это переделывать готовую программу!!!

Цитата

Ну или на крайняк изучил бы сорцы того компонента что я посоветовал раз так приспичило самому сделать

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

Цитата

Я не увидел использование параметра BalloonIconType. Это так и надо?

возможно я прогнал, но код:

Код


//NID_50.dwInfoFlags =aBalloonIconTypes;
NID_50.dwInfoFlags = BalloonIconType;

тоже не работает

--------------------

Чтобы дойти до цели, надо идти.

Клавиатура и мышь - это главные инструменты прогресса.

Bima

Дата 2.2.2007, 13:09 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 518
Регистрация: 15.8.2006

Репутация: 2
Всего: 2

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

--------------------

Чтобы дойти до цели, надо идти.

Клавиатура и мышь - это главные инструменты прогресса.

_pussbb

Дата 2.2.2007, 23:17 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 91
Регистрация: 7.12.2006

Репутация: нет
Всего: нет

Откомпилировал пакет CoolTrayIcon в паскале там же установил работает на С++ еще не пробывал
возми не мучайся

Присоединённый файл ( Кол-во скачиваний: 17 )

CoolTrayIcon_.7z 32,24 Kb

Bima

Дата 5.2.2007, 06:54 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 518
Регистрация: 15.8.2006

Репутация: 2
Всего: 2

Почему то все думают, что я мучаюсь, когда исследую код smile

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

--------------------

Чтобы дойти до цели, надо идти.

Клавиатура и мышь - это главные инструменты прогресса.

Grom

Дата 5.2.2007, 11:24 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 183
Регистрация: 17.8.2006
Где: Москва

Репутация: 1
Всего: 1

Bima, ну если люди уже написали давным-давно компоненту - зачем тратить время впустую ? модули для того и придуманы чтоб ускорить работу программиста. smile

--------------------

Хостинг, Vds, Dedicated serve, регистрация доменов (RU,com,net,org) - обращаться в icq.

Bima

Дата 5.2.2007, 11:38 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 518
Регистрация: 15.8.2006

Репутация: 2
Всего: 2

Цитата

Bima, ну если люди уже написали давным-давно компоненту - зачем тратить время впустую ? модули для того и придуманы чтоб ускорить работу программиста.

Тогда представим следующий вариант:
Есть готовая программа, где есть куча ссылок на действующий компонет (Tray), туда нужно приладить всего лишь один "баллон". И что выходит, мне нужно ставить новый компонент, переделывать готовую программу(рыскать по программе выискивать все ссылки на Tray и заменять/конвертировать их), и самое главное заново ее тестировать (на всевозможные глюки в новом компоненте). Не легче ли добавить всего лишь навсего одну функцию к этому компоненту и ничего переделывать не придется.

--------------------

Чтобы дойти до цели, надо идти.

Клавиатура и мышь - это главные инструменты прогресса.

Sharkfire

Дата 17.9.2007, 20:45 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 236
Регистрация: 30.11.2006
Где: Одесса

Репутация: 2
Всего: 2

Народ!! а как уже от существующей TTrayIcon вывести Baloon...
допольнительных компонентов инсталить не могу... (типа TCoolTray)

Это сообщение отредактировал(а) Sharkfire - 17.9.2007, 20:46

Bima

Дата 18.9.2007, 06:11 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 518
Регистрация: 15.8.2006

Репутация: 2
Всего: 2

я перешел на BDS2006, там в TTrayIcon есть Baloon, но некоторые свойства компонентов недоступны (их просто убрали).
Я переконвертировал проект, теперь есть Baloon

--------------------

Чтобы дойти до цели, надо идти.

Клавиатура и мышь - это главные инструменты прогресса.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »