CFCCodeWizard

[GaryFrost]

suggestions/comments/bug reports are welcome.

Edit: See below post for script. removed attachment from this post.

Edited March 21, 2005 by gafrost

[GaryFrost]

Decided to narrow the window some using tab control

Version 1.2.1

Edit: removed this attachment, see my last post.

Edited March 25, 2005 by gafrost

[GaryFrost]

Added 264 colors

[GaryFrost]

Fixed comment block for GUICtrlSetCursor

Added About Box

[GaryFrost]

fixed comment blocks to work with SciTE

Can be used with SciTE captering the StdOut

Edit: fixed spacing, changed declaration to see if already declared.

Edit2: at the request from a friend, added check box for comment block

comment block by default is not included

Edit3: remove attachment see my last post

Edited March 25, 2005 by gafrost

[GaryFrost]

Removed gui input label and box for example text, replace with button that fires off a regular input box

Remove colors from being hard coded into the script

combo box for color schemes is now read in from the ini file

the color schemes themselve are now read in from the ini file using the IniReadSection based on the schemes from the ini file

Place the colors.ini file in the same folder as the script/exe

suggestions/comments/bug reports are welcome.

Edit: added readme.txt to zip file, readme includes the change log

Edited March 26, 2005 by gafrost

[MHz]

Downloaded your latest version to try out. Did not seem to want to run?

Looked at the script, and realized that regedit is run from it. Well, I had regedit running already. This could be a nuisance, for running into this, on regular use.

So I modded the script alittle, so a warning msgbox is seen. Clicking OK, will close regedit, let CFC do it's process with regedit, then restart regedit again.

Here is the mod, if your interested.

Func _GetTTFNames()
   Local $FONTS, $FILE_PATH = @TempDir & '\fonts.txt'
   If ProcessExists('Regedit.exe') Then
       MsgBox(0, 'CFCCodeWizard', 'Regedit will close momentarily, when you click ok')
       ProcessClose('Regedit.exe')
       local $REGEDIT_EXIST
   EndIf
   Run(@WindowsDir & '\REGEDIT.exe /e ' & $FILE_PATH & ' "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts"')
   ProcessWait("Regedit.exe")
   While (ProcessExists("Regedit.exe"))
      Sleep(250)
   WEnd
   If IsDeclared('REGEDIT_EXIST') Then Run(@WindowsDir & '\REGEDIT.exe')

Edit: Better solution, use Reg.exe. Same result, less lines of code. No warnings needed?

Func _GetTTFNames()
   Local $FONTS, $FILE_PATH = @TempDir & '\fonts.txt'
   RunWait(@ComSpec & ' /c reg export ' & '"HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts" ' & '"' & $FILE_PATH & '"', '', @SW_HIDE)

   Local $FILE_IN_HANDLE, $LINES_READ, $X = 0, $FONT_NAME, $EOF
   
   $FILE_IN_HANDLE = FileOpen($FILE_PATH, 0)
   
   
  ; Check if file opened for reading OK

I assume, you know where to insert, to try it out.

Edited March 25, 2005 by MHz

[GaryFrost]

Thanks MHz, the second solution works just fine, seems to be quicker also

Change included.

[GaryFrost]

Version 1.3

- Added check for colors.ini exists at script dir location

if not then msgbox pops up and script terminated

- Removed variables no longer needed and code no longer needed (Clean-up)

- Added readme.txt which includes the change log

Edit:

Shortened code for _SetCursorValue function from 34 lines of code to 4 lines of code that will be included in next version

Here's the code for those that want to change what they have.

Func _SetCursorValue($SCURSOR)
    Local $X, $ARRAY = StringSplit("APPSTARTING,ARROW,CROSS,HELP,IBEAM,ICON,NO,SIZE,SIZEALL,SIZENESW,SIZENS,SIZENWSE,SIZEWE,UPARROW,


WAIT,ARROW",",")
    For $X = 1 To $ARRAY[0]
        IF($SCURSOR == $ARRAY[$X]) Then Return $X
    Next
EndFunc  ;==>_SetCursorValue

Edit2: & #34; is suppose to be a double quote, preview looks ok, post changes it.

Edited March 25, 2005 by gafrost

[GaryFrost]

1.3.1 - 3/26/2005

- Changed the Hypyerlink to use the _INetMail Function from Inet.au3

- Shortened code for _SetCursorValue function from 34 lines of code to 4 lines of code

- Split Colors Tab to Control Colors Tab and GUI Colors Tab

- Removed code to get fonts from registry

- Added code from CodeWizard for font dialog

Edit:

1.3.2 - 3/28/2005

- Fixed sample text being changed when setting control colors

Edited April 7, 2005 by gafrost

[GaryFrost]

1.3.3 - 4/6/2005

- Added grid lines to list view in extended styles, doing this took away the sunken look

- Added border around list view in extended styles

- Added drag and drop of headers in extended styles, now can switch which column is first/last

- Added Just for fun picture filling in the portion of the window where the Exit button resides

Project has closed no longer available, merging CFCCodeWizard with CodeWizard

Edited May 3, 2005 by gafrost

[GaryFrost]

1.3.4 beta 4/26/2005

- Added Color Dialogs for controls and gui

- Replaced functions with <GuiListView.au3> function calls from 3.1.1.16 beta

Project has closed no longer available, merging CFCCodeWizard with CodeWizard

Edited May 3, 2005 by gafrost

[busysignal]

qafrost, nice piece of work. I just DL'ed it and played with it for a minute to see it work. Works great and no problems. I will take a look at your code in the next day or so.

Two thumbs up!!

Cheers..