Jump to content

Printing

James

By James,
in AutoIt General Help and Support

 Share

Recommended Posts

Xenobiologist Universalist

Xenobiologist

Posted
Posted (edited)

Hi,

give it a try.

#cs
    Name: BetaPad - An Open Source Text Editor
    Author: Secure_ICT
    License: Licensed under the Common Public License.
    Version: Alpha 2.0
    Readme: The readme can be found with in the docs folder.
    Notes: Must include:
    <GUIConstants.au3>
    <String.au3>
    <GuiStatusBar.au3>
    <Sound.au3>
    <File.au3>
    <ModernMenu.au3>
#ce

; These need to be included
#include <GUIConstants.au3>
#include <String.au3>
#include <GuiStatusBar.au3>
#include <Sound.au3>
#include <File.au3>
#include <ModernMenu.au3>

; No tray icon
#NoTrayIcon

; Create settings and set values
ReadMenuColor()
$Version = "Alpha Version 2.0"
$Author = "Secure_ICT"
Local $BetaPad, $StatusBar, $msg
Local $a_PartsRightEdge[2] = [210, -1]
Local $a_PartsText[2] = ["BetaPad | " & $Version & " | " & $Author, "Ready"]

; Set HotKeys
Global $Hotkey
HotKeySet("^s", "save")
HotKeySet("^o", "open")
HotKeySet("^p", "print")
HotKeySet("^1", "def")
HotKeySet("^2", "red")
HotKeySet("^3", "grn")
HotKeySet("^4", "blue")

; Create the GUI and play opening sound
$BetaPad = GUICreate("BetaPad | " & $Version, 626, 466, @DesktopHeight / 3, @DesktopWidth / 5, BitOR($WS_MAXIMIZEBOX, $WS_MINIMIZEBOX, $WS_SIZEBOX))
$icon = GUISetIcon("ico.ico")
$StatusBar = _GUICtrlStatusBarCreate($BetaPad, $a_PartsRightEdge, $a_PartsText)
_GUICtrlStatusBarSetIcon($StatusBar, 2, "shell.dll", 1)

$sound = _SoundOpen(@WindowsDir & "\media\chimes.wav", "Startup")
_SoundPlay($sound)
$SearchInput = GUICtrlCreateInput("", 15, 10, 435, 21)
$Search = GUICtrlCreateButton("&Search", 536, 8, 72, 25, 0)
$Engine = GUICtrlCreateCombo("Pick one!", 456, 10, 73, 25)
GUICtrlSetData(-1, "Google|Yahoo")

$Doc1 = GUICtrlCreateTabItem("Doc1")
$DocEd1 = GUICtrlCreateEdit("", 15, 40, 590, 340, BitOR($ES_AUTOVSCROLL, $ES_WANTRETURN, $WS_VSCROLL))
GUICtrlSetData(-1, "")

$File = GUICtrlCreateMenu("&File")
$NewDox = _GUICtrlCreateODMenuitem ("&New ", $File)
$Open = _GUICtrlCreateODMenuitem ("Open", $File)
$OpenRecent = _GUICtrlCreateODMenu ("Open Recent", $File, 1)
GUICtrlSetState(-1, $GUI_DISABLE)
$Save = _GUICtrlCreateODMenuitem ("Save", $File)
_GUICtrlCreateODMenuitem ("", $File)
$Print = _GUICtrlCreateODMenuitem ("&Print...         CTRL+P", $File)
_GUICtrlCreateODMenuitem ("", $File)
$Exit = _GUICtrlCreateODMenuitem ("E&xit", $File)

$Edit = GUICtrlCreateMenu("&Edit")
$InsDT = _GUICtrlCreateODMenuitem ("&Insert Date + Time", $Edit)

$Format = GUICtrlCreateMenu("&Format")
$WCount = _GUICtrlCreateODMenuitem ("&Word Count", $Format)

$Dever = GUICtrlCreateMenu("&Developer")
$FileName = _GUICtrlCreateODMenuitem ("&File Name (Long)", $Dever)
$FileSize = _GUICtrlCreateODMenuitem ("File Size", $Dever)
_GUICtrlCreateODMenuitem ("", $Dever)
$Display = _GUICtrlCreateODMenuitem ("&Display", $Dever)
_GUICtrlCreateODMenuitem ("", $Dever)
$WinSize = _GUICtrlCreateODMenuitem ("&Window Size", $Dever)
_GUICtrlCreateODMenuitem ("", $Dever)
$Encrypter = _GUICtrlCreateODMenuitem ("&Encrypt", $Dever)
$Decrypter = _GUICtrlCreateODMenuitem ("Decrypt", $Dever)
_GUICtrlCreateODMenuitem ("", $Dever)
$ViewColorMenu = _GUICtrlCreateODMenu ('&Menu Colors', $Dever)
$SetDefClrItem = _GUICtrlCreateODMenuItem ('Default', $ViewColorMenu, '', 0, 1)
_GUICtrlCreateODMenuItem ('', $ViewColorMenu)
$SetRedClrItem = _GUICtrlCreateODMenuItem ('Red', $ViewColorMenu, '', 0, 1)
$SetGrnClrItem = _GUICtrlCreateODMenuItem ('Green', $ViewColorMenu, '', 0, 1)
$SetBlueClrItem = _GUICtrlCreateODMenuItem ('Blue', $ViewColorMenu, '', 0, 1)

$Help = GUICtrlCreateMenu("&Help")
$About = _GUICtrlCreateODMenuitem ("&About", $Help)
_GUICtrlCreateODMenuitem ("", $Help)
$Helpme = _GUICtrlCreateODMenuitem ("&Help", $Help)
GUICtrlSetState(-1, $GUI_DISABLE)

$it = GUICtrlCreateLabel("", -700, -700, 10, 10)
$un = GUICtrlCreateLabel("", -800, -800, 10, 10)
$st = GUICtrlCreateLabel("", -600, -600, 10, 10)
$fn = GUICtrlCreateLabel("Arial", -500, -500, 10, 10)
$sz = GUICtrlCreateLabel("9", -400, -400, 10, 10)
GUISetBkColor(0xEBEFF5)
_GUICtrlStatusBarResize($StatusBar)
GUISetState(@SW_SHOW)

; Do everything that needs doing when things are pressed
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            ExitLoop
        Case $GUI_EVENT_RESIZED
            _GUICtrlStatusBarResize($StatusBar)
        Case $Exit
            ExitLoop
        Case $Display
            $clg = GUICtrlRead($DocEd1)
            $GUI2 = GUICreate("Choose Your Font", 250, 200, -1, -1, $WS_EX_LAYERED, $WS_EX_TOOLWINDOW)
            GUICtrlCreateLabel("Customize your font", 10, 5, 120)
            GUICtrlSetFont(-1, 9, 400, 0, "Arial Bold")
            $i = GUICtrlCreateCheckbox("Italic", 10, 25)        ;2
            $b = GUICtrlCreateCheckbox("Bold", 10, 100)         ;4
            $u = GUICtrlCreateCheckbox("Underlined", 10, 50)    ;6
            $s = GUICtrlCreateCheckbox("Strikethrough", 10, 75) ;8
            $cmb = GUICtrlCreateCombo("Choose Font..", 105, 25, 120, 20)
            GUICtrlSetData($cmb, "Arial|Arial Bold|Comic Sans MS|Courier New|Tahoma|Times New Roman")
            $size = GUICtrlCreateInput("9", 105, 55, 40)
            GUICtrlCreateUpdown($size)
            GUICtrlSetLimit($size, 999, 1)
            $a1 = GUICtrlCreateLabel($clg, 8, 130, 230, 40, 1, 15)
            GUICtrlSetBkColor(-1, 0xFFFFFF)
            GUISetState()
            While WinActive($GUI2)
                $msg = GUIGetMsg()
                Select
                    Case $msg = $GUI_EVENT_CLOSE
                        Local $i1 = 0, $u1 = 0, $s1 = 0
                        If GUICtrlRead($i) = $GUI_CHECKED Then $i1 = 2
                        If GUICtrlRead($u) = $GUI_CHECKED Then $u1 = 4
                        If GUICtrlRead($s) = $GUI_CHECKED Then $s1 = 8
                        $1size = GUICtrlRead($size)
                        $font1 = GUICtrlRead($cmb)
                        $New = $i1 + $u1 + $s1
                        GUIDelete($GUI2)
                        If $s1 = 8 Then GUICtrlSetData($st, "s")
                        If $u1 = 4 Then GUICtrlSetData($un, "u")
                        If $i1 = 2 Then GUICtrlSetData($it, "i")
                        If Not GUICtrlRead($cmb) = "Choose Font.." And Not GUICtrlRead($cmb) = "you can add more.." Then GUICtrlSetData($fn, $font1)
                        GUICtrlSetData($sz, $1size)
                        GUICtrlSetFont($DocEd1, $1size, 400, $New, $font1)
                        ExitLoop
                    Case $msg = $size
                        Local $i3 = 0, $u3 = 0, $s3 = 0
                        If GUICtrlRead($i) = $GUI_CHECKED Then $i2 = 2
                        If GUICtrlRead($u) = $GUI_CHECKED Then $u2 = 4
                        If GUICtrlRead($s) = $GUI_CHECKED Then $s2 = 8
                        $1size = GUICtrlRead($size)
                        $new2 = $i2 + $u2 + $s2
                        $p = GUICtrlRead($cmb)
                        GUICtrlSetFont($a1, $1size, 400, $new2, $p)
                    Case $msg = $cmb
                        Local $i2 = 0, $u2 = 0, $s2 = 0
                        If GUICtrlRead($i) = $GUI_CHECKED Then $i2 = 2
                        If GUICtrlRead($u) = $GUI_CHECKED Then $u2 = 4
                        If GUICtrlRead($s) = $GUI_CHECKED Then $s2 = 8
                        $1size = GUICtrlRead($size)
                        $new2 = $i2 + $u2 + $s2
                        $p = GUICtrlRead($cmb)
                        GUICtrlSetFont($a1, $1size, 400, $new2, $p)
                        TrayTip("BetaPad", "BetaPad has set the text to : " & $p, 10, 1)
                        _GUICtrlStatusBarSetText($StatusBar, "Font set to: " & $p, 1)
                    Case $msg = $i;;;;;;;;;;;;;;;;;;;;;;;;;
                        If GUICtrlRead($i) = $GUI_CHECKED Then
                            $n = 2
                            If GUICtrlRead($u) = $GUI_CHECKED Then $n = 6
                            If GUICtrlRead($s) = $GUI_CHECKED Then $n = 10
                            If GUICtrlRead($u) = $GUI_CHECKED And GUICtrlRead($s) = $GUI_CHECKED Then $n = 14
                            $1size = GUICtrlRead($size)
                            $font1 = GUICtrlRead($cmb)
                            GUICtrlSetFont($a1, $1size, 400, $n, $font1)
                        Else
                            $n = 0
                            If GUICtrlRead($u) = $GUI_CHECKED Then $n = 4
                            If GUICtrlRead($s) = $GUI_CHECKED Then $n = 8
                            If GUICtrlRead($u) = $GUI_CHECKED And GUICtrlRead($s) = $GUI_CHECKED Then $n = 12
                            $1size = GUICtrlRead($size)
                            $font1 = GUICtrlRead($cmb)
                            GUICtrlSetFont($a1, $1size, 400, $n, $font1)
                        EndIf
                    Case $msg = $u;;;;;;;;;;;;;;;;;;;;;;;;;
                        If GUICtrlRead($u) = $GUI_CHECKED Then
                            $n = 4
                            If GUICtrlRead($i) = $GUI_CHECKED Then $n = 6
                            If GUICtrlRead($s) = $GUI_CHECKED Then $n = 12
                            If GUICtrlRead($i) = $GUI_CHECKED And GUICtrlRead($s) = $GUI_CHECKED Then $n = 14
                            $1size = GUICtrlRead($size)
                            $font1 = GUICtrlRead($cmb)
                            GUICtrlSetFont($a1, $1size, 400, $n, $font1)
                        Else
                            $n = 0
                            If GUICtrlRead($i) = $GUI_CHECKED Then $n = 2
                            If GUICtrlRead($s) = $GUI_CHECKED Then $n = 8
                            If GUICtrlRead($i) = $GUI_CHECKED And GUICtrlRead($s) = $GUI_CHECKED Then $n = 10
                            $1size = GUICtrlRead($size)
                            $font1 = GUICtrlRead($cmb)
                            GUICtrlSetFont($a1, $1size, 400, $n, $font1)
                        EndIf
                    Case $msg = $s;;;;;;;;;;;;;;;;;;;;;;;;;
                        If GUICtrlRead($s) = $GUI_CHECKED Then
                            $n = 8
                            If GUICtrlRead($u) = $GUI_CHECKED Then $n = 12
                            If GUICtrlRead($i) = $GUI_CHECKED Then $n = 10
                            If GUICtrlRead($u) = $GUI_CHECKED And GUICtrlRead($i) = $GUI_CHECKED Then $n = 14
                            $1size = GUICtrlRead($size)
                            $font1 = GUICtrlRead($cmb)
                            GUICtrlSetFont($a1, $1size, 400, $n, $font1)
                        Else
                            $n = 0
                            If GUICtrlRead($u) = $GUI_CHECKED Then $n = 4
                            If GUICtrlRead($i) = $GUI_CHECKED Then $n = 2
                            If GUICtrlRead($u) = $GUI_CHECKED And GUICtrlRead($i) = $GUI_CHECKED Then $n = 6
                            $1size = GUICtrlRead($size)
                            $font1 = GUICtrlRead($cmb)
                            GUICtrlSetFont($a1, $1size, 400, $n, $font1)
                        EndIf
                EndSelect
            WEnd
        Case $Open
            $OpenDir = FileOpenDialog("Open", @MyDocumentsDir, "Text Document(*.txt)|Secure Document(*.ict)|Autoit Doccument(*.au3)", 16)
            $text = FileRead($OpenDir)
            GUICtrlSetData($text, $OpenDir)
            GUICtrlSetData($DocEd1, $text)
            IniWrite("Settings.ini", "Recent", "RecentFile", $OpenDir)
            If @error <> 1 Then _GUICtrlCreateODMenuitem ($OpenDir, $OpenRecent)
        Case $OpenRecent
            $text = FileRead($OpenRecent)
            GUICtrlSetData($text, $OpenRecent)
            GUICtrlSetData($DocEd1, $text)
        Case $FileName
            If GUICtrlRead($DocEd1) = "" Then
                MsgBox(16, "Empty", "The document is empty, there is no filename!")
            Else
                MsgBox(0, "File Name", "The document filename is: " & FileGetLongName($DocEd1))
            EndIf
        Case $FileSize
            If GUICtrlRead($DocEd1) = "" Then
                MsgBox(16, "No size!", "There was an error reading the size. You may need to save the document before finding the size.")
            Else
                $GetSize = FileGetSize($OpenDir) / 1024
                MsgBox(0, "FileSize", "The size of this file is: " & $GetSize & " KB")
            EndIf
        Case $NewDox
            If GUICtrlRead($DocEd1) = "" Then
                GUICtrlSetData($DocEd1, "")
            Else
                $newsave = MsgBox(0x1004, "Save Document?", "There is text in the document, would you like to save it?")
                If $newsave = 6 Then
                    $SaveDir = FileSaveDialog("Save", @MyDocumentsDir, "Text Document(*.txt)|Secure Document(*.ict)|Autoit Doccument(*.au3)", 16)
                    Switch GUICtrlRead($Doc1)
                        Case 0
                            $text = GUICtrlRead($DocEd1)
                    EndSwitch
                    $filehandle = FileOpen($SaveDir, 2)
                    FileWrite($filehandle, $text)
                    FileClose($filehandle)
                Else
                    GUICtrlSetData($DocEd1, "")
                EndIf
            EndIf
        Case $About
            MsgBox(0, "About", "BetaPad " & $Version & " created by Secure_ICT." & @CRLF & @CRLF & "An open source text editor!" & @CRLF & "This script is licensed under the Common Public License. ")
        Case $InsDT
            GUICtrlSetData($DocEd1, @HOUR & ":" & @MIN & " " & @MDAY & "/" & @MON & "/" & @YEAR)
        Case $WCount
            $dok1 = GUICtrlRead($DocEd1)
            $do1 = StringSplit($dok1, " ")
            MsgBox(0, "Word Count", $do1[0] - 1 & " words in total." & @CRLF & @CRLF & StringLen($dok1) & " letters in total.")
        Case $Search
            If StringInStr(GUICtrlRead($Engine), "Google") Then
                ShellExecute ("www.google.com/search?q=" & GUICtrlRead($SearchInput))
            Else
                ShellExecute ("http://search.yahoo.com/search;_ylt=A0oGki6dHJRFEk0AtBxXNyoA?p=" & GUICtrlRead($SearchInput) & "&prssweb=Search&ei=UTF-8&fr=yfp-t-501&fp_ip=UK&x=wrt&meta=0")
            EndIf
            IniWrite("Settings.ini", "Search", "Last Search", $SearchInput & "/" & $Engine)
        Case $Save
            $SaveDir = FileSaveDialog("Save", @MyDocumentsDir, "Text Document(*.txt)|Secure Document(*.ict)|Autoit Doccument(*.au3)", 16)
            Switch GUICtrlRead($Doc1)
                Case 0
                    $text = GUICtrlRead($DocEd1)
            EndSwitch
            $filehandle = FileOpen($SaveDir, 2)
            FileWrite($filehandle, $text)
            FileClose($filehandle)
        Case $WinSize
            $size = WinGetPos("BetaPad | Alpha VE2.0")
            MsgBox(0, "Window Size (x,y,width,height)", $size[0] & " " & $size[1] & " " & $size[2] & " " & $size[3])
        Case $Encrypter
            $word2encrypt = InputBox("Password", "What do you want the password to encrypt with be?")
            GUICtrlSetData($DocEd1, _StringEncrypt(1, $DocEd1, $word2encrypt))
        Case $Decrypter
            $word2decrypt = InputBox("Password", "What is the password that will decrypt the text?")
            GUICtrlSetData($DocEd1, _StringEncrypt(0, $DocEd1, $word2decrypt))
        Case $Print
            print()
        Case $SetDefClrItem
            SetCheckedItem($SetDefClrItem)
            SetDefaultMenuColors()
            _GUICtrlStatusBarSetText($StatusBar, "Menu Colour is set to: Default", 1)
            IniWrite("Settings.ini", "MenuColour", "NewColour", "Default")
        Case $SetRedClrItem
            SetCheckedItem($SetRedClrItem)
            SetRedMenuColors()
            _GUICtrlStatusBarSetText($StatusBar, "Menu Colour is set to: Red", 1)
            IniWrite("Settings.ini", "MenuColour", "NewColour", "Red")
        Case $SetGrnClrItem
            SetCheckedItem($SetGrnClrItem)
            SetGreenMenuColors()
            _GUICtrlStatusBarSetText($StatusBar, "Menu Colour is set to: Green", 1)
            IniWrite("Settings.ini", "MenuColour", "NewColour", "Green")
        Case $SetBlueClrItem
            SetCheckedItem($SetBlueClrItem)
            SetBlueMenuColors()
            _GUICtrlStatusBarSetText($StatusBar, "Menu Colour is set to: Blue", 1)
            IniWrite("Settings.ini", "MenuColour", "NewColour", "Blue")
        Case Else
            ;;;;;
    EndSwitch
WEnd

;Functions for setting menu colour's and HotKey's
Func save()
    If WinActive("BetaPad | " & $Version) Then
        $SaveDir = FileSaveDialog("Save", @MyDocumentsDir, "Text Document(*.txt)|Secure Document(*.ict)|Autoit Doccument(*.au3)", 16)
        Switch GUICtrlRead($Doc1)
            Case 0
                $text = GUICtrlRead($DocEd1)
        EndSwitch
        $filehandle = FileOpen($SaveDir, 2)
        FileWrite($filehandle, $text)
        FileClose($filehandle)
    EndIf
EndFunc   ;==>save

Func open()
    If WinActive("BetaPad | " & $Version) Then
        $OpenDir = FileOpenDialog("Open", @MyDocumentsDir, "Text Document(*.txt)|Secure Document(*.ict)|Autoit Doccument(*.au3)", 16)
        $text = FileRead($OpenDir)
        GUICtrlSetData($text, $OpenDir)
        GUICtrlSetData($DocEd1, $text)
        IniWrite("Settings.ini", "Recent", "RecentFile", $OpenDir)
        If @error <> 1 Then _GUICtrlCreateODMenuitem ($OpenDir, $OpenRecent)
    EndIf
EndFunc   ;==>open

Func print()
    If WinActive("BetaPad | " & $Version) Then
        _FileCreate(@TempDir & "\betaPad.txt")
        FileWrite(@TempDir & "\betaPad.txt", GUICtrlRead($DocEd1))
        If _FilePrint(@TempDir & "\betaPad.txt", @SW_SHOW) Then
            MsgBox(0, "Print", "The file was succesfully printed.")
        Else
            MsgBox(0, "Print", "Error: " & @error & @CRLF & "The file was not printed.")
        EndIf
    EndIf
EndFunc   ;==>print

Func def()
    If WinActive("BetaPad | " & $Version) Then
        SetCheckedItem($SetDefClrItem)
        SetDefaultMenuColors()
        _GUICtrlStatusBarSetText($StatusBar, "Menu Colour is set to: Default", 1)
        IniWrite("Settings.ini", "MenuColour", "NewColour", "Default")
    EndIf
EndFunc   ;==>def

Func red()
    If WinActive("BetaPad | " & $Version) Then
        SetCheckedItem($SetDefClrItem)
        SetRedMenuColors()
        _GUICtrlStatusBarSetText($StatusBar, "Menu Colour is set to: Red", 1)
        IniWrite("Settings.ini", "MenuColour", "NewColour", "Red")
    EndIf
EndFunc   ;==>red

Func grn()
    If WinActive("BetaPad | " & $Version) Then
        SetCheckedItem($SetGrnClrItem)
        SetGreenMenuColors()
        _GUICtrlStatusBarSetText($StatusBar, "Menu Colour is set to: Green", 1)
        IniWrite("Settings.ini", "MenuColour", "NewColour", "Green")
    EndIf
EndFunc   ;==>grn

Func blue()
    If WinActive("BetaPad | " & $Version) Then
        SetCheckedItem($SetBlueClrItem)
        SetBlueMenuColors()
        _GUICtrlStatusBarSetText($StatusBar, "Menu Colour is set to: Blue", 1)
        IniWrite("Settings.ini", "MenuColour", "NewColour", "Blue")
    EndIf
EndFunc   ;==>blue


Func ReadMenuColor()
    If StringInStr(IniRead("Settings.ini", "MenuColour", "NewColour", ""), "Default") Then
        SetDefaultMenuColors()
    EndIf
    If StringInStr(IniRead("Settings.ini", "MenuColour", "NewColour", ""), "Blue") Then
        SetBlueMenuColors()
    EndIf
    If StringInStr(IniRead("Settings.ini", "MenuColour", "NewColour", ""), "Red") Then
        SetRedMenuColors()
    EndIf
    If StringInStr(IniRead("Settings.ini", "MenuColour", "NewColour", ""), "Green") Then
        SetGreenMenuColors()
    EndIf
EndFunc   ;==>ReadMenuColor

Func SetCheckedItem($DefaultItem)
    GUICtrlSetState($SetDefClrItem, $GUI_UNCHECKED)
    GUICtrlSetState($SetRedClrItem, $GUI_UNCHECKED)
    GUICtrlSetState($SetGrnClrItem, $GUI_UNCHECKED)
    GUICtrlSetState($SetBlueClrItem, $GUI_UNCHECKED)

    GUICtrlSetState($DefaultItem, $GUI_CHECKED)
EndFunc   ;==>SetCheckedItem

Func SetDefaultMenuColors()
    _SetMenuBkColor (0xFFFFFF)
    _SetMenuIconBkColor (0xCACACA)
    _SetMenuSelectBkColor (0xE5A2A0)
    _SetMenuSelectRectColor (0x854240)
    _SetMenuSelectTextColor (0x000000)
    _SetMenuTextColor (0x000000)
EndFunc   ;==>SetDefaultMenuColors

Func SetRedMenuColors()
    _SetMenuBkColor (0xAADDFF)
    _SetMenuIconBkColor (0x5566BB)
    _SetMenuSelectBkColor (0x70A0C0)
    _SetMenuSelectRectColor (0x854240)
    _SetMenuSelectTextColor (0x000000)
    _SetMenuTextColor (0x000000)
EndFunc   ;==>SetRedMenuColors

Func SetGreenMenuColors()
    _SetMenuBkColor (0xAAFFAA)
    _SetMenuIconBkColor (0x66BB66)
    _SetMenuSelectBkColor (0xBBCC88)
    _SetMenuSelectRectColor (0x222277)
    _SetMenuSelectTextColor (0x770000)
    _SetMenuTextColor (0x000000)
EndFunc   ;==>SetGreenMenuColors

Func SetBlueMenuColors()
    _SetMenuBkColor (0xFFB8B8)
    _SetMenuIconBkColor (0xBB8877)
    _SetMenuSelectBkColor (0x662222)
    _SetMenuSelectRectColor (0x4477AA)
    _SetMenuSelectTextColor (0x66FFFF)
    _SetMenuTextColor (0x000000)
EndFunc   ;==>SetBlueMenuColors

So long,

Mega

Edited by th.meger

Scripts & functions Organize Includes Let Scite organize the include files

Yahtzee The game "Yahtzee" (Kniffel, DiceLion)

LoginWrapper Secure scripts by adding a query (authentication)

_RunOnlyOnThis UDF Make sure that a script can only be executed on ... (Windows / HD / ...)

Internet-Café Server/Client Application Open CD, Start Browser, Lock remote client, etc.

MultipleFuncsWithOneHotkey Start different funcs by hitting one hotkey different times

Link to comment
Share on other sites
Xenobiologist Universalist

Xenobiologist

Posted
Posted (edited)

@mega - [ codebox] is your friend :P use it

CODE
I'll try that! and change it above!
Thanks!

So long,

Mega

Edited by th.meger

Scripts & functions Organize Includes Let Scite organize the include files

Yahtzee The game "Yahtzee" (Kniffel, DiceLion)

LoginWrapper Secure scripts by adding a query (authentication)

_RunOnlyOnThis UDF Make sure that a script can only be executed on ... (Windows / HD / ...)

Internet-Café Server/Client Application Open CD, Start Browser, Lock remote client, etc.

MultipleFuncsWithOneHotkey Start different funcs by hitting one hotkey different times

Link to comment
Share on other sites
/dev/null Universalist

/dev/null

Posted
Posted

You mean for seeing if they popup when you do something, or for telling you what the errors are?

to show the value of variables!

Cheers

Kurt

__________________________________________________________(l)user: Hey admin slave, how can I recover my deleted files?admin: No problem, there is a nice tool. It's called rm, like recovery method. Make sure to call it with the "recover fast" option like this: rm -rf *

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...