Jump to content
dreivilo47

[Solved] Koda Form Preview does not work

Recommended Posts

dreivilo47

I have created a form in Koda.
When I want to see a form preview, I choose "Tools", "Run Form".
But in place of a form preview I see a file opened in Notepad (test.au3) with code.
What do I wrong?

Edited by dreivilo47
Problem solved

Share this post


Link to post
Share on other sites
dreivilo47
9 minutes ago, Jos said:

You likely set the *.au3 file-extension to Run/Open with Notepad?

Jos

I don't know Jos.  Where can I check this in Windows 10?

Share this post


Link to post
Share on other sites
Jos

Just run this script in SciTE to show the current settings:

#include <WindowsConstants.au3>
#include <EditConstants.au3>
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=C:\Program Files (x86)\AutoIt3\Icons\au3.ico
#AutoIt3Wrapper_Add_Constants=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
;***********************************************************
; Scriptname: Get_AU3_Settings.au3
; Script to display Registry setting for SciTE & AutoIt3
; reporting possible issues with these settings
;***********************************************************
#include <StaticConstants.au3>
#include <GUIConstantsEx.au3>
_Check_Au3_Registry()
;
Func _Check_Au3_Registry()
    Local $TotalMsg,$UserData
    Display_Console("******************************************************************************************************************************************" & @CRLF, $TotalMsg)
    Local $FixedOpen = RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.au3", "Application")
    Local $FixedOpenW7 = RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.au3\Userchoice", "ProgId")
    If $FixedOpen <> "" Then
        Display_Console("!*  Found always open with         :" & $FixedOpen & @CRLF, $TotalMsg)
        Display_Console('!*  Fixed by removing Registry Hyve: "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.au3" Key:"Application"' & @CRLF, $TotalMsg)
    EndIf
    If $FixedOpenW7 <> "" Then
        Display_Console("!*  Found always open with Win7    :" & $FixedOpenW7 & @CRLF, $TotalMsg)
        Display_Console('!*  Fixed by removing Registry key : "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.au3\Userchoice"' & @CRLF, $TotalMsg)
    EndIf
    Local $au3prof = RegRead("HKCR\.au3", "")
    If $au3prof <> "AutoIt3Script" And $au3prof <> "AutoIt3ScriptBeta" Then
        Display_Console('!*  Registry key: "HKCR\.au3" - "Default" is currently set to ' & $au3prof, $TotalMsg)
        Display_Console('   ==> This should be changed to "AutoIt3Script" (or "AutoIt3ScriptBeta")' & @CRLF, $TotalMsg)
;~  RegWrite("HKCR\.au3","","REG_SZ","AutoIt3Script")
    Else
        Display_Console("* HKCR\.au3 Default       :" & $au3prof & @CRLF, $TotalMsg)
    EndIf
    Local $RegKeyBase = "HKCR\" & $au3prof & "\shell"
    Display_Console("* HKCR\.au3 ShellNew      :" & @WindowsDir & "\SHELLNEW\" & RegRead("HKCR\.au3\Shellnew", "Filename"), $TotalMsg)
    If FileExists(@WindowsDir & "\SHELLNEW\" & RegRead("HKCR\.au3\Shellnew", "Filename")) Then
        Display_Console(" (File Exists)" & @CRLF, $TotalMsg)
    Else
        Display_Console(" (*** File is Misssing!)" & @CRLF, $TotalMsg)
    EndIf
    Display_Console("******************************************************************************************************************************************" & @CRLF, $TotalMsg)
    Display_Console("* Explorer shell options:" & @CRLF, $TotalMsg)
    Display_Console("* " & $RegKeyBase & ": " & @CRLF, $TotalMsg)
    Display_Console("*  => Default Action:" & RegRead($RegKeyBase, "") & @CRLF, $TotalMsg)
    Local  $var, $var2
    For $i = 1 To 30
        $var = RegEnumKey($RegKeyBase, $i)
        If @error <> 0 Then ExitLoop
        Display_Console("*     " & StringLeft($var & "                       ", 22), $TotalMsg)
        $var2 = RegEnumKey($RegKeyBase & "\" & $var, 1)
        Display_Console(" => " & $var2, $TotalMsg)
        Display_Console(":" & RegRead($RegKeyBase & "\" & $var & "\" & $var2, "") & @CRLF, $TotalMsg)
    Next
    Display_Console("******************************************************************************************************************************************" & @CRLF, $TotalMsg)
    Display_Console("* User SciTE info:" & @CRLF, $TotalMsg)
    If EnvGet("SCITE_USERHOME") <> "" Then
        $UserData = EnvGet("SCITE_USERHOME")
        Display_Console("*    SCITE_USERHOME:" & $UserData & ": " & @CRLF, $TotalMsg)
    ElseIf EnvGet("SCITE_HOME") <> "" Then
        $UserData = EnvGet("SCITE_HOME")
        Display_Console("*    SCITE_HOME:" & $UserData & ": " & @CRLF, $TotalMsg)
    Else
        $UserData = @ScriptDir
        Display_Console("*    Portable:" & $UserData & ": " & @CRLF, $TotalMsg)
    EndIf
    If Not FileExists($UserData) Then
        Display_Console("*    Directory missing: " & $UserData, $TotalMsg)
    Else
        ; Check directory structure
        If Not FileExists($UserData & "\Au3Stripper") Then Display_Console("*    Directory missing: " & $UserData & "\Au3Stripper" & @CRLF, $TotalMsg)
        If Not FileExists($UserData & "\AutoIt3Wrapper") Then Display_Console("*    Directory missing: " & $UserData & "\AutoIt3Wrapper" & @CRLF, $TotalMsg)
        If Not FileExists($UserData & "\CodeWizard") Then Display_Console("*    Directory missing: " & $UserData & "\CodeWizard" & @CRLF, $TotalMsg)
        If Not FileExists($UserData & "\SciTE Jump") Then Display_Console("*    Directory missing: " & $UserData & "\SciTE Jump" & @CRLF, $TotalMsg)
        If Not FileExists($UserData & "\SciTEConfig") Then Display_Console("*    Directory missing: " & $UserData & "\SciTEConfig" & @CRLF, $TotalMsg)
        If Not FileExists($UserData & "\Tidy") Then Display_Console("*    Directory missing: " & $UserData & "\Tidy" & @CRLF, $TotalMsg)
        ; check key files
        If Not FileExists($UserData & "\abbrev.properties") Then
            Display_Console("*    File missing: " & $UserData & "\Aabbrev.properties" & @CRLF, $TotalMsg)
        Else
            If Not FileGetSize($UserData & "\abbrev.properties") Then Display_Console("*    File empty: " & $UserData & "\Abbrev.properties" & @CRLF, $TotalMsg)
        EndIf
        If Not FileExists($UserData & "\au3abbrev.properties") Then
            Display_Console("*    File missing: " & $UserData & "\au3abbrev.properties" & @CRLF, $TotalMsg)
        Else
            If Not FileGetSize($UserData & "\au3abbrev.properties") Then Display_Console("*    File empty: " & $UserData & "\au3abbrev.properties" & @CRLF, $TotalMsg)
        EndIf
        If Not FileExists($UserData & "\SciTEUSer.properties") Then
            Display_Console("*    No SciTEUSer.properties yet" & @CRLF, $TotalMsg)
        Else
            Display_Console("*    SciTEUSer.Properties: " & @CRLF, $TotalMsg)
            Display_Console("*-----------------------------------------------------------------------------------------" & @CRLF, $TotalMsg)
            Display_Console(FileRead($UserData & "\SciTEUSer.properties") & @CRLF, $TotalMsg)
        EndIf
    EndIf
    Display_Console("******************************************************************************************************************************************" & @CRLF, $TotalMsg)
    ClipPut($TotalMsg)
    GUICreate(".au3 registry settings", 1000, 600)
    GUICtrlCreateEdit($TotalMsg, 1, 1, 998, 560,$ES_READONLY+$WS_VSCROLL+$ES_AUTOVSCROLL)
    GUICtrlSetFont(-1, Default, Default, Default, "Courier New")
    Local $HReg_Exit = GUICtrlCreateButton("Exit", 450, 570, 50, 25)
    GUICtrlCreateLabel("* information is stored on the clipboard.", 10, 575)
    GUISetState(@SW_SHOW)
    Do
        $msg = GUIGetMsg()
    Until $msg = $GUI_EVENT_CLOSE Or $msg = $HReg_Exit
    GUIDelete()
EndFunc   ;==>_Check_Au3_Registry
;
Func Display_Console($msg, ByRef $TotalMsg)
;~  ConsoleWrite($msg)
    $TotalMsg &= $msg
EndFunc   ;==>Display_Console

Jos :)

  • Like 1

Visit the SciTE4AutoIt3 Download page for the latest versions  - Beta files                                How to post scriptsource        Forum Rules
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Share this post


Link to post
Share on other sites
Jos

As you can see you have done a right-mouse-click on an au3 file and selected always open with notepad. 

There is a hint in that output how it can be fixed. ;)

Jos

  • Like 1

Visit the SciTE4AutoIt3 Download page for the latest versions  - Beta files                                How to post scriptsource        Forum Rules
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Share this post


Link to post
Share on other sites
dreivilo47

Thank you for the info Jos.
I've removed the registry key "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.au3\UserChoice".
But the form preview doesn't open.

Share this post


Link to post
Share on other sites
dreivilo47

This is now the output of the earlier script:

2.jpg

Share this post


Link to post
Share on other sites
dreivilo47

I've changed "au3_auto_file" to "AutoIt3Script" at registry key "HKEY_CLASSES_ROOT\.au3" (Default).
But the form preview doesn't open.  It opens a new AU3-file with code in SciTE!

Share this post


Link to post
Share on other sites
dreivilo47

No response from Jos.
I suppose opening a new AU3-file with code in SciTE is a form preview.
If so, my problem is solved.
Thanks for your help Jos.

Share this post


Link to post
Share on other sites
Jos

I can only assume that Koda is using the standard "Open" action for .au3, so when that is set to "SciTE" then that is what you will see. ( and also what I see)
Changing this to Run (open with AutoIt3.exe) will likely show what you want to achieve.

Jos


Visit the SciTE4AutoIt3 Download page for the latest versions  - Beta files                                How to post scriptsource        Forum Rules
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Share this post


Link to post
Share on other sites
Jos

mmm ... I see that Koda also has an option to set it manually to AutoIt3.exe when you want .....  so you didn't browse all options and tried them?

That actually works pretty well and took a whole 5 minutes to figure out. ;)

Jos

Edited by Jos
  • Like 1

Visit the SciTE4AutoIt3 Download page for the latest versions  - Beta files                                How to post scriptsource        Forum Rules
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Share this post


Link to post
Share on other sites
dreivilo47

No, I didn't browsed all options.  I'm sorry for this.
I have set it manually to AutoIt3.exe.  It shows now what I want to achieve.
Thank you very much Jos!

Share this post


Link to post
Share on other sites
Jos

You're welcome ... and my last post was merely a tongue-in-cheek remark... also towards myself not checking earlier. :)

Jos

  • Like 1

Visit the SciTE4AutoIt3 Download page for the latest versions  - Beta files                                How to post scriptsource        Forum Rules
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Share this post


Link to post
Share on other sites
dreivilo47
On 15-8-2017 at 6:25 PM, Jos said:

You're welcome ... and my last post was merely a tongue-in-cheek remark... also towards myself not checking earlier. :)

Jos

:)

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

  • Similar Content

    • Yirrlaar
      By Yirrlaar
      #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <TabConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("MyCommands", 406, 236, 610, 129) $Main = GUICtrlCreateTab(8, 8, 385, 217) $TabSheet1 = GUICtrlCreateTabItem("Main") $StopFunc = GUICtrlCreateButton("STOP", 17, 43, 150, 50) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") $StartFunc = GUICtrlCreateButton("Start", 17, 98, 150, 50) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") $Input0 = GUICtrlCreateInput("Input0", 267, 43, 75, 24, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER)) $Input1 = GUICtrlCreateInput("Input1"", 267, 73, 75, 24, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER)) $Input2 = GUICtrlCreateInput("Input2", 267, 103, 75, 24, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER)) $Input3 = GUICtrlCreateInput("Input3", 267, 133, 75, 24, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER)) $Input4 = GUICtrlCreateInput("Input4", 267, 163, 75, 24, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER)) $Input5 = GUICtrlCreateInput("Input5", 267, 195, 75, 24, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER)) $Label1 = GUICtrlCreateLabel("Label1", 215, 43, 50, 20, $SS_RIGHT) GUICtrlSetFont(-1, 9, 800, 0, "MS Sans Serif") $Label2 = GUICtrlCreateLabel("Label2", 215, 73, 50, 20, $SS_RIGHT) GUICtrlSetFont(-1, 9, 800, 0, "MS Sans Serif") $Label3 = GUICtrlCreateLabel("Label3", 215, 103, 50, 20, $SS_RIGHT) GUICtrlSetFont(-1, 9, 800, 0, "MS Sans Serif") $Label4 = GUICtrlCreateLabel("Label4", 215, 133, 50, 20, $SS_RIGHT) GUICtrlSetFont(-1, 9, 800, 0, "MS Sans Serif") $Label5 = GUICtrlCreateLabel("Label5", 215, 163, 50, 20, $SS_RIGHT) GUICtrlSetFont(-1, 9, 800, 0, "MS Sans Serif") $Label6 = GUICtrlCreateLabel("Label6", 191, 195, 74, 20, $SS_RIGHT) GUICtrlSetFont(-1, 9, 800, 0, "MS Sans Serif") $TabSheet2 = GUICtrlCreateTabItem("Individuals") $Button1 = GUICtrlCreateButton("Button1", 17, 43, 75, 25) GUICtrlCreateTabItem("") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit case $StartBOT letsdothis() Case $StopBOT END_This() EndSwitch WEnd func letsdothis() While 1 ;doing stuff ;doing more stuff if $StopFunc Then END_This() ;how do i detect if the button has been pressed if $Button1 Then Sleepy_Time() ;doing things ;doing more things WEnd EndFunc Func Sleepy_Time() while 1 sleep(10) if $Button1 Then ExitLoop ; detect button press and return to previous state Wend EndFunc Func END_This() Exit EndFunc For the LIFE of me I can't figure out, HOW ON EARTH to detect that a button has been pressed while a function is running?
      Can someone PLEASE point me in the right direction???
      Thanks
    • Shedunn
      By Shedunn
      I recently installed AutoIT(the most recent version) on my work computer and everytime I try to use Koda to generate code for a GUI Koda freezes....nothing can be clicked on and I have to use task manager to end the task.  It doesn't seem to matter if I open a file or if I try with a fresh design.  It also freezes if I try to change any settings within Koda

      I've tried uninstalling everything AutoIT related and reinstalling and restarting the computer.  No matter what it still does it
       
      Is there a setting somewhere that could be causing this?
    • dascondor
      By dascondor
      I  need to has Opt(GUISetOnEvent,-1) available in my script, but since I'm using koda designer it uses GUIgetmessage is there any work around for this. I'm pretty new to this stuff so any help is great appreciated.
      Any Thoughts?
       
    • TheSaint
      By TheSaint
      As many of you may not be aware, of much about AutoIt's humble beginnings, and aspects related to the first GUI version of AutoIt, I thought it might be nice to create a historical reference here for all the many GUI creators that have been created by various people over the years.
      NOTE - While one could argue, that this topic might be better placed in one of the Chat forums, I would argue, that it links to heaps of good code. While much may be redundant in that code, it is still interesting and forms a great perspective. Many are bound to find useful elements at the very least.
      Koda, is no doubt the most well-known GUI creator now, but there was a time, when CyberSlug's legendary GUIBuilder (first known as AutoBuilder) ruled the roost, and AutoIt coder's saw it as a Godsend. AutoIt coding was much simpler back then of course.
      Below, will be a timeline, of any AutoIt GUI creators listed in forum pages. It will be added to by myself as I find them or as others here find them and place a link in a subsequent post ... PLEASE HELP! Comments welcome too.
      (Also note, that this is also intended to include updates, branches etc by others)
      Apr 20 2004 - AutoBuilder by CyberSlug.
      Sep 27 2004 - An interesting topic, where CyberSlug talks about the future of AutoBuilder (etc) and renaming to GUIBuilder and you see the first mentions and links to updates by others (including myself & livewire).
      Nov 05 2004 - A topic where lookfar is working on a SciTE replacement, talks about starting a Form Designer.
      Aug 10 2005 - GuiBuilder first update by TheSaint.
      Sep 26 2005 - GUIBuilder updates by livewire (he also talks about transferring his efforts to Koda).
      Nov 02 2005 - KODA FormDesigner v1.3 by lookfar
      Nov 03 2005 - Seemingly interesting topic about forms by tonedeaf
      Dec 26 2005 - AutoIt Studio(beta) by BillLuvsU
      Jan 09 2006 - AutoBuilder update (or branch) by _^__darkbytez (livewire also posts).
      Feb 19 2006 - Koda v1.5 by lookfar
      Sep 07 2006 - Koda v1.7.3.0 by Lazycat
      Jan 07 2007 - Form/GUI Builder by FlintBrenick
      Jun 10 2007 - Gorganizer by _Kurt (more of an assister than actual GUI maker)
      Jun 27 2007 - Basic GUI Designer by Mast3rpyr0
      May 03 2008 - Autoit Programmer's Desktop (APD) by Ealric
      Jul 11 2008 - Gui Designer by Alek
      Aug 11 2008 - Gorganizer update by _Kurt
      Jun 19 2009 - Easy GUI by Mat
      Aug 13 2009 - GUI Script Creator by Pandemic (not sure this qualifies, but it made me think of templates)
      Aug 16 2010 - Creation Gui by AZJIO
      Jan 22 2012 - ISN AutoIt Studio by ISI360 (includes ISN Form Studio 2, a GUI editor)
      Mar 19 2012 - Arduino GUI Programmer by nikosliapis (creates a specific type of GUI)
      Aug 01 2012 - GuiBuilder Resurrected update/branch to GUIBuilder by baroquebob
      Dec 01 2012 - Form Builder beta (v1.0.6) by BuckMaster
      Jan 12 2015 - GUIBuilderNxt update by jaberwacky of GUIBuilder v0.8 (as a new prototype, modified to work with latest AutoIt) (not a update to the Resurrected version)
      Aug 12 2016 - The GuiBuilder Return by DFerrato as an update to GUIBuilder,
      Jan 17 2017 - GUIBuilder Project by TheSaint (a work in progress based on CyberSlug's original ... and later versions, updated by Roy, TheSaint & others).
      There are a significant number of creators/designers that have been started and never completed.
      +++++ STILL UNDER CONSTRUCTION +++++
      P.S. Well that's it from me tonight. I know of at least one other major creator, but cannot recall it's name or the name of the coder, though I think it starts with 'L'. Bound to be a few I've missed, and some I cannot seem to find their first appearance here (Koda, Form Builder, etc), but there may be an obvious reason for that. Will probably rely on feedback from others now that I've got the ball rolling.
      NOTE - If anyone wants to discuss any of these programs above or give some background history, then by all means do so. I will cross-reference (link to) any important comments.
    • Masum
      By Masum
      Hi all,
      Can the default Koda icon for forms be changed? If so, how?
      Thanks
×