Change GUI SKin?

[megahyperion]

Is there any way in hell to change the GUI skin to make it look a little more modern ?

Kinda like how u can change the skins on XFIRE if anyone has ever used that chat program, or Winamp

thanks

[rakudave]

i don't think so, all you can do is set the style. the rest of the skin

(titlebarcolor...) is set by your configuration for all window$-windows.

you'll have to change it in the system-configuration.

[GaryFrost]

you would need beta, and look in scripts and scraps for creating your own custom skins.

[kjactive]

Well There is some freeware activeX objects that is suppost to be able to change skins to an intuition and requesters but I never tryed one of these...

'You can change the look of your application easily adding this control to the forms. With vbSkinner Free your project will have a skin.The forms will have a ronded look, with a new title bar.This version apply the skin in all the forms with just one Skinner control. Also makes the skin in MsgBox and InputBox dialogs'

one object Homepage:

http://www.ab-archive.com/Danish/programma...english4205.htm

kjactive

Edited August 19, 2005 by kjactive

[myredeemerlives]

I think that only works with Visual Basic. I have used it before. It sux, it only changes the window skin but does nothing with the controls. Don't even bother with it.

[Valuater]

I created one... heres what it looks like

http://www.autoitscript.com/forum/index.ph...pe=post&id=3017

and the entire script is there also

http://www.autoitscript.com/forum/index.ph...024&hl=xpedite#

its alot of work... not as easy as a simple gui

Hope it helps

8)

[livewire]

The ActiveSkin ISkin object can change VB windows and controls. Has anyone been able to get ObjCreate("ActiveSkin4.Skin.1") to work with AutoIt?

I've tried but can't get it to work w/ AutoIt.

This object has members:

- LoadSkin("filename")

- ApplySkin(hWnd)

-Livewire

[JoshDB]

I've created a pretty good GUI for a program I've made entirely in AutoIt. Almost all of the useful scripting isn't mine, but taken from other threads here on the AutoIt forums.

expandcollapse popup

#NoTrayIcon
#include <GUIConstants.au3>
Opt("GUIOnEventMode", 1)
Opt("MouseCoordMode", 0); if Window Coords / , 2 if Client Coords 
Opt("PixelCoordMode", 0); Same as above

Dim $s_TempFile
$jpg = _TempFile()

FileInstall("back.jpg", $jpg)

; Caption
$caption = "Guild Wars Bot"
; Caption

$gui = GUICreate("Guild Wars Bot", 300, 400, -1, -1, $WS_POPUP + $WS_SYSMENU + $WS_MINIMIZEBOX, $WS_EX_LAYERED)
GUISetOnEvent($GUI_EVENT_CLOSE, "Close")
$caption = GUICtrlCreateLabel($caption, 12, 4, 180, 14)
GUICtrlSetStyle($caption, -1, $WS_EX_TRANSPARENT); To show $caption text
GUICtrlSetStyle($caption, $DS_SETFOREGROUND)
GUICtrlSetFont($caption, 9, 400, -1, "Arial Bold")
GUICtrlSetColor($caption, 0xF5F5F5)
GUICtrlSetOnEvent($caption, "_Drag")
;GUICtrlSetBkColor($caption,0xFF00FF); To select $caption
$min = GUICtrlCreateLabel("", 250, 4, 11, 11)
GUICtrlSetOnEvent($min, "Minimize")
GUICtrlSetTip($min, "Minimize")
;GUICtrlSetStyle($min, -1, $WS_EX_TRANSPARENT); To select $min
;GUICtrlSetBkColor($min,0xFF00FF); To select $min
$close = GUICtrlCreateLabel("", 262, 4, 11, 11)
GUICtrlSetOnEvent($close, "Close")
GUICtrlSetTip($close, "Close")
;GUICtrlSetStyle($close, -1, $WS_EX_TRANSPARENT); To select $close
;GUICtrlSetBkColor($close,0xFF00FF); To select $close
GUISetState(@SW_SHOW)
GUICtrlCreateGroup ("", 170, 60, 110, 140)
GUICtrlCreateGroup ("",-99,-99,1,1);close group

GUICtrlCreateGroup ("", 170, 205, 110, 120)
GUICtrlCreateGroup ("",-99,-99,1,1);close group

GUICtrlCreateLabel("Guild Wars Bot", 187, 335)
GUICtrlCreateLabel("By JoshDB", 197, 350)
GUICtrlCreateLabel("Version " & $version, 193, 365)
GUICtrlCreateLabel("Primary Class", 180, 80)
GUICtrlCreateLabel("Secondary Class", 180, 140)
GUICtrlCreateLabel("Username", 190, 225)
GUICtrlCreateLabel("Password", 190, 275)
GUICtrlCreateLabel("Username and password fields are optional. They are only for additional features.", 45, 215, 100, 100)
GUICtrlCreateLabel("Please fill in the Primary and Secondary classes fields.", 45, 85, 100, 100)
GUICtrlCreateLabel("www.PimpMyGuide.com", 25, 170, 150, 100)

$user=GUICtrlCreateInput ("", 185, 245, 80, 20)
$pass=GUICtrlCreateInput ("", 185, 295, 80, 20, $ES_PASSWORD)

$rungw = GUICtrlCreatePic("startgw.jpg", 177, 25, 93, 11 )
  GUICtrlSetOnEvent($rungw, "rungw")
  
$startmacro = GUICtrlCreatePic("startbot.jpg", 177, 45, 93, 11)
  GUICtrlSetOnEvent($startmacro, "startmacro")

$primary=GUICtrlCreateCombo ("Warrior", 175,100); create first item
GUICtrlSetData(-1,"Ranger|Monk|Mesmer|Elementalist|Necromancer","item3"); add other item and set a new default

$secondary=GUICtrlCreateCombo ("Monk", 175,160); create first item
GUICtrlSetData(-1,"Ranger|Mesmer|Elementalist|Necromancer|Warrior","item3"); add other item and set a new default
$pic = GUICtrlCreatePic($jpg, 0, 0, 300, 400 )
GUICtrlSetOnEvent($pic, "_Drag")
$contextmenu = GUICtrlCreateContextMenu($pic)
$min_item = GUICtrlCreateMenuItem("Min", $contextmenu)
GUICtrlSetOnEvent($min_item, "Minimize")
$close_item = GUICtrlCreateMenuItem("Close", $contextmenu)
GUICtrlSetOnEvent($close_item, "Close")
_GuiRoundCorners($gui, 0, 0, 20, 20)

GUISetState(@SW_SHOW)

$StartCheck = 0

While $StartCheck < 10
  Sleep(1); Idle around
WEnd

Func rungw()
  Run("C:\Program Files\Guild Wars\gw.exe", "", @SW_MINIMIZE)
EndFunc

Func Close()
    GUISetState(@SW_HIDE)
    FileDelete($jpg)
    Exit
EndFunc

Func Minimize()
    GUISetState(@SW_MINIMIZE)
EndFunc

Func _TempFile()
    Local $s_TempName
    
    Do
        $s_TempName = "~"
        While StringLen($s_TempName) < 7
            $s_TempName = $s_TempName & Chr(Round(Random(65, 90), 0))
        WEnd
        $s_TempName = @TempDir & "\" & $s_TempName & ".tmp"
    Until Not FileExists($s_TempName)
    Return ($s_TempName)
EndFunc

Func _Drag()
    DllCall("user32.dll", "int", "ReleaseCapture")
    DllCall("user32.dll", "int", "SendMessage", "hWnd", $gui, "int", 0xA1, "int", 2, "int", 0)
EndFunc

Func _GuiRoundCorners($h_win, $i_x1, $i_y1, $i_x3, $i_y3)
   Dim $pos, $ret, $ret2
   $pos = WinGetPos($h_win)
   $ret = DllCall("gdi32.dll", "long", "CreateRoundRectRgn", "long", $i_x1, "long", $i_y1, "long", $pos[2], "long", $pos[3], "long", $i_x3, "long", $i_y3)
   If $ret[0] Then
      $ret2 = DllCall("user32.dll", "long", "SetWindowRgn", "hwnd", $h_win, "long", $ret[0], "int", 1)
      If $ret2[0] Then
         Return 1
      Else
         Return 0
      EndIf
   Else
      Return 0
   EndIf
EndFunc;==>_GuiRoundCorners

Some of the code I took out, because it was purely bot-related. The stuff I left was only the GUI part. They grey is the background color of Adobe Photoshop (what happened to be behind the program at the time). The corners are rounded (transparent), and the GUI is draggable, too.

Again, I only take credit in my forum-searching skills.

Edited January 31, 2006 by JoshDB