Oops,
I saw this line in your example:
SendMessage (GetFormToolTipHandle ("Form_1") TTM_SETMAXTIPWIDTH, 0, 168)
And I changed my example and it worked!
Code: Select all
#include "hmg.ch"
Function Main
Local aTest := { { "a", "b", "c" } }
#define CRLF Chr(13)+Chr(10)
#define WM_USER 0x400
#define TTM_SETMAXTIPWIDTH (WM_USER + 24)
DEFINE WINDOW Form_1 ;
AT 0,0 ;
WIDTH 450 ;
HEIGHT 400 ;
TITLE 'Hello World!' ;
MAIN
DEFINE MAIN MENU
DEFINE POPUP 'File'
MENUITEM 'Change ItemCount' ACTION Form_1.Grid_1.ItemCount := Val(InputBox('New Value','Change ItemCount'))
END POPUP
END MENU
DEFINE GRID Grid_1
ROW 10
COL 10
WIDTH 400
HEIGHT 330
HEADERS {'Column 1','Column 2','Column 3'}
WIDTHS {140,140,140}
ITEMS aTest
TOOLTIP ;
"Text 1" + ;
CRLF + ;
"Text 2" + ;
CRLF + ;
"Text 3"
END GRID
END WINDOW
SendMessage( GetFormToolTipHandle ("Form_1"), TTM_SETMAXTIPWIDTH, 0, 168)
CENTER WINDOW Form_1
ACTIVATE WINDOW Form_1
Return
---
Ops,
Vi essa linha em seu exemplo:
SendMessage( GetFormToolTipHandle ("Form_1"), TTM_SETMAXTIPWIDTH, 0, 168)
E mudei o meu exemplo e funcionou!