Jump to content
Sign in to follow this  
ProgrammingBrain

why my compiled scripts use win xp style not win 7 !

Recommended Posts

ProgrammingBrain

why my compiled scripts using win xp style not win 7 !

can any one help to make my script use win 7 style after been compiled

here is an example

before compiling :win 7 style

Posted Image

after compiling :win xp style

Posted Image

;)

Share this post


Link to post
Share on other sites
wakillon

Show your script for more details Posted Image


AutoIt 3.3.14.2 X86 - SciTE 3.6.0WIN 8.1 X64 - Other Example Scripts

Share this post


Link to post
Share on other sites
ProgrammingBrain

here you are ;)

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
#Include <GuiListView.au3>
Global $lastchar=""
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 198, 315, 191, 124)
$ListView = GUICtrlCreateListView("Chars", 0, 0, 201, 249);,BitOR($LVS_REPORT,$LVS_NOCOLUMNHEADER))
GUICtrlSetStyle($ListView,$LVS_REPORT)
$check=GUICtrlCreateCheckbox("Filter",150,260,100,20)
;$chars=_GUICtrlListView_AddColumn($ListView, "Chars")
_GUICtrlListView_SetColumnWidth($ListView, 0, 195)
$random = GUICtrlCreateButton("Random Choice", 19, 288, 154, 25)
$add = GUICtrlCreateButton("+", 104, 256, 25, 25)
$remove = GUICtrlCreateButton("-", 64, 256, 25, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
If FileExists(@ScriptDir&"\charsname_random_choise.ini")<> 1 Then
    IniWriteSection (@ScriptDir& "\charsname_random_choise.ini", "", "")
    IniDelete ( @ScriptDir& "\charsname_random_choise.ini", "" )
EndIf
read_ini()
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $add
            $inputname=InputBox("Add new char","Enter Char")
            IniWriteSection ( @ScriptDir& "\charsname_random_choise.ini", $inputname, "")
            _GUICtrlListView_AddItem($ListView,$inputname)
        Case $remove
                $sel_chars=_GUICtrlListView_GetSelectedIndices($ListView, True)
                If $sel_chars[0] <> 0 Then
                    ;MsgBox(0,"Warning","Delete Selected Item(S) ?")
                    For $i=1 to $sel_chars[0]
                        ;MsgBox(0,"",$sel_chars[$i])
                        _GUICtrlListView_DeleteItem(GUICtrlGetHandle($ListView), $sel_chars[$i])
                        IniDelete( @ScriptDir& "\charsname_random_choise.ini",_GUICtrlListView_GetItemText($ListView, $sel_chars[$i]))
                        Sleep(200)
                    Next
                EndIf
                
        Case $random
                
                $count=_GUICtrlListView_GetItemCount($ListView)
            If GUICtrlRead ( $check )=$GUI_CHECKED And $lastchar <> "" Then
                Do  
                $rnum=Random ( 1,$count ,1)
                Until $rnum <> $lastchar
                $lastchar=$rnum
                _GUICtrlListView_SetItemSelected($ListView, $rnum-1)
                MsgBox(0,"Selected Char",_GUICtrlListView_GetItemText($ListView, $rnum-1))
            Else
                
                $rnum=Random ( 1,$count ,1)
                $lastchar=$rnum
                _GUICtrlListView_SetItemSelected($ListView, $rnum-1)
                ;MsgBox(0,"unchecked",$rnum)
                MsgBox(0,"Random Char Name",_GUICtrlListView_GetItemText(GUICtrlGetHandle($ListView), $rnum-1))
            EndIf
            
                
            
                
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd
Func read_ini()
    $charsname=IniReadSectionNames ( @ScriptDir& "\charsname_random_choise.ini")
    If Not @error Then
        For $i=1 to $charsname[0]
            _GUICtrlListView_AddItem($ListView,$charsname[$i])
        Next
    EndIf
EndFunc

Share this post


Link to post
Share on other sites
wakillon

It doesn't give me xp style !


AutoIt 3.3.14.2 X86 - SciTE 3.6.0WIN 8.1 X64 - Other Example Scripts

Share this post


Link to post
Share on other sites
ProgrammingBrain

compile it (don't run it from SciTE Editor )

run it again and you will see the xp style

;)

Share this post


Link to post
Share on other sites
wakillon

compile it (don't run it from SciTE Editor )

run it again and you will see the xp style

;)

It doesn't give me xp style, even compiled !


AutoIt 3.3.14.2 X86 - SciTE 3.6.0WIN 8.1 X64 - Other Example Scripts

Share this post


Link to post
Share on other sites
ProgrammingBrain

lol :)

its works now

but i noticed that if i complied the script using script-> mouse right click -> compile then it will use xp style

but if i compile it using scite editor -> tools -> Build then it will use win 7 style

i don't know why but its strange ;)

Thank you ;)

Share this post


Link to post
Share on other sites
wakillon

I can't test it, i have suppress this right menu item...


AutoIt 3.3.14.2 X86 - SciTE 3.6.0WIN 8.1 X64 - Other Example Scripts

Share this post


Link to post
Share on other sites
whim

Maybe a manifest issue, check this forum thread (or check other results for forum search on "manifest")

Can't test though - diehard classic mode fan here ...

cheers,

whim

Share this post


Link to post
Share on other sites
Yashied
whim

Hi Yashied

Not sure if you are referring to my post or the original question ?

If you meant my post: I'm using systemwide settings (Classic Theme +

Classic Explorer) so all apps open up that way by default ...

cheers,

whim

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  

×