VPF::ListBox и Hint - Форум программистов

artsb

Дата 3.12.2007, 23:36 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2280
Регистрация: 17.7.2007
Где: центр Вселенной

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

С помощью такого кода можно выводить подсказки для соответствующих строк:

Код


void __fastcall TForm1::ListBox1MouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
static int OldIndex = -1;
int Index = ListBox1->ItemAtPos(Point(X, Y), true);

if((Index > -1) && (Index != OldIndex))
{
ListBox1->Hint = ListBox1->Items->Strings[Index];
Application->ActivateHint(Mouse->CursorPos);
}
else
{
 ListBox1->Hint ="";
}

OldIndex = Index;
}

Но, минус в том, что подсказка вылетает даже в том случае если название строки состоит из одного символа, что естественно неудобно и некрасиво. Темболее, она вылетает где попало.

Хотелось бы узнать как определить длину строки с индексом i в пикселах, чтобы потом сравнить с шириной ListBox'а?
И как можно вывести подсказку в определённой позиции, т.е. чтобы левый край подсказки был равен левому краю ListBox'а, а верхний край - Верхнему краю строки, на которую наведён курсор.
Спасибо.

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

Чем отличается умный человек от мудрого?
Умный - выпутается из любой ситуации.
Мудрый - просто в неё не попадёт.

artsb

Дата 4.12.2007, 20:25 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2280
Регистрация: 17.7.2007
Где: центр Вселенной

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

Вот пример из книги:

Код


//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
void __fastcall TForm1::NewHintProc(System::AnsiString &HintStr,
                                   bool &CanShow,
                                   THintInfo &HintInfo)
{
TPoint Pos;
if (HintInfo.HintControl==ListBox1)
 {
  Pos.x = 0;
  Pos.y = ListBox1->Tag;
  HintInfo.HintPos = ListBox1->ClientToScreen(Pos);
  HintInfo.HintStr = ListBox1->Hint;
 }
}
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  FHintRow = -1;
  Application->OnShowHint = NewHintProc; 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ListBox1MouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
TRect ItemPos;
int   ItemNum;
AnsiString   FHint;
TPoint MousePos;    
MousePos.x = X;
MousePos.y= Y;
ItemNum = ListBox1->ItemAtPos(MousePos, True); 
if (ItemNum != FHintRow)   
{
  FHintRow = ItemNum;
  if (ItemNum !=-1)  
   {
      ItemPos = ListBox1->ItemRect(ItemNum);
      ListBox1->Tag = ItemPos.top; 
      FHint = ListBox1->Items->Strings[ItemNum];
      ListBox1->Hint = FHint;
      Application->CancelHint(); 
    }
  else
    {
      ListBox1->Hint = "";
      ListBox1->Tag = -1;
      Application->CancelHint(); 
    }
}
}
//---------------------------------------------------------------------------

Exe файл с диска работает. Но когда пишу этот код у себя, вылетает ошибка: "NewHintProc не является членом Form1". В чём может быть дело?
Так же не могу найти как узнать длину строки в пикселах.

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

volvo877

Дата 4.12.2007, 20:49 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

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

Цитата(artsb @ 4.12.2007, 19:25

)

вылетает ошибка: "NewHintProc не является членом Form1". В чём может быть дело?

А ты в классе TForm1 прописал этот метод?

Код


class TForm1 : public TForm
{
  __published: // IDE-managed Components
  ...
  private: // User declarations
  public:  // User declarations
    int FHintRow;
    __fastcall TForm1(TComponent* Owner);
    void __fastcall NewHintProc(System::AnsiString &HintStr, bool &CanShow, THintInfo &HintInfo);
};

Цитата(artsb @ 4.12.2007, 19:25

)

не могу найти как узнать длину строки в пикселах.

Измени условие вот на такое:

Код


if (ItemNum != FHintRow)
{
  FHintRow = ItemNum;

  // Вот на это...
  if(ItemNum !=-1 &&
     ListBox1->Canvas->TextWidth(ListBox1->Items->Strings[ItemNum]) >= ListBox1->ClientWidth)
...

- получишь то, что тебе надо...

Это сообщение отредактировал(а) volvo877 - 4.12.2007, 20:49

artsb

Дата 4.12.2007, 20:59 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2280
Регистрация: 17.7.2007
Где: центр Вселенной

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

Цитата(volvo877 @ 4.12.2007, 20:49

)

А ты в классе TForm1 прописал этот метод?

Упс, не сделал.

Спасибо за совет попробую.

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

artsb

Дата 4.12.2007, 22:29 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2280
Регистрация: 17.7.2007
Где: центр Вселенной

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

Огромное спасибо всё работает.

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

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