Αναθεώρηση 193 - EditBox

Στην αναθεώρηση 192 έφτιαξα το EditBox να μπορεί να δουλεύει σωστά με το διάστιχο που θέλουμε, καθώς επίσης να λειτουργούν όλες οι ευκολίες του διορθωτή, όπως το

• F1 που κάνει την αλλαγή σε αναδίπλωση λέξεων ή όχι,  
• F2 αναζήτηση μαρκαρισμένης λέξης προς τα πάνω, 
• F3 το ίδιο προς τα κάτω, 
• F4 αλλαγή πεζά-κεφαλαία κατά το μαρκαρισμένο, 
• F5 αλλαγή σε όλο το κείμενο,
• F6, F7, F8, είναι οι τρεις σελιδοδείκτες (μαρκάρουν παράγραφο και θέση σε αυτήν και να προσθέσουμε πριν ή μετά δεν χάνεται η παράγραφος, κάθε φορά που χρησιμοποιούμε τα πλήκτρα αυτά παίρνουμε αναφορά του τι γίνεται). 
• F9 μέτρηση λέξεων, 
• F10 εμφάνιση μη εκτυπώσιμων χαρακτήρων, 
• F11 εναλλαγή σε χρωματισμένο και μη κείμενο. Το F12 δεν χρησιμοποιείται εδώ.

Επίσης έφτιαξα το EditBox να παίρνει λέξεις για να χρωματίσει κατάλληλα. Δεν θα επεκταθώ εδώ για να εξηγήσω πώς ακριβώς γίνεται, μια άλλη φορά ίσως, αλλά θα δώσω δυο παραδείγματα. Το ένα πρόγραμμα έχει ένα EditBox που χρωματίζει Vb6 και το άλλο χρωματίζει Java.

Επιπλέον έφτιαξα τις φόρμες να έχουν δυνατότητα αλλαγής μεγέθους με τράβηγμα από την κάτω δεξιά γωνία.

Παράδειγμα HelloWorld με παράθυρο που αλλάζει μέγεθος.

Declare Simple Form
Layer Simple {
      Linespace 0
      Font "Arial Black"
      Window 16, 8000,6000
      Cls 1,0
      Cursor 0, height div 2
      Report 2,"Hello World"
}
Method Simple, "Show"
With Simple,"Sizable", True
Function Simple.Unload {
      Keyboard "!"
}
Function Simple.Resize {
      Layer Simple {
            Mode 16
            Cls 1,0
            Cursor 0, height div 2
            Report 2,"Hello World"
      }
}
a$=Key$ \\ no loop just wait a key, in console only
Declare Simple Nothing


Παράδειγμα με παράθυρο που αλλάζει μέγεθος και χρωματίζει το κείμενο για πρόγραμμα Visual Basic 6. Το παράθυρο αλλάζει μέγεθος. Δοκιμάστε το Popup μενού (μπορεί κανείς να βάλει και δικό του, φτιάχνοντας τη φόρμα Popup κατάλληλα)


Declare Form1 Form
Declare Text1 editBox Form Form1
Declare PopUp Form
With Form1, "Title" as Caption$, "Visible" as Visible, "TitleHeight" as tHeight, "Sizable", true
With Form1, "Width" as Form1.Width, "Height" as Form1.Height
With Text1, "Text" as Text1.Text$, "NoWrap" as NoWrap , "ColorCollection1", "|CLS|DEBUG.|PRINT|DECLARE|CONST|GOTO|DO|LOOP|WHILE|WEND|NOT|AND|WITH|REFRESH|LET|GET|SET|DOEVENTS|SELECT|CASE|FALSE|TRUE|OPTION|EXPLICIT|LIB|DIM|REDIM|PUBLIC|PRIVATE|FUNCTION|SUB|IF|THEN|ELSE|ELSEIF|END|SELECT|FOR|NEXT|TO|AS|LONG|BOOLEAN|STRING|OBJECT|EXIT|BYVAL|NEW|LEFT$(|LEFT(|RIGHT$(|RIGHT(|MID$(|MID(|UBOUND(|LBOUND(|CSTR(|CDBL(|CLNG(|STR$(|STRING$(|INSTR(|ASC(|CHR(|CHR$(|COS(|SIN(|LOG(|RGB(|REPLACE(|"
NoWrap=True
Caption$="Insert Your VB6 Code Here"
Method Form1,"Move", 2000, 4000, 8000, 4000
Layer Form1 { Cls Color(200, 120, 60) ,0}
Method Text1,"Move", twipsx*2, tHeight, 8000-twipsx*4,4000-tHeight-twipsy*2
Text1.Text$="Write something..."

Function Form1.Resize {
      layer Form1 { Cls Color(200, 120, 60) ,0}
      Method Text1,"Move", twipsx*2, tHeight, Form1.Width-twipsx*4,Form1.Height-tHeight-twipsy*2
      if Not NoWrap then Method Text1,"Resize"
}

Function Text1.PopUp {
      Read X, Y
      Rem Custom Popup : Method Form1, "PopUp", PopUp, X, Y
      \\ normal popup, we can provide title, so write somethingf in ""
      Method Text1,"PopUpMenu", "",X , Y
}

Method Form1,"Show", 1 \\ modal  means wait to return

Show
Report Text1.Text$
Declare Text1 Nothing
Declare PopUp Nothing
Declare Form1 Nothing


Παρακάτω είναι το πρόγραμμα που χρωματίζει java πρόγραμμα: (μπορούμε με αντιγραφή στο πρόχειρο να το πάρουμε ως Htnl αντίγραφο και να το επικολλήσουμε στο Word ή σε Blog.

Declare Form1 Form
Declare Text1 editBox Form Form1
With Form1, "Title" as Caption$, "Visible" as Visible, "TitleHeight" as tHeight
With Text1, "Text" as Text1.Text$, "NoWrap", True, "ColorCollection1", "|ABSTRACT|ASSERT|BOOLEAN|BREAK|BYTE|CASE|CATCH|CHAR|CLASS|CONST|CONTINUE|DEFAULT|DO|DOUBLE|ELSE|ENUM|EXTENDS|FINAL|FINALLY|FLOAT|FOR|FOR(|GOTO|IF|IMPLEMENTS|IMPORT|INSTANCEOF|INT|INTERFACE|LONG|NATIVE|NEW|PACKAGE|PRIVATE|PROTECTED|PUBLIC|RETURN|SHORT|STATIC|STRICTFP|SUPER|SWITCH|SYNCHRONIZED|THIS|THROW|THROWS|TRANSIENT|TRY|VOID|VOLATILE|WHILE|WHILE(|" , "MultiLineComment1","/*","MultiLineComment2", "*/","ColorCollection2","|STATIC|CLASS|FOR|FOR(|WHILE|WHILE("
Caption$="Insert Your Java Code Here"
Method Form1,"Move", 2000, 4000, 14000, 8000
Method Text1,"Move", 0, tHeight, 14000,8000-tHeight
Text1.Text$="Write something..."
Function Text1.PopUp {
      Read X, Y
      Method Text1,"PopUpMenu", "",X , Y
}
Method Form1,"Show", 1 \\ modal
Show
Report Text1.Text$
Declare Text1 Nothing
Declare Form1 Nothing