Sign in to follow this  
Followers 0
Vindicator

A scrollable read only?

7 posts in this topic

#1 ·  Posted (edited)

ok, I sorta have an EULA, and I dont want the person to be able to edit thats in it, so I have the script check if the edit window is still the same as the EULA file, but this only works if the user deletes everything in the window:

While 1
;Rewrite
If $click = 1 Then
If Not GUICtrlRead($Edit_2)=$read Then
GUICtrlSetData($Edit_2,$read)
EndIf
EndIf
;end
    $msg = GuiGetMsg()
    Select
        Case $msg = $Button_4
            Dim $iMsgBoxAnswer
$iMsgBoxAnswer = MsgBox(52,"Quit",'Are you sure to want to exit installation?')
Select
   Case $iMsgBoxAnswer = 6 ;Yes
Exit
   Case $iMsgBoxAnswer = 7 ;No
EndSelect
        Case $msg = $Button_3
If $click=1 Then
    If GUICtrlRead($Input_5)="u4ia" Then
        WinClose("Install")
    Else
        MsgBox(0,"Oops!","Please read the EULA and input the password into the box to the left")
    EndIf
EndIf
If $click=0 Then
$read=FileRead("EULA.txt")
GUICtrlSetData($Edit_2,$read)
$Input_5 = GuiCtrlCreateInput("", 300, 360, 60, 20)
$click=1
EndIf

Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    Case Else
        ;;;
    EndSelect
WEnd

But instead of that, how could I make the control scrollable, but not editable?

Edited by P a R a D o X

If I hadn't said thank you yet, and you deserve it, than thank you...

Share this post


Link to post
Share on other sites



#2 ·  Posted (edited)

ok, I sorta have an EULA, and I dont want the person to be able to edit thats in it, so I have the script check if the edit window is still the same as the EULA file, but this only works if the user deletes everything in the window:

(Snip)

But instead of that, how could I make the control scrollable, but not editable?

you can just give your edit the "$ES_READONLY" style, then they can't edit it Edited by Paulie

Share this post


Link to post
Share on other sites

Paulie even if he did that it would remove the scroller in the right in the edit so i cant scroll i got the same problem sometimes when i need to that


My Scripts:Radioblog Club Music DownloaderOther stuff:Fun movieIm serious read the help file it helps :PFight 'Till you drop. Never stop, You Cant give up. Til you reach the top Fight! you’re the best in town Fight!

Share this post


Link to post
Share on other sites

#4 ·  Posted (edited)

Paulie even if he did that it would remove the scroller in the right in the edit so i cant scroll i got the same problem sometimes when i need to that

GuiCtrlCreateEdit("Bla", 10, 10, 400, 400, BitOR($ES_AUTOVSCROLL, $ES_READONLY, $WS_VSCROLL))

Does that not work?

Works for me..

Edited by Paulie

Share this post


Link to post
Share on other sites

I think that works havent tested yet


My Scripts:Radioblog Club Music DownloaderOther stuff:Fun movieIm serious read the help file it helps :PFight 'Till you drop. Never stop, You Cant give up. Til you reach the top Fight! you’re the best in town Fight!

Share this post


Link to post
Share on other sites

yes it does...thanks


If I hadn't said thank you yet, and you deserve it, than thank you...

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