@Ludwig: Woher kannst du das so gut? Kannst du mal ein Video (also ein Tutorial) darüber machen? bitte
[IN ARBEIT] Neues Design?!?
-
JuraX -
15. Mai 2010 um 10:48
-
-
Was für ne Idee ?
Aber ich mach grad was andres Gutes ..... moment .... -
ich bin gespannt...
yxyx du kennst dich doch mit gdi buttons aus, kanst du dir mal die konsole anschauen? -
So. Soll ich jetzt auch noch die GUI-Elemente reinmachen oder machst du das?
AntiSpeed: Man braucht eigentlich nur Photshop und n bischen Langeweile. Und ich hasse Tutorials.
-
die guielemente mach ich, danke...
-
ich muss schon sagen das sieht echt gut aus
Zitatyxyx du kennst dich doch mit gdi buttons aus, kanst du dir mal die konsole anschauen?
die sind eh schon so gut gemacht xD -
Schade, dass du keine Tuts magst. Na ok. Ich exprementiere mal rum...
-
yxyx nein, schau mal oben links beim kreis , die müsste man noch abfragen am besten mit
$topplay
$topvor
$topbackWenn dus kannst...
-
ich schaus mir ma an xD
-
ähhm ne frage hast du dan funktionen die topplay topvor topback heißen oda sollen die auf true gesetzt werden
-
ich abrbeite ja mit on event, also würde ich sagen:
[autoit]guictrlsetonevent($topplay,"func")
[/autoit]
dafür... -
Schade, dass du keine Tuts magst. Na ok. Ich exprementiere mal rum...
Ich werde bald einen Thread erstellen und dort einige Sachen von mir vorstellen. Natürlich mit Tutorials usw.
-
-
Super .
-
Und yxyx wie siehts aus?
Ich hab jetzt mal das script schon ein bisschen angepasst, habe jetzt aber ein problem:
Spoiler anzeigen
[autoit]#include <GDIPlus.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <WinAPI.au3>
#include <Misc.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <StructureConstants.au3>
#NoTrayIcon#region Wrapper
[/autoit] [autoit][/autoit] [autoit]
#AutoIt3Wrapper_icon=Pics\Sonstiges\INRico.ico
#AutoIt3Wrapper_outfile=Kompiliert\INR-Multimediacenter.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Res_Comment=INR by JuraX 2010
#AutoIt3Wrapper_Res_Description=INR Multimediacenter
#AutoIt3Wrapper_Res_LegalCopyright=JuraX
#AutoIt3Wrapper_Res_Language=1031
#AutoIt3Wrapper_Add_Constants=n
#AutoIt3Wrapper_AU3Check_Stop_OnWarning=y
#AutoIt3Wrapper_Run_Tidy=y
#endregion Wrapper#region Globals
[/autoit] [autoit][/autoit] [autoit]Global Const $AC_SRC_ALPHA = 1
[/autoit] [autoit][/autoit] [autoit]Global $Hover
[/autoit] [autoit][/autoit] [autoit]_GDIPlus_Startup()
[/autoit] [autoit][/autoit] [autoit]
$hNewsImage = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\Pics\INR.png")
$hMusikImage = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\Pics\INRMusik.png")
$hRadioImage = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\Pics\INRRadio.png")
$hCDPlayerImage = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\Pics\INRCDPlayer.png")
$hOptionenImage = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\Pics\INROptionen.png")
$hCreditsImage = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\Pics\INRCredits.png")$hAktullesImage = $hNewsImage
[/autoit] [autoit][/autoit] [autoit]$width = _GDIPlus_ImageGetWidth($hMusikImage)
[/autoit] [autoit][/autoit] [autoit]
$height = _GDIPlus_ImageGetHeight($hMusikImage)#endregion Globals
[/autoit] [autoit][/autoit] [autoit]$GUI = GUICreate("INR", $width, $height, -1, -1, BitOR($WS_POPUP, $WS_SYSMENU), $WS_EX_LAYERED)
[/autoit] [autoit][/autoit] [autoit]SetBitmap($GUI, $hAktullesImage, 0)
[/autoit] [autoit][/autoit] [autoit]
GUIRegisterMsg($WM_NCHITTEST, "WM_NCHITTEST")
GUISetState()For $i = 0 To 255 Step 40
[/autoit] [autoit][/autoit] [autoit]
Sleep(5)
SetBitmap($GUI, $hAktullesImage, $i)
Next
SetBitmap($GUI, $hAktullesImage, 255)$WinPos = WinGetPos($GUI)
[/autoit] [autoit][/autoit] [autoit]$ChildGUI = GUICreate("", $width, $height, 0, 0, $WS_POPUP, BitOR($WS_EX_MDICHILD, $WS_EX_LAYERED), $GUI)
[/autoit] [autoit][/autoit] [autoit]
GUICtrlCreatePic(@ScriptDir & "\Pics\grey.gif", 0, 0, $width, $height)
GUICtrlSetState(-1, $GUI_DISABLE)$MusikTabLabel = GUICtrlCreateLabel("Musik", 49, 126, 128, 17, $SS_CENTER)
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)$RadioTabLabel = GUICtrlCreateLabel("Radio", 49, 126 + 25, 128, 17, $SS_CENTER)
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)$CDPlayerTabLabel = GUICtrlCreateLabel("CD-Player", 49, 126 + 50, 128, 17, $SS_CENTER)
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)$OptionenTabLabel = GUICtrlCreateLabel("Optionen", 49, 331, 128, 17, $SS_CENTER)
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)$CreditsTabLabel = GUICtrlCreateLabel("Credits", 49, 331 + 25, 128, 17, $SS_CENTER)
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)GUICtrlCreateTab(0, 0, 10, 10)
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetState(-1, $GUI_HIDE)$NewsTab = GUICtrlCreateTabItem("News")
[/autoit] [autoit][/autoit] [autoit]
GUICtrlCreateLabel("Version 3.0" & @CRLF & "Wie ihr sicher gemerkt habt gibt es nun ein neues Design!" & @CRLF & "Dafür nochmal vielen dank an:" & @CRLF & "Tince, Ludwig und Ubuntu, für das Wunderbare Design !", 200, 60, 300, 500)$MusikTab = GUICtrlCreateTabItem("Musik")
[/autoit] [autoit][/autoit] [autoit]
GUICtrlCreateProgress(200, 80, 225, 25)
GUICtrlCreateLabel("Lautsprecher Links", 200, 115)
GUICtrlCreateProgress(200, 130, 225, 20)
GUICtrlCreateLabel("Lautsprecher Rechts", 200, 150)
GUICtrlCreateProgress(200, 165, 225, 20)$RadioTab = GUICtrlCreateTabItem("Radio")
[/autoit] [autoit][/autoit] [autoit]
GUICtrlCreateButton("BLABLA Radio", 200, 60, 100, 20)$CDPlayerTab = GUICtrlCreateTabItem("CD-Player")
[/autoit] [autoit][/autoit] [autoit]
GUICtrlCreateButton("BLABLA CD-Player", 200, 60, 100, 20)$OptionenTab = GUICtrlCreateTabItem("Optionen")
[/autoit] [autoit][/autoit] [autoit]
GUICtrlCreateButton("BLABLA Optionen", 200, 60, 100, 20)$CreditsTab = GUICtrlCreateTabItem("Credits")
[/autoit] [autoit][/autoit] [autoit]
GUICtrlCreateButton("BLABLA Credits", 200, 60, 100, 20)GUICtrlCreateTabItem("")
[/autoit] [autoit][/autoit] [autoit]_WinAPI_SetLayeredWindowAttributes($ChildGUI, 0x999999, 0)
[/autoit] [autoit][/autoit] [autoit]GUISetState()
[/autoit] [autoit][/autoit] [autoit]For $i = 1 To 255 Step 10
[/autoit] [autoit][/autoit] [autoit]
Sleep(1)
_WinAPI_SetLayeredWindowAttributes($ChildGUI, 0x999999, $i)
Next
$i = 255
_WinAPI_SetLayeredWindowAttributes($ChildGUI, 0x999999, $i)While 1
[/autoit] [autoit][/autoit] [autoit]
Switch GUIGetMsg($ChildGUI)
Case $GUI_EVENT_CLOSE
ExitLoop
EndSwitch_CheckHover()
[/autoit] [autoit][/autoit] [autoit]
WEndFor $i = 255 To 0 Step -40
[/autoit] [autoit][/autoit] [autoit]
Sleep(5)
SetBitmap($GUI, $hAktullesImage, $i)
Next_WinAPI_DeleteObject($hMusikImage)
[/autoit] [autoit][/autoit] [autoit]
_WinAPI_DeleteObject($hRadioImage)
_WinAPI_DeleteObject($hCDPlayerImage)
_WinAPI_DeleteObject($hOptionenImage)
_WinAPI_DeleteObject($hCreditsImage)
_GDIPlus_Shutdown()Func _CheckHover()
[/autoit] [autoit][/autoit] [autoit]
$CurInf = GUIGetCursorInfo($ChildGUI)
If @error Then ReturnIf $Hover = $CurInf[4] Then Return _CheckClick()
[/autoit] [autoit][/autoit] [autoit]Switch $Hover
[/autoit] [autoit][/autoit] [autoit]
Case $MusikTabLabel, $RadioTabLabel, $CDPlayerTabLabel, $OptionenTabLabel, $CreditsTabLabel
GUICtrlSetColor($Hover, 0xFFFFFF)
EndSwitch$Hover = $CurInf[4]
[/autoit] [autoit][/autoit] [autoit]
Switch $Hover
Case $MusikTabLabel, $RadioTabLabel, $CDPlayerTabLabel, $OptionenTabLabel, $CreditsTabLabel
GUICtrlSetColor($Hover, 0xCCCCCC)
EndSwitch
EndFunc ;==>_CheckHoverFunc _CheckClick()
[/autoit] [autoit][/autoit] [autoit]
If _IsPressed("01") Then
Switch $Hover
Case $MusikTabLabel
If $hAktullesImage <> $hMusikImage Then
$hAktullesImage = $hMusikImage
GUICtrlSetState($MusikTab, $GUI_SHOW)
SetBitmap($GUI, $hAktullesImage, 255)
EndIf
Case $RadioTabLabel
If $hAktullesImage <> $hRadioImage Then
$hAktullesImage = $hRadioImage
GUICtrlSetState($RadioTab, $GUI_SHOW)
SetBitmap($GUI, $hAktullesImage, 255)
EndIf
Case $CDPlayerTabLabel
If $hAktullesImage <> $hCDPlayerImage Then
$hAktullesImage = $hCDPlayerImage
GUICtrlSetState($CDPlayerTab, $GUI_SHOW)
SetBitmap($GUI, $hAktullesImage, 255)
EndIf
Case $OptionenTabLabel
If $hAktullesImage <> $hOptionenImage Then
$hAktullesImage = $hOptionenImage
GUICtrlSetState($OptionenTab, $GUI_SHOW)
SetBitmap($GUI, $hAktullesImage, 255)
EndIf
Case $CreditsTabLabel
If $hAktullesImage <> $hCreditsImage Then
$hAktullesImage = $hCreditsImage
GUICtrlSetState($CreditsTab, $GUI_SHOW)
SetBitmap($GUI, $hAktullesImage, 255)
EndIf
EndSwitch
MouseUp("left")
EndIf
EndFunc ;==>_CheckClickFunc WM_NCHITTEST($hWnd, $iMsg, $iwParam, $ilParam)
[/autoit] [autoit][/autoit] [autoit]
If ($hWnd = $GUI) And ($iMsg = $WM_NCHITTEST) Then Return $HTCAPTION
EndFunc ;==>WM_NCHITTESTFunc SetBitmap($hGUI, $hImage, $iOpacity)
[/autoit] [autoit][/autoit] [autoit]
Local $hScrDC, $hMemDC, $hBitmap, $hOld, $pSize, $tSize, $pSource, $tSource, $pBlend, $tBlend$hScrDC = _WinAPI_GetDC(0)
[/autoit]
$hMemDC = _WinAPI_CreateCompatibleDC($hScrDC)
$hBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage)
$hOld = _WinAPI_SelectObject($hMemDC, $hBitmap)
$tSize = DllStructCreate($tagSIZE)
$pSize = DllStructGetPtr($tSize)
DllStructSetData($tSize, "X", _GDIPlus_ImageGetWidth($hImage))
DllStructSetData($tSize, "Y", _GDIPlus_ImageGetHeight($hImage))
$tSource = DllStructCreate($tagPOINT)
$pSource = DllStructGetPtr($tSource)
$tBlend = DllStructCreate($tagBLENDFUNCTION)
$pBlend = DllStructGetPtr($tBlend)
DllStructSetData($tBlend, "Alpha", $iOpacity)
DllStructSetData($tBlend, "Format", $AC_SRC_ALPHA)
_WinAPI_UpdateLayeredWindow($hGUI, $hScrDC, 0, $pSize, $hMemDC, $pSource, 0, $pBlend, $ULW_ALPHA)
_WinAPI_ReleaseDC(0, $hScrDC)
_WinAPI_SelectObject($hMemDC, $hOld)
_WinAPI_DeleteObject($hBitmap)
_WinAPI_DeleteDC($hMemDC)
EndFunc ;==>SetBitmap
Das Aktuelle ScriptDas hier muss noch rein:
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
;==========================================Spektrum-Analysator====================================================
$iX = 120
$iY = 145
$graphics = _GDIPlus_GraphicsCreateFromHWND($hgui)
$bitmap = _GDIPlus_BitmapCreateFromGraphics($iX, $iY, $graphics)
$backbuffer = _GDIPlus_ImageGetGraphicsContext($bitmap)
_GDIPlus_GraphicsClear($backbuffer)
$pen1_size = 4
$pen1 = _GDIPlus_PenCreate(0, $pen1_size)
$pen2_size = 4
$pen2 = _GDIPlus_PenCreate(0, $pen2_size)
$pen3_size = 3
$pen3 = _GDIPlus_PenCreate(0, $pen3_size)
$fall_speed_l_threshold = 0
$fall_speed_r_threshold = 0
$equalizer_width = 24
$max_l = 0
$max_r = 0
$fall_speed = 5
$fire_up = 15
$fft_start = 7
$fft_end = 127
$fft_boost = 750
$dy = Int($iY / ($fft_end - $fft_start)) + $pen3_size
$dyy = Int($iY / $dy / 2)
$eq = 1
Dim $mpos[2]Func DISPLAY_VIS($eq = 1)
[/autoit]
_GDIPlus_GraphicsClear($backbuffer, -2131693328)
If $eq > 0 Then
$levels = _BASS_CHANNELGETLEVEL($hMusic)
$LeftChLvl = $leftChLvlper
$rightChLvl = $rightChLvlper
If $max_l <= $LeftChLvl Then
$max_l = $LeftChLvl + $fire_up
$fall_speed_l_threshold = 20
Else
If $fall_speed_l_threshold <= 0 Then
If $max_l > $LeftChLvl + $pen2_size * 2 Then $max_l -= $fall_speed
Else
$fall_speed_l_threshold -= 1
If $max_l > $LeftChLvl + $pen2_size * 2 Then $max_l -= $fall_speed / 3
EndIf
EndIf
If $max_r <= $rightChLvl Then
$max_r = $rightChLvl + $fire_up
$fall_speed_r_threshold = 20
Else
If $fall_speed_r_threshold <= 0 Then
If $max_r > $rightChLvl + $pen2_size * 2 Then $max_r -= $fall_speed
Else
$fall_speed_r_threshold -= 1
If $max_r > $rightChLvl + $pen2_size * 2 Then $max_r -= $fall_speed / 3
EndIf
EndIf
_BASS_CHANNELGETDATA($hMusic, DllStructGetPtr($fftstruct), $BASS_DATA_FFT256)
For $i = $fft_start To $fft_end Step $dy
$FFT = Round(DllStructGetData($fftstruct, 1, $i + 1) * $fft_boost)
$R = (-(Cos(1.7 * $FFT / 256) + 1) * 0.5) * 256
$G = ((Cos(4 * $FFT / 256) + 1) * 0.5) * 256
$B = 0
_GDIPlus_PenSetColor($pen3, "0xFF" & Hex($R, 2) & Hex($G, 2) & Hex($B, 2))
_GDIPlus_GraphicsDrawLine($backbuffer, $iX / 5, $i + $dyy, $iX / 5 + $FFT, $i + $dyy, $pen3)
Next
EndIf
_GDIPlus_GraphicsDrawImageRect($graphics, $bitmap, $Width - $iX - 10, 8, $iX, $iY)
EndFunc ;==>DISPLAY_VISIch hab aber keine Ahnung wie ich es anpassen muss, dass es Reinpasst...
-
Zitat
Das hier muss noch rein:
Aber wohin? Definier das mal etwas genauer. -
Rechts der Slider wie beim alten !?!
-
Ich mach dir auch die GUI ....
-
Ok, wenn du willst
Aber die funktionen mach ich !
-
ähh werd heute nichmehr so viel zu den buttons kommen
sind zwar schon halb fertig aba naja -