AutoIt Desknote

[Frettub]

Just a small note script I trained AutoIt with, nothing special

AutoIt Desk Note

A bugg Paulie fixed:

Line #39:

GUICtrlSetData($textarea, $finish); bugged up (Not anymore)

If you remove the XSkin folder the script wont load..

Edited January 15, 2007 by Frettub

[GEOSoft]

Just a small note script I trained AutoIt with, nothing special

AutoIt Desk Note

A bugg Paulie fixed:

Line #39:

GUICtrlSetData($textarea, $finish); bugged up (Not anymore)

If you remove the XSkin folder the script wont load..

Let me guess! There is more to this script but you forgot to post it or forgot to include a link to the original post.

[JackRevers]

no it looks like he has a link to it.

i'll take a look at it in a bit.

[nitekram]

no it looks like he has a link to it.

i'll take a look at it in a bit.

If this is no good can the link be removed - I do not want to be temped as I am sure that other might if they had not read the rant from earlier.

[GEOSoft]

If this is no good can the link be removed - I do not want to be temped as I am sure that other might if they had not read the rant from earlier.

The link is OK.

The problem was at my end.

In this part of the world we are not used to heavy icing conditions and when they do occur our above ground cable lines get messed up which was really slowing down the system yesterday. I just tried again and all is well. I'll take a look at it.

[Valuater]

just playing...

expandcollapse popup

#include <GUIConstants.au3>
#include <XSkin.au3>
#include <XSkinToolBar.au3>

$Skin_Folder = @ScriptDir & "\Skin"
$XSkinGui = XSkinGUICreate ( "Desk Note 2.0", 915, 601, $Skin_Folder)
$Icon_Folder = @ScriptDir & "\Skin\Default"
$XIcon = XSkinIcon ($XSkinGui, 1)
GUISetIcon("ha.ico")

GUICtrlCreateLabel("DeskNote v1.0                     by, Frettub", 380, 35, 490, 30)
GUICtrlSetFont( -1, 15, 700, 3, "Comic Sans MS")
GUICtrlSetColor( -1, $fnt_color)

$textarea = GUICtrlCreateEdit("", 25, 65, 865, 510)
GUISetState(@SW_SHOW)


$h_ToolBar = XSkinToolBarCreate($XSkinGui, 40, 40, 205, $bkg_color)

; #1 - Using Icons from a dll ( shell32.dll is default)
$menuitem1 = XSkinToolBarButton(22)
GUICtrlSetTip( -1, "Clear Text Area")
$menuitem2 = XSkinToolBarButton(21)
GUICtrlSetTip( -1, "Read File to Text Area")
$menuitem3 = XSkinToolBarButton(17)
GUICtrlSetTip( -1, "Clear Text Area")
$menuitem4 = XSkinToolBarButton(44)
GUICtrlSetTip( -1, "Clear Text Area")
XSkinToolBarSeparator()

; #2 - Using Icons from an exe file
$menuitem5 = XSkinToolBarButton( "", @WindowsDir & "\notepad.exe")
$menuitem6 = XSkinToolBarButton("", @ProgramFilesDir & "\Internet Explorer\iexplore.exe")
$menuitem7 = XSkinToolBarButton( "", @WindowsDir & "\explorer.exe")
XSkinToolBarButton( "", @SystemDir & "\calc.exe")
;XSkinToolBarSeparator()

; #3 - Using Icons from an ico file
;XSkinToolBarButton("", @ScriptDir & "\Skins\Default-ToolBar\Admin Tools.ico")
;XSkinToolBarButton("", @ScriptDir & "\Skins\Default-ToolBar\Control Panel.ico")
;XSkinToolBarButton("", @ScriptDir & "\Skins\Default-ToolBar\E-Mail.ico")
;XSkinToolBarButton("", @ScriptDir & "\Skins\Default-ToolBar\MSI.ico")

GUISetState()

While 1
   $recive = GUIGetMsg()
   Select
      Case $recive = $GUI_EVENT_CLOSE Or $recive = $XIcon[1]
         ExitLoop
      Case $recive = $menuitem6
         $o = GUICtrlRead($textarea)
         ClipPut($o)
      Case $recive = $menuitem5
         $read = GUICtrlRead($textarea)
         $jo = ClipGet()
         GUICtrlSetData($textarea, $read & $jo)
      Case $recive = $menuitem4
         ExitLoop
      Case $recive = $menuitem2
         $file = FileOpenDialog("Select file.", @ScriptDir, "Desk Note (*.note)", 3)
         $test = FileOpen($file, 0)
         $finish = FileRead($test, 1000)
         FileClose($test)
         GUICtrlSetData($textarea, $finish) ; ************* no more ***** bugged up
      Case $recive = $menuitem3
         $hi = FileSaveDialog( "Choose a name.", @ScriptDir, "Desk Note files (*.note)", 3)
         $k = GUICtrlRead($textarea)
         FileWrite($hi & ".note", $k)
         ; option 3 = dialog remains until valid path/file selected
      Case $recive = $menuitem1
         GUICtrlSetData($textarea, "")
      Case $recive = $menuitem7
         MsgBox(0, "About", "Desk Note 2.0, created in AutoIt")
   EndSelect
WEnd
Exit

8)

[Frettubish]

If this is no good can the link be removed - I do not want to be temped as I am sure that other might if they had not read the rant from earlier.

That topic had nothing with this Anyhow, about the code fix, I did fix the problem and I updated the software but lost it when I formated so I had an older backup I uploaded instead.