TypeBasic 0.1

i542 · November 6, 2007

Another text editor <_<

It is not finished yet. So, it won't be full replacement until version 1.0.

Features:

1. Modern Menu

2. Text-to-speech. With Play/Stop/Voice Selection functions

3. Font Changing

4. Welcome Screen *New in AutoIt town!*

5. Command Line (Means that can be associated with .TXT files, but only manual)

Know Bugs

1. On "Tab" it selects whole text

2. Small glitches on Save unsaved document, fixed in 0.3

To-Do list

~~Insert Date/Time (planned release: 0.2)~~ Done!

Tabs (Planned release: 0.3)

Find & Replace (Planned Release: 0.4)

Setup with Associating (Planned Release: 0.5)

.NFO and .DAT support (Planned Release: 0.6)

Please post your ideas if you have them.

Next Release scheduled for

20. 11. 2007.

Download

.zip : Compiled .EXE, Source (with needed files)

Servers: Gigacities (oh yea, spaces again )

Latest Update

0.2

- Added: Date/Time Function

i542

Edited November 9, 2007 by i542

NELyon · November 6, 2007

I think you mean 11/11/1007

9/11/2007 was 2 months ago <_<

Edited November 6, 2007 by Senton-Bomb

Jos · November 6, 2007

I think you mean 11/11/1007
9/11/2007 was 2 months ago

not in all European countries <_<

dd/mm/yyyy

A. Percy · November 6, 2007

not in all European countries dd/mm/yyyy

Like here in Brazil

i542 · November 6, 2007

not in all European countries dd/mm/yyyy

Right...

9. 11. 2007. = dd. mm. yyyy

But let's not turn this into Date/Time Discussion thread

A. Percy · November 6, 2007

...
4. Welcome Screen *New in AutoIt town!*
...

<_<

i542 · November 6, 2007

Well, as far as I know, nobody added Welcome Screen in their scripts... *yet* (Arr, don't copy me!)

A. Percy · November 6, 2007

Well, as far as I know, nobody added Welcome Screen in their scripts... *yet* (Arr, don't copy me!)

Yesterday I was planning to add a splash screen on next version of ItCopter... <_<

dandymcgee · November 6, 2007

Yeah I usually put splash screens in the stuff I make for other people either stating that I made it, or giving simple instructions related to the use of the application <_< . But yours is interactive and very professional looking so *thumbs up*!~

EDIT: ~~Any way you could change the BGcolor of the menus so that it's white behind the icons as well?~~ Nevermind! Cool colors (I remember seeing almost this same thing in an example I think... but it wasn't a notepad just a sample menu icons thing).

Edited November 6, 2007 by dandymcgee

JustinReno · November 7, 2007

Well, as far as I know, nobody added Welcome Screen in their scripts... *yet* (Arr, don't copy me!)

I put welcome screens on Simple Web Browser, but removed because welcome screens suck. <_< But yours looks alright.

Edited November 7, 2007 by JustinReno

i542 · November 7, 2007

Yeah I usually put splash screens in the stuff I make for other people either stating that I made it, or giving simple instructions related to the use of the application . But yours is interactive and very professional looking so *thumbs up*!~

I put welcome screens on Simple Web Browser, but removed because welcome screens suck. But yours looks alright.

Whoa, thanks! I never thought you guys will like it!

JustinReno · November 8, 2007

I might use it often, it looks nice and professional with the transparency and things. <_< Good job.

i542 · November 9, 2007

Update

Look at the first post

NerdFencer · November 13, 2007

Hi,

I was surfing the forums looking for something to do when i stumbled across this text editor.

I decided to add some functionality, and send it back to you.

Here is what I did-

1. Added Hot-Keys (now detailed in the read me file)

2. Added Find/Replace (customized the one in GuiEdit.au3 to make it look, and feel better)

3. Made it save your menu-color settings (Bug Fix)

4. Added a couple missing Icons

5. Added a couple of little features

6. Externalized some language stuff (will make it easy to make multilingual version in future)

Here is a link to download the executable, and source.

Have fun

NerdFencer · November 13, 2007

oops, broken linky, here is a better one

Achilles · November 13, 2007

@i542

Why is it such a huge file? 2.42 mg files take like five minutes for my computer to download...

Now since I have it, could you possibly extract the icons you use and just post those? It doesn't really matter, just wondering for those people with slower internet.

Ok, now about the program. I like it! However, in the ModernMenu.au3 I had to delete a couple constants because they come with the newest version of Beta (like $ILC_MASK, $ILC_COLOR32, $WM_DRAWITEM, $WM_MEASUREITEM).

Good work with the GUI and functionality of the program.

NerdFencer · November 18, 2007

@i542
Why is it such a huge file? 2.42 mg files take like five minutes for my computer to download...

It SHOULD be easy to extract all used icons and put them into a different icl file to vastly decrease the size, but don't quote me on this...

NerdFencer · November 21, 2007

Here is some code I modded, it now has ALLOT of new features.

This is the main code

CODE

#NoTrayIcon

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****

#AutoIt3Wrapper_icon=exe-icon.ico

#AutoIt3Wrapper_outfile=TypeBasic 0.25.exe

#AutoIt3Wrapper_Compression=4

#AutoIt3Wrapper_UseAnsi=y

#AutoIt3Wrapper_Run_Tidy=y

#Tidy_Parameters=/tc n /rel

#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

;Aisy Waisy let's go crazy!

#include "ModernMenu.au3" ;thanks to Holger we have this udf. : )

#include "TextManipulation.au3" ;powerfull stuff

#include <GUIConstants.au3>

#include <GuiEdit.au3>

#include <File.au3>

#include <GuiCombo.au3>

#include <Misc.au3>

;hotkeys

HotKeySet("^s", "Save")

HotKeySet("^n", "New")

HotKeySet("^o", "Open")

HotKeySet("^a", "SelectAll")

HotKeySet("^p", "Print")

HotKeySet("^e", "DateTime")

HotKeySet("^d", "Date")

HotKeySet("^t", "Time")

HotKeySet("^f", "Find")

HotKeySet("^r", "Replace")

HotKeySet("{HOME}", "GotoTop")

HotKeySet("!-", "ZoomOut")

HotKeySet("!{+}", "ZoomIn")

HotKeySet("!=", "ZoomIn")

HotKeySet("+!=", "ZoomIn")

HotKeySet("!u", "MakeUpper")

HotKeySet("!l", "MakeLower")

HotKeySet("!p", "MakePropper")

Global $WhatOpen = @MyDocumentsDir & "\Untitled.txt"

Global $CurrentDocument = "Untitled"

Global $RunWelcome = True

Global $FirstTimeSaved = "0"

Global $BlockFlicker = 1

Global $TranspaentToggle = 0 ;IniRead(@ScriptDir & "\config.ini", "Memory", "Transparent", 1)

Global $Startup = 1

If $CmdLine[0] <> 0 Then

Global $WhatOpen = $CmdLine[1]

$string = StringSplit($WhatOpen, "\")

Global $CurrentDocument = $string[$string[0]]

Global $RunWelcome = False

Global $FadeOut = 1

EndIf

If IniRead(@ScriptDir & "\config.ini", "WelcomeDialog", "RunEveryTime", 1) = 1 Then

If $RunWelcome = True Then _WelcomeGui()

EndIf

$gui = GUICreate(IniRead(@ScriptDir & "\config.ini", "Language", "Version", 1) & " - " & $CurrentDocument, 541, 448, -1, -1, BitOR($WS_SIZEBOX, $WS_MAXIMIZEBOX, $WS_MINIMIZEBOX))

GUISetIcon(@ScriptDir & "\icon.ico")

$type = GUICtrlCreateEdit("", 0, 0, 539, 402)

;recall the menu color option

$colorAtStartup = IniRead(@ScriptDir & "\config.ini", "Options", "MenuColor", 1)

If $colorAtStartup = 1 Then

SetRedMenuColors()

ElseIf $colorAtStartup = 2 Then

SetGreenMenuColors()

ElseIf $colorAtStartup = 3 Then

SetBlueMenuColors()

ElseIf $colorAtStartup = 4 Then

SetInverseMenuColors()

Else

SetDefaultMenuColors()

EndIf

GUICtrlSetFont($type, IniRead(@ScriptDir & "\config.ini", "Font", "Size", 0), IniRead(@ScriptDir & "\config.ini", "Font", "Weight", 0), IniRead(@ScriptDir & "\config.ini", "Font", "Att", 0), IniRead(@ScriptDir & "\config.ini", "Font", "Face", 0))

GUICtrlSetColor($type, IniRead(@ScriptDir & "\config.ini", "Font", "Color", 0))

$file = _GUICtrlCreateODMenu("File", -1)

$fileNew = _GuiCtrlCreateODMenuItem("New", $file, @ScriptDir & "\Modern Icon Pack.icl", 14)

$fileOpen = _GuiCtrlCreateODMenuItem("Open", $file, @ScriptDir & "\Modern Icon Pack.icl", 110)

$fileOpenLast = _GuiCtrlCreateODMenuItem("Open Last", $file, @ScriptDir & "\Modern Icon Pack.icl", 59)

$fileSave = _GuiCtrlCreateODMenuItem("Save", $file, @ScriptDir & "\Modern Icon Pack.icl", 13)

$fileSaveAs = _GuiCtrlCreateODMenuItem("Save As...", $file, @ScriptDir & "\Modern Icon Pack.icl", 136)

$filePrint = _GuiCtrlCreateODMenuItem("Print...", $file, @ScriptDir & "\Modern Icon Pack.icl", 114)

_GuiCtrlCreateODMenuItem("", $file) ;Seperator

$fileExit = _GuiCtrlCreateODMenuItem("Exit", $file, @ScriptDir & "\Modern Icon Pack.icl", 129)

$edit = _GuiCtrlCreateODMenu("Edit", -1)

$editfind = _GuiCtrlCreateODMenuItem("Find", $edit, @ScriptDir & "\Modern Icon Pack.icl", 119)

$editreplace = _GuiCtrlCreateODMenuItem("Replace", $edit, @ScriptDir & "\Modern Icon Pack.icl", 121)

_GuiCtrlCreateODMenuItem("", $edit)

$editDelete = _GuiCtrlCreateODMenuItem("Delete", $edit, @ScriptDir & "\Modern Icon Pack.icl", 161)

$editUndo = _GuiCtrlCreateODMenuItem("Undo", $edit, @ScriptDir & "\Modern Icon Pack.icl", 29)

_GuiCtrlCreateODMenuItem("", $edit)

$editCut = _GuiCtrlCreateODMenuItem("Cut", $edit, @ScriptDir & "\Modern Icon Pack.icl", 212)

$editCopy = _GuiCtrlCreateODMenuItem("Copy", $edit, @ScriptDir & "\Modern Icon Pack.icl", 186)

$editPaste = _GuiCtrlCreateODMenuItem("Paste", $edit, @ScriptDir & "\Modern Icon Pack.icl", 3)

_GuiCtrlCreateODMenuItem("", $edit)

$editSelectAll = _GuiCtrlCreateODMenuItem("Select all", $edit, @ScriptDir & "\Modern Icon Pack.icl", 216)

$editDateTime = _GuiCtrlCreateODMenuItem("Insert Date/Time", $edit, @ScriptDir & "\Modern Icon Pack.icl", 107)

$edittwo = _GuiCtrlCreateODMenu("Edit 2", -1)

$translate = _GuiCtrlCreateODMenu("Translate", $edittwo, @ScriptDir & "\Modern Icon Pack.icl", 181)

$RotThirteen = _GuiCtrlCreateODMenuItem("Rot 13", $translate, @ScriptDir & "\Modern Icon Pack.icl", 25)

_GuiCtrlCreateODMenuItem("", $translate)

$albed_to = _GuiCtrlCreateODMenuItem("To Albed", $translate, @ScriptDir & "\Modern Icon Pack.icl", 25)

$albed_from = _GuiCtrlCreateODMenuItem("From Albed", $translate, @ScriptDir & "\Modern Icon Pack.icl", 25)

_GuiCtrlCreateODMenuItem("", $translate)

$pig_to = _GuiCtrlCreateODMenuItem("To Pig Latin", $translate, @ScriptDir & "\Modern Icon Pack.icl", 25)

$pig_from = _GuiCtrlCreateODMenuItem("From Pig Latin", $translate, @ScriptDir & "\Modern Icon Pack.icl", 25)

$talk = _GuiCtrlCreateODMenuItem("Talk", $edittwo, @ScriptDir & "\Modern Icon Pack.icl", 202)

_GuiCtrlCreateODMenuItem("", $edittwo)

$makecaps = _GuiCtrlCreateODMenuItem("Make Capital", $edittwo, @ScriptDir & "\Modern Icon Pack.icl", 49)

$makelower = _GuiCtrlCreateODMenuItem("Make Lowercase", $edittwo, @ScriptDir & "\Modern Icon Pack.icl", 49)

_GuiCtrlCreateODMenuItem("", $edittwo)

$gototop = _GuiCtrlCreateODMenuItem("Goto Top", $edittwo, @ScriptDir & "\Modern Icon Pack.icl", 73)

$gotomiddle = _GuiCtrlCreateODMenuItem("Goto middle", $edittwo, @ScriptDir & "\Modern Icon Pack.icl", 73)

$gotobottom = _GuiCtrlCreateODMenuItem("Goto bottom", $edittwo, @ScriptDir & "\Modern Icon Pack.icl", 73)

$options = _GuiCtrlCreateODMenu("Options", -1)

$color = _GuiCtrlCreateODMenu("Color Scheme", $options, @ScriptDir & "\Modern Icon Pack.icl", 167)

$colorRed = _GuiCtrlCreateODMenuItem("Red", $color, @ScriptDir & "\Modern Icon Pack.icl", 106)

$colorGreen = _GuiCtrlCreateODMenuItem("Green", $color, @ScriptDir & "\Modern Icon Pack.icl", 106)

$colorBlue = _GuiCtrlCreateODMenuItem("Blue", $color, @ScriptDir & "\Modern Icon Pack.icl", 106)

_GuiCtrlCreateODMenuItem("", $color)

$colorDefault = _GuiCtrlCreateODMenuItem("Default (Grey)", $color, @ScriptDir & "\Modern Icon Pack.icl", 106)

$colorInverse = _GuiCtrlCreateODMenuItem("Inverse (Grey)", $color, @ScriptDir & "\Modern Icon Pack.icl", 106)

$DateFormat = _GuiCtrlCreateODMenu("Date Format", $options, @ScriptDir & "\Modern Icon Pack.icl", 171)

$Written = _GuiCtrlCreateODMenuItem("Written", $DateFormat, @ScriptDir & "\Modern Icon Pack.icl", 169)

$YearMonthDay = _GuiCtrlCreateODMenuItem("YY/MM/DD", $DateFormat, @ScriptDir & "\Modern Icon Pack.icl", 169)

$DayMonthYear = _GuiCtrlCreateODMenuItem("DD/MM/YY", $DateFormat, @ScriptDir & "\Modern Icon Pack.icl", 169)

$MonthDayYear = _GuiCtrlCreateODMenuItem("MM/DD/YY", $DateFormat, @ScriptDir & "\Modern Icon Pack.icl", 169)

$TimeFormat = _GuiCtrlCreateODMenu("Time Format", $options, @ScriptDir & "\Modern Icon Pack.icl", 107)

$Normal = _GuiCtrlCreateODMenuItem("Hr:Min Am/Pm", $TimeFormat, @ScriptDir & "\Modern Icon Pack.icl", 169)

$Secconds = _GuiCtrlCreateODMenuItem("Hr:Min.Sec Am/Pm", $TimeFormat, @ScriptDir & "\Modern Icon Pack.icl", 169)

$HRMIN = _GuiCtrlCreateODMenuItem("Hr:Min", $TimeFormat, @ScriptDir & "\Modern Icon Pack.icl", 169)

$HRMINSEC = _GuiCtrlCreateODMenuItem("Hr:Min.Sec", $TimeFormat, @ScriptDir & "\Modern Icon Pack.icl", 169)

$fade = _GuiCtrlCreateODMenuItem("Fade on Quit", $options, @ScriptDir & "\Modern Icon Pack.icl", 105)

$confirmation = _GuiCtrlCreateODMenuItem("Quit Confirmation", $options, @ScriptDir & "\Modern Icon Pack.icl", 216)

_GuiCtrlCreateODMenuItem("", $options)

$welcome = _GuiCtrlCreateODMenuItem("Setup Welcome Screen", $options, @ScriptDir & "\Modern Icon Pack.icl", 0)

$font = _GuiCtrlCreateODMenuItem("Fonts", $options, @ScriptDir & "\Modern Icon Pack.icl", 140)

$deffont = _GuiCtrlCreateODMenuItem("Default Font", $options, @ScriptDir & "\Modern Icon Pack.icl", 16)

$transparent = _GuiCtrlCreateODMenuItem("Transparent Mode", $options, @ScriptDir & "\Modern Icon Pack.icl", 193)

$help = _GuiCtrlCreateODMenu("Help", -1)

$helpHelp = _GuiCtrlCreateODMenuItem("Read Me", $help, @ScriptDir & "\Modern Icon Pack.icl", 120)

$helpAbout = _GuiCtrlCreateODMenuItem("About", $help, @ScriptDir & "\Modern Icon Pack.icl", 6)

GUISetState(@SW_SHOW)

Global $objVoice

If $WhatOpen <> "0" Then

GUICtrlSetData($type, FileRead($WhatOpen)) ;If something was opened, then lets open it!

Global $FirstTimeSaved = $WhatOpen ;To save

EndIf

Global $FirstTimeSaved = "0"

$Startup = 0

While 1

Sleep(15)

$nMsg = GUIGetMsg()

Switch $nMsg

#Region File Menu and Exit event

Case $GUI_EVENT_CLOSE, $fileExit

QuitProgram()

Case $RotThirteen

_GUICtrlEditReplaceSel($type, True, RotThirteen(GetSelectedText($type)))

Case $albed_to

_GUICtrlEditReplaceSel($type, True, ALBED_to(GetSelectedText($type)))

Case $albed_from

_GUICtrlEditReplaceSel($type, True, ALBED_from(GetSelectedText($type)))

Case $fade

If IniRead(@ScriptDir & "\config.ini", "Options", "FadeOut", 1) = 1 Then

MsgBox(64, "TypeBasic 0.2", "Fadeing out upon quitting has been sucessfully turned off.")

IniWrite(@ScriptDir & "\config.ini", "Options", "FadeOut", 0)

Else

MsgBox(64, "TypeBasic 0.2", "Fadeing out upon quitting has been sucessfully turned on.")

IniWrite(@ScriptDir & "\config.ini", "Options", "FadeOut", 1)

EndIf

Case $confirmation

If IniRead(@ScriptDir & "\config.ini", "Options", "QuitConfirmation", 1) = 1 Then

MsgBox(64, "TypeBasic 0.2", "Quit Confirmation has been sucessfully turned off.")

IniWrite(@ScriptDir & "\config.ini", "Options", "QuitConfirmation", 0)

Else

MsgBox(64, "TypeBasic 0.2", "Quit Confirmation has been sucessfully turned on.")

IniWrite(@ScriptDir & "\config.ini", "Options", "QuitConfirmation", 1)

EndIf

Case $transparent

If $TranspaentToggle = 0 Then

$TranspaentToggle = 1

IniWrite(@ScriptDir & "\config.ini", "Memory", "Transparent", 1)

WinSetTrans("TypeBasic 0.2", "", IniRead(@ScriptDir & "\config.ini", "Memory", "Transparency", 1))

Else

$TranspaentToggle = 0

IniWrite(@ScriptDir & "\config.ini", "Memory", "Transparent", 1)

WinSetTrans("TypeBasic 0.2", "", 255)

EndIf

Case $fileNew

New()

Case $fileOpen

Open()

Case $editfind

Find()

Case $editreplace

Replace()

Case $makecaps

MakeUpper()

Case $makelower

MakeLower()

Case $pig_to

pigto()

Case $pig_from

pigfrom()

Case $fileOpenLast

$Temp = $WhatOpen

Global $WhatOpen = IniRead(@ScriptDir & "\config.ini", "Memory", "LastOpened", 1)

IniWrite(@ScriptDir & "\config.ini", "Memory", "LastOpened", $Temp)

Global $FirstTimeSaved = $WhatOpen ;To save

$string = StringSplit($WhatOpen, "\")

Global $CurrentDocument = $string[$string[0]]

GUICtrlSetData($type, FileRead($WhatOpen))

WinSetTitle(IniRead(@ScriptDir & "\config.ini", "Language", "Version", 1), "", IniRead(@ScriptDir & "\config.ini", "Language", "Version", 1) & " - " & $CurrentDocument)

Case $fileSave

Save()

Case $fileSaveAs

$thefilename = FileSaveDialog("Save as...", @MyDocumentsDir, "Text files (*.txt)|All files (*.*)")

If @error Then ContinueLoop

FileWrite($thefilename & ".txt", GUICtrlRead($type))

Global $FirstTimeSaved = $thefilename & ".txt"

_GUICtrlEditSetModify($type, False)

Case $filePrint

Print()

Case $talk

TextToSpeach()

Case $welcome

If IniRead(@ScriptDir & "\config.ini", "WelcomeDialog", "RunEveryTime", 1) = 1 Then

$MsgBoxReturn = MsgBox(32 + 4, IniRead(@ScriptDir & "\config.ini", "Language", "Version", 1), "The Welcome screen is currently turned on." & @CRLF & @CRLF & "Would you like to turn Welcome Screen off?")

If $MsgBoxReturn = 6 Then

IniWrite(@ScriptDir & "\config.ini", "WelcomeDialog", "RunEveryTime", 0)

MsgBox(64, IniRead(@ScriptDir & "\config.ini", "Language", "Version", 1), "The Welcome screen has been sucessfully turned off.")

EndIf

Else

$MsgBoxReturn = MsgBox(32 + 4, "TypeBasic 0.2", "The Welcome screen is currently turned off." & @CRLF & @CRLF & "Would you like to turn Welcome Screen on?")

If $MsgBoxReturn = 6 Then

IniWrite(@ScriptDir & "\config.ini", "WelcomeDialog", "RunEveryTime", 1)

MsgBox(64, IniRead(@ScriptDir & "\config.ini", "Language", "Version", 1), "The Welcome screen has been sucessfully turned on.")

EndIf

Case $editDateTime

DateTime()

Case $editSelectAll

SelectAll()

Case $editUndo

If _GUICtrlEditCanUndo($type) Then _GUICtrlEditUndo($type)

Case $editDelete

_GUICtrlEditReplaceSel($type, True, "")

Case $editCut

Send("^X")

Case $editCopy

Send("^C")

Case $editPaste

Send("^V")

Case $font

$fontdata = _ChooseFont()

If @error Then ContinueLoop

IniWrite(@ScriptDir & "\config.ini", "Font", "Size", $fontdata[3])

IniWrite(@ScriptDir & "\config.ini", "Font", "Weight", $fontdata[4])

IniWrite(@ScriptDir & "\config.ini", "Font", "Att", $fontdata[1])

IniWrite(@ScriptDir & "\config.ini", "Font", "Face", $fontdata[2])

IniWrite(@ScriptDir & "\config.ini", "Font", "Color", $fontdata[7])

GUICtrlSetFont($type, IniRead(@ScriptDir & "\config.ini", "Font", "Size", 0), IniRead(@ScriptDir & "\config.ini", "Font", "Weight", 0), IniRead(@ScriptDir & "\config.ini", "Font", "Att", 0), IniRead(@ScriptDir & "\config.ini", "Font", "Face", 0))

GUICtrlSetColor($type, IniRead(@ScriptDir & "\config.ini", "Font", "Color", 0))

Case $deffont

IniWrite(@ScriptDir & "\config.ini", "Font", "Size", IniRead(@ScriptDir & "\config.ini", "Font", "DefaultSize", 0))

IniWrite(@ScriptDir & "\config.ini", "Font", "Weight", IniRead(@ScriptDir & "\config.ini", "Font", "DefaultWeight", 0))

IniWrite(@ScriptDir & "\config.ini", "Font", "Att", IniRead(@ScriptDir & "\config.ini", "Font", "DefaultAtt", 0))

IniWrite(@ScriptDir & "\config.ini", "Font", "Face", IniRead(@ScriptDir & "\config.ini", "Font", "DefaultFace", 0))

IniWrite(@ScriptDir & "\config.ini", "Font", "Color", IniRead(@ScriptDir & "\config.ini", "Font", "DefaultColor", 0))

If IniRead(@ScriptDir & "\config.ini", "Options", "MenuColor", 1) = 4 Then

GUICtrlSetColor($type, 0xFFFFFF)

IniWrite(@ScriptDir & "\config.ini", "Font", "Color", 0xFFFFFF)

EndIf

GUICtrlSetFont($type, IniRead(@ScriptDir & "\config.ini", "Font", "Size", 0), IniRead(@ScriptDir & "\config.ini", "Font", "Weight", 0), IniRead(@ScriptDir & "\config.ini", "Font", "Att", 0), IniRead(@ScriptDir & "\config.ini", "Font", "Face", 0))

GUICtrlSetColor($type, IniRead(@ScriptDir & "\config.ini", "Font", "Color", 0))

Case $colorRed

SetRedMenuColors()

Case $colorBlue

SetBlueMenuColors()

Case $colorGreen

SetGreenMenuColors()

Case $colorDefault

SetDefaultMenuColors()

Case $colorInverse

SetInverseMenuColors()

Case $helpHelp

$MsgBoxReturn = MsgBox(32 + 4, IniRead(@ScriptDir & "\config.ini", "Language", "Version", 1), "Help file will replace currently opened document." & @CRLF & "Would you like to continue?")

If $MsgBoxReturn = 6 Then

IniWrite(@ScriptDir & "\config.ini", "Memory", "LastOpened", $WhatOpen)

Global $WhatOpen = @ScriptDir & "\Readme.txt"

Global $FirstTimeSaved = $WhatOpen ;To save

$string = StringSplit($WhatOpen, "\")

Global $CurrentDocument = $string[$string[0]]

GUICtrlSetData($type, FileRead($WhatOpen))

WinSetTitle(IniRead(@ScriptDir & "\config.ini", "Language", "Version", 1), "", "TypeBasic 0.2 - " & $CurrentDocument)

EndIf

Case $helpAbout

MsgBox(0, "About TypeBasic", IniRead(@ScriptDir & "\config.ini", "Language", "Version", 1) & @CRLF & "Author: i542" & @CRLF & _

"Modern Menu by Holger" & @CRLF & _

"Aditional functionallity by NerdFencer" & @CRLF & _

"Visit my website at i542.gigacities.net!" & @CRLF)

;TTS controls

Case $gototop

GotoTop()

Case $gotomiddle

GotoMiddle()

Case $gotobottom

GotoBottom()

Case $Written

IniWrite(@ScriptDir & "\config.ini", "Options", "DateFormat", 1)

Case $YearMonthDay

IniWrite(@ScriptDir & "\config.ini", "Options", "DateFormat", 2)

Case $DayMonthYear

IniWrite(@ScriptDir & "\config.ini", "Options", "DateFormat", 3)

Case $MonthDayYear

IniWrite(@ScriptDir & "\config.ini", "Options", "DateFormat", 4)

Case $Normal

IniWrite(@ScriptDir & "\config.ini", "Options", "TimeFormat", 1)

Case $Secconds

IniWrite(@ScriptDir & "\config.ini", "Options", "TimeFormat", 2)

Case $HRMIN

IniWrite(@ScriptDir & "\config.ini", "Options", "TimeFormat", 3)

Case $HRMINSEC

IniWrite(@ScriptDir & "\config.ini", "Options", "TimeFormat", 4)

EndSwitch

WEnd

Func _WelcomeGui()

$WelcomeGui = GUICreate(IniRead(@ScriptDir & "\config.ini", "Language", "Version", 1) & " Welcome Dialog", 527, 246, 204, 182, $WS_CAPTION)

GUISetIcon(@ScriptDir & "\icon.ico")

GUISetBkColor(0xA6CAF0)

$RunEveryTime = GUICtrlCreateCheckbox("Run this dialog every time I open TypeBasic", 2, 222, 230, 17)

GUICtrlSetState(-1, $GUI_CHECKED)