v1.08 available

[TaskMaster]

Changes since last version

Textbox

• Now has text highlighting/editing.
• GetSelectBegin()
• SetSelectBegin()
• GetSelection()
• CutSelection()
• SetSelectColor()
• InsertText()
• Now emits Copy/Cut/Paste events when Ctrl-C, Ctrl-X, and Ctrl-V are pressed.

Multi-Line Textbox

• Now has text highlighting/editing.
• GetSelectCursorBegin()
• SetSelectCursorBegin()
• GetSelectLineBegin()
• SetSelectLineBegin()
• GetSelection()
• CutSelection()
• SetSelectColor()
• InsertText()
• Now emits Copy/Cut/Paste events when Ctrl-C, Ctrl-X, and Ctrl-V are pressed.

Events

• New Events
  
  • ifsoGUI_EVENT_COPY
  • ifsoGUI_EVENT_CUT
  • ifsoGUI_EVENT_PASTE

Bug Fixes

TextBox

• KeyHit Event was being sent before filter.  Fixed.

Multi-Line Textbox

• Fixed some word wrap issues where font size was not being checked correctly.
• Cursor wouldn't blink sometimes.

Tabber

• Panels not drawn sometimes.  Fixed.

[TaskMaster]

This does not actually move text into or out of the OS clipboard. Gadgets emit the events, it is up to the programmer to deal with the events. This is because the programmer may not want to actually move text to the clipboard and may wish to handle it internally to their app.

Here is some examples showing copying text to/from the clipboard in windows.

Copy to the Clipboard:

Code:

Extern "Win32"
Function SetClipboardData:Int(uFormat:Int, hMem:Byte Ptr)
Function EmptyClipboard:Int()
Function OpenClipboard(hWnd:Int)
Function CloseClipboard()
End Extern

Const CF_TEXT:Int = 1

Local s:String = "Test 123"

OpenClipboard(0)
EmptyClipboard()
SetClipboardData(CF_TEXT, s)
CloseClipboard()

Get text from the clipboard:

Code:

Extern "Win32"
Function GetClipboardData:Byte Ptr(uFormat:Int)
Function OpenClipboard(hWnd:Int)
Function CloseClipboard()
Function IsClipboardFormatAvailable(uFormat:Int)
End Extern

Const CF_TEXT:Int = 1

Local s:String = "Test 123"

If IsClipboardFormatAvailable(CF_TEXT)
OpenClipboard(0)
s = String.FromCString(GetClipboardData(CF_TEXT))
CloseClipboard()
DebugLog s
End if