Does anyone wrote a simple text editor ?

[rogercabo]

Hi everyone,

because I have troubles with the rtf textbox and selecting words fast,

Does anyone wrote a simple text editor that use graphic outputs with Text , , $ ?

Otherwise I must write one, but the ugly thing is text selection copy and past over several lines and a simple undo.
But writing a text editor with automatic line wrapping is a nightmare containing selection copy and paste... or?

[rogercabo]

And a proportional font is also another nightmare containing selection copy and paste and displaying the word with a red underline. Holy Molly!

[(X)]

Would this be of use?

www.vbforums.com/showthread.php?716591-VB6-RTBCompose-RTF-Editor-UserControl

[webu]

I had written a very simple editor for my CAD program 30 years ago and it could do continuous text (for non-prop Atari fonts). If I needed more functions, I quickly passed the text over a shortcut to a real, external editor. When I finished this editor, I read the text back into my editor.

This was a very quick workaround, but I kept it until today.

[dragonjim]

I have started writing many, finished only one (very basic) and abandoned the rest due to the complexity involved and lack of time.

Most of mine were based on HTML coding to make them more compatible with import and export; however, if you are only after a simple text editor, I would advise using only simple HTML tags and ignore the rest - and use an Ocx Form as your base...

Oh yes, and sort out the text rendering before you try and tackle the editing...

[rogercabo]

Feb 17, 2023 2:43:08 GMT 1 (X) said:

Would this be of use?

www.vbforums.com/showthread.php?716591-VB6-RTBCompose-RTF-Editor-UserControl

Unfortunately the behavior is the same in VB6. And I have no idea to use the RTBCompose and it seems a complete different system control based on .Net like gfabasic32 use.

[rogercabo]

Feb 17, 2023 10:41:11 GMT 1 webu said:

I had written a very simple editor for my CAD program 30 years ago and it could do continuous text (for non-prop Atari fonts). If I needed more functions, I quickly passed the text over a shortcut to a real, external editor. When I finished this editor, I read the text back into my editor.

This was a very quick workaround, but I kept it until today.

Yes that seems to be a good start.. Perhaps I can add a proper line break in and use proportional fonts.

[rogercabo]

Feb 17, 2023 13:56:57 GMT 1 dragonjim said:

I have started writing many, finished only one (very basic) and abandoned the rest due to the complexity involved and lack of time.

Most of mine were based on HTML coding to make them more compatible with import and export; however, if you are only after a simple text editor, I would advise using only simple HTML tags and ignore the rest - and use an Ocx Form as your base...

Oh yes, and sort out the text rendering before you try and tackle the editing...

Do you know what text output command gfabasic use? 

[(X)]

Silly question... Did you check this demo included as a GFA-BASIC 32 sample: "LoadRichEdit50W.G32"?

$Library "gfawinx"

If !LoadRichEdit50W()   ' should not happen
 MsgBox0 "Failed to load msftedit.dll. Falling back to RichEdit version 3.0 (RichEd20.dll)"
EndIf


OpenW 1, 0, 0
Me.Sizeable = 0
Ocx Timer tmr : .Interval = 500 : .Enabled = 1
Ocx RichEdit rtf = , 0, _Y / 2, _X, _Y / 2
rtf.HideSelection = 0
rtf.SelText = String( 5, "GFA-BASIC 32 ")
rtf.SelItalic = 1
rtf.SelText = String( 5, "GFA-BASIC 32 ")
rtf.SelBold = 1
rtf.SelText = String( 5, "GFA-BASIC 32 ")
rtf.SelItalic = 1
rtf.SelText = String( 5, "GFA-BASIC 32 ")
rtf.SelStart = 1 : rtf.SelLength = 0
Do
 Sleep
Loop Until Me Is Nothing
LoadRichEdit50W '(False)

Sub tmr_Timer
 Local Int l
 Static Int direction = 0
 l = rtf.Find("BASIC", rtf.SelStart + 1, -1, direction)
 If l < 0 Then  direction = (direction == 0 ? 1 : 0)
 ' tmr.Enabled = False
End Sub
RTF-Control.g32 (4.25 KB)

[rogercabo]

Yes :-) None of these example work in any way while typing into and the code is selecting any text by .SelXXX.
So generally you can say, FRT have not the capabilities to write a text and spell check in real time..

Unfortunately..

The only way is to write a text editor by you self. where you can control the complete behavior while writing in check in real time.
I spend so many time into rtf stuff, for real I had used the time to write my own simpler one. 

[dragonjim]

Feb 17, 2023 14:16:01 GMT 1 rogercabo said:

Feb 17, 2023 13:56:57 GMT 1 dragonjim said:

I have started writing many, finished only one (very basic) and abandoned the rest due to the complexity involved and lack of time.

Most of mine were based on HTML coding to make them more compatible with import and export; however, if you are only after a simple text editor, I would advise using only simple HTML tags and ignore the rest - and use an Ocx Form as your base...

Oh yes, and sort out the text rendering before you try and tackle the editing...

Do you know what text output command gfabasic use? 

Use the basic Text command if you are using an Ocx Form...

..but if you want to print Unicode characters, you will need a customised TextW routine like:

Procedure TextW(x!, y!, wstr As String, Optional a As Variant)
 // Acknowledgements in part to Sjouke Hamstra
 // wstr is formatted as a 16-bit BSTR string
 // a gives the option to draw angled text
 Local Int32 esc, ori : Local fnt As Handle = Me.Font._hFont : Local dummy$
 // Adjust for scaling
 x! = ScaleX(x! - ScaleLeft, ScaleMode, basPixels)
 y! = ScaleY(y! - ScaleTop, ScaleMode, basPixels)
 x! = (x! * ScaleMX) - ScaleX(Int(ScaleLeft * ScaleMX), ScaleMode, basPixels) - ScaleMX
 y! = (y! * ScaleMY) - ScaleY(Int(ScaleTop * ScaleMY), ScaleMode, basPixels) - ScaleMY
 // Set angle if required
 If Not IsMissing(a) : RFont Escapement esc : RFont Orientation ori
   Font Escapement a, Orientation a : Font To fnt : SetFont fnt
 EndIf
 // Don't care about 2 terminating 0-bytes, because we pass Len/2.
 TextOutW(Me.hDC, x!, y!, V:wstr, Len(wstr) / 2)
 // If AutoRedraw = True draw on bitmap.
 If Me.hDC2 Then TextOutW(Me.hDC2, x!, y!, V:wstr, Int(Len(wstr) / 2))
 // Reset angle if required
 If Not IsMissing(a) Then Font Escapement esc, Orientation ori : Font To fnt : SetFont fnt
EndProcedure

[(X)]

I am experimenting...

So far, I can parse the text in the RTF and maintain a list of unique words.

Next, will be to highlite the new words (not found in the dictionary) for manual inclusion.

Attachments:

Demo Spell Checker.g32 (6.95 KB)

[rogercabo]

Feb 18, 2023 0:31:39 GMT 1 (X) said:

I am experimenting...

View Attachment

So far, I can parse the text in the RTF and maintain a list of unique words.

Next, will be to highlite the new words (not found in the dictionary) for manual inclusion.

Tested it... good solutions for adding a new dic and searching through the text is also a nice and easy solution!

[(X)]

I am working out speed optimizations...

[rogercabo]

If your able to write into the rtf1 text box without a glitch, or losing scroll position, or losing the cursor position, and recoloring at the same time, you're my hero :-)

[(X)]

Feb 20, 2023 20:27:25 GMT 1 rogercabo said:

If your able to write into the rtf1 text box without a glitch, or losing scroll position, or losing the cursor position, and recoloring at the same time, you're my hero :-)

I'm getting pretty close to that...

A selection of a new word hilites it in the text.

A right click on a selected new word puts it into the dictionary.

Some toolbar buttons are functional.

Attachments:

Demo Spell Checker.g32 (56.17 KB)

[(X)]

Here is the latest version...

A noticeable improvement is the restoration of the original selection when coming back to the RichEdit control.

N.B.:
1) Some toolbar buttons have still not been activated.
2) There are at least 2 versions of the RichEdit DLL that can be implemented.  I am thinking the latest version may use Wide or Unicode characters therefore I have not used it in favour of the older version that I think uses single Byte characters.  I have to try out a few tests to find out what's what.  Evidently, if one chooses one version or the other, one may have to start converting ANSI to WIDE strings or vis-versa.  It is probably preferable to get the Unicode version to work to take advantage of the wider range of symbols.

How does this work?  In a rather large nutshell...

It should come to no surprise that when you come back to the RichEdit control, some events are triggered and we can act on these via event subroutines.

The simple scheme of restoring the <RichEdit>.SelStart and <RichEdit>.SelLength (the selection) when the <RichEdit>.GotFocus event is triggered is a good start, but, if you've arrived there by clicking somewhere in the RichEdit control, then the <RichEdit>_MouseUp is going to be triggered after the GotFocus event, and guess what a MouseUp event does for a living...  You guessed right!  It assigns or sets the <RichEdit>.SelStart and <RichEdit>.SelLength to match what you just did with the mouse:"Click-Drag-Release". 

Your response may be:"Arrgh!  I had text hilited in this RichEdit control when I left, now, it's not!  I'm going to have to select it again!" 

So, is there a way to "fix" this?  For starters, we can restore the selection every time the MouseUp event is triggered.  And, indeed the previous selection is restored, but, wait a minute, now we can't make new selections with the mouse, only with the keyboard!  Because, every time the Mouse button goes Up, the previous selection is restored!

"Why is this so difficult?!  Who works like this?!  How does anything get done?!  Why is there always a catch?!" 

Welcome to what I guess discourages most people from pursuing their interests in programming: "The realisation that computer behaviour is far from human."  Computers have a very narrow focus.  They try to do exactly what they are told, they may actually do what they are told, or because of some logical or hardware problem they may fail!  (Think divide any number by 0, this is impossible / illogical, so in a sense it tried to do as told, but, essentially failed.)  Sometimes, computers fail spectacularly, other times, the error or bug may go un-noticed until you present your marvelous creation to your boss or client.

A common plaque in a computer room:

 "To err is human, to really foul things up requires a computer."  William E. Vaughan

Again: "Why is this so difficult?! Who works like this?! How does anything get done?! Why is there always a catch?!"

If someone else's code has some built-in behaviour that you don't like, you have a few choices:

- Review the documentation in search of a feature that you didn't even think was available which solves your issue. (It can happen...)
- Look for another better version of code or do things another way that doesn't rely on this problem code.  (There may be an update)
- Accept things the way they are. (For minor things, this could be acceptable)
- Rewrite the code to your liking. (Usually impractical)  
- Find a work around. (Usually this is what is tried first)

Did I find a solution?  Well, to some extent, yes.  I started by declaring a global boolean variable that will store the answer to the question, "Did the RichEdit control we are interested in just get the focus?"... JustGotFocus? for short and I set the answer to TRUE in the GotFocus event.  So far, so good.

Now, with a leap in logic, I set up a conditional "IF" statement in the MouseUp event subroutine that looks at the "JustGotFocus?" variable value, and if TRUE:
    1) Change the value to FALSE
    2) Restore the old selection.

BOOM!

Now, the old selection will not be restored until there is a return of focus to the RichEdit control, which sets "JustGotFocus?" to TRUE again... Yada yada yada.

Forgive me for this long winded explanation and bit of a rant.  It feels good to explain the trials and tribulations of the coder once in a while.

Attachments:

Demo RichEdit Spell Checker.g32 (69.75 KB)

RIchEdit Help.rtf (7.87 KB)

[(X)]

Here are the Dictionary Hash file and the RichEdit text file that I am using...

Hash_Dict.dat (510 B)

RichEditText.rtf (3.16 KB)

[scalion]

J'ai écrit un tas d'éditeur de texte en tout genre.

J'ai retrouvé celui là (j'en ai d'autre si tu veux : Editeur Avec Control Maison.G32 (45.19 KB)

Et celui-là hop ! Basic Editor 9.G32 (49.78 KB)

Et un rigolo de + ! : GFA-BASIC 32 V3.003.G32 (119.8 KB)

[rogercabo]

Mar 3, 2023 22:31:18 GMT 1 scalion said:

J'ai écrit un tas d'éditeur de texte en tout genre.

J'ai retrouvé celui là (j'en ai d'autre si tu veux : View Attachment

Et celui-là hop ! View Attachment

Et un rigolo de + ! : View Attachment

WOW..

Did you have the file for $Library "c:\nicolas\g32\MyFunctions" ?   The Basic 9 seems to be interesting..


Je veux créer un éditeur de texte avec une police proportionnelle et une fonction de saut de ligne, et pendant que vous tapez, une fonction de dictionnaire recolorera les mots s'ils sont mal orthographiés.
Le truc du dictionnaire fonctionne parfaitement..
Seulement le champ de texte richedit ne veut pas.
Le plus gros problème est de sélectionner et de recolorer n'importe quel mot pendant l'écriture et la sélection.
Cela provoque un saut et une reposition du curseur et il est impossible d'écrire.

Actuellement, je suis en train de développer un éditeur de texte.
Je pense qu'il doit insérer des caractères de contrôle devant les mots mal orthographiés et les afficher dans une couleur différente lors de l'affichage.
Une fonctionnalité pour le saut de ligne automatique et la position correcte du curseur pendant la saisie sont également des défis à relever !

[scalion]

Ma librairie MyFunctions, mais elle un peu obsolète... j'avais complètement oublié son existence.
Si ca peut te servir

MyFunctions.G32 (38.9 KB)

Si tu veux vraiment créer un bon editeur de texte je te conseilles d'utiliser DIRECT2D

Avec cette librairie tout est prévu pour cela, jette un oeil sur cette fonction en particulier : D2TL_HitTestTextPos

De plus tu pourras facilement colorer le texte etc... de manière purement graphique (sans passer par la contrainte d'un controle externe mais avec la difficulté toute relative d'avoir tout à faire).

Il va falloir prioritairement implémenter méthodiquement les fonctions

- BackSpace

- Delete

- Tabulation

- Left/Right/Up/Down

- PageUp

- PageDown

Et penser surtout à comment tu mémorise le texte (tableau de chaines ou malloc() avec tableau d'index, ou les 2).

Bon courage et si tu as une question ou besoin d'un coup de main je suis là !!!