Hi All,
I've been writing a custom text edit control as a replacement for the standard one. It's not as hard as I imagined it would be.
If you have the time could you test out the text area and see if anything stands out as being broken.
You can download it here
The code for the demo (minus the actual text edit gadget code:
I've been writing a custom text edit control as a replacement for the standard one. It's not as hard as I imagined it would be.
If you have the time could you test out the text area and see if anything stands out as being broken.
You can download it here
The code for the demo (minus the actual text edit gadget code:
Strict Framework brl.GLMax2D Import brl.Win32MaxGUI Import brl.Retro Import brl.FreeTypeFont Import brl.Timer Include "EditControl.bmx" SetGraphicsDriver GLMax2DDriver() Local Edit:TEditControl Local Window:TGadget = CreateWindow("Text Edit Control 0.7",20,20,512,512,Null,WINDOW_TITLEBAR | WINDOW_RESIZABLE | WINDOW_STATUS) Local w=ClientWidth(Window) Local h=ClientHeight(Window) Edit = New TEditControl.Create(Window,0,0,w,h) Local Infile:TStream InFile = ReadFile("History120.txt") Local Ed:String While Eof(InFile) = False ed = ReadString(infile,FileSize("History120.txt")) Wend CloseFile Infile edit.SetString ed While True WaitEvent If EventSource() = Window and EventID() = EVENT_WINDOWCLOSE Then End Wend