Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2012.01.29;
Скачать: CL | DM;

Вниз

TJvDBTreeView, хинт (ToolTips) обрезается до 80-ти символов.   Найти похожие ветки 

 
Дмитрий Белькевич   (2010-08-24 11:17) [0]

Сабж, куда копать?


 
Игорь Шевченко ©   (2010-08-24 11:59) [1]

в исходники, очевидно. JVCL же с исходниками


 
Дмитрий Белькевич   (2010-08-24 13:06) [2]

Самое обидное, что в JVCL вроде бы ничего нету по поводу ToolTips. Предполангаю, что ноги откуда-то из VCL растут. Не в том смысле, что глюк, а в том смысле, что где-то какие-то ограничения на размер стоят.


 
Дмитрий Белькевич   (2010-08-24 15:43) [3]

Таки нашел, что у гугля спросить и гугль ответил:

http://www.rsdn.ru/forum/delphi/2849191.flat.aspx

Из VCL кода:

// Work around NT COMCTL32 problem with tool tips >= 80 characters


 
Игорь Шевченко ©   (2010-08-24 16:50) [4]

нескромный вопрос - а зачем такой длинный хинт ?


 
Дмитрий Белькевич   (2010-09-03 10:47) [5]

Окончательно:

убрал ToolTips.

Добавил в TJvDBTreeView в OnMouseMove:


procedure TForm1.JvDBTreeView1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
TempNode: TTreeNode;
begin
TempNode := JvDBTreeView1.GetNodeAt(X, Y);
if Assigned(TempNode) and (FLastNode <> TempNode) then
begin
 FLastNode := TempNode;
 Application.CancelHint;
 JvDBTreeView1.Hint := WrapText(TempNode.Text, 80);
end;
end;



Страницы: 1 вся ветка

Текущий архив: 2012.01.29;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.008 c
2-1318937125
Laguna
2011-10-18 15:25
2012.01.29
Передать в Format дату


15-1318240705
Cobalt
2011-10-10 13:58
2012.01.29
новые версии Дельфи


2-1319188793
igorium
2011-10-21 13:19
2012.01.29
Как рисовать на канве картинки, которая не помещается на экран?


3-1270538121
kudatsky
2010-04-06 11:15
2012.01.29
Оцените эффективность запроса в FireBird


2-1319009272
Cobalt
2011-10-19 11:27
2012.01.29
[Pascal Error] E2250 There is no overloaded version of <function>