Sign in to follow this  
Followers 0
montyali

Help with ReadOnly fields

3 posts in this topic

Hi all, can anyone help plz...
What command can I use to make a ReadOnly field editable?

#include <Misc.au3>
#include <GUIConstants.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>

_Singleton(@ScriptName)
$gui_main = GUICreate("Temp", 400, 250)
GUISetBkColor(0xEEEEFF)
$font = "Century Gothic"
GUISetFont(10, 400, 0, $font)
$edit = GUICtrlCreateEdit("", 10, 10, 380, 180, BitOR($ES_WANTRETURN, $ES_READONLY, $WS_VSCROLL))
$edit_yes = GUICtrlCreateButton("Edit", 10, 200, 70, 20)
GUICtrlSetFont(-1, 8, 400, 0, $font)
$edit_no = GUICtrlCreateButton("Read Only", 83, 200, 70, 20)
GUICtrlSetFont(-1, 8, 400, 0, $font)
$exit = GUICtrlCreateButton("Exit", 320, 200, 70, 35)
GUISetState()
Do
    $nMsg = GUIGetMsg()
    Select
        Case $nMsg = $GUI_EVENT_CLOSE Or $nMsg = $exit
            GUIDelete($gui_main)
        Case $nMsg = $edit_yes
            ;?????????????

        Case $nMsg = $edit_no
            ;?????????????

    EndSelect
Until Not WinExists($gui_main)

Share this post


Link to post
Share on other sites



montyali,

Welcome to the AutoIt forum. :)

Just change the required style for the edit like this:

#include <Misc.au3>
#include <GUIConstants.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>

_Singleton(@ScriptName)

$gui_main = GUICreate("Temp", 400, 250)
GUISetBkColor(0xEEEEFF)
$font = "Century Gothic"
GUISetFont(10, 400, 0, $font)
$edit = GUICtrlCreateEdit("", 10, 10, 380, 180, BitOR($ES_WANTRETURN, $ES_READONLY, $WS_VSCROLL))
$edit_yes = GUICtrlCreateButton("Edit", 10, 200, 70, 20)
GUICtrlSetFont(-1, 8, 400, 0, $font)
$edit_no = GUICtrlCreateButton("Read Only", 83, 200, 70, 20)
GUICtrlSetFont(-1, 8, 400, 0, $font)
$exit = GUICtrlCreateButton("Exit", 320, 200, 70, 35)
GUISetState()
Do
    $nMsg = GUIGetMsg()
    Select
        Case $nMsg = $GUI_EVENT_CLOSE Or $nMsg = $exit
            GUIDelete($gui_main)
        Case $nMsg = $edit_yes
            GUICtrlSetStyle($edit, BitOR($ES_WANTRETURN, $WS_VSCROLL))
            MsgBox(0, "State", "Editable")
        Case $nMsg = $edit_no
            GUICtrlSetStyle($edit, BitOR($ES_WANTRETURN, $ES_READONLY, $WS_VSCROLL))
            MsgBox(0, "State", "Read-Only")
    EndSelect
Until Not WinExists($gui_main)

This works for most styles, but alas some cannot be changed dynamically. ;)

M23


Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind._______My UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Share this post


Link to post
Share on other sites

Excellent, exactly what I was looking for.

THANKS HEAPS!!!

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