[IN ARBEIT] Neues Design?!?

AntiSpeed

@Ludwig: Woher kannst du das so gut? Kannst du mal ein Video (also ein Tutorial) darüber machen? bitte

Ludwig

Was für ne Idee ?
Aber ich mach grad was andres Gutes ..... moment ....

JuraX

ich bin gespannt...
yxyx du kennst dich doch mit gdi buttons aus, kanst du dir mal die konsole anschauen?

Ludwig

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.

JuraX

die guielemente mach ich, danke...

yxyx

ich muss schon sagen das sieht echt gut aus

Zitat

yxyx du kennst dich doch mit gdi buttons aus, kanst du dir mal die konsole anschauen?

die sind eh schon so gut gemacht xD

AntiSpeed

Schade, dass du keine Tuts magst. Na ok. Ich exprementiere mal rum...

JuraX

yxyx nein, schau mal oben links beim kreis , die müsste man noch abfragen am besten mit
$topplay
$topvor
$topback

Wenn dus kannst...

yxyx

ich schaus mir ma an xD

yxyx

ähhm ne frage hast du dan funktionen die topplay topvor topback heißen oda sollen die auf true gesetzt werden

JuraX

ich abrbeite ja mit on event, also würde ich sagen:

[autoit]

guictrlsetonevent($topplay,"func")

[/autoit]

dafür...

tince

Zitat von Antispeed

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.

yxyx

ok

AntiSpeed

Super .

JuraX

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>
#include <WinAPI.au3>
#include <Misc.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <StructureConstants.au3>
#NoTrayIcon

[/autoit] [autoit][/autoit] [autoit]

#region Wrapper
#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

[/autoit] [autoit][/autoit] [autoit]

#region Globals

[/autoit] [autoit][/autoit] [autoit]

Global Const $AC_SRC_ALPHA = 1

[/autoit] [autoit][/autoit] [autoit]

Global $Hover

[/autoit] [autoit][/autoit] [autoit]

_GDIPlus_Startup()
$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")

[/autoit] [autoit][/autoit] [autoit]

$hAktullesImage = $hNewsImage

[/autoit] [autoit][/autoit] [autoit]

$width = _GDIPlus_ImageGetWidth($hMusikImage)
$height = _GDIPlus_ImageGetHeight($hMusikImage)

[/autoit] [autoit][/autoit] [autoit]

#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)
GUIRegisterMsg($WM_NCHITTEST, "WM_NCHITTEST")
GUISetState()

[/autoit] [autoit][/autoit] [autoit]

For $i = 0 To 255 Step 40
Sleep(5)
SetBitmap($GUI, $hAktullesImage, $i)
Next
SetBitmap($GUI, $hAktullesImage, 255)

[/autoit] [autoit][/autoit] [autoit]

$WinPos = WinGetPos($GUI)

[/autoit] [autoit][/autoit] [autoit]

$ChildGUI = GUICreate("", $width, $height, 0, 0, $WS_POPUP, BitOR($WS_EX_MDICHILD, $WS_EX_LAYERED), $GUI)
GUICtrlCreatePic(@ScriptDir & "\Pics\grey.gif", 0, 0, $width, $height)
GUICtrlSetState(-1, $GUI_DISABLE)

[/autoit] [autoit][/autoit] [autoit]

$MusikTabLabel = GUICtrlCreateLabel("Musik", 49, 126, 128, 17, $SS_CENTER)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)

[/autoit] [autoit][/autoit] [autoit]

$RadioTabLabel = GUICtrlCreateLabel("Radio", 49, 126 + 25, 128, 17, $SS_CENTER)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)

[/autoit] [autoit][/autoit] [autoit]

$CDPlayerTabLabel = GUICtrlCreateLabel("CD-Player", 49, 126 + 50, 128, 17, $SS_CENTER)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)

[/autoit] [autoit][/autoit] [autoit]

$OptionenTabLabel = GUICtrlCreateLabel("Optionen", 49, 331, 128, 17, $SS_CENTER)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)

[/autoit] [autoit][/autoit] [autoit]

$CreditsTabLabel = GUICtrlCreateLabel("Credits", 49, 331 + 25, 128, 17, $SS_CENTER)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)

[/autoit] [autoit][/autoit] [autoit]

GUICtrlCreateTab(0, 0, 10, 10)
GUICtrlSetState(-1, $GUI_HIDE)

[/autoit] [autoit][/autoit] [autoit]

$NewsTab = GUICtrlCreateTabItem("News")
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)

[/autoit] [autoit][/autoit] [autoit]

$MusikTab = GUICtrlCreateTabItem("Musik")
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)

[/autoit] [autoit][/autoit] [autoit]

$RadioTab = GUICtrlCreateTabItem("Radio")
GUICtrlCreateButton("BLABLA Radio", 200, 60, 100, 20)

[/autoit] [autoit][/autoit] [autoit]

$CDPlayerTab = GUICtrlCreateTabItem("CD-Player")
GUICtrlCreateButton("BLABLA CD-Player", 200, 60, 100, 20)

[/autoit] [autoit][/autoit] [autoit]

$OptionenTab = GUICtrlCreateTabItem("Optionen")
GUICtrlCreateButton("BLABLA Optionen", 200, 60, 100, 20)

[/autoit] [autoit][/autoit] [autoit]

$CreditsTab = GUICtrlCreateTabItem("Credits")
GUICtrlCreateButton("BLABLA Credits", 200, 60, 100, 20)

[/autoit] [autoit][/autoit] [autoit]

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
Sleep(1)
_WinAPI_SetLayeredWindowAttributes($ChildGUI, 0x999999, $i)
Next
$i = 255
_WinAPI_SetLayeredWindowAttributes($ChildGUI, 0x999999, $i)

[/autoit] [autoit][/autoit] [autoit]

While 1
Switch GUIGetMsg($ChildGUI)
Case $GUI_EVENT_CLOSE
ExitLoop
EndSwitch

[/autoit] [autoit][/autoit] [autoit]

_CheckHover()
WEnd

[/autoit] [autoit][/autoit] [autoit]

For $i = 255 To 0 Step -40
Sleep(5)
SetBitmap($GUI, $hAktullesImage, $i)
Next

[/autoit] [autoit][/autoit] [autoit]

_WinAPI_DeleteObject($hMusikImage)
_WinAPI_DeleteObject($hRadioImage)
_WinAPI_DeleteObject($hCDPlayerImage)
_WinAPI_DeleteObject($hOptionenImage)
_WinAPI_DeleteObject($hCreditsImage)
_GDIPlus_Shutdown()

[/autoit] [autoit][/autoit] [autoit]

Func _CheckHover()
$CurInf = GUIGetCursorInfo($ChildGUI)
If @error Then Return

[/autoit] [autoit][/autoit] [autoit]

If $Hover = $CurInf[4] Then Return _CheckClick()

[/autoit] [autoit][/autoit] [autoit]

Switch $Hover
Case $MusikTabLabel, $RadioTabLabel, $CDPlayerTabLabel, $OptionenTabLabel, $CreditsTabLabel
GUICtrlSetColor($Hover, 0xFFFFFF)
EndSwitch

[/autoit] [autoit][/autoit] [autoit]

$Hover = $CurInf[4]
Switch $Hover
Case $MusikTabLabel, $RadioTabLabel, $CDPlayerTabLabel, $OptionenTabLabel, $CreditsTabLabel
GUICtrlSetColor($Hover, 0xCCCCCC)
EndSwitch
EndFunc ;==>_CheckHover

[/autoit] [autoit][/autoit] [autoit]

Func _CheckClick()
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 ;==>_CheckClick

[/autoit] [autoit][/autoit] [autoit]

Func WM_NCHITTEST($hWnd, $iMsg, $iwParam, $ilParam)
If ($hWnd = $GUI) And ($iMsg = $WM_NCHITTEST) Then Return $HTCAPTION
EndFunc ;==>WM_NCHITTEST

[/autoit] [autoit][/autoit] [autoit]

Func SetBitmap($hGUI, $hImage, $iOpacity)
Local $hScrDC, $hMemDC, $hBitmap, $hOld, $pSize, $tSize, $pSource, $tSource, $pBlend, $tBlend

[/autoit] [autoit][/autoit] [autoit]

$hScrDC = _WinAPI_GetDC(0)
$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

[/autoit]

Das Aktuelle Script

Das hier muss noch rein:

Spoiler anzeigen

[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]

[/autoit] [autoit][/autoit] [autoit]

Func DISPLAY_VIS($eq = 1)
_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_VIS

[/autoit]

Ich hab aber keine Ahnung wie ich es anpassen muss, dass es Reinpasst...

name22

Zitat

Das hier muss noch rein:

Aber wohin? Definier das mal etwas genauer.

JuraX

Rechts der Slider wie beim alten !?!

Ludwig

Ich mach dir auch die GUI ....

JuraX

Ok, wenn du willst

Aber die funktionen mach ich !

yxyx

ähh werd heute nichmehr so viel zu den buttons kommen
sind zwar schon halb fertig aba naja