Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > C++ Builder > ListBox и Hint


Автор: artsb 3.12.2007, 23:36
С помощью такого кода можно выводить подсказки для соответствующих строк:
Код

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
Вот пример из книги:
Код

//---------------------------------------------------------------------------
#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
Цитата(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)
...
- получишь то, что тебе надо...

Автор: artsb 4.12.2007, 20:59
Цитата(volvo877 @  4.12.2007,  20:49 Найти цитируемый пост)
А ты в классе TForm1 прописал этот метод?

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

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

Автор: artsb 4.12.2007, 22:29
Огромное спасибо всё работает.

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)