Code: Select all
#PB_String_UpperCase
Code: Select all
#PB_String_UpperCase
Code: Select all
UseModule LVEdit
LoadFont(0, "Courier New",12)
OpenWindow(0,0,0,840,700,"Cash Flow Budget",#PB_Window_ScreenCentered|#PB_Window_SystemMenu)
ListIconGadget(0,0,0,840,700,"",0,#PB_ListIcon_GridLines|#PB_ListIcon_FullRowSelect)
AddGadgetColumn(0,1,"Number", 150)
SetGadgetFont(0,FontID(0))
GadgetToolTip(0, " Hello i'm a little ToolTips of KCC and at me alone, i misfire all the fantastic job of master NetMaestro (like usually) ") ; < ========== Black field
LVEdit::StartEditing(0,0)
For i = 1 To 35
AddGadgetItem(0, -1, Chr(10) + Trim(Str(i)))
Next
Repeat
EventID = WaitWindowEvent()
Until EventID = #PB_Event_CloseWindow
LVEdit::StopEditing()