Sign in to follow this  
Followers 0
Frettub

AutoIt Desknote

7 posts in this topic

#1 ·  Posted (edited)

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 by Frettub

Share this post


Link to post
Share on other sites



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

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. :)

George

Question about decompiling code? Read the decompiling FAQ and don't bother posting the question in the forums.

Be sure to read and follow the forum rules. -AKA the AutoIt Reading and Comprehension Skills test.***

The PCRE (Regular Expression) ToolKit for AutoIT - (Updated Oct 20, 2011 ver:3.0.1.13) - Please update your current version before filing any bug reports. The installer now includes both 32 and 64 bit versions. No change in version number.

Visit my Blog .. currently not active but it will soon be resplendent with news and views. Also please remove any links you may have to my website. it is soon to be closed and replaced with something else.

"Old age and treachery will always overcome youth and skill!"

Share this post


Link to post
Share on other sites

no it looks like he has a link to it.

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

Share this post


Link to post
Share on other sites

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.

All by me:

"Sometimes you have to go back to where you started, to get to where you want to go." 

"Everybody catches up with everyone, eventually" 

"As you teach others, you are really teaching yourself."

From my dad

"Do not worry about yesterday, as the only thing that you can control is tomorrow."

 

WindowsError.gif

WIKI | Tabs; | Arrays; | Strings | Wiki Arrays | How to ask a Question | Forum Search | FAQ | Tutorials | Original FAQ | ONLINE HELP | UDF's Wiki | AutoIt PDF

AutoIt Snippets | Multple Guis | Interrupting a running function | Another Send

StringRegExp | StringRegExp Help | RegEXTester | REG TUTOR | Reg TUTOT 2

AutoItSetOption | Macros | AutoIt Snippets | Wrapper | Autoit  Docs

SCITE | SciteJump | BB | MyTopics | Programming | UDFs | AutoIt 123 | UDFs Form | UDF

Learning to script | Tutorials | Documentation | IE.AU3 | Games? | FreeSoftware | Path_Online | Core Language

Programming Tips

Excel Changes

ControlHover.UDF

GDI_Plus

Draw_On_Screen

GDI Basics

GDI_More_Basics

GDI Rotate

GDI Graph

GDI  CheckExistingItems

GDI Trajectory

Replace $ghGDIPDll with $__g_hGDIPDll

DLL 101?

Array via Object

GDI Swimlane

GDI Plus French 101 Site

GDI Examples UEZ

GDI Basic Clock

GDI Detection

Ternary operator

Share this post


Link to post
Share on other sites

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.


George

Question about decompiling code? Read the decompiling FAQ and don't bother posting the question in the forums.

Be sure to read and follow the forum rules. -AKA the AutoIt Reading and Comprehension Skills test.***

The PCRE (Regular Expression) ToolKit for AutoIT - (Updated Oct 20, 2011 ver:3.0.1.13) - Please update your current version before filing any bug reports. The installer now includes both 32 and 64 bit versions. No change in version number.

Visit my Blog .. currently not active but it will soon be resplendent with news and views. Also please remove any links you may have to my website. it is soon to be closed and replaced with something else.

"Old age and treachery will always overcome youth and skill!"

Share this post


Link to post
Share on other sites

just playing...

Posted Image

#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)


NEWHeader1.png

Share this post


Link to post
Share on other sites

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 :whistle: 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.

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