Sign in to follow this  
Followers 0
ProgrammingBrain

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

11 posts in this topic

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



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

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

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

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

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

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

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

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

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  
Followers 0