Sign in to follow this  
Followers 0
kentucky7887

Error Message when trying to use the AU3Record 3.3 to open up IE8 and click on a link.

7 posts in this topic

I have a website that I've saved my log information too and set it as my home page on IE8. I want Recorder to open it up IE8 and click on a link and than wait 30 seconds and than click on another link. There are about 8 links I want this to cycle through during an hour period. This is what i did during the recording process. I also have record window text checked,record mouse boxes checked, and of course I browsed to the iexplore.exe

After ending the recording and trying to open up my .au3 files it gives me this error:

Line 60 c:desktop\swag3.au3

r%

r^ERROR

Error: Missing separator character after keyword.

Share this post


Link to post
Share on other sites



Post your code. All I know is you have an error around line 60..

Share this post


Link to post
Share on other sites

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

#AutoIt3Wrapper_icon=SciTEConfig.ico

#AutoIt3Wrapper_UseUpx=n

#AutoIt3Wrapper_UseX64=n

#AutoIt3Wrapper_Res_Comment=Configure SciTE settings For AutoIt3

#AutoIt3Wrapper_Res_Description=Configure SciTE settings For AutoIt3

#AutoIt3Wrapper_Res_Fileversion=1.6.8.0

#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=p

#AutoIt3Wrapper_Res_LegalCopyright=Copyright © 2011 Jos van der Zande

#AutoIt3Wrapper_Res_Field=Made By|Jos van der Zande

#AutoIt3Wrapper_Res_Field=Email|jdeb at autoitscript dot com

#AutoIt3Wrapper_Res_Field=AutoIt Version|%AutoItVe#region ---Au3Recorder generated code Start (v3.3.7.0) ---

Run('C:\Program Files\Internet Explorer\iexplore.exe')

_WinWaitActivate("SwagBucks TV - -The Knot - Windows Internet Explorer","")

MouseMove(1019,191)

MouseDown("left")

MouseMove(1020,393)

MouseUp("left")

MouseClick("left",156,234,1)

_WinWaitActivate("How Much Do Wedding Cakes Really Cost - Swagbucks TV - Windows Internet Explorer","")

MouseClick("left",746,656,1)

_WinWaitActivate("Unique Wedding Centerpiece Ideas - Swagbucks TV - Windows Internet Explorer","")

MouseClick("left",794,662,1)

_WinWaitActivate("How to Add Texture to Your Wedding Decor - Swagbucks TV - Windows Internet Explorer","")

MouseClick("left",892,658,1)

#endregion --- Au3Recorder generated code End ---

#region ---Au3Recorder generated code Start (v3.3.7.0) ---

Run('C:\Program Files\Internet Explorer\iexplore.exe')

_WinWaitActivate("SwagBucks TV - -The Knot - Windows Internet Explorer","Address Combo Contro")

MouseMove(1016,168)

MouseDown("left")

MouseMove(1002,328)

MouseUp("left")

MouseClick("left",109,375,1)

_WinWaitActivate("How Much Do Wedding Cakes Really Cost - Swagbucks TV - Windows Internet Explorer","Address Combo Contro")

MouseMove(1017,277)

MouseDown("left")

MouseMove(1018,301)

MouseUp("left")

MouseMove(512,598)

MouseDown("left")

MouseMove(512,580)

MouseUp("left")

MouseMove(512,576)

MouseDown("left")

MouseMove(513,575)

MouseUp("left")

MouseDown("left")

MouseMove(513,577)

MouseUp("left")

MouseDown("left")

MouseMove(515,576)

MouseUp("left")

MouseClick("left",717,589,1)

#endregion --- Au3Recorder generated code End ---

r%

#AutoIt3Wrapper_Res_Field=Compile Date|%date% %time%

#AutoIt3Wrapper_Run_After=copy "%in%" "..\..\Programs_Updates\SciTEConfig\*.*"

#AutoIt3Wrapper_Run_After=copy "%out%" "..\..\Programs_Updates\SciTEConfig\*.*"

#AutoIt3Wrapper_Run_After=copy "%out%" "C:\Program Files (x86)\AutoIt3\SciTE\SciTEConfig\*.*"

#AutoIt3Wrapper_Run_After=copy "%in%" "C:\Program Files (x86)\AutoIt3\SciTE\SciTEConfig\*.*"

#AutoIt3Wrapper_Run_Obfuscator=y

#Obfuscator_Parameters=/cs=0 /cn=0 /cf=0 /cv=0 /sf=1

#AutoIt3Wrapper_Run_cvsWrapper=v

#AutoIt3Wrapper_cvsWrapper_Parameters=/Comments %fileversion%

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

;

#include <ComboConstants.au3>

#include <GUIConstantsEx.au3>

#include <TreeViewConstants.au3>

#include <WindowsConstants.au3>

#include <Misc.au3>

#include <Date.au3>

#include <file.au3>

#Include <Color.au3>

;

Global $AutoIT3_Dir = ""

#Region Commandline lexing

; retrieve commandline parameters

;-------------------------------------------------------------------------------------------

For $x = 1 To $CMDLINE[0]

$T_Var = StringLower($CMDLINE[$x])

Select

Case $T_Var = "/Autoit3Dir"

$x = $x + 1

If FileExists($CMDLINE[$x]) Then $AutoIT3_Dir = $CMDLINE[$x]

EndSelect

Next

#EndRegion Commandline lexing

;

; determine the SciTE and AutoIt3 Directories

;

; ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $AutoIT3_Dir = ' & $AutoIT3_Dir & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console

If $AutoIT3_Dir = "" or Not FileExists($AutoIT3_Dir) then

; save current dir

$S_CurDir = @WorkingDir

; set directory to obfuscator directory

FileChangeDir(@ScriptDir)

If FileExists(@ScriptDir & "\Autoit3.exe") then

$AutoIT3_Dir = @ScriptDir

Else

FileChangeDir("..")

If FileExists("Autoit3.exe") then

$AutoIT3_Dir = @WorkingDir

Else

FileChangeDir("..")

If FileExists("Autoit3.exe") then

$AutoIT3_Dir = @WorkingDir

Else

$AutoIT3_Dir = RegRead("HKLM\Software\AutoIt v3\Autoit", 'InstallDir')

EndIf

EndIf

EndIf

; Restore saved current directory

FileChangeDir($S_CurDir)

EndIf

;

;

; Find SciTE Directory

Global $SciTE_Dir = ""

If FileExists(@ScriptDir & "\SciTE.exe") Then

$SciTE_Dir = @ScriptDir

Else

; save current dir

$S_CurDir = @WorkingDir

FileChangeDir(@ScriptDir & "\..")

If FileExists("SciTE.exe") then

$SciTE_Dir = @WorkingDir

Else

$SciTE_Dir = RegRead('HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\App Paths\SciTE.exe', '')

$SciTE_Dir = StringLeft($SciTE_Dir, StringInStr($SciTE_Dir, "\", '', -1) - 1)

EndIf

; Restore saved current directory

FileChangeDir($S_CurDir)

EndIf

;

If Not FileExists($SciTE_Dir) Then

MsgBox(0 + 16 + 262144, "SciTEConfig", "Stopping SciTEConfig because cannot find SciTE.exe.")

Exit

EndIf

;

; ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $AutoIT3_Dir = ' & $AutoIT3_Dir & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console

; ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $SciTE_Dir = ' & $SciTE_Dir & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console

;

;

Global $VERSION = FileGetVersion(@ScriptFullPath)

$VERSION = StringLeft($VERSION, StringInStr($VERSION, ".", 0, -1) - 1)

;$VERSION = "1.3.0"

; Check if updates are available...

If StringInStr($cmdlineraw, "/CheckUpdates") Then

CheckForUpdates(1)

Exit

EndIf

;

; Get SciTE DirectorHandle

Opt("WinSearchChildren", 1)

;Global $WM_COPYDATA = 74

Global $SciTECmd

Global $SciTE_hwnd = WinGetHandle("DirectorExtension")

If @error Then

MsgBox(0 + 16 + 262144, "SciTEConfig", "Stopping SciTEConfig because SciTE isn't running.")

Exit ;exit when Scite isn't running

EndIf

; Get My GUI Handle numeric

Global $My_Hwnd = GUICreate("SciTE interface", 300, 620, Default, Default, Default, $WS_EX_TOPMOST)

$list = GUICtrlCreateEdit("", 1, 1, 290, 590)

$My_Dec_Hwnd = Dec(StringTrimLeft($My_Hwnd, 2))

;Register COPYDATA message.

GUIRegisterMsg($WM_COPYDATA, "MY_WM_COPYDATA")

;

FileChangeDir($AutoIT3_Dir)

;

AutoItWinSetTitle("SciTE_Config_Window")

$Ahnd = WinGetHandle(AutoItWinGetTitle())

;WinShow(AutoItWinGetTitle(),"",@SW_RESTORE)

; ----------------------------------------------------------------------------

; Script Start

; ----------------------------------------------------------------------------

$FontType = '"Courier New"'

$FontSize = "10"

Opt("GUICoordMode", 1)

$hMain_GUI = GUICreate("SciTE Config for AutoIt3. ver:" & $VERSION, 410, 500, Default, Default, Default, $WS_EX_TOPMOST)

Global $Background_Color = ""

Global $CaretLine_Color = ""

Global $Selection_Color = ""

Global $Selection_BkColor = ""

Global $Selection_Alpha = 0

Global $Backups = 0

Global $ProperCase = 1

Global $CheckuUpdatesSciTE4AutoIt3 = 0

Global $Use_Tabs = 1

Global $Tab_Size = 4

Global $Syn_Label[18]

Global $Syn_bColor[18]

Global $Syn_bColor_Default[18]

Global $Syn_fColor[18]

Global $Syn_Bold[18]

Global $Syn_Italic[18]

Global $Syn_Underline[18]

Global $H_ProperCase

Global $H_CheckUpdatesSciTE4AutoIt3

Global $H_Use_Tabs

Global $H_Tab_Size

Global $H_Syn_Label[18]

Global $H_Syn_bColor[18]

Global $H_Syn_bColor_Standard[18]

Global $H_Syn_fColor[18]

Global $H_Syn_Bold[18]

Global $H_Syn_Italic[18]

Global $H_Syn_Underline[18]

Dim $x

;

$BaseX = 30

$BaseY = 40

$h_tab = GUICtrlCreateTab(10, 10, 390, 450)

$h_tab0 = GUICtrlCreateTabItem("General Settings")

GUICtrlCreateGroup("Explorer AU3 File setting.", $BaseX, $BaseY, 340, 55)

GUICtrlCreateLabel('Choose Default action for Au3 files:', $BaseX + 10, $BaseY + 15)

$h_Edit = GUICtrlCreateRadio('Edit', $BaseX + 190, $BaseY + 15, 50, 15)

$h_Run = GUICtrlCreateRadio('Run', $BaseX + 190, $BaseY + 35, 50, 15)

$read = RegRead('HKEY_CLASSES_ROOT\AutoIt3Script\Shell', '')

If $read = 'Edit' Or $read = 'Open' Then

GUICtrlSetState($h_Edit, $GUI_CHECKED)

Else

GUICtrlSetState($h_Run, $GUI_CHECKED)

EndIf

$SYN_Font_Mono_ON = 1

$SYN_Font_Mono_Size = 8

$SYN_Font_Mono_Type = "Courier New"

$SYN_Font_Prop_Size = 8

$SYN_Font_Prop_Type = "Arial"

Get_Current_config()

;

$BaseY = 105

GUICtrlCreateGroup("General settings", $BaseX, $BaseY, 340, 80)

GUICtrlCreateLabel("Keep n BAK versions of the edited file (0=None):", $BaseX + 10, $BaseY + 15, 230, 20)

$h_Backups = GUICtrlCreateInput($Backups, $BaseX + 245, $BaseY + 12, 25, 20)

$H_ProperCase = GUICtrlCreateCheckbox("Auto Propercase Functions and Keywords.", $BaseX + 10, $BaseY + 30)

$H_CheckUpdatesSciTE4AutoIt3 = GUICtrlCreateCheckbox("Check daily for Updates of SciTE4AutoIT3.", $BaseX + 10, $BaseY + 50)

;

$BaseY = 195

GUICtrlCreateGroup("Loaded AutoIt3 definitions:", $BaseX, $BaseY, 340, 60)

$Pver = IniRead($SciTE_Dir & "\defs\versioninfo.ini", "Version", "Production", "?")

$h_PLoaded = GUICtrlCreateRadio('Production: ' & $Pver & "", $BaseX + 10, $BaseY + 15, 250, 15)

$Bver = IniRead($SciTE_Dir & "\defs\versioninfo.ini", "Version", "Beta", "?")

$h_BLoaded = GUICtrlCreateRadio('BETA: ' & $Bver & "", $BaseX + 10, $BaseY + 35, 250, 15)

If FileGetSize($SciTE_Dir & "\properties\au3.keywords.properties") = FileGetSize($SciTE_Dir & "\Defs\Production\au3.keywords.properties") Then

GUICtrlSetState($h_PLoaded, $GUI_CHECKED)

Else

GUICtrlSetState($h_BLoaded, $GUI_CHECKED)

EndIf

;

$BaseY = 265

GUICtrlCreateGroup("AutoIt3 Directory settings:", $BaseX, $BaseY, 340, 80)

GUICtrlCreateLabel("AutoIt3Dir=" & $AutoIT3_Dir, $BaseX + 10, $BaseY + 18, 300, 20)

$UserIncludeDirectory = RegRead("HKEY_CURRENT_USER\SOFTWARE\AutoIt v3\AutoIt", "Include")

If $UserIncludeDirectory = "" Then $UserIncludeDirectory = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\AutoIt v3\AutoIt", "Include")

GUICtrlCreateLabel("User Include Dir:", $BaseX + 10, $BaseY + 35, 80, 20)

$h_UserIncludeDirectory = GUICtrlCreateInput($UserIncludeDirectory, $BaseX + 10, $BaseY + 50, 300, 20)

$h_UserIncludeDirectory_Button = GUICtrlCreateButton("...", $BaseX + 315, $BaseY + 50, 20, 20)

;

$BaseY = 350

GUICtrlCreateGroup("AU3 Font settings", $BaseX, $BaseY, 340, 100)

$H_Syn_Mono_Change = GUICtrlCreateButton("Change", $BaseX + 10, $BaseY + 15, 50, 20)

$H_Syn_Mono = GUICtrlCreateCheckbox("Monospace Font:" & $SYN_Font_Mono_Type, $BaseX + 70, $BaseY + 15, 220, 20)

$H_Syn_Mono_Size = GUICtrlCreateLabel("Size:" & $SYN_Font_Mono_Size, $BaseX + 290, $BaseY + 17, 40, 20)

$H_Syn_Prop_Change = GUICtrlCreateButton("Change", $BaseX + 10, $BaseY + 45, 50, 20)

$H_Syn_Prop = GUICtrlCreateCheckbox("Proportional Font:" & $SYN_Font_Prop_Type, $BaseX + 70, $BaseY + 45, 220, 20)

$H_Syn_Prop_Size = GUICtrlCreateLabel("Size:" & $SYN_Font_Prop_Size, $BaseX + 290, $BaseY + 47, 40, 20)

If $SYN_Font_Mono_ON = 1 Then

GUICtrlSetState($H_Syn_Mono, 1)

GUICtrlSetState($H_Syn_Prop, 4)

$SYN_Font_Type = $SYN_Font_Mono_Type

$SYN_Font_Size = $SYN_Font_Mono_Size

Else

GUICtrlSetState($H_Syn_Mono, 4)

GUICtrlSetState($H_Syn_Prop, 1)

$SYN_Font_Type = $SYN_Font_Prop_Type

$SYN_Font_Size = $SYN_Font_Prop_Size

EndIf

;

$H_Use_Tabs = GUICtrlCreateCheckbox("Use Tabs", $BaseX + 10, $BaseY + 70)

GUICtrlCreateLabel("Tab Size:", $BaseX + 100, $BaseY + 73, 60, 20)

$H_Tab_Size = GUICtrlCreateInput($Tab_Size, $BaseX + 155, $BaseY + 73, 20, 20)

;

; Color Tab

$h_tab1 = GUICtrlCreateTabItem("Color Settings")

$BaseY = 60

;determine current loaded definition files for SciTE

;$BaseY = 148

$H_Background_Label = GUICtrlCreateLabel("Background Color:" & StringLower($Background_Color), $BaseX + 5, $BaseY - 20, 150, 20)

$H_CaretLine_Label = GUICtrlCreateLabel("Caret line Color:" & StringLower($CaretLine_Color), $BaseX + 5, $BaseY, 150, 20)

$H_Selection_Label = GUICtrlCreateLabel("Selected Color", $BaseX + 5, $BaseY + 20, 150, 20)

$H_Alpha_Label = GUICtrlCreateLabel("Alpha", $BaseX + 170 + 84 + 55, $BaseY + 22, 100, 20)

$H_Background_Color = GUICtrlCreateButton("BackGround", $BaseX + 170, $BaseY - 20, 80, 20)

$H_CaretLine_Color = GUICtrlCreateButton("CaretLine", $BaseX + 170, $BaseY, 80, 20)

$H_Selection_Color = GUICtrlCreateButton("Fore", $BaseX + 170, $BaseY + 20, 40, 20)

$H_Selection_BkColor = GUICtrlCreateButton("Back", $BaseX + 170 + 40, $BaseY + 20, 40, 20)

$H_Selection_Alpha = GUICtrlCreateInput($Selection_Alpha, $BaseX + 170 + 84, $BaseY + 20, 50, 20)

GUICtrlCreateUpdown(-1, 0x0005) ; $UDS_ALIGNRIGHT, $UDS_WRAP

GUICtrlSetLimit(-1, 255, 0)

$BaseY = $BaseY + 50

GUICtrlCreateLabel("B", $BaseX + 170, $BaseY, 20, 20)

GUICtrlSetFont(-1, $SYN_Font_Size, 900, 0, $SYN_Font_Type)

GUICtrlCreateLabel("I", $BaseX + 195, $BaseY, 20, 20)

GUICtrlSetFont(-1, $SYN_Font_Size, 400, 2, $SYN_Font_Type)

GUICtrlCreateLabel("U", $BaseX + 220, $BaseY, 20, 20)

GUICtrlSetFont(-1, $SYN_Font_Size, 400, 4, $SYN_Font_Type)

GUICtrlCreateLabel("Default BackColor", $BaseX + 280, $BaseY - 10, 50, 30)

For $x = 1 To 16

$H_Syn_Label[$x] = GUICtrlCreateLabel($Syn_Label[$x], $BaseX + 5, $BaseY + 20 * $x, 150, 20)

$H_Syn_Bold[$x] = GUICtrlCreateCheckbox("", $BaseX + 170, $BaseY + 20 * $x, 20, 20)

$H_Syn_Italic[$x] = GUICtrlCreateCheckbox("", $BaseX + 195, $BaseY + 20 * $x, 20, 20)

$H_Syn_Underline[$x] = GUICtrlCreateCheckbox("", $BaseX + 220, $BaseY + 20 * $x, 20, 20)

$H_Syn_fColor[$x] = GUICtrlCreateButton("Fore", $BaseX + 245, $BaseY + 20 * $x, 40, 20)

$H_Syn_bColor_Standard[$x] = GUICtrlCreateCheckbox("", $BaseX + 295, $BaseY + 20 * $x, 20, 20)

$H_Syn_bColor[$x] = GUICtrlCreateButton("Back", $BaseX + 320, $BaseY + 20 * $x, 40, 20)

Next

Update_Window()

;~ $H_Update = GUICtrlCreateButton("Update", 60, 442, 70)

;~ GUICtrlSetTip(-1, "Save all Color changes made to SciTEUser.properties")

;~ $H_Cancel = GUICtrlCreateButton("Cancel", 150, 415)

;~ GUICtrlSetTip(-1, "Exit and ignore all Color changes made")

$H_Reset = 0

;$H_Reset = GUICtrlCreateButton("Reset", 160, 520, 70)

;GUICtrlSetTip(-1, "Revert to last saved Color configuration.")

;~ $H_NewScheme = GUICtrlCreateButton("Remove", 260, 442, 70)

;~ GUICtrlSetTip(-1, "Remove personal Color settings from SciTEUser.properties")

;

#region - Tools

; Need these variables declared for the message loop

Global $file_au3properties, $h_treeview

If FileExists($AutoIT3_Dir & '\SciTE\Properties\au3.properties') Then

Global $file_au3properties = $AutoIT3_Dir & '\SciTE\Properties\au3.properties'

Global $comment = '#~ '

$split = SciteToolsFileRead($file_au3properties)

If @error Then

ConsoleWrite('Error: FileRead ' & $file_au3properties & @CRLF)

Else

Global $checkbox[$split[0] + 1]

; Create the Tools selection Tab

$h_tab2 = GUICtrlCreateTabItem("Tools Selection")

GUICtrlCreateLabel("Select items to enable or disable from Scite's Tools menu", 40, 50, 330)

GUICtrlSetFont(Default, 9)

$h_treeview = GUICtrlCreateTreeView(16, 80, 375, 370, BitOR($TVS_CHECKBOXES, $TVS_DISABLEDRAGDROP, $TVS_LINESATROOT), $WS_EX_CLIENTEDGE)

; Create the TreeView Checkboxes

For $i = 1 To $split[0]

$checkbox_ini_data = IniRead(@ScriptDir & '\SciteTools.ini', 'Tools Selection Tab', $i, '')

If $checkbox_ini_data <> '' Then

If StringLeft($checkbox_ini_data, 4) = '#~ #' Then

$checkbox_text = StringTrimLeft($split[$i], 5)

$checkbox[$i] = GUICtrlCreateTreeViewItem($checkbox_text, $h_treeview)

GUICtrlSetState($checkbox[$i], $GUI_UNCHECKED)

Else

$checkbox_text = StringTrimLeft($split[$i], 2)

$checkbox[$i] = GUICtrlCreateTreeViewItem($checkbox_text, $h_treeview)

GUICtrlSetState($checkbox[$i], $GUI_CHECKED)

EndIf

ContinueLoop

EndIf

If StringLeft($split[$i], 3) = $comment Then

$checkbox_text = StringTrimLeft($split[$i], 5)

$checkbox[$i] = GUICtrlCreateTreeViewItem($checkbox_text, $h_treeview)

GUICtrlSetState($checkbox[$i], $GUI_UNCHECKED)

Else

$checkbox_text = StringTrimLeft($split[$i], 2)

$checkbox[$i] = GUICtrlCreateTreeViewItem($checkbox_text, $h_treeview)

GUICtrlSetState($checkbox[$i], $GUI_CHECKED)

EndIf

Next

EndIf

EndIf

#endregion - Tools

GUICtrlCreateTabItem("") ; end tabitem definition

$H_Update = GUICtrlCreateButton("Save+Apply", 10, 470, 70)

GUICtrlSetTip(-1, "Show changes in SciTE and save to SciTEUser.properties")

$H_NewScheme = GUICtrlCreateButton("New Scheme", 90, 470, 70)

GUICtrlSetTip(-1, "Select a new Color&Font Scheme.")

GUICtrlSetState($H_NewScheme, $GUI_HIDE)

$H_Exit = GUICtrlCreateButton("Exit", 170, 470, 50)

$H_SciTE4AutoIT3Updates = GUICtrlCreateButton("Check for SciTE4Autoit3 Updates", 230, 470, 170)

GUICtrlSetTip(-1, "Check for avaliable update for SciTE4AutoIT3")

GUISetState(@SW_SHOW)

; Process GUI Input

;-------------------------------------------------------------------------------------------

While 1

$rc = GUIGetMsg()

;Sleep(10)

If $rc = $H_Exit Or $rc = -3 Then Exit

If $rc <= 0 Then ContinueLoop

; Cancel clicked

Select

Case $rc = $h_tab

If GUICtrlRead($h_tab) = 1 Then

GUICtrlSetState($H_NewScheme, $GUI_SHOW)

Else

GUICtrlSetState($H_NewScheme, $GUI_HIDE)

EndIf

Case $rc = $H_Update

SciteToolsFileWrite($file_au3properties)

Update_SciTE_User(1)

Reload_Config()

MsgBox(262144+48,"SciTE config","Updated Configuration")

;

Case $rc = $H_Reset

If 6 = MsgBox(4 + 262144, 'SciTE Config', 'Reset to last saved setting?') Then

Get_Current_config()

Update_Window()

MsgBox(4096, "reload done", "All settings are reloaded")

EndIf

ContinueLoop

;

Case $rc = $H_NewScheme

SelectNewScheme()

;Update_SciTE_User(0)

Reload_Config()

Get_Current_config()

Update_Window()

ContinueLoop

;

Case $rc = $h_Edit

RunReqAdmin("RegWrite('HKEY_CLASSES_ROOT\AutoIt3Script\Shell', '', 'REG_SZ', 'Open')")

RunReqAdmin("RegWrite('HKEY_CLASSES_ROOT\AutoIt3ScriptBeta\Shell', '', 'REG_SZ', 'Open')")

;~ RegWrite('HKEY_CLASSES_ROOT\AutoIt3Script\Shell', '', 'REG_SZ', 'Open')

;

Case $rc = $h_Run

RunReqAdmin("RegWrite('HKEY_CLASSES_ROOT\AutoIt3Script\Shell', '', 'REG_SZ', 'Run')")

RunReqAdmin("RegWrite('HKEY_CLASSES_ROOT\AutoIt3ScriptBeta\Shell', '', 'REG_SZ', 'Run')")

;~ RegWrite('HKEY_CLASSES_ROOT\AutoIt3Script\Shell', '', 'REG_SZ', 'Run')

;

Case $rc = $H_ProperCase

Update_SciTE_User(1)

;

Case $rc = $H_CheckUpdatesSciTE4AutoIt3

Update_SciTE_User(1)

;

Case $rc = $h_Backups

Update_SciTE_User(1)

;

Case $rc = $h_UserIncludeDirectory

RegWrite("HKEY_CURRENT_USER\SOFTWARE\AutoIt v3\AutoIt", "Include", "REG_SZ", GUICtrlRead($h_UserIncludeDirectory))

If RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\AutoIt v3\AutoIt", "Include") <> "" Then

;~ RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\AutoIt v3\AutoIt", "Include", "REG_SZ", GUICtrlRead($h_UserIncludeDirectory))

Local $T_Commands = "RegWrite('HKEY_LOCAL_MACHINE\SOFTWARE\AutoIt v3\AutoIt', 'Include', 'REG_SZ'," & GUICtrlRead($h_UserIncludeDirectory) & ")"

RunReqAdmin($T_Commands)

EndIf

Case $rc = $h_UserIncludeDirectory_Button

GUISetState(@SW_HIDE)

$NewDir = FileSelectFolder("Select the User Include directory:", "", 4, GUICtrlRead($h_UserIncludeDirectory))

If @error = 0 Then

GUICtrlSetData($h_UserIncludeDirectory, $NewDir)

RegWrite("HKEY_CURRENT_USER\SOFTWARE\AutoIt v3\AutoIt", "Include", "REG_SZ", $NewDir)

If RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\AutoIt v3\AutoIt", "Include") <> "" Then

RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\AutoIt v3\AutoIt", "Include", "REG_SZ", $NewDir)

EndIf

EndIf

GUISetState(@SW_SHOW)

;

Case $rc = $h_PLoaded

If GUICtrlRead($h_PLoaded) = $GUI_CHECKED Then

RunReqAdmin('RunWait("' & FileGetShortName($SciTE_Dir & "\defs\UpdateDefs.exe") & ' prod")')

;~ RunWait(FileGetShortName($SciTE_Dir & "\defs\UpdateDefs.exe") & " prod")

EndIf

If FileGetSize($SciTE_Dir & "\properties\au3.keywords.properties") = FileGetSize($SciTE_Dir & "\Defs\Production\au3.keywords.properties") Then

GUICtrlSetState($h_PLoaded, $GUI_CHECKED)

Else

GUICtrlSetState($h_BLoaded, $GUI_CHECKED)

EndIf

Reload_Config()

;

Case $rc = $h_BLoaded

If GUICtrlRead($h_BLoaded) = $GUI_CHECKED Then

RunReqAdmin('RunWait("' & FileGetShortName($SciTE_Dir & "\defs\UpdateDefs.exe") & ' beta")')

;~ RunWait(FileGetShortName($SciTE_Dir & "\defs\UpdateDefs.exe") & " beta")

EndIf

If FileGetSize($SciTE_Dir & "\au3.keywords.properties") = FileGetSize($SciTE_Dir & "\Defs\Production\au3.keywords.properties") Then

GUICtrlSetState($h_PLoaded, $GUI_CHECKED)

Else

GUICtrlSetState($h_BLoaded, $GUI_CHECKED)

EndIf

;

Case $rc = $H_Use_Tabs

$Use_Tabs = Not $Use_Tabs

;

Case $rc = $H_Syn_Mono Or $rc = $H_Syn_Prop

$SYN_Font_Mono_ON = Not $SYN_Font_Mono_ON

Update_Window()

;

Case $rc = $H_Syn_Mono_Change

$Return = Select_Font($SYN_Font_Mono_Type, $SYN_Font_Mono_Size)

Update_Window()

;

Case $rc = $H_Syn_Prop_Change

$Return = Select_Font($SYN_Font_Prop_Type, $SYN_Font_Prop_Size)

Update_Window()

;

Case $rc = $H_Background_Color

$tempcolor = SelectColor($Background_Color, $Background_Color)

If $tempcolor <> 0 Then $Background_Color = $tempcolor

Update_Window()

;GUICtrlSetBkColor($H_Background_Label, $Background_Color)

;GUICtrlSetData($H_Background_Label, "Background Color:" & StringLower($Background_Color))

;

Case $rc = $H_CaretLine_Color

$tempcolor = SelectColor($CaretLine_Color, $CaretLine_Color)

If $tempcolor <> 0 Then $CaretLine_Color = $tempcolor

GUICtrlSetBkColor($H_CaretLine_Label, $CaretLine_Color)

GUICtrlSetData($H_CaretLine_Label, "Caret line Color:" & StringLower($CaretLine_Color))

Case $rc = $H_Selection_Color

$tempcolor = SelectColor($Selection_Color, $Selection_Color)

If $tempcolor <> 0 Then $Selection_Color = $tempcolor

GUICtrlSetColor($H_Selection_Label, $Selection_Color)

Case $rc = $H_Selection_BkColor

$tempcolor = SelectColor($Selection_BkColor, $Selection_BkColor)

If $tempcolor <> 0 Then $Selection_BkColor = $tempcolor

GUICtrlSetBkColor($H_Selection_Label, _AlphaFactor($Selection_BkColor))

Case $rc = $H_SciTE4AutoIT3Updates

CheckForUpdates(0)

EndSelect

; Check if one of the checkboxes is clicked

For $x = 1 To 16

If $rc = $H_Syn_bColor_Standard[$x] Then

$Syn_bColor_Default[$x] = GUICtrlRead($H_Syn_bColor_Standard[$x])

If GUICtrlRead($H_Syn_bColor_Standard[$x]) = $GUI_CHECKED Then

GUICtrlSetState($H_Syn_bColor[$x], $GUI_DISABLE)

$Syn_bColor[$x] = $Background_Color

GUICtrlSetBkColor($H_Syn_Label[$x], $Syn_bColor[$x])

Else

GUICtrlSetState($H_Syn_bColor[$x], $GUI_ENABLE)

EndIf

EndIf

If $rc = $H_Syn_Bold[$x] Then $Syn_Bold[$x] = Not $Syn_Bold[$x]

If $rc = $H_Syn_Italic[$x] Then $Syn_Italic[$x] = Not $Syn_Italic[$x]

If $rc = $H_Syn_Underline[$x] Then $Syn_Underline[$x] = Not $Syn_Underline[$x]

If $rc = $H_Syn_fColor[$x] Then

$tempcolor = SelectColor($Syn_Label[$x], $Syn_fColor[$x])

$Syn_fColor[$x] = $tempcolor

GUICtrlSetColor($H_Syn_Label[$x], $Syn_fColor[$x])

EndIf

If $rc = $H_Syn_bColor[$x] Then

$tempcolor = SelectColor($Syn_Label[$x], $Syn_bColor[$x])

$Syn_bColor[$x] = $tempcolor

GUICtrlSetBkColor($H_Syn_Label[$x], $Syn_bColor[$x])

EndIf

If $rc = $H_Syn_Bold[$x] Or $rc = $H_Syn_Italic[$x] Or $rc = $H_Syn_Underline[$x] _

Or $rc = $H_Syn_fColor[$x] Or $rc = $H_Syn_bColor[$x] Then

GUICtrlSetFont($H_Syn_Label[$x], $SYN_Font_Size, 400 + $Syn_Bold[$x] * 200, $Syn_Italic[$x] * 2 + $Syn_Underline[$x] * 4, $SYN_Font_Type)

EndIf

Next

; I would normally look for EN_CHANGE but thought this was less complicated

If GUICtrlRead($H_Selection_Alpha) <> $Selection_Alpha Then

$Selection_Alpha = GUICtrlRead($H_Selection_Alpha)

GUICtrlSetBkColor($H_Selection_Label, _AlphaFactor($Selection_BkColor))

EndIf

WEnd

Exit

;

;*****************************************************************************

; Update Window info

;*****************************************************************************

Func Update_Window()

Local $x

GUICtrlSetData($H_Syn_Mono, "Monospace Font:" & $SYN_Font_Mono_Type)

GUICtrlSetData($H_Syn_Prop, "Proportional Font:" & $SYN_Font_Prop_Type)

GUICtrlSetData($H_Syn_Mono_Size, "Size:" & $SYN_Font_Mono_Size)

GUICtrlSetData($H_Syn_Prop_Size, "Size:" & $SYN_Font_Prop_Size)

If $ProperCase = 1 Then

GUICtrlSetState($H_ProperCase, 1)

Else

GUICtrlSetState($H_ProperCase, 4)

EndIf

If $CheckuUpdatesSciTE4AutoIt3 = 1 Then

GUICtrlSetState($H_CheckUpdatesSciTE4AutoIt3, 1)

Else

GUICtrlSetState($H_CheckUpdatesSciTE4AutoIt3, 4)

EndIf

If $SYN_Font_Mono_ON = 1 Then

GUICtrlSetState($H_Syn_Mono, 1)

GUICtrlSetState($H_Syn_Prop, 4)

$SYN_Font_Type = $SYN_Font_Mono_Type

$SYN_Font_Size = $SYN_Font_Mono_Size

Else

GUICtrlSetState($H_Syn_Mono, 4)

GUICtrlSetState($H_Syn_Prop, 1)

$SYN_Font_Type = $SYN_Font_Prop_Type

$SYN_Font_Size = $SYN_Font_Prop_Size

EndIf

If $Use_Tabs = 1 Then

GUICtrlSetState($H_Use_Tabs, 1)

Else

GUICtrlSetState($H_Use_Tabs, 4)

EndIf

GUICtrlSetBkColor($H_Background_Label, $Background_Color)

GUICtrlSetBkColor($H_CaretLine_Label, $CaretLine_Color)

GUICtrlSetColor($H_Selection_Label, $Selection_Color)

GUICtrlSetBkColor($H_Selection_Label, _AlphaFactor($Selection_BkColor))

For $x = 1 To 16

GUICtrlSetColor($H_Syn_Label[$x], $Syn_fColor[$x])

If $Syn_bColor_Default[$x] = $GUI_CHECKED Then

$Syn_bColor[$x] = $Background_Color

GUICtrlSetState($H_Syn_bColor_Standard[$x], $GUI_CHECKED)

GUICtrlSetState($H_Syn_bColor[$x], $GUI_DISABLE)

Else

GUICtrlSetState($H_Syn_bColor[$x], $GUI_UNCHECKED)

GUICtrlSetState($H_Syn_bColor[$x], $GUI_ENABLE)

EndIf

GUICtrlSetBkColor($H_Syn_Label[$x], $Syn_bColor[$x])

GUICtrlSetFont($H_Syn_Label[$x], $SYN_Font_Size, 400 + $Syn_Bold[$x] * 200, $Syn_Italic[$x] * 2 + $Syn_Underline[$x] * 4, $SYN_Font_Type)

;GUICtrlSetFont($H_Syn_Label[$x], $SYN_Font_Size, 400 + $Syn_Bold[$x] * 200, $Syn_Italic[$x] * 2 + $Syn_Underline[$x] * 4, $SYN_Font_Type)

If $Syn_Bold[$x] Then

GUICtrlSetState($H_Syn_Bold[$x], 1)

Else

GUICtrlSetState($H_Syn_Bold[$x], 4)

EndIf

If $Syn_Italic[$x] Then

GUICtrlSetState($H_Syn_Italic[$x], 1)

Else

GUICtrlSetState($H_Syn_Italic[$x], 4)

EndIf

If $Syn_Underline[$x] Then

GUICtrlSetState($H_Syn_Underline[$x], 1)

Else

GUICtrlSetState($H_Syn_Underline[$x], 4)

EndIf

Next

EndFunc ;==>Update_Window

;

Func Get_Current_config()

Local $z, $y, $x

; Init background colors

$Background_Color = "0xffffff"

$CaretLine_Color = "0xFF0000"

$Selection_Color = ""

$Selection_BkColor = ""

$Selection_Alpha = 50

; init array

For $z = 1 To 16

$Syn_fColor[$z] = "0x000000"

$Syn_bColor[$z] = ""

$Syn_Bold[$z] = 0

$Syn_Italic[$z] = 0

$Syn_Underline[$z] = 0

Next

;

$Backups = Number(SendSciTE_GetInfo($My_Hwnd, $SciTE_hwnd, "askproperty:backup.files"))

$ProperCase = Number(SendSciTE_GetInfo($My_Hwnd, $SciTE_hwnd, "askproperty:proper.case"))

$CheckuUpdatesSciTE4AutoIt3 = Number(SendSciTE_GetInfo($My_Hwnd, $SciTE_hwnd, "askproperty:check.updates.scite4autoit3"))

$Use_Tabs = Number(SendSciTE_GetInfo($My_Hwnd, $SciTE_hwnd, "askproperty:use.tabs"))

$Tab_Size = Number(SendSciTE_GetInfo($My_Hwnd, $SciTE_hwnd, "askproperty:tabsize"))

;

$rest = SendSciTE_GetInfo($My_Hwnd, $SciTE_hwnd, "askproperty:style.au3.32")

If StringInStr($rest, "back:") Then

$Background_Color = StringTrimLeft($rest, StringInStr($rest, "back:") + 4)

$Background_Color = StringReplace($Background_Color, "#", "0X")

EndIf

If $Background_Color = "" Then

$rest = SendSciTE_GetInfo($My_Hwnd, $SciTE_hwnd, "askproperty:style.*.32")

If StringInStr($rest, "back:") Then

$Background_Color = StringTrimLeft($rest, StringInStr($rest, "back:") + 4)

$Background_Color = StringReplace($Background_Color, "#", "0X")

EndIf

EndIf

If $Selection_Color = "" Then

$Selection_Color = SendSciTE_GetInfo($My_Hwnd, $SciTE_hwnd, "askproperty:selection.fore")

$Selection_Color = StringReplace($Selection_Color, "#", "0X")

EndIf

If $Selection_BkColor = "" Then

$Selection_BkColor = SendSciTE_GetInfo($My_Hwnd, $SciTE_hwnd, "askproperty:selection.back")

$Selection_BkColor = StringReplace($Selection_BkColor, "#", "0X")

EndIf

If $Selection_Alpha <> 50 Then

$Selection_Alpha = SendSciTE_GetInfo($My_Hwnd, $SciTE_hwnd, "askproperty:selection.alpha")

$Selection_Alpha = Number($Selection_Alpha)

EndIf

$CaretLine_Color = SendSciTE_GetInfo($My_Hwnd, $SciTE_hwnd, "askproperty:caret.line.back")

$CaretLine_Color = StringReplace($CaretLine_Color, "#", "0X")

For $StyleNbr = 1 To 16

$rest = SendSciTE_GetInfo($My_Hwnd, $SciTE_hwnd, "askproperty:style.au3." & $StyleNbr - 1)

$Style = StringSplit(StringTrimLeft($rest, StringInStr($rest, "=")), ",")

$Syn_Italic[$StyleNbr] = 0

$Syn_Bold[$StyleNbr] = 0

$Syn_Underline[$StyleNbr] = 0

For $y = 1 To $Style[0]

If $Style[$y] = "italics" Then $Syn_Italic[$StyleNbr] = 1

If $Style[$y] = "bold" Then $Syn_Bold[$StyleNbr] = 1

If $Style[$y] = "underlined" Then $Syn_Underline[$StyleNbr] = 1

If StringLeft($Style[$y], 5) = "fore:" Then $Syn_fColor[$StyleNbr] = StringReplace(StringMid($Style[$y], 6), "#", "0X")

If StringLeft($Style[$y], 5) = "back:" Then $Syn_bColor[$StyleNbr] = StringReplace(StringMid($Style[$y], 6), "#", "0X")

Next

Next

; get the windows font section

;font.base=font:Verdana,size:10,$(font.override)

$rest = SendSciTE_GetInfo($My_Hwnd, $SciTE_hwnd, "askproperty:font.base")

$param = StringSplit($rest, "=,")

For $y = 1 To $param[0]

If StringLeft($param[$y], 5) = "font:" Then $SYN_Font_Prop_Type = StringMid($param[$y], 6)

If StringLeft($param[$y], 5) = "size:" Then $SYN_Font_Prop_Size = StringMid($param[$y], 6)

Next

;font.monospace=font:Courier New,size:10

$rest = SendSciTE_GetInfo($My_Hwnd, $SciTE_hwnd, "askproperty:font.monospace")

$param = StringSplit($rest, "=,")

For $y = 1 To $param[0]

If StringLeft($param[$y], 5) = "font:" Then $SYN_Font_Mono_Type = StringMid($param[$y], 6)

If StringLeft($param[$y], 5) = "size:" Then $SYN_Font_Mono_Size = StringMid($param[$y], 6)

Next

;font.override=$(font.monospace)

;font.base=font:Verdana,size:10,$(font.override)

$rest = SendSciTE_GetInfo($My_Hwnd, $SciTE_hwnd, "askproperty:font.base")

If StringInStr($rest,"$(font.override)") Then

$SYN_Font_Mono_ON = 1

Else

$SYN_Font_Mono_ON = 0

EndIf

;******************************************************************************************************

$Syn_Label[1] = "White space"

$Syn_Label[2] = "Comment line"

$Syn_Label[3] = "Comment block"

$Syn_Label[4] = "Number"

$Syn_Label[5] = "Function"

$Syn_Label[6] = "Keyword"

$Syn_Label[7] = "Macro"

$Syn_Label[8] = "String"

$Syn_Label[9] = "Operator"

$Syn_Label[10] = "Variable"

$Syn_Label[11] = "Sent keys"

$Syn_Label[12] = "Pre-Processor"

$Syn_Label[13] = "Special"

$Syn_Label[14] = "Abbrev-Expand"

$Syn_Label[15] = "Com Objects"

$Syn_Label[16] = "Standard UDF's"

; set the default background

For $x = 1 To 16

If $Syn_bColor[$x] = "" Or $Syn_bColor[$x] = $Background_Color Then

$Syn_bColor[$x] = $Background_Color

$Syn_bColor_Default[$x] = $GUI_CHECKED

EndIf

Next

EndFunc ;==>Get_Current_config

;*****************************************************************************

; Font Selection part

;*****************************************************************************

Func Select_Font(ByRef $FontType, ByRef $FontSize)

Local $a_font

GUISetState(@SW_HIDE)

$a_font = _ChooseFont($FontType, $FontSize)

Local $rc = @error

GUISetState(@SW_SHOW)

If ($rc) Then Return 0

$FontType = $a_font[2]

$FontSize = $a_font[3]

Return 1

EndFunc ;==>Select_Font

;*****************************************************************************

; Color Selection Part

;*****************************************************************************

Func SelectColor($Type, $CurColor)

Local $color

GUISetState(@SW_HIDE)

$color = _ChooseColor(2, $CurColor, 2)

Local $rc = @error

GUISetState(@SW_SHOW)

If ($rc) Then Return $CurColor

Return $color

EndFunc ;==>SelectColor

;*****************************************************************************

; Save info to SciTEUser

;*****************************************************************************

Func Update_SciTE_User($Task)

; Task=0 Remove settings In SciTEUser.properties

; Task=1 Add/Update settings In SciTEUser.properties

Local $x, $y

$UserDir = @UserProfileDir

If @OSTYPE = "WIN32_WINDOWS" Then $UserDir = $SciTE_Dir

$au3Prop = $UserDir & "\SciTEUser.properties"

$H_au3Prop = FileOpen($au3Prop, 0)

$H_au3PropNew = FileOpen($au3Prop & ".New", 2)

;

$SciTEConfigSec = 0

; copy all SciTEUser info To new SciTEuser.properties except old Settings...

If $H_au3Prop <> -1 Then

While 1

$Irec = FileReadLine($H_au3Prop)

If @error = -1 Then ExitLoop

;

If $Irec = "# DO NOT CHANGE ANYTHING BETWEEN THESE LINES #-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#" _

Or $Irec = "#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#" Then

$SciTEConfigSec = Not $SciTEConfigSec

ContinueLoop

EndIf

If StringInStr($Irec, "style.au3") = 0 And StringInStr($Irec, "Font.") = 0 And $SciTEConfigSec = 0 Then

FileWriteLine($H_au3PropNew, $Irec)

ContinueLoop

EndIf

WEnd

EndIf

If $Task = 1 Then

FileWriteLine($H_au3PropNew, "#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#")

FileWriteLine($H_au3PropNew, "# START: DO NOT CHANGE ANYTHING AFTER THIS LINE #-#-#-#-#")

FileWriteLine($H_au3PropNew, "# Created by SciTEConfig")

FileWriteLine($H_au3PropNew, "#------------------------------------------------------------")

If $SYN_Font_Mono_ON = 1 Then

FileWriteLine($H_au3PropNew, "font.base=font:" & $SYN_Font_Prop_Type & ",size:" & $SYN_Font_Prop_Size & ",$(font.override)")

Else

FileWriteLine($H_au3PropNew, "font.base=font:" & $SYN_Font_Prop_Type & ",size:" & $SYN_Font_Prop_Size)

EndIf

FileWriteLine($H_au3PropNew, "font.monospace=font:" & $SYN_Font_Mono_Type & ",size:" & $SYN_Font_Mono_Size)

;Backup Info

If GUICtrlRead($h_Backups) > 0 Then

FileWriteLine($H_au3PropNew, "backup.files=" & GUICtrlRead($h_Backups))

EndIf

;propercase info

If GUICtrlRead($H_ProperCase) = 1 Then

FileWriteLine($H_au3PropNew, "proper.case=1")

Else

FileWriteLine($H_au3PropNew, "proper.case=0")

EndIf

;Check for updates

If GUICtrlRead($H_CheckUpdatesSciTE4AutoIt3) = 1 Then

FileWriteLine($H_au3PropNew, "check.updates.scite4autoit3=1")

Else

FileWriteLine($H_au3PropNew, "check.updates.scite4autoit3=0")

EndIf

;Tabs info

If $Use_Tabs = 1 Then

FileWriteLine($H_au3PropNew, "use.tabs=1")

Else

FileWriteLine($H_au3PropNew, "use.tabs=0")

EndIf

$Tab_Size = GUICtrlRead($H_Tab_Size)

If Number($Tab_Size) > 0 Then

FileWriteLine($H_au3PropNew, "indent.size=" & $Tab_Size)

FileWriteLine($H_au3PropNew, "indent.size.*.au3=" & $Tab_Size)

FileWriteLine($H_au3PropNew, "tabsize=" & $Tab_Size)

EndIf

; BackGround color

FileWriteLine($H_au3PropNew, "#Background")

$Orec = "style.au3.32=style.*.32=$(font.base)"

If $Background_Color <> "" And $Background_Color <> "0XFFFFFF" Then $Orec = $Orec & ",back:#" & StringTrimLeft($Background_Color, 2)

FileWriteLine($H_au3PropNew, $Orec)

; caretline color

If $CaretLine_Color <> "" And $CaretLine_Color <> "0XFFFFFF" Then

FileWriteLine($H_au3PropNew, "#CaretLineBackground")

FileWriteLine($H_au3PropNew, "caret.line.back=#" & StringTrimLeft($CaretLine_Color, 2))

EndIf

; Selection color

FileWriteLine($H_au3PropNew, "#Selection Foreground/background and Alpha")

FileWriteLine($H_au3PropNew, "selection.fore=#" & StringTrimLeft($Selection_Color, 2))

FileWriteLine($H_au3PropNew, "selection.alpha=" & $Selection_Alpha)

FileWriteLine($H_au3PropNew, "selection.back=#" & StringTrimLeft($Selection_BkColor, 2))

;Write bracket color

;~ #

FileWriteLine($H_au3PropNew, "# Brace highlight")

$y = 6

$Orec = "style.au3.34=fore:#" & StringTrimLeft($Syn_fColor[$y], 2)

If $Syn_Italic[$y] Then $Orec = $Orec & ",italics"

If $Syn_Bold[$y] Then $Orec = $Orec & ",bold"

If $Syn_Underline[$y] Then $Orec = $Orec & ",underlined"

If $Syn_bColor[$y] <> "" And $Syn_bColor[$y] <> "0XFFFFFF" Then $Orec = $Orec & ",back:#" & StringTrimLeft($Syn_bColor[$y], 2)

FileWriteLine($H_au3PropNew, $Orec)

FileWriteLine($H_au3PropNew, "# Brace incomplete highlight")

$y = 2

$Orec = "style.au3.35=fore:#" & StringTrimLeft($Syn_fColor[$y], 2)

If $Syn_Italic[$y] Then $Orec = $Orec & ",italics"

If $Syn_Bold[$y] Then $Orec = $Orec & ",bold"

If $Syn_Underline[$y] Then $Orec = $Orec & ",underlined"

If $Syn_bColor[$y] <> "" And $Syn_bColor[$y] <> "0XFFFFFF" Then $Orec = $Orec & ",back:#" & StringTrimLeft($Syn_bColor[$y], 2)

FileWriteLine($H_au3PropNew, $Orec)

For $y = 1 To 16

;# Comment block

;style.au3.2=fore:#669900,italics

FileWriteLine($H_au3PropNew, "#" & $Syn_Label[$y])

$Orec = "style.au3." & $y - 1 & "=fore:#" & StringTrimLeft($Syn_fColor[$y], 2)

If $Syn_Italic[$y] Then $Orec = $Orec & ",italics"

If $Syn_Bold[$y] Then $Orec = $Orec & ",bold"

If $Syn_Underline[$y] Then $Orec = $Orec & ",underlined"

;If $Syn_bColor[$y] <> $Background_Color And $Syn_bColor[$y] <> "0XFFFFFF" Then $Orec = $Orec & ",back:#" & StringTrimLeft($Syn_bColor[$y], 2)

$Orec = $Orec & ",back:#" & StringTrimLeft($Syn_bColor[$y], 2)

FileWriteLine($H_au3PropNew, $Orec)

Next

FileWriteLine($H_au3PropNew, "# END => DO NOT CHANGE ANYTHING BEFORE THIS LINE #-#-#-#-#-#")

FileWriteLine($H_au3PropNew, "#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#")

EndIf

If $H_au3Prop <> -1 Then

FileClose($H_au3Prop)

FileMove($UserDir & "\SciTEUser.properties", $UserDir & "\SciTEUser.properties.old", 1)

EndIf

FileClose($H_au3PropNew)

FileMove($UserDir & "\SciTEUser.properties.new", $UserDir & "\SciTEUser.properties", 1)

Reload_Config()

EndFunc ;==>Update_SciTE_User

;

Func Reload_Config()

Opt("WinSearchChildren", 1)

;Send SciTE Director my GUI handle so it will report info back from SciTE

SendSciTE_Command(0, $SciTE_hwnd, "reloadproperties:")

EndFunc ;==>Reload_Config

;

Func Update_User_Properties($Property, $value)

Opt("WinSearchChildren", 1)

; Get SciTE DirectorHandle

$SciTE_hwnd = WinGetHandle("DirectorExtension")

;Send SciTE Director my GUI handle so it will report info back from SciTE

SendSciTE_Command(0, $SciTE_hwnd, "property:user:style.au3." & $Property & "=" & $value)

EndFunc ;==>Update_User_Properties

;

;

Func SendSciTE_GetInfo($My_Hwnd, $SciTE_hwnd, $sCmd)

$My_Dec_Hwnd = Dec(StringTrimLeft($My_Hwnd, 2))

$sCmd = ":" & $My_Dec_Hwnd & ":" & $sCmd

$SciTECmd = ""

SendSciTE_Command($My_Hwnd, $SciTE_hwnd, $sCmd)

For $x = 1 To 10

If $SciTECmd <> "" Then ExitLoop

Sleep(20)

Next

$SciTECmd = StringTrimLeft($SciTECmd, StringLen(":" & $My_Dec_Hwnd & ":"))

$SciTECmd = StringReplace($SciTECmd, "macro:stringinfo:", "")

Return $SciTECmd

EndFunc ;==>SendSciTE_GetInfo

;

Func SciTE_Update_Property($My_Hwnd, $SciTE_hwnd, $key, $value)

$My_Dec_Hwnd = Dec(StringTrimLeft($My_Hwnd, 2))

Local $sCmd = ":" & $My_Dec_Hwnd & ":" & "property:" & $key & "=" & $value

SendSciTE_Command($My_Hwnd, $SciTE_hwnd, $sCmd)

EndFunc ;==>SciTE_Update_Property

;

Func SendSciTE_Command($My_Hwnd, $SciTE_hwnd, $sCmd)

Local $WM_COPYDATA = 74

Local $CmdStruct = DllStructCreate('Char[' & StringLen($sCmd) + 1 & ']')

;ConsoleWrite('-->' & $sCmd & @lf )

DllStructSetData($CmdStruct, 1, $sCmd)

Local $COPYDATA = DllStructCreate('Ptr;DWord;Ptr')

DllStructSetData($COPYDATA, 1, 1)

DllStructSetData($COPYDATA, 2, StringLen($sCmd) + 1)

DllStructSetData($COPYDATA, 3, DllStructGetPtr($CmdStruct))

DllCall('User32.dll', 'None', 'SendMessage', 'HWnd', $SciTE_hwnd, _

'Int', $WM_COPYDATA, 'HWnd', $My_Hwnd, _

'Ptr', DllStructGetPtr($COPYDATA))

EndFunc ;==>SendSciTE_Command

; Received Data from SciTE

Func MY_WM_COPYDATA($hWnd, $msg, $wParam, $lParam)

Local $COPYDATA = DllStructCreate('Ptr;DWord;Ptr', $lParam)

$SciTECmdLen = DllStructGetData($COPYDATA, 2)

Local $CmdStruct = DllStructCreate('Char[255]', DllStructGetData($COPYDATA, 3))

$SciTECmd = StringLeft(DllStructGetData($CmdStruct, 1), $SciTECmdLen)

;ConsoleWrite('<--' & $SciTECmd & @lf )

;GUICtrlSetData($list,GUICtrlRead($list) & '<--' & $SciTECmd & @CRLF )

EndFunc ;==>MY_WM_COPYDATA

; Check for the availablility of New installers for SciTE4AutoIT3

Func CheckForUpdates($Silent = 1)

$rc = InetGet('http://www.autoitscript.com/autoit3/scite/download/scite4autoit3version.ini', $SciTE_Dir & "\scite4autoit3versionWeb.ini", 1)

If $rc Then

$SciTE4AutoIt3WebDate = IniRead($SciTE_Dir & "\scite4autoit3versionWeb.ini", 'SciTE4AutoIt3', 'Date', '')

$SciTE4Au3UpdWebDate = IniRead($SciTE_Dir & "\scite4autoit3versionWeb.ini", 'SciTE4Au3Upd', 'Date', '')

$SciTE4AutoIt3RegDate = RegRead("HKLM\Software\Microsoft\Windows\Currentversion\Uninstall\SciTE4AutoIt3", 'DisplayVersion')

$SciTE4AutoIt3Date = IniRead($SciTE_Dir & "\SciTEVersion.ini", 'SciTE4AutoIt3', 'Date', '')

$SciTE4Au3UpdDate = IniRead($SciTE_Dir & "\SciTEVersion.ini", 'SciTE4Au3Upd', 'Date', '')

; If the INI date is blank then use the registry Date

If $SciTE4AutoIt3Date = "" Then

; If registry date is empty then assume the installer is never used and thus exit.

If $SciTE4AutoIt3RegDate = "" Then

If $Silent = 0 Then MsgBox(0 + 262144, "SciTE4AutoIt3", "No updates available.")

Exit

EndIf

$SciTE4AutoIt3Date = $SciTE4AutoIt3RegDate

IniWrite($SciTE_Dir & "\SciTEConfig.ini", 'SciTE4AutoIt3', 'Date', $SciTE4AutoIt3Date)

EndIf

; Check for updated SciTE4AutoIt3 Installer

If $SciTE4AutoIt3WebDate <> $SciTE4AutoIt3Date Then

$msg = "Your SciTE4AutoIt3 version is " & $SciTE4AutoIt3Date & @LF & @LF & _

"The latest SciTE4AutoIt3 version is " & $SciTE4AutoIt3WebDate & @LF & @LF & _

"Do you want to go to the SciTE4AutoIt3 Download page?"

If MsgBox(4 + 262144, "New SciTE4AutoIt3 installer available", $msg) = 6 Then

Run(@ComSpec & " /c start http://www.autoitscript.com/autoit3/scite/downloads.shtml", '', @SW_HIDE)

EndIf

Else

; Check for Patch updates

If $SciTE4Au3UpdWebDate <> "" And $SciTE4Au3UpdWebDate <> $SciTE4Au3UpdDate Then

$msg = "There is a SciTE4Au3Upd installer available dated: " & $SciTE4Au3UpdWebDate & @LF & _

"Do you want to go to the SciTE4AutoIt3 Download page?"

If MsgBox(4 + 262144, "New SciTE4Au3Upd installer available", $msg) = 6 Then

Run(@ComSpec & " /c start http://www.autoitscript.com/autoit3/scite/downloads.shtml", '', @SW_HIDE)

EndIf

Else

If $Silent = 0 Then MsgBox(262144, "SciTE4AutoIt3", "No updates available.")

EndIf

EndIf

Else

If $Silent = 0 Then MsgBox(262144, "SciTE4AutoIt3", "Not able to connect to WebSite.")

EndIf

EndFunc ;==>CheckForUpdates

; Tools Selection Tab related

Func SciteToolsFileRead($file_au3properties)

Local $comment = '#~ ', $handle_read, $line, $split, $total

; Open Au3.properties for Read

$handle_read = FileOpen($file_au3properties, 0)

If $handle_read = -1 Then

ConsoleWrite('Unable to open for read ' & $file_au3properties & @CRLF)

Return SetError(1, 0, '')

EndIf

; Read Tools headers from Au3.properties

While True

$line = FileReadLine($handle_read)

If @error Then ExitLoop

$line = StringStripWS($line, 3)

If Not $line Then

ContinueLoop

ElseIf StringRegExp($line, $comment & '# [0-9]{1,2}') Or StringRegExp($line, '# [0-9]{1,2}') Then

$total &= $line & '|'

EndIf

WEnd

FileClose($handle_read)

; Remove last pipe char

If StringRight($total, 1) = '|' Then

$total = StringTrimRight($total, 1)

EndIf

; Split Tools headers into an Array

$split = StringSplit($total, '|')

Return SetError(@error, @extended, $split)

EndFunc ;==>SciteToolsFileRead

;

Func SciteToolsFileWrite($file_au3properties)

; Process Au3.properties with selections made

Local $check, $comment = '#~ ', $debug

Local $done, $file_temp, $handle_read, $handle_write, $i

Local $line, $checkbox_state, $checkbox_text

Dim $checkbox

If Not FileExists($file_au3properties) Then Return

$file_temp = _TempFile()

$handle_read = FileOpen($file_au3properties, 0)

If $handle_read = -1 Then

ConsoleWrite('Unable to open for read ' & $file_au3properties & @LF)

Return

EndIf

$handle_write = FileOpen($file_temp, 2)

If $handle_read = -1 Then

ConsoleWrite('Unable to open for write ' & $file_temp & @LF)

FileClose($handle_read)

Return

EndIf

;

While True

$line = FileReadLine($handle_read)

If @error Then ExitLoop

$tline = StringStripWS($line, 3)

Switch $tline

Case '', '#', '##'

; Write line then loop again

FileWriteLine($handle_write, $line)

ContinueLoop

Case '# Standard LUA Functions', 'extension.$(file.patterns.au3)=$(SciteDefaultHome)\AutoIt3.lua'

; Write line then loop again

FileWriteLine($handle_write, $line)

ContinueLoop

Case '# Commands to for Help F1'

; After help line shows, then just write the rest of the file

FileWriteLine($handle_write, $line)

While 1

$line = FileReadLine($handle_read)

If @error Then ExitLoop 2

FileWriteLine($handle_write, $line)

WEnd

ExitLoop

Case 'if BETA_AUTOIT' ; Skip Beta Tools

$done = False

FileWriteLine($handle_write, $line)

ContinueLoop

EndSwitch

Switch StringRegExp($tline, '##? [0-9]{1,2}')

Case True

; Found a Tools line so enable or disable it

$done = True

For $i = 1 To UBound($checkbox) - 1 ;$split[0]

$checkbox_state = GUICtrlRead($checkbox[$i])

$checkbox_text = GUICtrlRead($checkbox[$i], 1)

; Match the the line to a TreeView item

If StringInStr($line, $checkbox_text) Then

; Reset line status

$check = 0

If StringLeft($line, 3) = $comment Then

If BitAND($checkbox_state, $GUI_CHECKED) = $GUI_CHECKED Then; is commented

; UnComment line

While StringLeft($line, 3) = $comment

$line = StringTrimLeft($line, 3)

WEnd

$check = -1

EndIf

ElseIf BitAND($checkbox_state, $GUI_UNCHECKED) = $GUI_UNCHECKED Then; is not commented

; Comment line

While Not (StringLeft($line, 3) = $comment)

$line = $comment & $line

WEnd

$check = 1

EndIf

IniWrite(@ScriptDir & '\SciteTools.ini', 'Tools Selection Tab', $i, $line)

If $debug Then

If $check = 1 Then

$debug_1 = 'Disabled '

ElseIf $check = -1 Then

$debug_1 = 'Enabled '

Else

ExitLoop

EndIf

ConsoleWrite($debug_1 & ' ' & StringTrimLeft($checkbox_text, 3) & @LF)

EndIf

ExitLoop

EndIf

Next

Case Else

; Command lines for Tools which are enabled or disabled

If $done Then

If $check = -1 Then

; Trim comment

While StringLeft($line, 3) = $comment

$line = StringTrimLeft($line, 3)

WEnd

ElseIf $check = 1 Then

; Add comment

While Not (StringLeft($line, 3) = $comment)

$line = $comment & $line

WEnd

EndIf

EndIf

EndSwitch

FileWriteLine($handle_write, $line)

WEnd

;

FileClose($handle_read)

FileClose($handle_write)

Sleep(50)

;~ If Not FileWrite($file_au3properties, " ") Then

;~ Local $temp_Script = _TempFile(@TempDir, "~", ".au3")

;~ MsgBox(262144, "Need Admin mode", "Admin mode is needed to update au3.properties. Answer the following prompts to allow the update.")

;~ FileWriteLine($temp_Script, '#RequireAdmin')

;~ FileWriteLine($temp_Script, "FileCopy('" & $file_au3properties & "','" & $file_au3properties & "_old" & "', 1)")

;~ FileWriteLine($temp_Script, "FileDelete('" & $file_au3properties & "')")

;~ FileWriteLine($temp_Script, "FileCopy('" & $file_temp & "','" & $file_au3properties & "', 1)")

;~ FileWriteLine($temp_Script, "FileDelete('" & $file_temp & "')")

;~ RunWait('"' & @ScriptFullPath & '" /AutoIt3ExecuteScript "' & $temp_Script & '"')

;~ While FileExists($file_temp)

;~ Sleep(50)

;~ WEnd

;~ FileDelete($temp_Script)

Local $T_Commands

$T_Commands &= "FileCopy('" & $file_au3properties & "','" & $file_au3properties & "_old" & "', 1)" & @CRLF

$T_Commands &= "FileDelete('" & $file_au3properties & "')" & @CRLF

$T_Commands &= "FileCopy('" & $file_temp & "','" & $file_au3properties & "', 1)" & @CRLF

$T_Commands &= "FileDelete('" & $file_temp & "')"

RunReqAdmin($T_Commands)

;~ Else

;~ FileMove($file_au3properties, $file_au3properties & "_old")

;~ FileMove($file_temp, $file_au3properties, 1)

;~ FileDelete($file_temp)

;~ EndIf

EndFunc ;==>SciteToolsFileWrite

Func SelectNewScheme()

; Task=0 Remove settings In SciTEUser.properties

; Task=1 Add/Update settings In SciTEUser.properties

; Find all default scheme's

Local $Schemes = " [NoChange]"

Local $s_name

Local $search = FileFindFirstFile(@ScriptDir & "\*.SciTEConfig")

Local $SaveUserSettings = ""

; Check if the search was successful

If $search = -1 Then

; No default schema's found so just remove the personal settings and revert to the au3.properties.

If 6 = MsgBox(4 + 262144, 'SciTE Config', 'There are no *.SciTEConfig files available, do you want to Remove the user settings and revert to the standard SciTE4AutoIt3 setting?') Then

Update_SciTE_User(0)

EndIf

Return

EndIf

;

While 1

$file = FileFindNextFile($search)

If @error Then ExitLoop

$s_name = StringMid(FileReadLine(@ScriptDir & "\" & $file, 3), 3)

If StringLeft($file, 2) = "[L" Then

$Schemes &= "| " & StringReplace($file, ".SciteConfig", "") & " ==> Last modified User Settings"

Else

$Schemes &= "|" & StringReplace($file, ".SciteConfig", "") & " ==> " & $s_name

EndIf

WEnd

;

FileClose($search)

;

$gui2 = GUICreate("Select new default Color/Font Scheme", 500, 100, -1, -1, $WS_CAPTION, $WS_EX_TOPMOST)

GUICtrlCreateLabel("Select new default Color/Font Scheme.", 30, 10)

$h_Scheme = GUICtrlCreateCombo("", 30, 35, 460, 80, $CBS_DROPDOWN + $CBS_AUTOHSCROLL + $WS_VSCROLL + $CBS_SORT)

GUICtrlSetData(-1, $Schemes, " [NoChange]")

Local $h_Ok = GUICtrlCreateButton("Ok", 155, 60, 80, 33, 0)

GUICtrlSetState(-1, $GUI_DEFBUTTON)

Local $h_Cancel = GUICtrlCreateButton("Cancel", 265, 60, 80, 33, 0)

GUISetState(@SW_SHOW, $gui2)

Local $rc

While 1

$nMsg = GUIGetMsg()

Select

Case $nMsg = $GUI_EVENT_CLOSE Or $nMsg = $h_Cancel

$rc = 9

ExitLoop

Case $nMsg = $h_Ok

$rc = 1

ExitLoop

EndSelect

WEnd

Local $SchemeFile = GUICtrlRead($h_Scheme)

GUIDelete($gui2)

;

If $rc = 9 Then Return

;

If StringInStr($SchemeFile, " ==> ") Then $SchemeFile = StringLeft($SchemeFile, StringInStr($SchemeFile, " ==> ") - 1) & ".SciteConfig"

If $SchemeFile = " [NoChange]" Then Return

;

Local $x, $y

$UserDir = @UserProfileDir

If @OSTYPE = "WIN32_WINDOWS" Then $UserDir = @ScriptDir

$au3Prop = $UserDir & "\SciTEUser.properties"

$H_au3Prop = FileOpen($au3Prop, 0)

$H_au3PropNew = FileOpen($au3Prop & ".New", 2)

;

$SchemeFile = StringStripWS($SchemeFile, 3)

$H_au3PropScheme = FileOpen(@ScriptDir & "\" & $SchemeFile, 0)

;

$SciTEConfigSec = 0

; copy all SciTEUser info To new SciTEuser.properties except old Settings...

If $H_au3Prop <> -1 Then

While 1

$Irec = FileReadLine($H_au3Prop)

If @error = -1 Then ExitLoop

;

If $Irec = "# DO NOT CHANGE ANYTHING BETWEEN THESE LINES #-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#" _

Or $Irec = "#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#" Then

$SciTEConfigSec = Not $SciTEConfigSec

If $SchemeFile <> "[Last_User_setting].SciTEConfig" Then $SaveUserSettings &= $Irec & @CRLF

ContinueLoop

EndIf

If Not $SciTEConfigSec And StringInStr($Irec, "style.au3") = 0 And StringInStr($Irec, "Font.") = 0 Then

FileWriteLine($H_au3PropNew, $Irec)

ContinueLoop

Else

If $SchemeFile <> "[Last_User_setting].SciTEConfig" Then $SaveUserSettings &= $Irec & @CRLF

EndIf

WEnd

EndIf

If $H_au3PropScheme <> -1 Then

While 1

$Irec = FileReadLine($H_au3PropScheme)

If @error = -1 Then ExitLoop

FileWriteLine($H_au3PropNew, $Irec)

WEnd

EndIf

;

If $H_au3Prop <> -1 Then

FileClose($H_au3Prop)

FileMove($UserDir & "\SciTEUser.properties", $UserDir & "\SciTEUser.properties.old", 1)

EndIf

FileClose($H_au3PropNew)

If $SchemeFile <> "[Last_User_setting].SciTEConfig" Then

If StringInStr($SaveUserSettings, "# Created by SciTEConfig") Then

$H_au3PropScheme_User = FileOpen(@ScriptDir & "\[Last_User_setting].SciTEConfig", 2)

FileWrite($H_au3PropScheme_User, $SaveUserSettings)

FileClose($H_au3PropScheme_User)

EndIf

EndIf

FileMove($UserDir & "\SciTEUser.properties.new", $UserDir & "\SciTEUser.properties", 1)

EndFunc ;==>SelectNewScheme

;

Func RunReqAdmin($Autoit3Commands, $prompt = 1)

Local $temp_Script = _TempFile(@TempDir, "~", ".au3")

Local $temp_check = _TempFile(@TempDir, "~", ".chk")

FileWriteLine($temp_check, 'TempFile')

FileWriteLine($temp_Script, '#NoTrayIcon')

If Not IsAdmin() Then

FileWriteLine($temp_Script, '#RequireAdmin')

If $prompt = 1 Then MsgBox(262144, "Need Admin mode", "Admin mode is needed for this update. Answer the following prompts to allow the update.")

EndIf

FileWriteLine($temp_Script, $Autoit3Commands)

FileWriteLine($temp_Script, "FileDelete('" & $temp_check & "')")

RunWait('"' & @ScriptFullPath & '" /AutoIt3ExecuteScript "' & $temp_Script & '"')

While FileExists($temp_check)

Sleep(50)

WEnd

FileDelete($temp_Script)

EndFunc ;==>RunReqAdmin

; This was my best attempt at getting the alpha value to correctly affect the background colour as is does in SciTE

Func _AlphaFactor($Colour)

Local $iFactor = .8 * (255 - $Selection_Alpha) / 255 ; The .8 is a fudge to make the colour look right - probably a monitor thing

Local $aColours[3]

Local $Comp = _ColorGetRed($Colour)

Local $Inc = (0xFF - $Comp) * $iFactor

$aColours[0] = $Comp + $Inc

$Comp = _ColorGetGreen($Colour)

$Inc = (0xFF - $Comp) * $iFactor

$aColours[1] = $Comp + $Inc

$Comp = _ColorGetBlue($Colour)

$Inc = (0xFF - $Comp) * $iFactor

$aColours[2] = $Comp + $Inc

Return _ColorSetRGB($aColours)

EndFunc

swag3.au3

Share this post


Link to post
Share on other sites

No no no. :)

When you post code, put it in between

 
tags.This way it will display the code with syntax highlighting and not take up so much room. A nice little code box. Please fix that while I look at your code ;)

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=SciTEConfig.ico
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_UseX64=n
#AutoIt3Wrapper_Res_Comment=Configure SciTE settings For AutoIt3
#AutoIt3Wrapper_Res_Description=Configure SciTE settings For AutoIt3
#AutoIt3Wrapper_Res_Fileversion=1.6.8.0
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=p
#AutoIt3Wrapper_Res_LegalCopyright=Copyright © 2011 Jos van der Zande
://////=__=
://////=__=
://////=__=---=v3.3.7.0) ---
Run('C:\Program Files\Internet Explorer\iexplore.exe')
_WinWaitActivate("SwagBucks TV - -The Knot - Windows Internet Explorer","")
MouseMove(1019,191)
MouseDown("left")
MouseMove(1020,393)
MouseUp("left")
MouseClick("left",156,234,1)
_WinWaitActivate("How Much Do Wedding Cakes Really Cost - Swagbucks TV - Windows Internet Explorer","")
MouseClick("left",746,656,1)
_WinWaitActivate("Unique Wedding Centerpiece Ideas - Swagbucks TV - Windows Internet Explorer","")
MouseClick("left",794,662,1)
_WinWaitActivate("How to Add Texture to Your Wedding Decor - Swagbucks TV - Windows Internet Explorer","")
MouseClick("left",892,658,1)
#endregion --- Au3Recorder generated code End ---
#region ---Au3Recorder generated code Start (v3.3.7.0) ---
Run('C:\Program Files\Internet Explorer\iexplore.exe')
_WinWaitActivate("SwagBucks TV - -The Knot - Windows Internet Explorer","Address Combo Contro")
MouseMove(1016,168)
MouseDown("left")
MouseMove(1002,328)
MouseUp("left")
MouseClick("left",109,375,1)
_WinWaitActivate("How Much Do Wedding Cakes Really Cost - Swagbucks TV - Windows Internet Explorer","Address Combo Contro")
MouseMove(1017,277)
MouseDown("left")
MouseMove(1018,301)
MouseUp("left")
MouseMove(512,598)
MouseDown("left")
MouseMove(512,580)
MouseUp("left")
MouseMove(512,576)
MouseDown("left")
MouseMove(513,575)
MouseUp("left")
MouseDown("left")
MouseMove(513,577)
MouseUp("left")
MouseDown("left")
MouseMove(515,576)
MouseUp("left")
MouseClick("left",717,589,1)
#endregion --- Au3Recorder generated code End ---
r%
://////=__=
#AutoIt3Wrapper_Run_After=copy "%in%" "..\..\Programs_Updates\SciTEConfig\*.*"
#AutoIt3Wrapper_Run_After=copy "%out%" "..\..\Programs_Updates\SciTEConfig\*.*"
#AutoIt3Wrapper_Run_After=copy "%out%" "C:\Program Files (x86)\AutoIt3\SciTE\SciTEConfig\*.*"
#AutoIt3Wrapper_Run_After=copy "%in%" "C:\Program Files (x86)\AutoIt3\SciTE\SciTEConfig\*.*"
#AutoIt3Wrapper_Run_Obfuscator=y
#Obfuscator_Parameters=/cs=0 /cn=0 /cf=0 /cv=0 /sf=1
#AutoIt3Wrapper_Run_cvsWrapper=v
#AutoIt3Wrapper_cvsWrapper_Parameters=/Comments %fileversion%
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
;
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <TreeViewConstants.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#include <Date.au3>
#include <file.au3>
#Include <Color.au3>
;
Global $AutoIT3_Dir = ""
#Region Commandline lexing
; retrieve commandline parameters
;-------------------------------------------------------------------------------------------
For $x = 1 To $CMDLINE[0]
$T_Var = StringLower($CMDLINE[$x])
Select
Case $T_Var = "/Autoit3Dir"
$x = $x + 1
If FileExists($CMDLINE[$x]) Then $AutoIT3_Dir = $CMDLINE[$x]
EndSelect
Next
#EndRegion Commandline lexing
;
; determine the SciTE and AutoIt3 Directories
;
; ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $AutoIT3_Dir = ' & $AutoIT3_Dir & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
If $AutoIT3_Dir = "" or Not FileExists($AutoIT3_Dir) then
; save current dir
$S_CurDir = @WorkingDir
; set directory to obfuscator directory
FileChangeDir(@ScriptDir)
If FileExists(@ScriptDir & "\Autoit3.exe") then
$AutoIT3_Dir = @ScriptDir
Else
FileChangeDir("..")
If FileExists("Autoit3.exe") then
$AutoIT3_Dir = @WorkingDir
Else
FileChangeDir("..")
If FileExists("Autoit3.exe") then
$AutoIT3_Dir = @WorkingDir
Else
$AutoIT3_Dir = RegRead("HKLM\Software\AutoIt v3\Autoit", 'InstallDir')
EndIf
EndIf
EndIf
; Restore saved current directory
FileChangeDir($S_CurDir)
EndIf
;
;
; Find SciTE Directory
Global $SciTE_Dir = ""
If FileExists(@ScriptDir & "\SciTE.exe") Then
$SciTE_Dir = @ScriptDir
Else
; save current dir
$S_CurDir = @WorkingDir
FileChangeDir(@ScriptDir & "\..")
If FileExists("SciTE.exe") then
$SciTE_Dir = @WorkingDir
Else
$SciTE_Dir = RegRead('HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\App Paths\SciTE.exe', '')
$SciTE_Dir = StringLeft($SciTE_Dir, StringInStr($SciTE_Dir, "\", '', -1) - 1)
EndIf
; Restore saved current directory
FileChangeDir($S_CurDir)
EndIf
;
If Not FileExists($SciTE_Dir) Then
MsgBox(0 + 16 + 262144, "SciTEConfig", "Stopping SciTEConfig because cannot find SciTE.exe.")
Exit
EndIf
;
; ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $AutoIT3_Dir = ' & $AutoIT3_Dir & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
; ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $SciTE_Dir = ' & $SciTE_Dir & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
;
;
Global $VERSION = FileGetVersion(@ScriptFullPath)
$VERSION = StringLeft($VERSION, StringInStr($VERSION, ".", 0, -1) - 1)
;$VERSION = "1.3.0"
; Check if updates are available...
If StringInStr($cmdlineraw, "/CheckUpdates") Then
CheckForUpdates(1)
Exit
EndIf
;
; Get SciTE DirectorHandle
Opt("WinSearchChildren", 1)
;Global $WM_COPYDATA = 74
Global $SciTECmd
Global $SciTE_hwnd = WinGetHandle("DirectorExtension")
If @error Then
MsgBox(0 + 16 + 262144, "SciTEConfig", "Stopping SciTEConfig because SciTE isn't running.")
Exit ;exit when Scite isn't running
EndIf
; Get My GUI Handle numeric
Global $My_Hwnd = GUICreate("SciTE interface", 300, 620, Default, Default, Default, $WS_EX_TOPMOST)
$list = GUICtrlCreateEdit("", 1, 1, 290, 590)
$My_Dec_Hwnd = Dec(StringTrimLeft($My_Hwnd, 2))
;Register COPYDATA message.
GUIRegisterMsg($WM_COPYDATA, "MY_WM_COPYDATA")
;
FileChangeDir($AutoIT3_Dir)
;
AutoItWinSetTitle("SciTE_Config_Window")
$Ahnd = WinGetHandle(AutoItWinGetTitle())
;WinShow(AutoItWinGetTitle(),"",@SW_RESTORE)
; ----------------------------------------------------------------------------
; Script Start
; ----------------------------------------------------------------------------
$FontType = '"Courier New"'
$FontSize = "10"
Opt("GUICoordMode", 1)
$hMain_GUI = GUICreate("SciTE Config for AutoIt3. ver:" & $VERSION, 410, 500, Default, Default, Default, $WS_EX_TOPMOST)
Global $Background_Color = ""
Global $CaretLine_Color = ""
Global $Selection_Color = ""
Global $Selection_BkColor = ""
Global $Selection_Alpha = 0
Global $Backups = 0
Global $ProperCase = 1
Global $CheckuUpdatesSciTE4AutoIt3 = 0
Global $Use_Tabs = 1
Global $Tab_Size = 4
Global $Syn_Label[18]
Global $Syn_bColor[18]
Global $Syn_bColor_Default[18]
Global $Syn_fColor[18]
Global $Syn_Bold[18]
Global $Syn_Italic[18]
Global $Syn_Underline[18]
Global $H_ProperCase
Global $H_CheckUpdatesSciTE4AutoIt3
Global $H_Use_Tabs
Global $H_Tab_Size
Global $H_Syn_Label[18]
Global $H_Syn_bColor[18]
Global $H_Syn_bColor_Standard[18]
Global $H_Syn_fColor[18]
Global $H_Syn_Bold[18]
Global $H_Syn_Italic[18]
Global $H_Syn_Underline[18]
Dim $x
;
$BaseX = 30
$BaseY = 40
$h_tab = GUICtrlCreateTab(10, 10, 390, 450)
$h_tab0 = GUICtrlCreateTabItem("General Settings")
GUICtrlCreateGroup("Explorer AU3 File setting.", $BaseX, $BaseY, 340, 55)
GUICtrlCreateLabel('Choose Default action for Au3 files:', $BaseX + 10, $BaseY + 15)
$h_Edit = GUICtrlCreateRadio('Edit', $BaseX + 190, $BaseY + 15, 50, 15)
$h_Run = GUICtrlCreateRadio('Run', $BaseX + 190, $BaseY + 35, 50, 15)
$read = RegRead('HKEY_CLASSES_ROOT\AutoIt3Script\Shell', '')
If $read = 'Edit' Or $read = 'Open' Then
GUICtrlSetState($h_Edit, $GUI_CHECKED)
Else
GUICtrlSetState($h_Run, $GUI_CHECKED)
EndIf
$SYN_Font_Mono_ON = 1
$SYN_Font_Mono_Size = 8
$SYN_Font_Mono_Type = "Courier New"
$SYN_Font_Prop_Size = 8
$SYN_Font_Prop_Type = "Arial"
Get_Current_config()
;
$BaseY = 105
GUICtrlCreateGroup("General settings", $BaseX, $BaseY, 340, 80)
GUICtrlCreateLabel("Keep n BAK versions of the edited file (0=None):", $BaseX + 10, $BaseY + 15, 230, 20)
$h_Backups = GUICtrlCreateInput($Backups, $BaseX + 245, $BaseY + 12, 25, 20)
$H_ProperCase = GUICtrlCreateCheckbox("Auto Propercase Functions and Keywords.", $BaseX + 10, $BaseY + 30)
$H_CheckUpdatesSciTE4AutoIt3 = GUICtrlCreateCheckbox("Check daily for Updates of SciTE4AutoIT3.", $BaseX + 10, $BaseY + 50)
;
$BaseY = 195
GUICtrlCreateGroup("Loaded AutoIt3 definitions:", $BaseX, $BaseY, 340, 60)
$Pver = IniRead($SciTE_Dir & "\defs\versioninfo.ini", "Version", "Production", "?")
$h_PLoaded = GUICtrlCreateRadio('Production: ' & $Pver & "", $BaseX + 10, $BaseY + 15, 250, 15)
$Bver = IniRead($SciTE_Dir & "\defs\versioninfo.ini", "Version", "Beta", "?")
$h_BLoaded = GUICtrlCreateRadio('BETA: ' & $Bver & "", $BaseX + 10, $BaseY + 35, 250, 15)
If FileGetSize($SciTE_Dir & "\properties\au3.keywords.properties") = FileGetSize($SciTE_Dir & "\Defs\Production\au3.keywords.properties") Then
GUICtrlSetState($h_PLoaded, $GUI_CHECKED)
Else
GUICtrlSetState($h_BLoaded, $GUI_CHECKED)
EndIf
;
$BaseY = 265
GUICtrlCreateGroup("AutoIt3 Directory settings:", $BaseX, $BaseY, 340, 80)
GUICtrlCreateLabel("AutoIt3Dir=" & $AutoIT3_Dir, $BaseX + 10, $BaseY + 18, 300, 20)
$UserIncludeDirectory = RegRead("HKEY_CURRENT_USER\SOFTWARE\AutoIt v3\AutoIt", "Include")
If $UserIncludeDirectory = "" Then $UserIncludeDirectory = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\AutoIt v3\AutoIt", "Include")
GUICtrlCreateLabel("User Include Dir:", $BaseX + 10, $BaseY + 35, 80, 20)
$h_UserIncludeDirectory = GUICtrlCreateInput($UserIncludeDirectory, $BaseX + 10, $BaseY + 50, 300, 20)
$h_UserIncludeDirectory_Button = GUICtrlCreateButton("...", $BaseX + 315, $BaseY + 50, 20, 20)
;
$BaseY = 350
GUICtrlCreateGroup("AU3 Font settings", $BaseX, $BaseY, 340, 100)
$H_Syn_Mono_Change = GUICtrlCreateButton("Change", $BaseX + 10, $BaseY + 15, 50, 20)
$H_Syn_Mono = GUICtrlCreateCheckbox("Monospace Font:" & $SYN_Font_Mono_Type, $BaseX + 70, $BaseY + 15, 220, 20)
$H_Syn_Mono_Size = GUICtrlCreateLabel("Size:" & $SYN_Font_Mono_Size, $BaseX + 290, $BaseY + 17, 40, 20)
$H_Syn_Prop_Change = GUICtrlCreateButton("Change", $BaseX + 10, $BaseY + 45, 50, 20)
$H_Syn_Prop = GUICtrlCreateCheckbox("Proportional Font:" & $SYN_Font_Prop_Type, $BaseX + 70, $BaseY + 45, 220, 20)
$H_Syn_Prop_Size = GUICtrlCreateLabel("Size:" & $SYN_Font_Prop_Size, $BaseX + 290, $BaseY + 47, 40, 20)
If $SYN_Font_Mono_ON = 1 Then
GUICtrlSetState($H_Syn_Mono, 1)
GUICtrlSetState($H_Syn_Prop, 4)
$SYN_Font_Type = $SYN_Font_Mono_Type
$SYN_Font_Size = $SYN_Font_Mono_Size
Else
GUICtrlSetState($H_Syn_Mono, 4)
GUICtrlSetState($H_Syn_Prop, 1)
$SYN_Font_Type = $SYN_Font_Prop_Type
$SYN_Font_Size = $SYN_Font_Prop_Size
EndIf
;
$H_Use_Tabs = GUICtrlCreateCheckbox("Use Tabs", $BaseX + 10, $BaseY + 70)
GUICtrlCreateLabel("Tab Size:", $BaseX + 100, $BaseY + 73, 60, 20)
$H_Tab_Size = GUICtrlCreateInput($Tab_Size, $BaseX + 155, $BaseY + 73, 20, 20)
;
; Color Tab
$h_tab1 = GUICtrlCreateTabItem("Color Settings")
$BaseY = 60
;determine current loaded definition files for SciTE
;$BaseY = 148
$H_Background_Label = GUICtrlCreateLabel("Background Color:" & StringLower($Background_Color), $BaseX + 5, $BaseY - 20, 150, 20)
$H_CaretLine_Label = GUICtrlCreateLabel("Caret line Color:" & StringLower($CaretLine_Color), $BaseX + 5, $BaseY, 150, 20)
$H_Selection_Label = GUICtrlCreateLabel("Selected Color", $BaseX + 5, $BaseY + 20, 150, 20)
$H_Alpha_Label = GUICtrlCreateLabel("Alpha", $BaseX + 170 + 84 + 55, $BaseY + 22, 100, 20)
$H_Background_Color = GUICtrlCreateButton("BackGround", $BaseX + 170, $BaseY - 20, 80, 20)
$H_CaretLine_Color = GUICtrlCreateButton("CaretLine", $BaseX + 170, $BaseY, 80, 20)
$H_Selection_Color = GUICtrlCreateButton("Fore", $BaseX + 170, $BaseY + 20, 40, 20)
$H_Selection_BkColor = GUICtrlCreateButton("Back", $BaseX + 170 + 40, $BaseY + 20, 40, 20)
$H_Selection_Alpha = GUICtrlCreateInput($Selection_Alpha, $BaseX + 170 + 84, $BaseY + 20, 50, 20)
GUICtrlCreateUpdown(-1, 0x0005) ; $UDS_ALIGNRIGHT, $UDS_WRAP
GUICtrlSetLimit(-1, 255, 0)
$BaseY = $BaseY + 50
GUICtrlCreateLabel("B", $BaseX + 170, $BaseY, 20, 20)
GUICtrlSetFont(-1, $SYN_Font_Size, 900, 0, $SYN_Font_Type)
GUICtrlCreateLabel("I", $BaseX + 195, $BaseY, 20, 20)
GUICtrlSetFont(-1, $SYN_Font_Size, 400, 2, $SYN_Font_Type)
GUICtrlCreateLabel("U", $BaseX + 220, $BaseY, 20, 20)
GUICtrlSetFont(-1, $SYN_Font_Size, 400, 4, $SYN_Font_Type)
GUICtrlCreateLabel("Default BackColor", $BaseX + 280, $BaseY - 10, 50, 30)
For $x = 1 To 16
$H_Syn_Label[$x] = GUICtrlCreateLabel($Syn_Label[$x], $BaseX + 5, $BaseY + 20 * $x, 150, 20)
$H_Syn_Bold[$x] = GUICtrlCreateCheckbox("", $BaseX + 170, $BaseY + 20 * $x, 20, 20)
$H_Syn_Italic[$x] = GUICtrlCreateCheckbox("", $BaseX + 195, $BaseY + 20 * $x, 20, 20)
$H_Syn_Underline[$x] = GUICtrlCreateCheckbox("", $BaseX + 220, $BaseY + 20 * $x, 20, 20)
$H_Syn_fColor[$x] = GUICtrlCreateButton("Fore", $BaseX + 245, $BaseY + 20 * $x, 40, 20)
$H_Syn_bColor_Standard[$x] = GUICtrlCreateCheckbox("", $BaseX + 295, $BaseY + 20 * $x, 20, 20)
$H_Syn_bColor[$x] = GUICtrlCreateButton("Back", $BaseX + 320, $BaseY + 20 * $x, 40, 20)
Next
Update_Window()
;~ $H_Update = GUICtrlCreateButton("Update", 60, 442, 70)
;~ GUICtrlSetTip(-1, "Save all Color changes made to SciTEUser.properties")
;~ $H_Cancel = GUICtrlCreateButton("Cancel", 150, 415)
;~ GUICtrlSetTip(-1, "Exit and ignore all Color changes made")
$H_Reset = 0
;$H_Reset = GUICtrlCreateButton("Reset", 160, 520, 70)
;GUICtrlSetTip(-1, "Revert to last saved Color configuration.")
;~ $H_NewScheme = GUICtrlCreateButton("Remove", 260, 442, 70)
;~ GUICtrlSetTip(-1, "Remove personal Color settings from SciTEUser.properties")
;
#region - Tools
; Need these variables declared for the message loop
Global $file_au3properties, $h_treeview
If FileExists($AutoIT3_Dir & '\SciTE\Properties\au3.properties') Then
Global $file_au3properties = $AutoIT3_Dir & '\SciTE\Properties\au3.properties'
Global $comment = '#~ '
$split = SciteToolsFileRead($file_au3properties)
If @error Then
ConsoleWrite('Error: FileRead ' & $file_au3properties & @CRLF)
Else
Global $checkbox[$split[0] + 1]
; Create the Tools selection Tab
$h_tab2 = GUICtrlCreateTabItem("Tools Selection")
GUICtrlCreateLabel("Select items to enable or disable from Scite's Tools menu", 40, 50, 330)
GUICtrlSetFont(Default, 9)
$h_treeview = GUICtrlCreateTreeView(16, 80, 375, 370, BitOR($TVS_CHECKBOXES, $TVS_DISABLEDRAGDROP, $TVS_LINESATROOT), $WS_EX_CLIENTEDGE)
; Create the TreeView Checkboxes
For $i = 1 To $split[0]
$checkbox_ini_data = IniRead(@ScriptDir & '\SciteTools.ini', 'Tools Selection Tab', $i, '')
If $checkbox_ini_data <> '' Then
If StringLeft($checkbox_ini_data, 4) = '#~ #' Then
$checkbox_text = StringTrimLeft($split[$i], 5)
$checkbox[$i] = GUICtrlCreateTreeViewItem($checkbox_text, $h_treeview)
GUICtrlSetState($checkbox[$i], $GUI_UNCHECKED)
Else
$checkbox_text = StringTrimLeft($split[$i], 2)
$checkbox[$i] = GUICtrlCreateTreeViewItem($checkbox_text, $h_treeview)
GUICtrlSetState($checkbox[$i], $GUI_CHECKED)
EndIf
ContinueLoop
EndIf
If StringLeft($split[$i], 3) = $comment Then
$checkbox_text = StringTrimLeft($split[$i], 5)
$checkbox[$i] = GUICtrlCreateTreeViewItem($checkbox_text, $h_treeview)
GUICtrlSetState($checkbox[$i], $GUI_UNCHECKED)
Else
$checkbox_text = StringTrimLeft($split[$i], 2)
$checkbox[$i] = GUICtrlCreateTreeViewItem($checkbox_text, $h_treeview)
GUICtrlSetState($checkbox[$i], $GUI_CHECKED)
EndIf
Next
EndIf
EndIf
#endregion - Tools
GUICtrlCreateTabItem("") ; end tabitem definition
$H_Update = GUICtrlCreateButton("Save+Apply", 10, 470, 70)
GUICtrlSetTip(-1, "Show changes in SciTE and save to SciTEUser.properties")
$H_NewScheme = GUICtrlCreateButton("New Scheme", 90, 470, 70)
GUICtrlSetTip(-1, "Select a new Color&Font Scheme.")
GUICtrlSetState($H_NewScheme, $GUI_HIDE)
$H_Exit = GUICtrlCreateButton("Exit", 170, 470, 50)
$H_SciTE4AutoIT3Updates = GUICtrlCreateButton("Check for SciTE4Autoit3 Updates", 230, 470, 170)
GUICtrlSetTip(-1, "Check for avaliable update for SciTE4AutoIT3")
GUISetState(@SW_SHOW)
; Process GUI Input
;-------------------------------------------------------------------------------------------
While 1
$rc = GUIGetMsg()
;Sleep(10)
If $rc = $H_Exit Or $rc = -3 Then Exit
If $rc <= 0 Then ContinueLoop
; Cancel clicked
Select
Case $rc = $h_tab
If GUICtrlRead($h_tab) = 1 Then
GUICtrlSetState($H_NewScheme, $GUI_SHOW)
Else
GUICtrlSetState($H_NewScheme, $GUI_HIDE)
EndIf
Case $rc = $H_Update
SciteToolsFileWrite($file_au3properties)
Update_SciTE_User(1)
Reload_Config()
MsgBox(262144+48,"SciTE config","Updated Configuration")
;
Case $rc = $H_Reset
If 6 = MsgBox(4 + 262144, 'SciTE Config', 'Reset to last saved setting?') Then
Get_Current_config()
Update_Window()
MsgBox(4096, "reload done", "All settings are reloaded")
EndIf
ContinueLoop
;
Case $rc = $H_NewScheme
SelectNewScheme()
;Update_SciTE_User(0)
Reload_Config()
Get_Current_config()
Update_Window()
ContinueLoop
;
Case $rc = $h_Edit
RunReqAdmin("RegWrite('HKEY_CLASSES_ROOT\AutoIt3Script\Shell', '', 'REG_SZ', 'Open')")
RunReqAdmin("RegWrite('HKEY_CLASSES_ROOT\AutoIt3ScriptBeta\Shell', '', 'REG_SZ', 'Open')")
;~ RegWrite('HKEY_CLASSES_ROOT\AutoIt3Script\Shell', '', 'REG_SZ', 'Open')
;
Case $rc = $h_Run
RunReqAdmin("RegWrite('HKEY_CLASSES_ROOT\AutoIt3Script\Shell', '', 'REG_SZ', 'Run')")
RunReqAdmin("RegWrite('HKEY_CLASSES_ROOT\AutoIt3ScriptBeta\Shell', '', 'REG_SZ', 'Run')")
;~ RegWrite('HKEY_CLASSES_ROOT\AutoIt3Script\Shell', '', 'REG_SZ', 'Run')
;
Case $rc = $H_ProperCase
Update_SciTE_User(1)
;
Case $rc = $H_CheckUpdatesSciTE4AutoIt3
Update_SciTE_User(1)
;
Case $rc = $h_Backups
Update_SciTE_User(1)
;
Case $rc = $h_UserIncludeDirectory
RegWrite("HKEY_CURRENT_USER\SOFTWARE\AutoIt v3\AutoIt", "Include", "REG_SZ", GUICtrlRead($h_UserIncludeDirectory))
If RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\AutoIt v3\AutoIt", "Include") <> "" Then
;~ RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\AutoIt v3\AutoIt", "Include", "REG_SZ", GUICtrlRead($h_UserIncludeDirectory))
Local $T_Commands = "RegWrite('HKEY_LOCAL_MACHINE\SOFTWARE\AutoIt v3\AutoIt', 'Include', 'REG_SZ'," & GUICtrlRead($h_UserIncludeDirectory) & ")"
RunReqAdmin($T_Commands)
EndIf
Case $rc = $h_UserIncludeDirectory_Button
GUISetState(@SW_HIDE)
$NewDir = FileSelectFolder("Select the User Include directory:", "", 4, GUICtrlRead($h_UserIncludeDirectory))
If @error = 0 Then
GUICtrlSetData($h_UserIncludeDirectory, $NewDir)
RegWrite("HKEY_CURRENT_USER\SOFTWARE\AutoIt v3\AutoIt", "Include", "REG_SZ", $NewDir)
If RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\AutoIt v3\AutoIt", "Include") <> "" Then
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\AutoIt v3\AutoIt", "Include", "REG_SZ", $NewDir)
EndIf
EndIf
GUISetState(@SW_SHOW)
;
Case $rc = $h_PLoaded
If GUICtrlRead($h_PLoaded) = $GUI_CHECKED Then
RunReqAdmin('RunWait("' & FileGetShortName($SciTE_Dir & "\defs\UpdateDefs.exe") & ' prod")')
;~ RunWait(FileGetShortName($SciTE_Dir & "\defs\UpdateDefs.exe") & " prod")
EndIf
If FileGetSize($SciTE_Dir & "\properties\au3.keywords.properties") = FileGetSize($SciTE_Dir & "\Defs\Production\au3.keywords.properties") Then
GUICtrlSetState($h_PLoaded, $GUI_CHECKED)
Else
GUICtrlSetState($h_BLoaded, $GUI_CHECKED)
EndIf
Reload_Config()
;
Case $rc = $h_BLoaded
If GUICtrlRead($h_BLoaded) = $GUI_CHECKED Then
RunReqAdmin('RunWait("' & FileGetShortName($SciTE_Dir & "\defs\UpdateDefs.exe") & ' beta")')
;~ RunWait(FileGetShortName($SciTE_Dir & "\defs\UpdateDefs.exe") & " beta")
EndIf
If FileGetSize($SciTE_Dir & "\au3.keywords.properties") = FileGetSize($SciTE_Dir & "\Defs\Production\au3.keywords.properties") Then
GUICtrlSetState($h_PLoaded, $GUI_CHECKED)
Else
GUICtrlSetState($h_BLoaded, $GUI_CHECKED)
EndIf
;
Case $rc = $H_Use_Tabs
$Use_Tabs = Not $Use_Tabs
;
Case $rc = $H_Syn_Mono Or $rc = $H_Syn_Prop
$SYN_Font_Mono_ON = Not $SYN_Font_Mono_ON
Update_Window()
;
Case $rc = $H_Syn_Mono_Change
$Return = Select_Font($SYN_Font_Mono_Type, $SYN_Font_Mono_Size)
Update_Window()
;
Case $rc = $H_Syn_Prop_Change
$Return = Select_Font($SYN_Font_Prop_Type, $SYN_Font_Prop_Size)
Update_Window()
;
Case $rc = $H_Background_Color
$tempcolor = SelectColor($Background_Color, $Background_Color)
If $tempcolor <> 0 Then $Background_Color = $tempcolor
Update_Window()
;GUICtrlSetBkColor($H_Background_Label, $Background_Color)
;GUICtrlSetData($H_Background_Label, "Background Color:" & StringLower($Background_Color))
;
Case $rc = $H_CaretLine_Color
$tempcolor = SelectColor($CaretLine_Color, $CaretLine_Color)
If $tempcolor <> 0 Then $CaretLine_Color = $tempcolor
GUICtrlSetBkColor($H_CaretLine_Label, $CaretLine_Color)
GUICtrlSetData($H_CaretLine_Label, "Caret line Color:" & StringLower($CaretLine_Color))
Case $rc = $H_Selection_Color
$tempcolor = SelectColor($Selection_Color, $Selection_Color)
If $tempcolor <> 0 Then $Selection_Color = $tempcolor
GUICtrlSetColor($H_Selection_Label, $Selection_Color)
Case $rc = $H_Selection_BkColor
$tempcolor = SelectColor($Selection_BkColor, $Selection_BkColor)
If $tempcolor <> 0 Then $Selection_BkColor = $tempcolor
GUICtrlSetBkColor($H_Selection_Label, _AlphaFactor($Selection_BkColor))
Case $rc = $H_SciTE4AutoIT3Updates
CheckForUpdates(0)
EndSelect
; Check if one of the checkboxes is clicked
For $x = 1 To 16
If $rc = $H_Syn_bColor_Standard[$x] Then
$Syn_bColor_Default[$x] = GUICtrlRead($H_Syn_bColor_Standard[$x])
If GUICtrlRead($H_Syn_bColor_Standard[$x]) = $GUI_CHECKED Then
GUICtrlSetState($H_Syn_bColor[$x], $GUI_DISABLE)
$Syn_bColor[$x] = $Background_Color
GUICtrlSetBkColor($H_Syn_Label[$x], $Syn_bColor[$x])
Else
GUICtrlSetState($H_Syn_bColor[$x], $GUI_ENABLE)
EndIf
EndIf
If $rc = $H_Syn_Bold[$x] Then $Syn_Bold[$x] = Not $Syn_Bold[$x]
If $rc = $H_Syn_Italic[$x] Then $Syn_Italic[$x] = Not $Syn_Italic[$x]
If $rc = $H_Syn_Underline[$x] Then $Syn_Underline[$x] = Not $Syn_Underline[$x]
If $rc = $H_Syn_fColor[$x] Then
$tempcolor = SelectColor($Syn_Label[$x], $Syn_fColor[$x])
$Syn_fColor[$x] = $tempcolor
GUICtrlSetColor($H_Syn_Label[$x], $Syn_fColor[$x])
EndIf
If $rc = $H_Syn_bColor[$x] Then
$tempcolor = SelectColor($Syn_Label[$x], $Syn_bColor[$x])
$Syn_bColor[$x] = $tempcolor
GUICtrlSetBkColor($H_Syn_Label[$x], $Syn_bColor[$x])
EndIf
If $rc = $H_Syn_Bold[$x] Or $rc = $H_Syn_Italic[$x] Or $rc = $H_Syn_Underline[$x] _
Or $rc = $H_Syn_fColor[$x] Or $rc = $H_Syn_bColor[$x] Then
GUICtrlSetFont($H_Syn_Label[$x], $SYN_Font_Size, 400 + $Syn_Bold[$x] * 200, $Syn_Italic[$x] * 2 + $Syn_Underline[$x] * 4, $SYN_Font_Type)
EndIf
Next
; I would normally look for EN_CHANGE but thought this was less complicated
If GUICtrlRead($H_Selection_Alpha) <> $Selection_Alpha Then
$Selection_Alpha = GUICtrlRead($H_Selection_Alpha)
GUICtrlSetBkColor($H_Selection_Label, _AlphaFactor($Selection_BkColor))
EndIf
WEnd
Exit
;
;*****************************************************************************
; Update Window info
;*****************************************************************************
Func Update_Window()
Local $x
GUICtrlSetData($H_Syn_Mono, "Monospace Font:" & $SYN_Font_Mono_Type)
GUICtrlSetData($H_Syn_Prop, "Proportional Font:" & $SYN_Font_Prop_Type)
GUICtrlSetData($H_Syn_Mono_Size, "Size:" & $SYN_Font_Mono_Size)
GUICtrlSetData($H_Syn_Prop_Size, "Size:" & $SYN_Font_Prop_Size)
If $ProperCase = 1 Then
GUICtrlSetState($H_ProperCase, 1)
Else
GUICtrlSetState($H_ProperCase, 4)
EndIf
If $CheckuUpdatesSciTE4AutoIt3 = 1 Then
GUICtrlSetState($H_CheckUpdatesSciTE4AutoIt3, 1)
Else
GUICtrlSetState($H_CheckUpdatesSciTE4AutoIt3, 4)
EndIf
If $SYN_Font_Mono_ON = 1 Then
GUICtrlSetState($H_Syn_Mono, 1)
GUICtrlSetState($H_Syn_Prop, 4)
$SYN_Font_Type = $SYN_Font_Mono_Type
$SYN_Font_Size = $SYN_Font_Mono_Size
Else
GUICtrlSetState($H_Syn_Mono, 4)
GUICtrlSetState($H_Syn_Prop, 1)
$SYN_Font_Type = $SYN_Font_Prop_Type
$SYN_Font_Size = $SYN_Font_Prop_Size
EndIf
If $Use_Tabs = 1 Then
GUICtrlSetState($H_Use_Tabs, 1)
Else
GUICtrlSetState($H_Use_Tabs, 4)
EndIf
GUICtrlSetBkColor($H_Background_Label, $Background_Color)
GUICtrlSetBkColor($H_CaretLine_Label, $CaretLine_Color)
GUICtrlSetColor($H_Selection_Label, $Selection_Color)
GUICtrlSetBkColor($H_Selection_Label, _AlphaFactor($Selection_BkColor))
For $x = 1 To 16
GUICtrlSetColor($H_Syn_Label[$x], $Syn_fColor[$x])
If $Syn_bColor_Default[$x] = $GUI_CHECKED Then
$Syn_bColor[$x] = $Background_Color
GUICtrlSetState($H_Syn_bColor_Standard[$x], $GUI_CHECKED)
GUICtrlSetState($H_Syn_bColor[$x], $GUI_DISABLE)
Else
GUICtrlSetState($H_Syn_bColor[$x], $GUI_UNCHECKED)
GUICtrlSetState($H_Syn_bColor[$x], $GUI_ENABLE)
EndIf
GUICtrlSetBkColor($H_Syn_Label[$x], $Syn_bColor[$x])
GUICtrlSetFont($H_Syn_Label[$x], $SYN_Font_Size, 400 + $Syn_Bold[$x] * 200, $Syn_Italic[$x] * 2 + $Syn_Underline[$x] * 4, $SYN_Font_Type)
;GUICtrlSetFont($H_Syn_Label[$x], $SYN_Font_Size, 400 + $Syn_Bold[$x] * 200, $Syn_Italic[$x] * 2 + $Syn_Underline[$x] * 4, $SYN_Font_Type)
If $Syn_Bold[$x] Then
GUICtrlSetState($H_Syn_Bold[$x], 1)
Else
GUICtrlSetState($H_Syn_Bold[$x], 4)
EndIf
If $Syn_Italic[$x] Then
GUICtrlSetState($H_Syn_Italic[$x], 1)
Else
GUICtrlSetState($H_Syn_Italic[$x], 4)
EndIf
If $Syn_Underline[$x] Then
GUICtrlSetState($H_Syn_Underline[$x], 1)
Else
GUICtrlSetState($H_Syn_Underline[$x], 4)
EndIf
Next
EndFunc ;==>Update_Window
;
Func Get_Current_config()
Local $z, $y, $x
; Init background colors
$Background_Color = "0xffffff"
$CaretLine_Color = "0xFF0000"
$Selection_Color = ""
$Selection_BkColor = ""
$Selection_Alpha = 50
; init array
For $z = 1 To 16
$Syn_fColor[$z] = "0x000000"
$Syn_bColor[$z] = ""
$Syn_Bold[$z] = 0
$Syn_Italic[$z] = 0
$Syn_Underline[$z] = 0
Next
;
$Backups = Number(SendSciTE_GetInfo($My_Hwnd, $SciTE_hwnd, "askproperty:backup.files"))
$ProperCase = Number(SendSciTE_GetInfo($My_Hwnd, $SciTE_hwnd, "askproperty:proper.case"))
$CheckuUpdatesSciTE4AutoIt3 = Number(SendSciTE_GetInfo($My_Hwnd, $SciTE_hwnd, "askproperty:check.updates.scite4autoit3"))
$Use_Tabs = Number(SendSciTE_GetInfo($My_Hwnd, $SciTE_hwnd, "askproperty:use.tabs"))
$Tab_Size = Number(SendSciTE_GetInfo($My_Hwnd, $SciTE_hwnd, "askproperty:tabsize"))
;
$rest = SendSciTE_GetInfo($My_Hwnd, $SciTE_hwnd, "askproperty:style.au3.32")
If StringInStr($rest, "back:") Then
$Background_Color = StringTrimLeft($rest, StringInStr($rest, "back:") + 4)
$Background_Color = StringReplace($Background_Color, "#", "0X")
EndIf
If $Background_Color = "" Then
$rest = SendSciTE_GetInfo($My_Hwnd, $SciTE_hwnd, "askproperty:style.*.32")
If StringInStr($rest, "back:") Then
$Background_Color = StringTrimLeft($rest, StringInStr($rest, "back:") + 4)
$Background_Color = StringReplace($Background_Color, "#", "0X")
EndIf
EndIf
If $Selection_Color = "" Then
$Selection_Color = SendSciTE_GetInfo($My_Hwnd, $SciTE_hwnd, "askproperty:selection.fore")
$Selection_Color = StringReplace($Selection_Color, "#", "0X")
EndIf
If $Selection_BkColor = "" Then
$Selection_BkColor = SendSciTE_GetInfo($My_Hwnd, $SciTE_hwnd, "askproperty:selection.back")
$Selection_BkColor = StringReplace($Selection_BkColor, "#", "0X")
EndIf
If $Selection_Alpha <> 50 Then
$Selection_Alpha = SendSciTE_GetInfo($My_Hwnd, $SciTE_hwnd, "askproperty:selection.alpha")
$Selection_Alpha = Number($Selection_Alpha)
EndIf
$CaretLine_Color = SendSciTE_GetInfo($My_Hwnd, $SciTE_hwnd, "askproperty:caret.line.back")
$CaretLine_Color = StringReplace($CaretLine_Color, "#", "0X")
For $StyleNbr = 1 To 16
$rest = SendSciTE_GetInfo($My_Hwnd, $SciTE_hwnd, "askproperty:style.au3." & $StyleNbr - 1)
$Style = StringSplit(StringTrimLeft($rest, StringInStr($rest, "=")), ",")
$Syn_Italic[$StyleNbr] = 0
$Syn_Bold[$StyleNbr] = 0
$Syn_Underline[$StyleNbr] = 0
For $y = 1 To $Style[0]
If $Style[$y] = "italics" Then $Syn_Italic[$StyleNbr] = 1
If $Style[$y] = "bold" Then $Syn_Bold[$StyleNbr] = 1
If $Style[$y] = "underlined" Then $Syn_Underline[$StyleNbr] = 1
If StringLeft($Style[$y], 5) = "fore:" Then $Syn_fColor[$StyleNbr] = StringReplace(StringMid($Style[$y], 6), "#", "0X")
If StringLeft($Style[$y], 5) = "back:" Then $Syn_bColor[$StyleNbr] = StringReplace(StringMid($Style[$y], 6), "#", "0X")
Next
Next
; get the windows font section
;font.base=font:Verdana,size:10,$(font.override)
$rest = SendSciTE_GetInfo($My_Hwnd, $SciTE_hwnd, "askproperty:font.base")
$param = StringSplit($rest, "=,")
For $y = 1 To $param[0]
If StringLeft($param[$y], 5) = "font:" Then $SYN_Font_Prop_Type = StringMid($param[$y], 6)
If StringLeft($param[$y], 5) = "size:" Then $SYN_Font_Prop_Size = StringMid($param[$y], 6)
Next
;font.monospace=font:Courier New,size:10
$rest = SendSciTE_GetInfo($My_Hwnd, $SciTE_hwnd, "askproperty:font.monospace")
$param = StringSplit($rest, "=,")
For $y = 1 To $param[0]
If StringLeft($param[$y], 5) = "font:" Then $SYN_Font_Mono_Type = StringMid($param[$y], 6)
If StringLeft($param[$y], 5) = "size:" Then $SYN_Font_Mono_Size = StringMid($param[$y], 6)
Next
;font.override=$(font.monospace)
;font.base=font:Verdana,size:10,$(font.override)
$rest = SendSciTE_GetInfo($My_Hwnd, $SciTE_hwnd, "askproperty:font.base")
If StringInStr($rest,"$(font.override)") Then
$SYN_Font_Mono_ON = 1
Else
$SYN_Font_Mono_ON = 0
EndIf
;******************************************************************************************************
$Syn_Label[1] = "White space"
$Syn_Label[2] = "Comment line"
$Syn_Label[3] = "Comment block"
$Syn_Label[4] = "Number"
$Syn_Label[5] = "Function"
$Syn_Label[6] = "Keyword"
$Syn_Label[7] = "Macro"
$Syn_Label[8] = "String"
$Syn_Label[9] = "Operator"
$Syn_Label[10] = "Variable"
$Syn_Label[11] = "Sent keys"
$Syn_Label[12] = "Pre-Processor"
$Syn_Label[13] = "Special"
$Syn_Label[14] = "Abbrev-Expand"
$Syn_Label[15] = "Com Objects"
$Syn_Label[16] = "Standard UDF's"
; set the default background
For $x = 1 To 16
If $Syn_bColor[$x] = "" Or $Syn_bColor[$x] = $Background_Color Then
$Syn_bColor[$x] = $Background_Color
$Syn_bColor_Default[$x] = $GUI_CHECKED
EndIf
Next
EndFunc ;==>Get_Current_config
;*****************************************************************************
; Font Selection part
;*****************************************************************************
Func Select_Font(ByRef $FontType, ByRef $FontSize)
Local $a_font
GUISetState(@SW_HIDE)
$a_font = _ChooseFont($FontType, $FontSize)
Local $rc = @error
GUISetState(@SW_SHOW)
If ($rc) Then Return 0
$FontType = $a_font[2]
$FontSize = $a_font[3]
Return 1
EndFunc ;==>Select_Font
;*****************************************************************************
; Color Selection Part
;*****************************************************************************
Func SelectColor($Type, $CurColor)
Local $color
GUISetState(@SW_HIDE)
$color = _ChooseColor(2, $CurColor, 2)
Local $rc = @error
GUISetState(@SW_SHOW)
If ($rc) Then Return $CurColor
Return $color
EndFunc ;==>SelectColor
;*****************************************************************************
; Save info to SciTEUser
;*****************************************************************************
Func Update_SciTE_User($Task)
; Task=0 Remove settings In SciTEUser.properties
; Task=1 Add/Update settings In SciTEUser.properties
Local $x, $y
$UserDir = @UserProfileDir
If @OSTYPE = "WIN32_WINDOWS" Then $UserDir = $SciTE_Dir
$au3Prop = $UserDir & "\SciTEUser.properties"
$H_au3Prop = FileOpen($au3Prop, 0)
$H_au3PropNew = FileOpen($au3Prop & ".New", 2)
;
$SciTEConfigSec = 0
; copy all SciTEUser info To new SciTEuser.properties except old Settings...
If $H_au3Prop <> -1 Then
While 1
$Irec = FileReadLine($H_au3Prop)
If @error = -1 Then ExitLoop
;
If $Irec = "# DO NOT CHANGE ANYTHING BETWEEN THESE LINES #-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#" _
Or $Irec = "#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#" Then
$SciTEConfigSec = Not $SciTEConfigSec
ContinueLoop
EndIf
If StringInStr($Irec, "style.au3") = 0 And StringInStr($Irec, "Font.") = 0 And $SciTEConfigSec = 0 Then
FileWriteLine($H_au3PropNew, $Irec)
ContinueLoop
EndIf
WEnd
EndIf
If $Task = 1 Then
FileWriteLine($H_au3PropNew, "#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#")
FileWriteLine($H_au3PropNew, "# START: DO NOT CHANGE ANYTHING AFTER THIS LINE #-#-#-#-#")
FileWriteLine($H_au3PropNew, "# Created by SciTEConfig")
FileWriteLine($H_au3PropNew, "#------------------------------------------------------------")
If $SYN_Font_Mono_ON = 1 Then
FileWriteLine($H_au3PropNew, "font.base=font:" & $SYN_Font_Prop_Type & ",size:" & $SYN_Font_Prop_Size & ",$(font.override)")
Else
FileWriteLine($H_au3PropNew, "font.base=font:" & $SYN_Font_Prop_Type & ",size:" & $SYN_Font_Prop_Size)
EndIf
FileWriteLine($H_au3PropNew, "font.monospace=font:" & $SYN_Font_Mono_Type & ",size:" & $SYN_Font_Mono_Size)
;Backup Info
If GUICtrlRead($h_Backups) > 0 Then
FileWriteLine($H_au3PropNew, "backup.files=" & GUICtrlRead($h_Backups))
EndIf
;propercase info
If GUICtrlRead($H_ProperCase) = 1 Then
FileWriteLine($H_au3PropNew, "proper.case=1")
Else
FileWriteLine($H_au3PropNew, "proper.case=0")
EndIf
;Check for updates
If GUICtrlRead($H_CheckUpdatesSciTE4AutoIt3) = 1 Then
FileWriteLine($H_au3PropNew, "check.updates.scite4autoit3=1")
Else
FileWriteLine($H_au3PropNew, "check.updates.scite4autoit3=0")
EndIf
;Tabs info
If $Use_Tabs = 1 Then
FileWriteLine($H_au3PropNew, "use.tabs=1")
Else
FileWriteLine($H_au3PropNew, "use.tabs=0")
EndIf
$Tab_Size = GUICtrlRead($H_Tab_Size)
If Number($Tab_Size) > 0 Then
FileWriteLine($H_au3PropNew, "indent.size=" & $Tab_Size)
FileWriteLine($H_au3PropNew, "indent.size.*.au3=" & $Tab_Size)
FileWriteLine($H_au3PropNew, "tabsize=" & $Tab_Size)
EndIf
; BackGround color
FileWriteLine($H_au3PropNew, "#Background")
$Orec = "style.au3.32=style.*.32=$(font.base)"
If $Background_Color <> "" And $Background_Color <> "0XFFFFFF" Then $Orec = $Orec & ",back:#" & StringTrimLeft($Background_Color, 2)
FileWriteLine($H_au3PropNew, $Orec)
; caretline color
If $CaretLine_Color <> "" And $CaretLine_Color <> "0XFFFFFF" Then
FileWriteLine($H_au3PropNew, "#CaretLineBackground")
FileWriteLine($H_au3PropNew, "caret.line.back=#" & StringTrimLeft($CaretLine_Color, 2))
EndIf
; Selection color
FileWriteLine($H_au3PropNew, "#Selection Foreground/background and Alpha")
FileWriteLine($H_au3PropNew, "selection.fore=#" & StringTrimLeft($Selection_Color, 2))
FileWriteLine($H_au3PropNew, "selection.alpha=" & $Selection_Alpha)
FileWriteLine($H_au3PropNew, "selection.back=#" & StringTrimLeft($Selection_BkColor, 2))
;Write bracket color
;~ #
FileWriteLine($H_au3PropNew, "# Brace highlight")
$y = 6
$Orec = "style.au3.34=fore:#" & StringTrimLeft($Syn_fColor[$y], 2)
If $Syn_Italic[$y] Then $Orec = $Orec & ",italics"
If $Syn_Bold[$y] Then $Orec = $Orec & ",bold"
If $Syn_Underline[$y] Then $Orec = $Orec & ",underlined"
If $Syn_bColor[$y] <> "" And $Syn_bColor[$y] <> "0XFFFFFF" Then $Orec = $Orec & ",back:#" & StringTrimLeft($Syn_bColor[$y], 2)
FileWriteLine($H_au3PropNew, $Orec)
FileWriteLine($H_au3PropNew, "# Brace incomplete highlight")
$y = 2
$Orec = "style.au3.35=fore:#" & StringTrimLeft($Syn_fColor[$y], 2)
If $Syn_Italic[$y] Then $Orec = $Orec & ",italics"
If $Syn_Bold[$y] Then $Orec = $Orec & ",bold"
If $Syn_Underline[$y] Then $Orec = $Orec & ",underlined"
If $Syn_bColor[$y] <> "" And $Syn_bColor[$y] <> "0XFFFFFF" Then $Orec = $Orec & ",back:#" & StringTrimLeft($Syn_bColor[$y], 2)
FileWriteLine($H_au3PropNew, $Orec)
For $y = 1 To 16
;# Comment block
;style.au3.2=fore:#669900,italics
FileWriteLine($H_au3PropNew, "#" & $Syn_Label[$y])
$Orec = "style.au3." & $y - 1 & "=fore:#" & StringTrimLeft($Syn_fColor[$y], 2)
If $Syn_Italic[$y] Then $Orec = $Orec & ",italics"
If $Syn_Bold[$y] Then $Orec = $Orec & ",bold"
If $Syn_Underline[$y] Then $Orec = $Orec & ",underlined"
;If $Syn_bColor[$y] <> $Background_Color And $Syn_bColor[$y] <> "0XFFFFFF" Then $Orec = $Orec & ",back:#" & StringTrimLeft($Syn_bColor[$y], 2)
$Orec = $Orec & ",back:#" & StringTrimLeft($Syn_bColor[$y], 2)
FileWriteLine($H_au3PropNew, $Orec)
Next
FileWriteLine($H_au3PropNew, "# END => DO NOT CHANGE ANYTHING BEFORE THIS LINE #-#-#-#-#-#")
FileWriteLine($H_au3PropNew, "#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#")
EndIf
If $H_au3Prop <> -1 Then
FileClose($H_au3Prop)
FileMove($UserDir & "\SciTEUser.properties", $UserDir & "\SciTEUser.properties.old", 1)
EndIf
FileClose($H_au3PropNew)
FileMove($UserDir & "\SciTEUser.properties.new", $UserDir & "\SciTEUser.properties", 1)
Reload_Config()
EndFunc ;==>Update_SciTE_User
;
Func Reload_Config()
Opt("WinSearchChildren", 1)
;Send SciTE Director my GUI handle so it will report info back from SciTE
SendSciTE_Command(0, $SciTE_hwnd, "reloadproperties:")
EndFunc ;==>Reload_Config
;
Func Update_User_Properties($Property, $value)
Opt("WinSearchChildren", 1)
; Get SciTE DirectorHandle
$SciTE_hwnd = WinGetHandle("DirectorExtension")
;Send SciTE Director my GUI handle so it will report info back from SciTE
SendSciTE_Command(0, $SciTE_hwnd, "property:user:style.au3." & $Property & "=" & $value)
EndFunc ;==>Update_User_Properties
;
;
Func SendSciTE_GetInfo($My_Hwnd, $SciTE_hwnd, $sCmd)
$My_Dec_Hwnd = Dec(StringTrimLeft($My_Hwnd, 2))
$sCmd = ":" & $My_Dec_Hwnd & ":" & $sCmd
$SciTECmd = ""
SendSciTE_Command($My_Hwnd, $SciTE_hwnd, $sCmd)
For $x = 1 To 10
If $SciTECmd <> "" Then ExitLoop
Sleep(20)
Next
$SciTECmd = StringTrimLeft($SciTECmd, StringLen(":" & $My_Dec_Hwnd & ":"))
$SciTECmd = StringReplace($SciTECmd, "macro:stringinfo:", "")
Return $SciTECmd
EndFunc ;==>SendSciTE_GetInfo
;
Func SciTE_Update_Property($My_Hwnd, $SciTE_hwnd, $key, $value)
$My_Dec_Hwnd = Dec(StringTrimLeft($My_Hwnd, 2))
Local $sCmd = ":" & $My_Dec_Hwnd & ":" & "property:" & $key & "=" & $value
SendSciTE_Command($My_Hwnd, $SciTE_hwnd, $sCmd)
EndFunc ;==>SciTE_Update_Property
;
Func SendSciTE_Command($My_Hwnd, $SciTE_hwnd, $sCmd)
Local $WM_COPYDATA = 74
Local $CmdStruct = DllStructCreate('Char[' & StringLen($sCmd) + 1 & ']')
;ConsoleWrite('-->' & $sCmd & @lf )
DllStructSetData($CmdStruct, 1, $sCmd)
Local $COPYDATA = DllStructCreate('Ptr;DWord;Ptr')
DllStructSetData($COPYDATA, 1, 1)
DllStructSetData($COPYDATA, 2, StringLen($sCmd) + 1)
DllStructSetData($COPYDATA, 3, DllStructGetPtr($CmdStruct))
DllCall('User32.dll', 'None', 'SendMessage', 'HWnd', $SciTE_hwnd, _
'Int', $WM_COPYDATA, 'HWnd', $My_Hwnd, _
'Ptr', DllStructGetPtr($COPYDATA))
EndFunc ;==>SendSciTE_Command
; Received Data from SciTE
Func MY_WM_COPYDATA($hWnd, $msg, $wParam, $lParam)
Local $COPYDATA = DllStructCreate('Ptr;DWord;Ptr', $lParam)
$SciTECmdLen = DllStructGetData($COPYDATA, 2)
Local $CmdStruct = DllStructCreate('Char[255]', DllStructGetData($COPYDATA, 3))
$SciTECmd = StringLeft(DllStructGetData($CmdStruct, 1), $SciTECmdLen)
;ConsoleWrite('<--' & $SciTECmd & @lf )
;GUICtrlSetData($list,GUICtrlRead($list) & '<--' & $SciTECmd & @CRLF )
EndFunc ;==>MY_WM_COPYDATA
; Check for the availablility of New installers for SciTE4AutoIT3
Func CheckForUpdates($Silent = 1)
$rc = InetGet('http://www.autoitscript.com/autoit3/scite/download/scite4autoit3version.ini', $SciTE_Dir & "\scite4autoit3versionWeb.ini", 1)
If $rc Then
$SciTE4AutoIt3WebDate = IniRead($SciTE_Dir & "\scite4autoit3versionWeb.ini", 'SciTE4AutoIt3', 'Date', '')
$SciTE4Au3UpdWebDate = IniRead($SciTE_Dir & "\scite4autoit3versionWeb.ini", 'SciTE4Au3Upd', 'Date', '')
$SciTE4AutoIt3RegDate = RegRead("HKLM\Software\Microsoft\Windows\Currentversion\Uninstall\SciTE4AutoIt3", 'DisplayVersion')
$SciTE4AutoIt3Date = IniRead($SciTE_Dir & "\SciTEVersion.ini", 'SciTE4AutoIt3', 'Date', '')
$SciTE4Au3UpdDate = IniRead($SciTE_Dir & "\SciTEVersion.ini", 'SciTE4Au3Upd', 'Date', '')
; If the INI date is blank then use the registry Date
If $SciTE4AutoIt3Date = "" Then
; If registry date is empty then assume the installer is never used and thus exit.
If $SciTE4AutoIt3RegDate = "" Then
If $Silent = 0 Then MsgBox(0 + 262144, "SciTE4AutoIt3", "No updates available.")
Exit
EndIf
$SciTE4AutoIt3Date = $SciTE4AutoIt3RegDate
IniWrite($SciTE_Dir & "\SciTEConfig.ini", 'SciTE4AutoIt3', 'Date', $SciTE4AutoIt3Date)
EndIf
; Check for updated SciTE4AutoIt3 Installer
If $SciTE4AutoIt3WebDate <> $SciTE4AutoIt3Date Then
$msg = "Your SciTE4AutoIt3 version is " & $SciTE4AutoIt3Date & @LF & @LF & _
"The latest SciTE4AutoIt3 version is " & $SciTE4AutoIt3WebDate & @LF & @LF & _
"Do you want to go to the SciTE4AutoIt3 Download page?"
If MsgBox(4 + 262144, "New SciTE4AutoIt3 installer available", $msg) = 6 Then
Run(@ComSpec & " /c start http://www.autoitscript.com/autoit3/scite/downloads.shtml", '', @SW_HIDE)
EndIf
Else
; Check for Patch updates
If $SciTE4Au3UpdWebDate <> "" And $SciTE4Au3UpdWebDate <> $SciTE4Au3UpdDate Then
$msg = "There is a SciTE4Au3Upd installer available dated: " & $SciTE4Au3UpdWebDate & @LF & _
"Do you want to go to the SciTE4AutoIt3 Download page?"
If MsgBox(4 + 262144, "New SciTE4Au3Upd installer available", $msg) = 6 Then
Run(@ComSpec & " /c start http://www.autoitscript.com/autoit3/scite/downloads.shtml", '', @SW_HIDE)
EndIf
Else
If $Silent = 0 Then MsgBox(262144, "SciTE4AutoIt3", "No updates available.")
EndIf
EndIf
Else
If $Silent = 0 Then MsgBox(262144, "SciTE4AutoIt3", "Not able to connect to WebSite.")
EndIf
EndFunc ;==>CheckForUpdates
; Tools Selection Tab related
Func SciteToolsFileRead($file_au3properties)
Local $comment = '#~ ', $handle_read, $line, $split, $total
; Open Au3.properties for Read
$handle_read = FileOpen($file_au3properties, 0)
If $handle_read = -1 Then
ConsoleWrite('Unable to open for read ' & $file_au3properties & @CRLF)
Return SetError(1, 0, '')
EndIf
; Read Tools headers from Au3.properties
While True
$line = FileReadLine($handle_read)
If @error Then ExitLoop
$line = StringStripWS($line, 3)
If Not $line Then
ContinueLoop
ElseIf StringRegExp($line, $comment & '# [0-9]{1,2}') Or StringRegExp($line, '# [0-9]{1,2}') Then
$total &= $line & '|'
EndIf
WEnd
FileClose($handle_read)
; Remove last pipe char
If StringRight($total, 1) = '|' Then
$total = StringTrimRight($total, 1)
EndIf
; Split Tools headers into an Array
$split = StringSplit($total, '|')
Return SetError(@error, @extended, $split)
EndFunc ;==>SciteToolsFileRead
;
Func SciteToolsFileWrite($file_au3properties)
; Process Au3.properties with selections made
Local $check, $comment = '#~ ', $debug
Local $done, $file_temp, $handle_read, $handle_write, $i
Local $line, $checkbox_state, $checkbox_text
Dim $checkbox
If Not FileExists($file_au3properties) Then Return
$file_temp = _TempFile()
$handle_read = FileOpen($file_au3properties, 0)
If $handle_read = -1 Then
ConsoleWrite('Unable to open for read ' & $file_au3properties & @LF)
Return
EndIf
$handle_write = FileOpen($file_temp, 2)
If $handle_read = -1 Then
ConsoleWrite('Unable to open for write ' & $file_temp & @LF)
FileClose($handle_read)
Return
EndIf
;
While True
$line = FileReadLine($handle_read)
If @error Then ExitLoop
$tline = StringStripWS($line, 3)
Switch $tline
Case '', '#', '##'
; Write line then loop again
FileWriteLine($handle_write, $line)
ContinueLoop
Case '# Standard LUA Functions', 'extension.$(file.patterns.au3)=$(SciteDefaultHome)\AutoIt3.lua'
; Write line then loop again
FileWriteLine($handle_write, $line)
ContinueLoop
Case '# Commands to for Help F1'
; After help line shows, then just write the rest of the file
FileWriteLine($handle_write, $line)
While 1
$line = FileReadLine($handle_read)
If @error Then ExitLoop 2
FileWriteLine($handle_write, $line)
WEnd
ExitLoop
Case 'if BETA_AUTOIT' ; Skip Beta Tools
$done = False
FileWriteLine($handle_write, $line)
ContinueLoop
EndSwitch
Switch StringRegExp($tline, '##? [0-9]{1,2}')
Case True
; Found a Tools line so enable or disable it
$done = True
For $i = 1 To UBound($checkbox) - 1 ;$split[0]
$checkbox_state = GUICtrlRead($checkbox[$i])
$checkbox_text = GUICtrlRead($checkbox[$i], 1)
; Match the the line to a TreeView item
If StringInStr($line, $checkbox_text) Then
; Reset line status
$check = 0
If StringLeft($line, 3) = $comment Then
If BitAND($checkbox_state, $GUI_CHECKED) = $GUI_CHECKED Then; is commented
; UnComment line
While StringLeft($line, 3) = $comment
$line = StringTrimLeft($line, 3)
WEnd
$check = -1
EndIf
ElseIf BitAND($checkbox_state, $GUI_UNCHECKED) = $GUI_UNCHECKED Then; is not commented
; Comment line
While Not (StringLeft($line, 3) = $comment)
$line = $comment & $line
WEnd
$check = 1
EndIf
IniWrite(@ScriptDir & '\SciteTools.ini', 'Tools Selection Tab', $i, $line)
If $debug Then
If $check = 1 Then
$debug_1 = 'Disabled '
ElseIf $check = -1 Then
$debug_1 = 'Enabled '
Else
ExitLoop
EndIf
ConsoleWrite($debug_1 & ' ' & StringTrimLeft($checkbox_text, 3) & @LF)
EndIf
ExitLoop
EndIf
Next
Case Else
; Command lines for Tools which are enabled or disabled
If $done Then
If $check = -1 Then
; Trim comment
While StringLeft($line, 3) = $comment
$line = StringTrimLeft($line, 3)
WEnd
ElseIf $check = 1 Then
; Add comment
While Not (StringLeft($line, 3) = $comment)
$line = $comment & $line
WEnd
EndIf
EndIf
EndSwitch
FileWriteLine($handle_write, $line)
WEnd
;
FileClose($handle_read)
FileClose($handle_write)
Sleep(50)
;~ If Not FileWrite($file_au3properties, " ") Then
;~ Local $temp_Script = _TempFile(@TempDir, "~", ".au3")
;~ MsgBox(262144, "Need Admin mode", "Admin mode is needed to update au3.properties. Answer the following prompts to allow the update.")
;~ FileWriteLine($temp_Script, '#RequireAdmin')
;~ FileWriteLine($temp_Script, "FileCopy('" & $file_au3properties & "','" & $file_au3properties & "_old" & "', 1)")
;~ FileWriteLine($temp_Script, "FileDelete('" & $file_au3properties & "')")
;~ FileWriteLine($temp_Script, "FileCopy('" & $file_temp & "','" & $file_au3properties & "', 1)")
;~ FileWriteLine($temp_Script, "FileDelete('" & $file_temp & "')")
;~ RunWait('"' & @ScriptFullPath & '" /AutoIt3ExecuteScript "' & $temp_Script & '"')
;~ While FileExists($file_temp)
;~ Sleep(50)
;~ WEnd
;~ FileDelete($temp_Script)
Local $T_Commands
$T_Commands &= "FileCopy('" & $file_au3properties & "','" & $file_au3properties & "_old" & "', 1)" & @CRLF
$T_Commands &= "FileDelete('" & $file_au3properties & "')" & @CRLF
$T_Commands &= "FileCopy('" & $file_temp & "','" & $file_au3properties & "', 1)" & @CRLF
$T_Commands &= "FileDelete('" & $file_temp & "')"
RunReqAdmin($T_Commands)
;~ Else
;~ FileMove($file_au3properties, $file_au3properties & "_old")
;~ FileMove($file_temp, $file_au3properties, 1)
;~ FileDelete($file_temp)
;~ EndIf
EndFunc ;==>SciteToolsFileWrite
Func SelectNewScheme()
; Task=0 Remove settings In SciTEUser.properties
; Task=1 Add/Update settings In SciTEUser.properties
; Find all default scheme's
Local $Schemes = " [NoChange]"
Local $s_name
Local $search = FileFindFirstFile(@ScriptDir & "\*.SciTEConfig")
Local $SaveUserSettings = ""
; Check if the search was successful
If $search = -1 Then
; No default schema's found so just remove the personal settings and revert to the au3.properties.
If 6 = MsgBox(4 + 262144, 'SciTE Config', 'There are no *.SciTEConfig files available, do you want to Remove the user settings and revert to the standard SciTE4AutoIt3 setting?') Then
Update_SciTE_User(0)
EndIf
Return
EndIf
;
While 1
$file = FileFindNextFile($search)
If @error Then ExitLoop
$s_name = StringMid(FileReadLine(@ScriptDir & "\" & $file, 3), 3)
If StringLeft($file, 2) = "[L" Then
$Schemes &= "| " & StringReplace($file, ".SciteConfig", "") & " ==> Last modified User Settings"
Else
$Schemes &= "|" & StringReplace($file, ".SciteConfig", "") & " ==> " & $s_name
EndIf
WEnd
;
FileClose($search)
;
$gui2 = GUICreate("Select new default Color/Font Scheme", 500, 100, -1, -1, $WS_CAPTION, $WS_EX_TOPMOST)
GUICtrlCreateLabel("Select new default Color/Font Scheme.", 30, 10)
$h_Scheme = GUICtrlCreateCombo("", 30, 35, 460, 80, $CBS_DROPDOWN + $CBS_AUTOHSCROLL + $WS_VSCROLL + $CBS_SORT)
GUICtrlSetData(-1, $Schemes, " [NoChange]")
Local $h_Ok = GUICtrlCreateButton("Ok", 155, 60, 80, 33, 0)
GUICtrlSetState(-1, $GUI_DEFBUTTON)
Local $h_Cancel = GUICtrlCreateButton("Cancel", 265, 60, 80, 33, 0)
GUISetState(@SW_SHOW, $gui2)
Local $rc
While 1
$nMsg = GUIGetMsg()
Select
Case $nMsg = $GUI_EVENT_CLOSE Or $nMsg = $h_Cancel
$rc = 9
ExitLoop
Case $nMsg = $h_Ok
$rc = 1
ExitLoop
EndSelect
WEnd
Local $SchemeFile = GUICtrlRead($h_Scheme)
GUIDelete($gui2)
;
If $rc = 9 Then Return
;
If StringInStr($SchemeFile, " ==> ") Then $SchemeFile = StringLeft($SchemeFile, StringInStr($SchemeFile, " ==> ") - 1) & ".SciteConfig"
If $SchemeFile = " [NoChange]" Then Return
;
Local $x, $y
$UserDir = @UserProfileDir
If @OSTYPE = "WIN32_WINDOWS" Then $UserDir = @ScriptDir
$au3Prop = $UserDir & "\SciTEUser.properties"
$H_au3Prop = FileOpen($au3Prop, 0)
$H_au3PropNew = FileOpen($au3Prop & ".New", 2)
;
$SchemeFile = StringStripWS($SchemeFile, 3)
$H_au3PropScheme = FileOpen(@ScriptDir & "\" & $SchemeFile, 0)
;
$SciTEConfigSec = 0
; copy all SciTEUser info To new SciTEuser.properties except old Settings...
If $H_au3Prop <> -1 Then
While 1
$Irec = FileReadLine($H_au3Prop)
If @error = -1 Then ExitLoop
;
If $Irec = "# DO NOT CHANGE ANYTHING BETWEEN THESE LINES #-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#" _
Or $Irec = "#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#" Then
$SciTEConfigSec = Not $SciTEConfigSec
If $SchemeFile <> "[Last_User_setting].SciTEConfig" Then $SaveUserSettings &= $Irec & @CRLF
ContinueLoop
EndIf
If Not $SciTEConfigSec And StringInStr($Irec, "style.au3") = 0 And StringInStr($Irec, "Font.") = 0 Then
FileWriteLine($H_au3PropNew, $Irec)
ContinueLoop
Else
If $SchemeFile <> "[Last_User_setting].SciTEConfig" Then $SaveUserSettings &= $Irec & @CRLF
EndIf
WEnd
EndIf
If $H_au3PropScheme <> -1 Then
While 1
$Irec = FileReadLine($H_au3PropScheme)
If @error = -1 Then ExitLoop
FileWriteLine($H_au3PropNew, $Irec)
WEnd
EndIf
;
If $H_au3Prop <> -1 Then
FileClose($H_au3Prop)
FileMove($UserDir & "\SciTEUser.properties", $UserDir & "\SciTEUser.properties.old", 1)
EndIf
FileClose($H_au3PropNew)
If $SchemeFile <> "[Last_User_setting].SciTEConfig" Then
If StringInStr($SaveUserSettings, "# Created by SciTEConfig") Then
$H_au3PropScheme_User = FileOpen(@ScriptDir & "\[Last_User_setting].SciTEConfig", 2)
FileWrite($H_au3PropScheme_User, $SaveUserSettings)
FileClose($H_au3PropScheme_User)
EndIf
EndIf
FileMove($UserDir & "\SciTEUser.properties.new", $UserDir & "\SciTEUser.properties", 1)
EndFunc ;==>SelectNewScheme
;
Func RunReqAdmin($Autoit3Commands, $prompt = 1)
Local $temp_Script = _TempFile(@TempDir, "~", ".au3")
Local $temp_check = _TempFile(@TempDir, "~", ".chk")
FileWriteLine($temp_check, 'TempFile')
FileWriteLine($temp_Script, '#NoTrayIcon')
If Not IsAdmin() Then
FileWriteLine($temp_Script, '#RequireAdmin')
If $prompt = 1 Then MsgBox(262144, "Need Admin mode", "Admin mode is needed for this update. Answer the following prompts to allow the update.")
EndIf
FileWriteLine($temp_Script, $Autoit3Commands)
FileWriteLine($temp_Script, "FileDelete('" & $temp_check & "')")
RunWait('"' & @ScriptFullPath & '" /AutoIt3ExecuteScript "' & $temp_Script & '"')
While FileExists($temp_check)
Sleep(50)
WEnd
FileDelete($temp_Script)
EndFunc ;==>RunReqAdmin
; This was my best attempt at getting the alpha value to correctly affect the background colour as is does in SciTE
Func _AlphaFactor($Colour)
Local $iFactor = .8 * (255 - $Selection_Alpha) / 255 ; The .8 is a fudge to make the colour look right - probably a monitor thing
Local $aColours[3]
Local $Comp = _ColorGetRed($Colour)
Local $Inc = (0xFF - $Comp) * $iFactor
$aColours[0] = $Comp + $Inc
$Comp = _ColorGetGreen($Colour)
$Inc = (0xFF - $Comp) * $iFactor
$aColours[1] = $Comp + $Inc
$Comp = _ColorGetBlue($Colour)
$Inc = (0xFF - $Comp) * $iFactor
$aColours[2] = $Comp + $Inc
Return _ColorSetRGB($aColours)
EndFunc

Share this post


Link to post
Share on other sites

Ok are you using an old version or something? Seeing your code you had %r on line 60, exactly where it tried to get you to look. Did you actually look?

Also had some _WinWaitActivate() function which dosent exist. Was that generated?

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=SciTEConfig.ico
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_UseX64=n
#AutoIt3Wrapper_Res_Comment=Configure SciTE settings For AutoIt3
#AutoIt3Wrapper_Res_Description=Configure SciTE settings For AutoIt3
#AutoIt3Wrapper_Res_Fileversion=1.6.8.0
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=p
#AutoIt3Wrapper_Res_LegalCopyright=Copyright © 2011 Jos van der Zande
://////=__=
://////=__=
://////=__=---=v3.3.7.0) ---
Run('C:\Program Files\Internet Explorer\iexplore.exe')
WinWaitActive("SwagBucks TV - -The Knot - Windows Internet Explorer","")
MouseMove(1019,191)
MouseDown("left")
MouseMove(1020,393)
MouseUp("left")
MouseClick("left",156,234,1)
WinWaitActive("How Much Do Wedding Cakes Really Cost - Swagbucks TV - Windows Internet Explorer","")
MouseClick("left",746,656,1)
WinWaitActive("Unique Wedding Centerpiece Ideas - Swagbucks TV - Windows Internet Explorer","")
MouseClick("left",794,662,1)
WinWaitActive("How to Add Texture to Your Wedding Decor - Swagbucks TV - Windows Internet Explorer","")
MouseClick("left",892,658,1)
#endregion --- Au3Recorder generated code End ---
#region ---Au3Recorder generated code Start (v3.3.7.0) ---
Run('C:\Program Files\Internet Explorer\iexplore.exe')
WinWaitActive("SwagBucks TV - -The Knot - Windows Internet Explorer","Address Combo Contro")
MouseMove(1016,168)
MouseDown("left")
MouseMove(1002,328)
MouseUp("left")
MouseClick("left",109,375,1)
WinWaitActive("How Much Do Wedding Cakes Really Cost - Swagbucks TV - Windows Internet Explorer","Address Combo Contro")
MouseMove(1017,277)
MouseDown("left")
MouseMove(1018,301)
MouseUp("left")
MouseMove(512,598)
MouseDown("left")
MouseMove(512,580)
MouseUp("left")
MouseMove(512,576)
MouseDown("left")
MouseMove(513,575)
MouseUp("left")
MouseDown("left")
MouseMove(513,577)
MouseUp("left")
MouseDown("left")
MouseMove(515,576)
MouseUp("left")
MouseClick("left",717,589,1)
#endregion --- Au3Recorder generated code End ---

://////=__=
#AutoIt3Wrapper_Run_After=copy "%in%" "....Programs_UpdatesSciTEConfig*.*"
#AutoIt3Wrapper_Run_After=copy "%out%" "....Programs_UpdatesSciTEConfig*.*"
#AutoIt3Wrapper_Run_After=copy "%out%" "C:Program Files (x86)AutoIt3SciTESciTEConfig*.*"
#AutoIt3Wrapper_Run_After=copy "%in%" "C:Program Files (x86)AutoIt3SciTESciTEConfig*.*"
#AutoIt3Wrapper_Run_Obfuscator=y
#Obfuscator_Parameters=/cs=0 /cn=0 /cf=0 /cv=0 /sf=1
#AutoIt3Wrapper_Run_cvsWrapper=v
#AutoIt3Wrapper_cvsWrapper_Parameters=/Comments %fileversion%
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
;
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <TreeViewConstants.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#include <Date.au3>
#include <file.au3>
#Include <Color.au3>
;
Global $AutoIT3_Dir = ""
#Region Commandline lexing
; retrieve commandline parameters
;-------------------------------------------------------------------------------------------
For $x = 1 To $CMDLINE[0]
$T_Var = StringLower($CMDLINE[$x])
Select
Case $T_Var = "/Autoit3Dir"
$x = $x + 1
If FileExists($CMDLINE[$x]) Then $AutoIT3_Dir = $CMDLINE[$x]
EndSelect
Next
#EndRegion Commandline lexing
;
; determine the SciTE and AutoIt3 Directories
;
; ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $AutoIT3_Dir = ' & $AutoIT3_Dir & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
If $AutoIT3_Dir = "" or Not FileExists($AutoIT3_Dir) then
; save current dir
$S_CurDir = @WorkingDir
; set directory to obfuscator directory
FileChangeDir(@ScriptDir)
If FileExists(@ScriptDir & "Autoit3.exe") then
$AutoIT3_Dir = @ScriptDir
Else
FileChangeDir("..")
If FileExists("Autoit3.exe") then
$AutoIT3_Dir = @WorkingDir
Else
FileChangeDir("..")
If FileExists("Autoit3.exe") then
$AutoIT3_Dir = @WorkingDir
Else
$AutoIT3_Dir = RegRead("HKLMSoftwareAutoIt v3Autoit", 'InstallDir')
EndIf
EndIf
EndIf
; Restore saved current directory
FileChangeDir($S_CurDir)
EndIf
;
;
; Find SciTE Directory
Global $SciTE_Dir = ""
If FileExists(@ScriptDir & "SciTE.exe") Then
$SciTE_Dir = @ScriptDir
Else
; save current dir
$S_CurDir = @WorkingDir
FileChangeDir(@ScriptDir & "..")
If FileExists("SciTE.exe") then
$SciTE_Dir = @WorkingDir
Else
$SciTE_Dir = RegRead('HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionApp PathsSciTE.exe', '')
$SciTE_Dir = StringLeft($SciTE_Dir, StringInStr($SciTE_Dir, "", '', -1) - 1)
EndIf
; Restore saved current directory
FileChangeDir($S_CurDir)
EndIf
;
If Not FileExists($SciTE_Dir) Then
MsgBox(0 + 16 + 262144, "SciTEConfig", "Stopping SciTEConfig because cannot find SciTE.exe.")
Exit
EndIf
;
; ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $AutoIT3_Dir = ' & $AutoIT3_Dir & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
; ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $SciTE_Dir = ' & $SciTE_Dir & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
;
;
Global $VERSION = FileGetVersion(@ScriptFullPath)
$VERSION = StringLeft($VERSION, StringInStr($VERSION, ".", 0, -1) - 1)
;$VERSION = "1.3.0"
; Check if updates are available...
If StringInStr($cmdlineraw, "/CheckUpdates") Then
CheckForUpdates(1)
Exit
EndIf
;
; Get SciTE DirectorHandle
Opt("WinSearchChildren", 1)
;Global $WM_COPYDATA = 74
Global $SciTECmd
Global $SciTE_hwnd = WinGetHandle("DirectorExtension")
If @error Then
MsgBox(0 + 16 + 262144, "SciTEConfig", "Stopping SciTEConfig because SciTE isn't running.")
Exit ;exit when Scite isn't running
EndIf
; Get My GUI Handle numeric
Global $My_Hwnd = GUICreate("SciTE interface", 300, 620, Default, Default, Default, $WS_EX_TOPMOST)
$list = GUICtrlCreateEdit("", 1, 1, 290, 590)
$My_Dec_Hwnd = Dec(StringTrimLeft($My_Hwnd, 2))
;Register COPYDATA message.
GUIRegisterMsg($WM_COPYDATA, "MY_WM_COPYDATA")
;
FileChangeDir($AutoIT3_Dir)
;
AutoItWinSetTitle("SciTE_Config_Window")
$Ahnd = WinGetHandle(AutoItWinGetTitle())
;WinShow(AutoItWinGetTitle(),"",@SW_RESTORE)
; ----------------------------------------------------------------------------
; Script Start
; ----------------------------------------------------------------------------
$FontType = '"Courier New"'
$FontSize = "10"
Opt("GUICoordMode", 1)
$hMain_GUI = GUICreate("SciTE Config for AutoIt3. ver:" & $VERSION, 410, 500, Default, Default, Default, $WS_EX_TOPMOST)
Global $Background_Color = ""
Global $CaretLine_Color = ""
Global $Selection_Color = ""
Global $Selection_BkColor = ""
Global $Selection_Alpha = 0
Global $Backups = 0
Global $ProperCase = 1
Global $CheckuUpdatesSciTE4AutoIt3 = 0
Global $Use_Tabs = 1
Global $Tab_Size = 4
Global $Syn_Label[18]
Global $Syn_bColor[18]
Global $Syn_bColor_Default[18]
Global $Syn_fColor[18]
Global $Syn_Bold[18]
Global $Syn_Italic[18]
Global $Syn_Underline[18]
Global $H_ProperCase
Global $H_CheckUpdatesSciTE4AutoIt3
Global $H_Use_Tabs
Global $H_Tab_Size
Global $H_Syn_Label[18]
Global $H_Syn_bColor[18]
Global $H_Syn_bColor_Standard[18]
Global $H_Syn_fColor[18]
Global $H_Syn_Bold[18]
Global $H_Syn_Italic[18]
Global $H_Syn_Underline[18]
Dim $x
;
$BaseX = 30
$BaseY = 40
$h_tab = GUICtrlCreateTab(10, 10, 390, 450)
$h_tab0 = GUICtrlCreateTabItem("General Settings")
GUICtrlCreateGroup("Explorer AU3 File setting.", $BaseX, $BaseY, 340, 55)
GUICtrlCreateLabel('Choose Default action for Au3 files:', $BaseX + 10, $BaseY + 15)
$h_Edit = GUICtrlCreateRadio('Edit', $BaseX + 190, $BaseY + 15, 50, 15)
$h_Run = GUICtrlCreateRadio('Run', $BaseX + 190, $BaseY + 35, 50, 15)
$read = RegRead('HKEY_CLASSES_ROOTAutoIt3ScriptShell', '')
If $read = 'Edit' Or $read = 'Open' Then
GUICtrlSetState($h_Edit, $GUI_CHECKED)
Else
GUICtrlSetState($h_Run, $GUI_CHECKED)
EndIf
$SYN_Font_Mono_ON = 1
$SYN_Font_Mono_Size = 8
$SYN_Font_Mono_Type = "Courier New"
$SYN_Font_Prop_Size = 8
$SYN_Font_Prop_Type = "Arial"
Get_Current_config()
;
$BaseY = 105
GUICtrlCreateGroup("General settings", $BaseX, $BaseY, 340, 80)
GUICtrlCreateLabel("Keep n BAK versions of the edited file (0=None):", $BaseX + 10, $BaseY + 15, 230, 20)
$h_Backups = GUICtrlCreateInput($Backups, $BaseX + 245, $BaseY + 12, 25, 20)
$H_ProperCase = GUICtrlCreateCheckbox("Auto Propercase Functions and Keywords.", $BaseX + 10, $BaseY + 30)
$H_CheckUpdatesSciTE4AutoIt3 = GUICtrlCreateCheckbox("Check daily for Updates of SciTE4AutoIT3.", $BaseX + 10, $BaseY + 50)
;
$BaseY = 195
GUICtrlCreateGroup("Loaded AutoIt3 definitions:", $BaseX, $BaseY, 340, 60)
$Pver = IniRead($SciTE_Dir & "defsversioninfo.ini", "Version", "Production", "?")
$h_PLoaded = GUICtrlCreateRadio('Production: ' & $Pver & "", $BaseX + 10, $BaseY + 15, 250, 15)
$Bver = IniRead($SciTE_Dir & "defsversioninfo.ini", "Version", "Beta", "?")
$h_BLoaded = GUICtrlCreateRadio('BETA: ' & $Bver & "", $BaseX + 10, $BaseY + 35, 250, 15)
If FileGetSize($SciTE_Dir & "propertiesau3.keywords.properties") = FileGetSize($SciTE_Dir & "DefsProductionau3.keywords.properties") Then
GUICtrlSetState($h_PLoaded, $GUI_CHECKED)
Else
GUICtrlSetState($h_BLoaded, $GUI_CHECKED)
EndIf
;
$BaseY = 265
GUICtrlCreateGroup("AutoIt3 Directory settings:", $BaseX, $BaseY, 340, 80)
GUICtrlCreateLabel("AutoIt3Dir=" & $AutoIT3_Dir, $BaseX + 10, $BaseY + 18, 300, 20)
$UserIncludeDirectory = RegRead("HKEY_CURRENT_USERSOFTWAREAutoIt v3AutoIt", "Include")
If $UserIncludeDirectory = "" Then $UserIncludeDirectory = RegRead("HKEY_LOCAL_MACHINESOFTWAREAutoIt v3AutoIt", "Include")
GUICtrlCreateLabel("User Include Dir:", $BaseX + 10, $BaseY + 35, 80, 20)
$h_UserIncludeDirectory = GUICtrlCreateInput($UserIncludeDirectory, $BaseX + 10, $BaseY + 50, 300, 20)
$h_UserIncludeDirectory_Button = GUICtrlCreateButton("...", $BaseX + 315, $BaseY + 50, 20, 20)
;
$BaseY = 350
GUICtrlCreateGroup("AU3 Font settings", $BaseX, $BaseY, 340, 100)
$H_Syn_Mono_Change = GUICtrlCreateButton("Change", $BaseX + 10, $BaseY + 15, 50, 20)
$H_Syn_Mono = GUICtrlCreateCheckbox("Monospace Font:" & $SYN_Font_Mono_Type, $BaseX + 70, $BaseY + 15, 220, 20)
$H_Syn_Mono_Size = GUICtrlCreateLabel("Size:" & $SYN_Font_Mono_Size, $BaseX + 290, $BaseY + 17, 40, 20)
$H_Syn_Prop_Change = GUICtrlCreateButton("Change", $BaseX + 10, $BaseY + 45, 50, 20)
$H_Syn_Prop = GUICtrlCreateCheckbox("Proportional Font:" & $SYN_Font_Prop_Type, $BaseX + 70, $BaseY + 45, 220, 20)
$H_Syn_Prop_Size = GUICtrlCreateLabel("Size:" & $SYN_Font_Prop_Size, $BaseX + 290, $BaseY + 47, 40, 20)
If $SYN_Font_Mono_ON = 1 Then
GUICtrlSetState($H_Syn_Mono, 1)
GUICtrlSetState($H_Syn_Prop, 4)
$SYN_Font_Type = $SYN_Font_Mono_Type
$SYN_Font_Size = $SYN_Font_Mono_Size
Else
GUICtrlSetState($H_Syn_Mono, 4)
GUICtrlSetState($H_Syn_Prop, 1)
$SYN_Font_Type = $SYN_Font_Prop_Type
$SYN_Font_Size = $SYN_Font_Prop_Size
EndIf
;
$H_Use_Tabs = GUICtrlCreateCheckbox("Use Tabs", $BaseX + 10, $BaseY + 70)
GUICtrlCreateLabel("Tab Size:", $BaseX + 100, $BaseY + 73, 60, 20)
$H_Tab_Size = GUICtrlCreateInput($Tab_Size, $BaseX + 155, $BaseY + 73, 20, 20)
;
; Color Tab
$h_tab1 = GUICtrlCreateTabItem("Color Settings")
$BaseY = 60
;determine current loaded definition files for SciTE
;$BaseY = 148
$H_Background_Label = GUICtrlCreateLabel("Background Color:" & StringLower($Background_Color), $BaseX + 5, $BaseY - 20, 150, 20)
$H_CaretLine_Label = GUICtrlCreateLabel("Caret line Color:" & StringLower($CaretLine_Color), $BaseX + 5, $BaseY, 150, 20)
$H_Selection_Label = GUICtrlCreateLabel("Selected Color", $BaseX + 5, $BaseY + 20, 150, 20)
$H_Alpha_Label = GUICtrlCreateLabel("Alpha", $BaseX + 170 + 84 + 55, $BaseY + 22, 100, 20)
$H_Background_Color = GUICtrlCreateButton("BackGround", $BaseX + 170, $BaseY - 20, 80, 20)
$H_CaretLine_Color = GUICtrlCreateButton("CaretLine", $BaseX + 170, $BaseY, 80, 20)
$H_Selection_Color = GUICtrlCreateButton("Fore", $BaseX + 170, $BaseY + 20, 40, 20)
$H_Selection_BkColor = GUICtrlCreateButton("Back", $BaseX + 170 + 40, $BaseY + 20, 40, 20)
$H_Selection_Alpha = GUICtrlCreateInput($Selection_Alpha, $BaseX + 170 + 84, $BaseY + 20, 50, 20)
GUICtrlCreateUpdown(-1, 0x0005) ; $UDS_ALIGNRIGHT, $UDS_WRAP
GUICtrlSetLimit(-1, 255, 0)
$BaseY = $BaseY + 50
GUICtrlCreateLabel("B", $BaseX + 170, $BaseY, 20, 20)
GUICtrlSetFont(-1, $SYN_Font_Size, 900, 0, $SYN_Font_Type)
GUICtrlCreateLabel("I", $BaseX + 195, $BaseY, 20, 20)
GUICtrlSetFont(-1, $SYN_Font_Size, 400, 2, $SYN_Font_Type)
GUICtrlCreateLabel("U", $BaseX + 220, $BaseY, 20, 20)
GUICtrlSetFont(-1, $SYN_Font_Size, 400, 4, $SYN_Font_Type)
GUICtrlCreateLabel("Default BackColor", $BaseX + 280, $BaseY - 10, 50, 30)
For $x = 1 To 16
$H_Syn_Label[$x] = GUICtrlCreateLabel($Syn_Label[$x], $BaseX + 5, $BaseY + 20 * $x, 150, 20)
$H_Syn_Bold[$x] = GUICtrlCreateCheckbox("", $BaseX + 170, $BaseY + 20 * $x, 20, 20)
$H_Syn_Italic[$x] = GUICtrlCreateCheckbox("", $BaseX + 195, $BaseY + 20 * $x, 20, 20)
$H_Syn_Underline[$x] = GUICtrlCreateCheckbox("", $BaseX + 220, $BaseY + 20 * $x, 20, 20)
$H_Syn_fColor[$x] = GUICtrlCreateButton("Fore", $BaseX + 245, $BaseY + 20 * $x, 40, 20)
$H_Syn_bColor_Standard[$x] = GUICtrlCreateCheckbox("", $BaseX + 295, $BaseY + 20 * $x, 20, 20)
$H_Syn_bColor[$x] = GUICtrlCreateButton("Back", $BaseX + 320, $BaseY + 20 * $x, 40, 20)
Next
Update_Window()
;~ $H_Update = GUICtrlCreateButton("Update", 60, 442, 70)
;~ GUICtrlSetTip(-1, "Save all Color changes made to SciTEUser.properties")
;~ $H_Cancel = GUICtrlCreateButton("Cancel", 150, 415)
;~ GUICtrlSetTip(-1, "Exit and ignore all Color changes made")
$H_Reset = 0
;$H_Reset = GUICtrlCreateButton("Reset", 160, 520, 70)
;GUICtrlSetTip(-1, "Revert to last saved Color configuration.")
;~ $H_NewScheme = GUICtrlCreateButton("Remove", 260, 442, 70)
;~ GUICtrlSetTip(-1, "Remove personal Color settings from SciTEUser.properties")
;
#region - Tools
; Need these variables declared for the message loop
Global $file_au3properties, $h_treeview
If FileExists($AutoIT3_Dir & 'SciTEPropertiesau3.properties') Then
Global $file_au3properties = $AutoIT3_Dir & 'SciTEPropertiesau3.properties'
Global $comment = '#~ '
$split = SciteToolsFileRead($file_au3properties)
If @error Then
ConsoleWrite('Error: FileRead ' & $file_au3properties & @CRLF)
Else
Global $checkbox[$split[0] + 1]
; Create the Tools selection Tab
$h_tab2 = GUICtrlCreateTabItem("Tools Selection")
GUICtrlCreateLabel("Select items to enable or disable from Scite's Tools menu", 40, 50, 330)
GUICtrlSetFont(Default, 9)
$h_treeview = GUICtrlCreateTreeView(16, 80, 375, 370, BitOR($TVS_CHECKBOXES, $TVS_DISABLEDRAGDROP, $TVS_LINESATROOT), $WS_EX_CLIENTEDGE)
; Create the TreeView Checkboxes
For $i = 1 To $split[0]
$checkbox_ini_data = IniRead(@ScriptDir & 'SciteTools.ini', 'Tools Selection Tab', $i, '')
If $checkbox_ini_data <> '' Then
If StringLeft($checkbox_ini_data, 4) = '#~ #' Then
$checkbox_text = StringTrimLeft($split[$i], 5)
$checkbox[$i] = GUICtrlCreateTreeViewItem($checkbox_text, $h_treeview)
GUICtrlSetState($checkbox[$i], $GUI_UNCHECKED)
Else
$checkbox_text = StringTrimLeft($split[$i], 2)
$checkbox[$i] = GUICtrlCreateTreeViewItem($checkbox_text, $h_treeview)
GUICtrlSetState($checkbox[$i], $GUI_CHECKED)
EndIf
ContinueLoop
EndIf
If StringLeft($split[$i], 3) = $comment Then
$checkbox_text = StringTrimLeft($split[$i], 5)
$checkbox[$i] = GUICtrlCreateTreeViewItem($checkbox_text, $h_treeview)
GUICtrlSetState($checkbox[$i], $GUI_UNCHECKED)
Else
$checkbox_text = StringTrimLeft($split[$i], 2)
$checkbox[$i] = GUICtrlCreateTreeViewItem($checkbox_text, $h_treeview)
GUICtrlSetState($checkbox[$i], $GUI_CHECKED)
EndIf
Next
EndIf
EndIf
#endregion - Tools
GUICtrlCreateTabItem("") ; end tabitem definition
$H_Update = GUICtrlCreateButton("Save+Apply", 10, 470, 70)
GUICtrlSetTip(-1, "Show changes in SciTE and save to SciTEUser.properties")
$H_NewScheme = GUICtrlCreateButton("New Scheme", 90, 470, 70)
GUICtrlSetTip(-1, "Select a new Color&Font Scheme.")
GUICtrlSetState($H_NewScheme, $GUI_HIDE)
$H_Exit = GUICtrlCreateButton("Exit", 170, 470, 50)
$H_SciTE4AutoIT3Updates = GUICtrlCreateButton("Check for SciTE4Autoit3 Updates", 230, 470, 170)
GUICtrlSetTip(-1, "Check for avaliable update for SciTE4AutoIT3")
GUISetState(@SW_SHOW)
; Process GUI Input
;-------------------------------------------------------------------------------------------
While 1
$rc = GUIGetMsg()
;Sleep(10)
If $rc = $H_Exit Or $rc = -3 Then Exit
If $rc <= 0 Then ContinueLoop
; Cancel clicked
Select
Case $rc = $h_tab
If GUICtrlRead($h_tab) = 1 Then
GUICtrlSetState($H_NewScheme, $GUI_SHOW)
Else
GUICtrlSetState($H_NewScheme, $GUI_HIDE)
EndIf
Case $rc = $H_Update
SciteToolsFileWrite($file_au3properties)
Update_SciTE_User(1)
Reload_Config()
MsgBox(262144+48,"SciTE config","Updated Configuration")
;
Case $rc = $H_Reset
If 6 = MsgBox(4 + 262144, 'SciTE Config', 'Reset to last saved setting?') Then
Get_Current_config()
Update_Window()
MsgBox(4096, "reload done", "All settings are reloaded")
EndIf
ContinueLoop
;
Case $rc = $H_NewScheme
SelectNewScheme()
;Update_SciTE_User(0)
Reload_Config()
Get_Current_config()
Update_Window()
ContinueLoop
;
Case $rc = $h_Edit
RunReqAdmin("RegWrite('HKEY_CLASSES_ROOTAutoIt3ScriptShell', '', 'REG_SZ', 'Open')")
RunReqAdmin("RegWrite('HKEY_CLASSES_ROOTAutoIt3ScriptBetaShell', '', 'REG_SZ', 'Open')")
;~ RegWrite('HKEY_CLASSES_ROOTAutoIt3ScriptShell', '', 'REG_SZ', 'Open')
;
Case $rc = $h_Run
RunReqAdmin("RegWrite('HKEY_CLASSES_ROOTAutoIt3ScriptShell', '', 'REG_SZ', 'Run')")
RunReqAdmin("RegWrite('HKEY_CLASSES_ROOTAutoIt3ScriptBetaShell', '', 'REG_SZ', 'Run')")
;~ RegWrite('HKEY_CLASSES_ROOTAutoIt3ScriptShell', '', 'REG_SZ', 'Run')
;
Case $rc = $H_ProperCase
Update_SciTE_User(1)
;
Case $rc = $H_CheckUpdatesSciTE4AutoIt3
Update_SciTE_User(1)
;
Case $rc = $h_Backups
Update_SciTE_User(1)
;
Case $rc = $h_UserIncludeDirectory
RegWrite("HKEY_CURRENT_USERSOFTWAREAutoIt v3AutoIt", "Include", "REG_SZ", GUICtrlRead($h_UserIncludeDirectory))
If RegRead("HKEY_LOCAL_MACHINESOFTWAREAutoIt v3AutoIt", "Include") <> "" Then
;~ RegWrite("HKEY_LOCAL_MACHINESOFTWAREAutoIt v3AutoIt", "Include", "REG_SZ", GUICtrlRead($h_UserIncludeDirectory))
Local $T_Commands = "RegWrite('HKEY_LOCAL_MACHINESOFTWAREAutoIt v3AutoIt', 'Include', 'REG_SZ'," & GUICtrlRead($h_UserIncludeDirectory) & ")"
RunReqAdmin($T_Commands)
EndIf
Case $rc = $h_UserIncludeDirectory_Button
GUISetState(@SW_HIDE)
$NewDir = FileSelectFolder("Select the User Include directory:", "", 4, GUICtrlRead($h_UserIncludeDirectory))
If @error = 0 Then
GUICtrlSetData($h_UserIncludeDirectory, $NewDir)
RegWrite("HKEY_CURRENT_USERSOFTWAREAutoIt v3AutoIt", "Include", "REG_SZ", $NewDir)
If RegRead("HKEY_LOCAL_MACHINESOFTWAREAutoIt v3AutoIt", "Include") <> "" Then
RegWrite("HKEY_LOCAL_MACHINESOFTWAREAutoIt v3AutoIt", "Include", "REG_SZ", $NewDir)
EndIf
EndIf
GUISetState(@SW_SHOW)
;
Case $rc = $h_PLoaded
If GUICtrlRead($h_PLoaded) = $GUI_CHECKED Then
RunReqAdmin('RunWait("' & FileGetShortName($SciTE_Dir & "defsUpdateDefs.exe") & ' prod")')
;~ RunWait(FileGetShortName($SciTE_Dir & "defsUpdateDefs.exe") & " prod")
EndIf
If FileGetSize($SciTE_Dir & "propertiesau3.keywords.properties") = FileGetSize($SciTE_Dir & "DefsProductionau3.keywords.properties") Then
GUICtrlSetState($h_PLoaded, $GUI_CHECKED)
Else
GUICtrlSetState($h_BLoaded, $GUI_CHECKED)
EndIf
Reload_Config()
;
Case $rc = $h_BLoaded
If GUICtrlRead($h_BLoaded) = $GUI_CHECKED Then
RunReqAdmin('RunWait("' & FileGetShortName($SciTE_Dir & "defsUpdateDefs.exe") & ' beta")')
;~ RunWait(FileGetShortName($SciTE_Dir & "defsUpdateDefs.exe") & " beta")
EndIf
If FileGetSize($SciTE_Dir & "au3.keywords.properties") = FileGetSize($SciTE_Dir & "DefsProductionau3.keywords.properties") Then
GUICtrlSetState($h_PLoaded, $GUI_CHECKED)
Else
GUICtrlSetState($h_BLoaded, $GUI_CHECKED)
EndIf
;
Case $rc = $H_Use_Tabs
$Use_Tabs = Not $Use_Tabs
;
Case $rc = $H_Syn_Mono Or $rc = $H_Syn_Prop
$SYN_Font_Mono_ON = Not $SYN_Font_Mono_ON
Update_Window()
;
Case $rc = $H_Syn_Mono_Change
$Return = Select_Font($SYN_Font_Mono_Type, $SYN_Font_Mono_Size)
Update_Window()
;
Case $rc = $H_Syn_Prop_Change
$Return = Select_Font($SYN_Font_Prop_Type, $SYN_Font_Prop_Size)
Update_Window()
;
Case $rc = $H_Background_Color
$tempcolor = SelectColor($Background_Color, $Background_Color)
If $tempcolor <> 0 Then $Background_Color = $tempcolor
Update_Window()
;GUICtrlSetBkColor($H_Background_Label, $Background_Color)
;GUICtrlSetData($H_Background_Label, "Background Color:" & StringLower($Background_Color))
;
Case $rc = $H_CaretLine_Color
$tempcolor = SelectColor($CaretLine_Color, $CaretLine_Color)
If $tempcolor <> 0 Then $CaretLine_Color = $tempcolor
GUICtrlSetBkColor($H_CaretLine_Label, $CaretLine_Color)
GUICtrlSetData($H_CaretLine_Label, "Caret line Color:" & StringLower($CaretLine_Color))
Case $rc = $H_Selection_Color
$tempcolor = SelectColor($Selection_Color, $Selection_Color)
If $tempcolor <> 0 Then $Selection_Color = $tempcolor
GUICtrlSetColor($H_Selection_Label, $Selection_Color)
Case $rc = $H_Selection_BkColor
$tempcolor = SelectColor($Selection_BkColor, $Selection_BkColor)
If $tempcolor <> 0 Then $Selection_BkColor = $tempcolor
GUICtrlSetBkColor($H_Selection_Label, _AlphaFactor($Selection_BkColor))
Case $rc = $H_SciTE4AutoIT3Updates
CheckForUpdates(0)
EndSelect
; Check if one of the checkboxes is clicked
For $x = 1 To 16
If $rc = $H_Syn_bColor_Standard[$x] Then
$Syn_bColor_Default[$x] = GUICtrlRead($H_Syn_bColor_Standard[$x])
If GUICtrlRead($H_Syn_bColor_Standard[$x]) = $GUI_CHECKED Then
GUICtrlSetState($H_Syn_bColor[$x], $GUI_DISABLE)
$Syn_bColor[$x] = $Background_Color
GUICtrlSetBkColor($H_Syn_Label[$x], $Syn_bColor[$x])
Else
GUICtrlSetState($H_Syn_bColor[$x], $GUI_ENABLE)
EndIf
EndIf
If $rc = $H_Syn_Bold[$x] Then $Syn_Bold[$x] = Not $Syn_Bold[$x]
If $rc = $H_Syn_Italic[$x] Then $Syn_Italic[$x] = Not $Syn_Italic[$x]
If $rc = $H_Syn_Underline[$x] Then $Syn_Underline[$x] = Not $Syn_Underline[$x]
If $rc = $H_Syn_fColor[$x] Then
$tempcolor = SelectColor($Syn_Label[$x], $Syn_fColor[$x])
$Syn_fColor[$x] = $tempcolor
GUICtrlSetColor($H_Syn_Label[$x], $Syn_fColor[$x])
EndIf
If $rc = $H_Syn_bColor[$x] Then
$tempcolor = SelectColor($Syn_Label[$x], $Syn_bColor[$x])
$Syn_bColor[$x] = $tempcolor
GUICtrlSetBkColor($H_Syn_Label[$x], $Syn_bColor[$x])
EndIf
If $rc = $H_Syn_Bold[$x] Or $rc = $H_Syn_Italic[$x] Or $rc = $H_Syn_Underline[$x] _
Or $rc = $H_Syn_fColor[$x] Or $rc = $H_Syn_bColor[$x] Then
GUICtrlSetFont($H_Syn_Label[$x], $SYN_Font_Size, 400 + $Syn_Bold[$x] * 200, $Syn_Italic[$x] * 2 + $Syn_Underline[$x] * 4, $SYN_Font_Type)
EndIf
Next
; I would normally look for EN_CHANGE but thought this was less complicated
If GUICtrlRead($H_Selection_Alpha) <> $Selection_Alpha Then
$Selection_Alpha = GUICtrlRead($H_Selection_Alpha)
GUICtrlSetBkColor($H_Selection_Label, _AlphaFactor($Selection_BkColor))
EndIf
WEnd
Exit
;
;*****************************************************************************
; Update Window info
;*****************************************************************************
Func Update_Window()
Local $x
GUICtrlSetData($H_Syn_Mono, "Monospace Font:" & $SYN_Font_Mono_Type)
GUICtrlSetData($H_Syn_Prop, "Proportional Font:" & $SYN_Font_Prop_Type)
GUICtrlSetData($H_Syn_Mono_Size, "Size:" & $SYN_Font_Mono_Size)
GUICtrlSetData($H_Syn_Prop_Size, "Size:" & $SYN_Font_Prop_Size)
If $ProperCase = 1 Then
GUICtrlSetState($H_ProperCase, 1)
Else
GUICtrlSetState($H_ProperCase, 4)
EndIf
If $CheckuUpdatesSciTE4AutoIt3 = 1 Then
GUICtrlSetState($H_CheckUpdatesSciTE4AutoIt3, 1)
Else
GUICtrlSetState($H_CheckUpdatesSciTE4AutoIt3, 4)
EndIf
If $SYN_Font_Mono_ON = 1 Then
GUICtrlSetState($H_Syn_Mono, 1)
GUICtrlSetState($H_Syn_Prop, 4)
$SYN_Font_Type = $SYN_Font_Mono_Type
$SYN_Font_Size = $SYN_Font_Mono_Size
Else
GUICtrlSetState($H_Syn_Mono, 4)
GUICtrlSetState($H_Syn_Prop, 1)
$SYN_Font_Type = $SYN_Font_Prop_Type
$SYN_Font_Size = $SYN_Font_Prop_Size
EndIf
If $Use_Tabs = 1 Then
GUICtrlSetState($H_Use_Tabs, 1)
Else
GUICtrlSetState($H_Use_Tabs, 4)
EndIf
GUICtrlSetBkColor($H_Background_Label, $Background_Color)
GUICtrlSetBkColor($H_CaretLine_Label, $CaretLine_Color)
GUICtrlSetColor($H_Selection_Label, $Selection_Color)
GUICtrlSetBkColor($H_Selection_Label, _AlphaFactor($Selection_BkColor))
For $x = 1 To 16
GUICtrlSetColor($H_Syn_Label[$x], $Syn_fColor[$x])
If $Syn_bColor_Default[$x] = $GUI_CHECKED Then
$Syn_bColor[$x] = $Background_Color
GUICtrlSetState($H_Syn_bColor_Standard[$x], $GUI_CHECKED)
GUICtrlSetState($H_Syn_bColor[$x], $GUI_DISABLE)
Else
GUICtrlSetState($H_Syn_bColor[$x], $GUI_UNCHECKED)
GUICtrlSetState($H_Syn_bColor[$x], $GUI_ENABLE)
EndIf
GUICtrlSetBkColor($H_Syn_Label[$x], $Syn_bColor[$x])
GUICtrlSetFont($H_Syn_Label[$x], $SYN_Font_Size, 400 + $Syn_Bold[$x] * 200, $Syn_Italic[$x] * 2 + $Syn_Underline[$x] * 4, $SYN_Font_Type)
;GUICtrlSetFont($H_Syn_Label[$x], $SYN_Font_Size, 400 + $Syn_Bold[$x] * 200, $Syn_Italic[$x] * 2 + $Syn_Underline[$x] * 4, $SYN_Font_Type)
If $Syn_Bold[$x] Then
GUICtrlSetState($H_Syn_Bold[$x], 1)
Else
GUICtrlSetState($H_Syn_Bold[$x], 4)
EndIf
If $Syn_Italic[$x] Then
GUICtrlSetState($H_Syn_Italic[$x], 1)
Else
GUICtrlSetState($H_Syn_Italic[$x], 4)
EndIf
If $Syn_Underline[$x] Then
GUICtrlSetState($H_Syn_Underline[$x], 1)
Else
GUICtrlSetState($H_Syn_Underline[$x], 4)
EndIf
Next
EndFunc ;==>Update_Window
;
Func Get_Current_config()
Local $z, $y, $x
; Init background colors
$Background_Color = "0xffffff"
$CaretLine_Color = "0xFF0000"
$Selection_Color = ""
$Selection_BkColor = ""
$Selection_Alpha = 50
; init array
For $z = 1 To 16
$Syn_fColor[$z] = "0x000000"
$Syn_bColor[$z] = ""
$Syn_Bold[$z] = 0
$Syn_Italic[$z] = 0
$Syn_Underline[$z] = 0
Next
;
$Backups = Number(SendSciTE_GetInfo($My_Hwnd, $SciTE_hwnd, "askproperty:backup.files"))
$ProperCase = Number(SendSciTE_GetInfo($My_Hwnd, $SciTE_hwnd, "askproperty:proper.case"))
$CheckuUpdatesSciTE4AutoIt3 = Number(SendSciTE_GetInfo($My_Hwnd, $SciTE_hwnd, "askproperty:check.updates.scite4autoit3"))
$Use_Tabs = Number(SendSciTE_GetInfo($My_Hwnd, $SciTE_hwnd, "askproperty:use.tabs"))
$Tab_Size = Number(SendSciTE_GetInfo($My_Hwnd, $SciTE_hwnd, "askproperty:tabsize"))
;
$rest = SendSciTE_GetInfo($My_Hwnd, $SciTE_hwnd, "askproperty:style.au3.32")
If StringInStr($rest, "back:") Then
$Background_Color = StringTrimLeft($rest, StringInStr($rest, "back:") + 4)
$Background_Color = StringReplace($Background_Color, "#", "0X")
EndIf
If $Background_Color = "" Then
$rest = SendSciTE_GetInfo($My_Hwnd, $SciTE_hwnd, "askproperty:style.*.32")
If StringInStr($rest, "back:") Then
$Background_Color = StringTrimLeft($rest, StringInStr($rest, "back:") + 4)
$Background_Color = StringReplace($Background_Color, "#", "0X")
EndIf
EndIf
If $Selection_Color = "" Then
$Selection_Color = SendSciTE_GetInfo($My_Hwnd, $SciTE_hwnd, "askproperty:selection.fore")
$Selection_Color = StringReplace($Selection_Color, "#", "0X")
EndIf
If $Selection_BkColor = "" Then
$Selection_BkColor = SendSciTE_GetInfo($My_Hwnd, $SciTE_hwnd, "askproperty:selection.back")
$Selection_BkColor = StringReplace($Selection_BkColor, "#", "0X")
EndIf
If $Selection_Alpha <> 50 Then
$Selection_Alpha = SendSciTE_GetInfo($My_Hwnd, $SciTE_hwnd, "askproperty:selection.alpha")
$Selection_Alpha = Number($Selection_Alpha)
EndIf
$CaretLine_Color = SendSciTE_GetInfo($My_Hwnd, $SciTE_hwnd, "askproperty:caret.line.back")
$CaretLine_Color = StringReplace($CaretLine_Color, "#", "0X")
For $StyleNbr = 1 To 16
$rest = SendSciTE_GetInfo($My_Hwnd, $SciTE_hwnd, "askproperty:style.au3." & $StyleNbr - 1)
$Style = StringSplit(StringTrimLeft($rest, StringInStr($rest, "=")), ",")
$Syn_Italic[$StyleNbr] = 0
$Syn_Bold[$StyleNbr] = 0
$Syn_Underline[$StyleNbr] = 0
For $y = 1 To $Style[0]
If $Style[$y] = "italics" Then $Syn_Italic[$StyleNbr] = 1
If $Style[$y] = "bold" Then $Syn_Bold[$StyleNbr] = 1
If $Style[$y] = "underlined" Then $Syn_Underline[$StyleNbr] = 1
If StringLeft($Style[$y], 5) = "fore:" Then $Syn_fColor[$StyleNbr] = StringReplace(StringMid($Style[$y], 6), "#", "0X")
If StringLeft($Style[$y], 5) = "back:" Then $Syn_bColor[$StyleNbr] = StringReplace(StringMid($Style[$y], 6), "#", "0X")
Next
Next
; get the windows font section
;font.base=font:Verdana,size:10,$(font.override)
$rest = SendSciTE_GetInfo($My_Hwnd, $SciTE_hwnd, "askproperty:font.base")
$param = StringSplit($rest, "=,")
For $y = 1 To $param[0]
If StringLeft($param[$y], 5) = "font:" Then $SYN_Font_Prop_Type = StringMid($param[$y], 6)
If StringLeft($param[$y], 5) = "size:" Then $SYN_Font_Prop_Size = StringMid($param[$y], 6)
Next
;font.monospace=font:Courier New,size:10
$rest = SendSciTE_GetInfo($My_Hwnd, $SciTE_hwnd, "askproperty:font.monospace")
$param = StringSplit($rest, "=,")
For $y = 1 To $param[0]
If StringLeft($param[$y], 5) = "font:" Then $SYN_Font_Mono_Type = StringMid($param[$y], 6)
If StringLeft($param[$y], 5) = "size:" Then $SYN_Font_Mono_Size = StringMid($param[$y], 6)
Next
;font.override=$(font.monospace)
;font.base=font:Verdana,size:10,$(font.override)
$rest = SendSciTE_GetInfo($My_Hwnd, $SciTE_hwnd, "askproperty:font.base")
If StringInStr($rest,"$(font.override)") Then
$SYN_Font_Mono_ON = 1
Else
$SYN_Font_Mono_ON = 0
EndIf
;******************************************************************************************************
$Syn_Label[1] = "White space"
$Syn_Label[2] = "Comment line"
$Syn_Label[3] = "Comment block"
$Syn_Label[4] = "Number"
$Syn_Label[5] = "Function"
$Syn_Label[6] = "Keyword"
$Syn_Label[7] = "Macro"
$Syn_Label[8] = "String"
$Syn_Label[9] = "Operator"
$Syn_Label[10] = "Variable"
$Syn_Label[11] = "Sent keys"
$Syn_Label[12] = "Pre-Processor"
$Syn_Label[13] = "Special"
$Syn_Label[14] = "Abbrev-Expand"
$Syn_Label[15] = "Com Objects"
$Syn_Label[16] = "Standard UDF's"
; set the default background
For $x = 1 To 16
If $Syn_bColor[$x] = "" Or $Syn_bColor[$x] = $Background_Color Then
$Syn_bColor[$x] = $Background_Color
$Syn_bColor_Default[$x] = $GUI_CHECKED
EndIf
Next
EndFunc ;==>Get_Current_config
;*****************************************************************************
; Font Selection part
;*****************************************************************************
Func Select_Font(ByRef $FontType, ByRef $FontSize)
Local $a_font
GUISetState(@SW_HIDE)
$a_font = _ChooseFont($FontType, $FontSize)
Local $rc = @error
GUISetState(@SW_SHOW)
If ($rc) Then Return 0
$FontType = $a_font[2]
$FontSize = $a_font[3]
Return 1
EndFunc ;==>Select_Font
;*****************************************************************************
; Color Selection Part
;*****************************************************************************
Func SelectColor($Type, $CurColor)
Local $color
GUISetState(@SW_HIDE)
$color = _ChooseColor(2, $CurColor, 2)
Local $rc = @error
GUISetState(@SW_SHOW)
If ($rc) Then Return $CurColor
Return $color
EndFunc ;==>SelectColor
;*****************************************************************************
; Save info to SciTEUser
;*****************************************************************************
Func Update_SciTE_User($Task)
; Task=0 Remove settings In SciTEUser.properties
; Task=1 Add/Update settings In SciTEUser.properties
Local $x, $y
$UserDir = @UserProfileDir
If @OSTYPE = "WIN32_WINDOWS" Then $UserDir = $SciTE_Dir
$au3Prop = $UserDir & "SciTEUser.properties"
$H_au3Prop = FileOpen($au3Prop, 0)
$H_au3PropNew = FileOpen($au3Prop & ".New", 2)
;
$SciTEConfigSec = 0
; copy all SciTEUser info To new SciTEuser.properties except old Settings...
If $H_au3Prop <> -1 Then
While 1
$Irec = FileReadLine($H_au3Prop)
If @error = -1 Then ExitLoop
;
If $Irec = "# DO NOT CHANGE ANYTHING BETWEEN THESE LINES #-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#" _
Or $Irec = "#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#" Then
$SciTEConfigSec = Not $SciTEConfigSec
ContinueLoop
EndIf
If StringInStr($Irec, "style.au3") = 0 And StringInStr($Irec, "Font.") = 0 And $SciTEConfigSec = 0 Then
FileWriteLine($H_au3PropNew, $Irec)
ContinueLoop
EndIf
WEnd
EndIf
If $Task = 1 Then
FileWriteLine($H_au3PropNew, "#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#")
FileWriteLine($H_au3PropNew, "# START: DO NOT CHANGE ANYTHING AFTER THIS LINE #-#-#-#-#")
FileWriteLine($H_au3PropNew, "# Created by SciTEConfig")
FileWriteLine($H_au3PropNew, "#------------------------------------------------------------")
If $SYN_Font_Mono_ON = 1 Then
FileWriteLine($H_au3PropNew, "font.base=font:" & $SYN_Font_Prop_Type & ",size:" & $SYN_Font_Prop_Size & ",$(font.override)")
Else
FileWriteLine($H_au3PropNew, "font.base=font:" & $SYN_Font_Prop_Type & ",size:" & $SYN_Font_Prop_Size)
EndIf
FileWriteLine($H_au3PropNew, "font.monospace=font:" & $SYN_Font_Mono_Type & ",size:" & $SYN_Font_Mono_Size)
;Backup Info
If GUICtrlRead($h_Backups) > 0 Then
FileWriteLine($H_au3PropNew, "backup.files=" & GUICtrlRead($h_Backups))
EndIf
;propercase info
If GUICtrlRead($H_ProperCase) = 1 Then
FileWriteLine($H_au3PropNew, "proper.case=1")
Else
FileWriteLine($H_au3PropNew, "proper.case=0")
EndIf
;Check for updates
If GUICtrlRead($H_CheckUpdatesSciTE4AutoIt3) = 1 Then
FileWriteLine($H_au3PropNew, "check.updates.scite4autoit3=1")
Else
FileWriteLine($H_au3PropNew, "check.updates.scite4autoit3=0")
EndIf
;Tabs info
If $Use_Tabs = 1 Then
FileWriteLine($H_au3PropNew, "use.tabs=1")
Else
FileWriteLine($H_au3PropNew, "use.tabs=0")
EndIf
$Tab_Size = GUICtrlRead($H_Tab_Size)
If Number($Tab_Size) > 0 Then
FileWriteLine($H_au3PropNew, "indent.size=" & $Tab_Size)
FileWriteLine($H_au3PropNew, "indent.size.*.au3=" & $Tab_Size)
FileWriteLine($H_au3PropNew, "tabsize=" & $Tab_Size)
EndIf
; BackGround color
FileWriteLine($H_au3PropNew, "#Background")
$Orec = "style.au3.32=style.*.32=$(font.base)"
If $Background_Color <> "" And $Background_Color <> "0XFFFFFF" Then $Orec = $Orec & ",back:#" & StringTrimLeft($Background_Color, 2)
FileWriteLine($H_au3PropNew, $Orec)
; caretline color
If $CaretLine_Color <> "" And $CaretLine_Color <> "0XFFFFFF" Then
FileWriteLine($H_au3PropNew, "#CaretLineBackground")
FileWriteLine($H_au3PropNew, "caret.line.back=#" & StringTrimLeft($CaretLine_Color, 2))
EndIf
; Selection color
FileWriteLine($H_au3PropNew, "#Selection Foreground/background and Alpha")
FileWriteLine($H_au3PropNew, "selection.fore=#" & StringTrimLeft($Selection_Color, 2))
FileWriteLine($H_au3PropNew, "selection.alpha=" & $Selection_Alpha)
FileWriteLine($H_au3PropNew, "selection.back=#" & StringTrimLeft($Selection_BkColor, 2))
;Write bracket color
;~ #
FileWriteLine($H_au3PropNew, "# Brace highlight")
$y = 6
$Orec = "style.au3.34=fore:#" & StringTrimLeft($Syn_fColor[$y], 2)
If $Syn_Italic[$y] Then $Orec = $Orec & ",italics"
If $Syn_Bold[$y] Then $Orec = $Orec & ",bold"
If $Syn_Underline[$y] Then $Orec = $Orec & ",underlined"
If $Syn_bColor[$y] <> "" And $Syn_bColor[$y] <> "0XFFFFFF" Then $Orec = $Orec & ",back:#" & StringTrimLeft($Syn_bColor[$y], 2)
FileWriteLine($H_au3PropNew, $Orec)
FileWriteLine($H_au3PropNew, "# Brace incomplete highlight")
$y = 2
$Orec = "style.au3.35=fore:#" & StringTrimLeft($Syn_fColor[$y], 2)
If $Syn_Italic[$y] Then $Orec = $Orec & ",italics"
If $Syn_Bold[$y] Then $Orec = $Orec & ",bold"
If $Syn_Underline[$y] Then $Orec = $Orec & ",underlined"
If $Syn_bColor[$y] <> "" And $Syn_bColor[$y] <> "0XFFFFFF" Then $Orec = $Orec & ",back:#" & StringTrimLeft($Syn_bColor[$y], 2)
FileWriteLine($H_au3PropNew, $Orec)
For $y = 1 To 16
;# Comment block
;style.au3.2=fore:#669900,italics
FileWriteLine($H_au3PropNew, "#" & $Syn_Label[$y])
$Orec = "style.au3." & $y - 1 & "=fore:#" & StringTrimLeft($Syn_fColor[$y], 2)
If $Syn_Italic[$y] Then $Orec = $Orec & ",italics"
If $Syn_Bold[$y] Then $Orec = $Orec & ",bold"
If $Syn_Underline[$y] Then $Orec = $Orec & ",underlined"
;If $Syn_bColor[$y] <> $Background_Color And $Syn_bColor[$y] <> "0XFFFFFF" Then $Orec = $Orec & ",back:#" & StringTrimLeft($Syn_bColor[$y], 2)
$Orec = $Orec & ",back:#" & StringTrimLeft($Syn_bColor[$y], 2)
FileWriteLine($H_au3PropNew, $Orec)
Next
FileWriteLine($H_au3PropNew, "# END => DO NOT CHANGE ANYTHING BEFORE THIS LINE #-#-#-#-#-#")
FileWriteLine($H_au3PropNew, "#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#")
EndIf
If $H_au3Prop <> -1 Then
FileClose($H_au3Prop)
FileMove($UserDir & "SciTEUser.properties", $UserDir & "SciTEUser.properties.old", 1)
EndIf
FileClose($H_au3PropNew)
FileMove($UserDir & "SciTEUser.properties.new", $UserDir & "SciTEUser.properties", 1)
Reload_Config()
EndFunc ;==>Update_SciTE_User
;
Func Reload_Config()
Opt("WinSearchChildren", 1)
;Send SciTE Director my GUI handle so it will report info back from SciTE
SendSciTE_Command(0, $SciTE_hwnd, "reloadproperties:")
EndFunc ;==>Reload_Config
;
Func Update_User_Properties($Property, $value)
Opt("WinSearchChildren", 1)
; Get SciTE DirectorHandle
$SciTE_hwnd = WinGetHandle("DirectorExtension")
;Send SciTE Director my GUI handle so it will report info back from SciTE
SendSciTE_Command(0, $SciTE_hwnd, "property:user:style.au3." & $Property & "=" & $value)
EndFunc ;==>Update_User_Properties
;
;
Func SendSciTE_GetInfo($My_Hwnd, $SciTE_hwnd, $sCmd)
$My_Dec_Hwnd = Dec(StringTrimLeft($My_Hwnd, 2))
$sCmd = ":" & $My_Dec_Hwnd & ":" & $sCmd
$SciTECmd = ""
SendSciTE_Command($My_Hwnd, $SciTE_hwnd, $sCmd)
For $x = 1 To 10
If $SciTECmd <> "" Then ExitLoop
Sleep(20)
Next
$SciTECmd = StringTrimLeft($SciTECmd, StringLen(":" & $My_Dec_Hwnd & ":"))
$SciTECmd = StringReplace($SciTECmd, "macro:stringinfo:", "")
Return $SciTECmd
EndFunc ;==>SendSciTE_GetInfo
;
Func SciTE_Update_Property($My_Hwnd, $SciTE_hwnd, $key, $value)
$My_Dec_Hwnd = Dec(StringTrimLeft($My_Hwnd, 2))
Local $sCmd = ":" & $My_Dec_Hwnd & ":" & "property:" & $key & "=" & $value
SendSciTE_Command($My_Hwnd, $SciTE_hwnd, $sCmd)
EndFunc ;==>SciTE_Update_Property
;
Func SendSciTE_Command($My_Hwnd, $SciTE_hwnd, $sCmd)
Local $WM_COPYDATA = 74
Local $CmdStruct = DllStructCreate('Char[' & StringLen($sCmd) + 1 & ']')
;ConsoleWrite('-->' & $sCmd & @lf )
DllStructSetData($CmdStruct, 1, $sCmd)
Local $COPYDATA = DllStructCreate('Ptr;DWord;Ptr')
DllStructSetData($COPYDATA, 1, 1)
DllStructSetData($COPYDATA, 2, StringLen($sCmd) + 1)
DllStructSetData($COPYDATA, 3, DllStructGetPtr($CmdStruct))
DllCall('User32.dll', 'None', 'SendMessage', 'HWnd', $SciTE_hwnd, _
'Int', $WM_COPYDATA, 'HWnd', $My_Hwnd, _
'Ptr', DllStructGetPtr($COPYDATA))
EndFunc ;==>SendSciTE_Command
; Received Data from SciTE
Func MY_WM_COPYDATA($hWnd, $msg, $wParam, $lParam)
Local $COPYDATA = DllStructCreate('Ptr;DWord;Ptr', $lParam)
$SciTECmdLen = DllStructGetData($COPYDATA, 2)
Local $CmdStruct = DllStructCreate('Char[255]', DllStructGetData($COPYDATA, 3))
$SciTECmd = StringLeft(DllStructGetData($CmdStruct, 1), $SciTECmdLen)
;ConsoleWrite('<--' & $SciTECmd & @lf )
;GUICtrlSetData($list,GUICtrlRead($list) & '<--' & $SciTECmd & @CRLF )
EndFunc ;==>MY_WM_COPYDATA
; Check for the availablility of New installers for SciTE4AutoIT3
Func CheckForUpdates($Silent = 1)
$rc = InetGet('http://www.autoitscript.com/autoit3/scite/download/scite4autoit3version.ini', $SciTE_Dir & "scite4autoit3versionWeb.ini", 1)
If $rc Then
$SciTE4AutoIt3WebDate = IniRead($SciTE_Dir & "scite4autoit3versionWeb.ini", 'SciTE4AutoIt3', 'Date', '')
$SciTE4Au3UpdWebDate = IniRead($SciTE_Dir & "scite4autoit3versionWeb.ini", 'SciTE4Au3Upd', 'Date', '')
$SciTE4AutoIt3RegDate = RegRead("HKLMSoftwareMicrosoftWindowsCurrentversionUninstallSciTE4AutoIt3", 'DisplayVersion')
$SciTE4AutoIt3Date = IniRead($SciTE_Dir & "SciTEVersion.ini", 'SciTE4AutoIt3', 'Date', '')
$SciTE4Au3UpdDate = IniRead($SciTE_Dir & "SciTEVersion.ini", 'SciTE4Au3Upd', 'Date', '')
; If the INI date is blank then use the registry Date
If $SciTE4AutoIt3Date = "" Then
; If registry date is empty then assume the installer is never used and thus exit.
If $SciTE4AutoIt3RegDate = "" Then
If $Silent = 0 Then MsgBox(0 + 262144, "SciTE4AutoIt3", "No updates available.")
Exit
EndIf
$SciTE4AutoIt3Date = $SciTE4AutoIt3RegDate
IniWrite($SciTE_Dir & "SciTEConfig.ini", 'SciTE4AutoIt3', 'Date', $SciTE4AutoIt3Date)
EndIf
; Check for updated SciTE4AutoIt3 Installer
If $SciTE4AutoIt3WebDate <> $SciTE4AutoIt3Date Then
$msg = "Your SciTE4AutoIt3 version is " & $SciTE4AutoIt3Date & @LF & @LF & _
"The latest SciTE4AutoIt3 version is " & $SciTE4AutoIt3WebDate & @LF & @LF & _
"Do you want to go to the SciTE4AutoIt3 Download page?"
If MsgBox(4 + 262144, "New SciTE4AutoIt3 installer available", $msg) = 6 Then
Run(@ComSpec & " /c start http://www.autoitscript.com/autoit3/scite/downloads.shtml", '', @SW_HIDE)
EndIf
Else
; Check for Patch updates
If $SciTE4Au3UpdWebDate <> "" And $SciTE4Au3UpdWebDate <> $SciTE4Au3UpdDate Then
$msg = "There is a SciTE4Au3Upd installer available dated: " & $SciTE4Au3UpdWebDate & @LF & _
"Do you want to go to the SciTE4AutoIt3 Download page?"
If MsgBox(4 + 262144, "New SciTE4Au3Upd installer available", $msg) = 6 Then
Run(@ComSpec & " /c start http://www.autoitscript.com/autoit3/scite/downloads.shtml", '', @SW_HIDE)
EndIf
Else
If $Silent = 0 Then MsgBox(262144, "SciTE4AutoIt3", "No updates available.")
EndIf
EndIf
Else
If $Silent = 0 Then MsgBox(262144, "SciTE4AutoIt3", "Not able to connect to WebSite.")
EndIf
EndFunc ;==>CheckForUpdates
; Tools Selection Tab related
Func SciteToolsFileRead($file_au3properties)
Local $comment = '#~ ', $handle_read, $line, $split, $total
; Open Au3.properties for Read
$handle_read = FileOpen($file_au3properties, 0)
If $handle_read = -1 Then
ConsoleWrite('Unable to open for read ' & $file_au3properties & @CRLF)
Return SetError(1, 0, '')
EndIf
; Read Tools headers from Au3.properties
While True
$line = FileReadLine($handle_read)
If @error Then ExitLoop
$line = StringStripWS($line, 3)
If Not $line Then
ContinueLoop
ElseIf StringRegExp($line, $comment & '# [0-9]{1,2}') Or StringRegExp($line, '# [0-9]{1,2}') Then
$total &= $line & '|'
EndIf
WEnd
FileClose($handle_read)
; Remove last pipe char
If StringRight($total, 1) = '|' Then
$total = StringTrimRight($total, 1)
EndIf
; Split Tools headers into an Array
$split = StringSplit($total, '|')
Return SetError(@error, @extended, $split)
EndFunc ;==>SciteToolsFileRead
;
Func SciteToolsFileWrite($file_au3properties)
; Process Au3.properties with selections made
Local $check, $comment = '#~ ', $debug
Local $done, $file_temp, $handle_read, $handle_write, $i
Local $line, $checkbox_state, $checkbox_text
Dim $checkbox
If Not FileExists($file_au3properties) Then Return
$file_temp = _TempFile()
$handle_read = FileOpen($file_au3properties, 0)
If $handle_read = -1 Then
ConsoleWrite('Unable to open for read ' & $file_au3properties & @LF)
Return
EndIf
$handle_write = FileOpen($file_temp, 2)
If $handle_read = -1 Then
ConsoleWrite('Unable to open for write ' & $file_temp & @LF)
FileClose($handle_read)
Return
EndIf
;
While True
$line = FileReadLine($handle_read)
If @error Then ExitLoop
$tline = StringStripWS($line, 3)
Switch $tline
Case '', '#', '##'
; Write line then loop again
FileWriteLine($handle_write, $line)
ContinueLoop
Case '# Standard LUA Functions', 'extension.$(file.patterns.au3)=$(SciteDefaultHome)AutoIt3.lua'
; Write line then loop again
FileWriteLine($handle_write, $line)
ContinueLoop
Case '# Commands to for Help F1'
; After help line shows, then just write the rest of the file
FileWriteLine($handle_write, $line)
While 1
$line = FileReadLine($handle_read)
If @error Then ExitLoop 2
FileWriteLine($handle_write, $line)
WEnd
ExitLoop
Case 'if BETA_AUTOIT' ; Skip Beta Tools
$done = False
FileWriteLine($handle_write, $line)
ContinueLoop
EndSwitch
Switch StringRegExp($tline, '##? [0-9]{1,2}')
Case True
; Found a Tools line so enable or disable it
$done = True
For $i = 1 To UBound($checkbox) - 1 ;$split[0]
$checkbox_state = GUICtrlRead($checkbox[$i])
$checkbox_text = GUICtrlRead($checkbox[$i], 1)
; Match the the line to a TreeView item
If StringInStr($line, $checkbox_text) Then
; Reset line status
$check = 0
If StringLeft($line, 3) = $comment Then
If BitAND($checkbox_state, $GUI_CHECKED) = $GUI_CHECKED Then; is commented
; UnComment line
While StringLeft($line, 3) = $comment
$line = StringTrimLeft($line, 3)
WEnd
$check = -1
EndIf
ElseIf BitAND($checkbox_state, $GUI_UNCHECKED) = $GUI_UNCHECKED Then; is not commented
; Comment line
While Not (StringLeft($line, 3) = $comment)
$line = $comment & $line
WEnd
$check = 1
EndIf
IniWrite(@ScriptDir & 'SciteTools.ini', 'Tools Selection Tab', $i, $line)
If $debug Then
If $check = 1 Then
$debug_1 = 'Disabled '
ElseIf $check = -1 Then
$debug_1 = 'Enabled '
Else
ExitLoop
EndIf
ConsoleWrite($debug_1 & ' ' & StringTrimLeft($checkbox_text, 3) & @LF)
EndIf
ExitLoop
EndIf
Next
Case Else
; Command lines for Tools which are enabled or disabled
If $done Then
If $check = -1 Then
; Trim comment
While StringLeft($line, 3) = $comment
$line = StringTrimLeft($line, 3)
WEnd
ElseIf $check = 1 Then
; Add comment
While Not (StringLeft($line, 3) = $comment)
$line = $comment & $line
WEnd
EndIf
EndIf
EndSwitch
FileWriteLine($handle_write, $line)
WEnd
;
FileClose($handle_read)
FileClose($handle_write)
Sleep(50)
;~ If Not FileWrite($file_au3properties, " ") Then
;~ Local $temp_Script = _TempFile(@TempDir, "~", ".au3")
;~ MsgBox(262144, "Need Admin mode", "Admin mode is needed to update au3.properties. Answer the following prompts to allow the update.")
;~ FileWriteLine($temp_Script, '#RequireAdmin')
;~ FileWriteLine($temp_Script, "FileCopy('" & $file_au3properties & "','" & $file_au3properties & "_old" & "', 1)")
;~ FileWriteLine($temp_Script, "FileDelete('" & $file_au3properties & "')")
;~ FileWriteLine($temp_Script, "FileCopy('" & $file_temp & "','" & $file_au3properties & "', 1)")
;~ FileWriteLine($temp_Script, "FileDelete('" & $file_temp & "')")
;~ RunWait('"' & @ScriptFullPath & '" /AutoIt3ExecuteScript "' & $temp_Script & '"')
;~ While FileExists($file_temp)
;~ Sleep(50)
;~ WEnd
;~ FileDelete($temp_Script)
Local $T_Commands
$T_Commands &= "FileCopy('" & $file_au3properties & "','" & $file_au3properties & "_old" & "', 1)" & @CRLF
$T_Commands &= "FileDelete('" & $file_au3properties & "')" & @CRLF
$T_Commands &= "FileCopy('" & $file_temp & "','" & $file_au3properties & "', 1)" & @CRLF
$T_Commands &= "FileDelete('" & $file_temp & "')"
RunReqAdmin($T_Commands)
;~ Else
;~ FileMove($file_au3properties, $file_au3properties & "_old")
;~ FileMove($file_temp, $file_au3properties, 1)
;~ FileDelete($file_temp)
;~ EndIf
EndFunc ;==>SciteToolsFileWrite
Func SelectNewScheme()
; Task=0 Remove settings In SciTEUser.properties
; Task=1 Add/Update settings In SciTEUser.properties
; Find all default scheme's
Local $Schemes = " [NoChange]"
Local $s_name
Local $search = FileFindFirstFile(@ScriptDir & "*.SciTEConfig")
Local $SaveUserSettings = ""
; Check if the search was successful
If $search = -1 Then
; No default schema's found so just remove the personal settings and revert to the au3.properties.
If 6 = MsgBox(4 + 262144, 'SciTE Config', 'There are no *.SciTEConfig files available, do you want to Remove the user settings and revert to the standard SciTE4AutoIt3 setting?') Then
Update_SciTE_User(0)
EndIf
Return
EndIf
;
While 1
$file = FileFindNextFile($search)
If @error Then ExitLoop
$s_name = StringMid(FileReadLine(@ScriptDir & "" & $file, 3), 3)
If StringLeft($file, 2) = "[L" Then
$Schemes &= "| " & StringReplace($file, ".SciteConfig", "") & " ==> Last modified User Settings"
Else
$Schemes &= "|" & StringReplace($file, ".SciteConfig", "") & " ==> " & $s_name
EndIf
WEnd
;
FileClose($search)
;
$gui2 = GUICreate("Select new default Color/Font Scheme", 500, 100, -1, -1, $WS_CAPTION, $WS_EX_TOPMOST)
GUICtrlCreateLabel("Select new default Color/Font Scheme.", 30, 10)
$h_Scheme = GUICtrlCreateCombo("", 30, 35, 460, 80, $CBS_DROPDOWN + $CBS_AUTOHSCROLL + $WS_VSCROLL + $CBS_SORT)
GUICtrlSetData(-1, $Schemes, " [NoChange]")
Local $h_Ok = GUICtrlCreateButton("Ok", 155, 60, 80, 33, 0)
GUICtrlSetState(-1, $GUI_DEFBUTTON)
Local $h_Cancel = GUICtrlCreateButton("Cancel", 265, 60, 80, 33, 0)
GUISetState(@SW_SHOW, $gui2)
Local $rc
While 1
$nMsg = GUIGetMsg()
Select
Case $nMsg = $GUI_EVENT_CLOSE Or $nMsg = $h_Cancel
$rc = 9
ExitLoop
Case $nMsg = $h_Ok
$rc = 1
ExitLoop
EndSelect
WEnd
Local $SchemeFile = GUICtrlRead($h_Scheme)
GUIDelete($gui2)
;
If $rc = 9 Then Return
;
If StringInStr($SchemeFile, " ==> ") Then $SchemeFile = StringLeft($SchemeFile, StringInStr($SchemeFile, " ==> ") - 1) & ".SciteConfig"
If $SchemeFile = " [NoChange]" Then Return
;
Local $x, $y
$UserDir = @UserProfileDir
If @OSTYPE = "WIN32_WINDOWS" Then $UserDir = @ScriptDir
$au3Prop = $UserDir & "SciTEUser.properties"
$H_au3Prop = FileOpen($au3Prop, 0)
$H_au3PropNew = FileOpen($au3Prop & ".New", 2)
;
$SchemeFile = StringStripWS($SchemeFile, 3)
$H_au3PropScheme = FileOpen(@ScriptDir & "" & $SchemeFile, 0)
;
$SciTEConfigSec = 0
; copy all SciTEUser info To new SciTEuser.properties except old Settings...
If $H_au3Prop <> -1 Then
While 1
$Irec = FileReadLine($H_au3Prop)
If @error = -1 Then ExitLoop
;
If $Irec = "# DO NOT CHANGE ANYTHING BETWEEN THESE LINES #-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#" _
Or $Irec = "#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#" Then
$SciTEConfigSec = Not $SciTEConfigSec
If $SchemeFile <> "[Last_User_setting].SciTEConfig" Then $SaveUserSettings &= $Irec & @CRLF
ContinueLoop
EndIf
If Not $SciTEConfigSec And StringInStr($Irec, "style.au3") = 0 And StringInStr($Irec, "Font.") = 0 Then
FileWriteLine($H_au3PropNew, $Irec)
ContinueLoop
Else
If $SchemeFile <> "[Last_User_setting].SciTEConfig" Then $SaveUserSettings &= $Irec & @CRLF
EndIf
WEnd
EndIf
If $H_au3PropScheme <> -1 Then
While 1
$Irec = FileReadLine($H_au3PropScheme)
If @error = -1 Then ExitLoop
FileWriteLine($H_au3PropNew, $Irec)
WEnd
EndIf
;
If $H_au3Prop <> -1 Then
FileClose($H_au3Prop)
FileMove($UserDir & "SciTEUser.properties", $UserDir & "SciTEUser.properties.old", 1)
EndIf
FileClose($H_au3PropNew)
If $SchemeFile <> "[Last_User_setting].SciTEConfig" Then
If StringInStr($SaveUserSettings, "# Created by SciTEConfig") Then
$H_au3PropScheme_User = FileOpen(@ScriptDir & "[Last_User_setting].SciTEConfig", 2)
FileWrite($H_au3PropScheme_User, $SaveUserSettings)
FileClose($H_au3PropScheme_User)
EndIf
EndIf
FileMove($UserDir & "SciTEUser.properties.new", $UserDir & "SciTEUser.properties", 1)
EndFunc ;==>SelectNewScheme
;
Func RunReqAdmin($Autoit3Commands, $prompt = 1)
Local $temp_Script = _TempFile(@TempDir, "~", ".au3")
Local $temp_check = _TempFile(@TempDir, "~", ".chk")
FileWriteLine($temp_check, 'TempFile')
FileWriteLine($temp_Script, '#NoTrayIcon')
If Not IsAdmin() Then
FileWriteLine($temp_Script, '#RequireAdmin')
If $prompt = 1 Then MsgBox(262144, "Need Admin mode", "Admin mode is needed for this update. Answer the following prompts to allow the update.")
EndIf
FileWriteLine($temp_Script, $Autoit3Commands)
FileWriteLine($temp_Script, "FileDelete('" & $temp_check & "')")
RunWait('"' & @ScriptFullPath & '" /AutoIt3ExecuteScript "' & $temp_Script & '"')
While FileExists($temp_check)
Sleep(50)
WEnd
FileDelete($temp_Script)
EndFunc ;==>RunReqAdmin
; This was my best attempt at getting the alpha value to correctly affect the background colour as is does in SciTE
Func _AlphaFactor($Colour)
Local $iFactor = .8 * (255 - $Selection_Alpha) / 255 ; The .8 is a fudge to make the colour look right - probably a monitor thing
Local $aColours[3]
Local $Comp = _ColorGetRed($Colour)
Local $Inc = (0xFF - $Comp) * $iFactor
$aColours[0] = $Comp + $Inc
$Comp = _ColorGetGreen($Colour)
$Inc = (0xFF - $Comp) * $iFactor
$aColours[1] = $Comp + $Inc
$Comp = _ColorGetBlue($Colour)
$Inc = (0xFF - $Comp) * $iFactor
$aColours[2] = $Comp + $Inc
Return _ColorSetRGB($aColours)
EndFunc

Share this post


Link to post
Share on other sites

#7 ·  Posted (edited)

I just looked. Its not you. Generated the same function for me. I guess you could try to use the AutoitMacroGenerator that comes with autoit, but again, its old and might generate function names that have since changed...

Edited by Beege

Share this post


Link to post
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
Sign in to follow this  
Followers 0