Kleines problem mit Transparenz ?

Eistee

Hallo leute ich wollte nur mal fragen warum in der hilfe erklärt steht was man machen muss wenn man ein transparentes bild verwenden möchte obwohl mein doch eigentlich kein transparent verwenden kann
weil es geht ja nur .jpg .jepg .gif .bmp und bei diesen Formaten meint gimp das sie keine Transparenz unterstützen

Hoffe auf antworten

Mfg LogiVidia

**Oscar**

Die Transparenz in AutoIt ist völlig unabhängig von der Transparent-Fähigkeit der Grafikformate. BTW: Bei GIFs gibt es durchaus Transparenz.

Eistee

mit gimp jedenfals nicht schade hätte gerne abgerundete ecken benutz

Gibt es nicht eine Möglichkeit bei autoit das format .png zu verwenden ?

**Oscar**

Sieh Dir mal das Beispiel aus dem Anhang an. Das erklärt das Prinzip der Transparenz von AutoIt.

Eistee

klapt soweit ganz gut arbeitet aber scheinbar nicht sehr sauber...
habe in den transparenten stellen immer kleine weisse pixel...

kann man nicht ganz einfach den background einer gui durchsichtig machen und png´s verwenden ?
man muss doch auch mal was mit gescheitem design machen können das is ja sch****e so

**Oscar**

Vielleicht beschreibst Du mal, was Du überhaupt machen willst, statt immer nur rumzumeckern.

Eistee

erstens ich mecker nicht das war nur ne feststellung

und zwar will ich einfach nur eine Gui mir abgerundeten ecken daher meinte ich eben bild mit transparenz wo alles abgerundet ist
aber das mit dem weis zu transparent bringt mir da gar nix weil einfach die qualität nichts ist da ist an den runden stellen immer noch ein bisschen weis übrig und das stört halt einfach

Mfg LogiVidia

im anhang ist ein beispiel von dem bg bild

das ist die gui

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ComboConstants.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <ButtonConstants.au3>
#include <ListBoxConstants.au3>
#include <TabConstants.au3>
#include <EditConstants.au3>
#include <DateTimeConstants.au3>
#include <SliderConstants.au3>
#include <TreeViewConstants.au3>
#include <ProgressConstants.au3>
#include <AVIConstants.au3>
#include <UpDownConstants.au3>
#include<Array.au3>
#include<File.au3>
#include <WinAPI.au3>
#NoTrayIcon
$IpRead123 = FileReadLine("Launcher.txt", 6)
$file = InetGetSize($IpRead123 & "/UpdateVersion.txt")
If @error Then
FileInstall("BG1.jpg",@TempDir & "\BG1.jpg")
FileInstall("Start.jpg",@TempDir & "\Start.jpg")
FileInstall("Options.jpg",@TempDir & "\Options.jpg")
FileInstall("Website.jpg",@TempDir & "\Website.jpg")
FileInstall("Close.jpg",@TempDir & "\Close.jpg")
$Lname = FileReadLine("Launcher.txt",2)
$notice = FileRead("notice.txt")
$HTT = FileReadLine("Launcher.txt",4)
$Form1 = GUICreate($Lname, 550, 300, -1, -1,$WS_POPUP)
$Pic2 = GUICtrlCreatePic(@TempDir & "\Start.jpg", 38, 265, 130, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic3 = GUICtrlCreatePic(@TempDir & "\Options.jpg", 212, 265, 130, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic4 = GUICtrlCreatePic(@TempDir & "\Website.jpg", 382, 265, 130, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic5 = GUICtrlCreatePic(@TempDir & "\Close.jpg", 532, 0, 20, 20, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic1 = GUICtrlCreatePic(@TempDir & "\BG1.jpg", 0, 0, 550, 300, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$Ws_Disabled))
$Edit1 = GUICtrlCreateEdit("", 38, 168, 474, 89)
GUICtrlSetData(-1, $notice)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetColor(-1, 0xffffff)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Pic2
_1()
Case $Pic3
_2()
Case $Pic4
_3()
Case $Pic5
_4()
EndSwitch
WEnd
ElseIf $file > 0 Then
_u ()
EndIf
Func _u ()
$IpRead = FileReadLine("Launcher.txt", 6)
If FileExists("C:\UpdateVersion.txt") Then
_Funce ()
Else
FileWrite("C:\UpdateVersion.txt", "1234567gdertfderdvbhtt")
Sleep(1000)
_Funce ()
EndIf
EndFunc
Func _Funce ()
$IpRead = FileReadLine("Launcher.txt", 6)
$Ip2 = ($IpRead)
$ver = FileRead("C:\UpdateVersion.txt")
InetGet($Ip2 &"/UpdateVersion.txt",@ScriptDir &"\UpdateVersion.txt")
$file = FileOpen(@ScriptDir & "\UpdateVersion.txt", 0)
$line = FileRead($file)
If $line = $ver Then
FileClose($file)
Else
FileClose($file)
Sleep(500)
FileDelete("C:\UpdateVersion.txt")
Sleep(1000)
FileCopy(@ScriptDir & "\UpdateVersion.txt", "C:\UpdateVersion.txt")
ProgressOn("Checking Resource", "Checking Resource")
Sleep(1000)
ProgressSet(20, "Checking Resource", "20 %")
Sleep(1000)
ProgressSet(50, "Checking Resource", "50 %")
Sleep(1000)
ProgressSet(100, "Checking Resource", "100 %")
Sleep(500)
ProgressOff()
_Func ()
EndIf
EndFunc
Func _Func ()
$IpRead = FileReadLine("Launcher.txt", 6)
$Ip = ($IpRead)
Local $meinarray
InetGet($Ip &"/file.list",@ScriptDir &"\file.list")
$filename = (@ScriptDir &"\file.list")
$FILEPATH = (@ScriptDir &"\file.txt")
$hFile = FileOpen($filename,0)
_FilereadToArray($filename, $meinarray)
_FileWriteFromArray($FILEPATH, $meinarray)
$split = StringRegExp(FileRead(FileOpen(@ScriptDir & '\file.txt', 0)), '(?<=\n|\A).*(?=,)', 3)
$file = FileOpen("UpdInf.txt",2)
For $i = 0 To Ubound($split) -1
FileWrite("UpdInf.txt", $split[$i] & @crlf)
Next
$filename1 = @ScriptDir & '\UpdInf.txt'
$filename2 = @ScriptDir & '\UpdInf2.txt'
Local $meinarray1
Local $nLfd
_FileReadToArray($filename1,$meinarray1)
For $nLfd = 1 To $meinarray1[0]
$meinarray1[$nLfd] = StringRegExpReplace($meinarray1[$nLfd],'\\','\/')
$meinarray1[$nLfd] = StringRegExpReplace($meinarray1[$nLfd],'\./','/')
Next
_FileWriteFromArray($filename1,$meinarray1,1,$meinarray1[0])
$filename1 = @ScriptDir & '\UpdInf.txt'
$filename2 = @ScriptDir & '\UpdInf2.txt'
Local $meinarray1
Local $nLfd
_FileReadToArray($filename1,$meinarray1)
For $nLfd = 1 To $meinarray1[0]
$meinarray1[$nLfd] = StringRegExpReplace($meinarray1[$nLfd],'\/','\\')
$meinarray1[$nLfd] = StringRegExpReplace($meinarray1[$nLfd],'\.\','\\')
Next
_FileWriteFromArray($filename2,$meinarray1,1,$meinarray1[0])
ProgressOn("Found KalOnline Updates", "KalOnline Update in Progress", "Update",-1,-1,18)
$filename0 = FileOpen("UpdInf.txt",0)
$filename3 = FileOpen("UpdInf2.txt",0)
ProgressSet(0,"0%")
Local $der
$der = FileReadLine("file.txt", 1)
for $i = 1 to $der
$1 = FileReadLine($filename0,$i)
$2 = FileReadLine($filename3,$i)
Inetget($Ip&$1,@ScriptDir &$2)
$prozent = $i/$der*100
$prozent = StringSplit($prozent, ".")
If IsArray($prozent) Then ProgressSet($prozent[1],$2,$prozent[1]&" %")
Next
Sleep(200)
ProgressOff()
FileClose(@ScriptDir &"UpdInf.txt")
FileClose(@ScriptDir &"UpdInf2.txt")
FileClose(@ScriptDir &"file.list")
FileClose(@ScriptDir &"file.txt")
FileDelete(@ScriptDir &"UpdInf.txt")
FileDelete(@ScriptDir &"UpdInf2.txt")
FileDelete(@ScriptDir &"file.list")
FileDelete(@ScriptDir &"file.txt")
MsgBox(0,"Updates", "All Updates Finished", 1)
Sleep(50)
MsgBox(0,"Updates", "All Updates Finished", 1)
Sleep(50)
MsgBox(0,"Updates", "All Updates Finished", 1)
Sleep(50)
EndFunc
FileInstall("BG1.jpg",@TempDir & "\BG1.jpg")
FileInstall("Start.jpg",@TempDir & "\Start.jpg")
FileInstall("Options.jpg",@TempDir & "\Options.jpg")
FileInstall("Website.jpg",@TempDir & "\Website.jpg")
FileInstall("Close.jpg",@TempDir & "\Close.jpg")
$Lname = FileReadLine("Launcher.txt",2)
$notice = FileRead("notice.txt")
$HTT = FileReadLine("Launcher.txt",4)
$Form1 = GUICreate($Lname, 550, 300, -1, -1,$WS_POPUP)
$Pic2 = GUICtrlCreatePic(@TempDir & "\Start.jpg", 38, 265, 130, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic3 = GUICtrlCreatePic(@TempDir & "\Options.jpg", 212, 265, 130, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic4 = GUICtrlCreatePic(@TempDir & "\Website.jpg", 382, 265, 130, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic5 = GUICtrlCreatePic(@TempDir & "\Close.jpg", 532, 0, 20, 20, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic1 = GUICtrlCreatePic(@TempDir & "\BG1.jpg", 0, 0, 550, 300, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$Ws_Disabled))
$Edit1 = GUICtrlCreateEdit("", 38, 168, 474, 89)
GUICtrlSetData(-1, $notice)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetColor(-1, 0xffffff)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Pic2
_1()
Case $Pic3
_2()
Case $Pic4
_3()
Case $Pic5
_4()
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func _1 ()
ShellExecute("engine.exe","/load /config debug")
Exit
Endfunc
Func _3 ()
ShellExecute($HTT)
EndFunc
Func _2 ()
FileInstall("Reso.exe","Reso.exe")
MsgBox(0, "Setting", "Here you can change the Game Resolution, other settings please change in Game",4)
Sleep(500)
Run("Reso.exe")
Exit
EndFunc
Func _4 ()
Exit
Endfunc

[/autoit]

**peethebee**

LV:

Es fehlt in deinem Post:
1. Satzzeichen, also Kommas und Punkte
2. Großbuchstaben (ja, die deutsche Sprache kennt so etwas)
3. Struktur (ich lese keine Sätze dreimal, nur um eine Ahnung davon bekommen zu können, was der Poster meint)

Das ist keine Grundlage, um gemeinsam ein Problem zu lösen...

peethebee

Eistee

Ok Noch Mal :

1. Ich meckere nicht, das war nur eine Feststellung.
Und zwar will ich einfach nur eine Gui mit abgerundeten Ecken, daher meinte ich eben ein Bild mit Transparenz wo die Ecken abgerundet sind.
Aber das mit dem weiß zu Transparent, bringt mir da gar nix, weil einfach die Qualität nichts ist. Da ist an den runden Stellen immer noch ein bisschen weiß übrig und das stört halt einfach.

MfG LogiVidia

P.s. im Anhang In meinem vorigen Post, ist ein beispiel von dem Background Bild
Das ist der Code von meinem Script.

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ComboConstants.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <ButtonConstants.au3>
#include <ListBoxConstants.au3>
#include <TabConstants.au3>
#include <EditConstants.au3>
#include <DateTimeConstants.au3>
#include <SliderConstants.au3>
#include <TreeViewConstants.au3>
#include <ProgressConstants.au3>
#include <AVIConstants.au3>
#include <UpDownConstants.au3>
#include<Array.au3>
#include<File.au3>
#include <WinAPI.au3>
#NoTrayIcon
$IpRead123 = FileReadLine("Launcher.txt", 6)
$file = InetGetSize($IpRead123 & "/UpdateVersion.txt")
If @error Then
FileInstall("BG1.jpg",@TempDir & "\BG1.jpg")
FileInstall("Start.jpg",@TempDir & "\Start.jpg")
FileInstall("Options.jpg",@TempDir & "\Options.jpg")
FileInstall("Website.jpg",@TempDir & "\Website.jpg")
FileInstall("Close.jpg",@TempDir & "\Close.jpg")
$Lname = FileReadLine("Launcher.txt",2)
$notice = FileRead("notice.txt")
$HTT = FileReadLine("Launcher.txt",4)
$Form1 = GUICreate($Lname, 550, 300, -1, -1,$WS_POPUP)
$Pic2 = GUICtrlCreatePic(@TempDir & "\Start.jpg", 38, 265, 130, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic3 = GUICtrlCreatePic(@TempDir & "\Options.jpg", 212, 265, 130, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic4 = GUICtrlCreatePic(@TempDir & "\Website.jpg", 382, 265, 130, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic5 = GUICtrlCreatePic(@TempDir & "\Close.jpg", 532, 0, 20, 20, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic1 = GUICtrlCreatePic(@TempDir & "\BG1.jpg", 0, 0, 550, 300, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$Ws_Disabled))
$Edit1 = GUICtrlCreateEdit("", 38, 168, 474, 89)
GUICtrlSetData(-1, $notice)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetColor(-1, 0xffffff)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Pic2
_1()
Case $Pic3
_2()
Case $Pic4
_3()
Case $Pic5
_4()
EndSwitch
WEnd
ElseIf $file > 0 Then
_u ()
EndIf
Func _u ()
$IpRead = FileReadLine("Launcher.txt", 6)
If FileExists("C:\UpdateVersion.txt") Then
_Funce ()
Else
FileWrite("C:\UpdateVersion.txt", "1234567gdertfderdvbhtt")
Sleep(1000)
_Funce ()
EndIf
EndFunc
Func _Funce ()
$IpRead = FileReadLine("Launcher.txt", 6)
$Ip2 = ($IpRead)
$ver = FileRead("C:\UpdateVersion.txt")
InetGet($Ip2 &"/UpdateVersion.txt",@ScriptDir &"\UpdateVersion.txt")
$file = FileOpen(@ScriptDir & "\UpdateVersion.txt", 0)
$line = FileRead($file)
If $line = $ver Then
FileClose($file)
Else
FileClose($file)
Sleep(500)
FileDelete("C:\UpdateVersion.txt")
Sleep(1000)
FileCopy(@ScriptDir & "\UpdateVersion.txt", "C:\UpdateVersion.txt")
ProgressOn("Checking Resource", "Checking Resource")
Sleep(1000)
ProgressSet(20, "Checking Resource", "20 %")
Sleep(1000)
ProgressSet(50, "Checking Resource", "50 %")
Sleep(1000)
ProgressSet(100, "Checking Resource", "100 %")
Sleep(500)
ProgressOff()
_Func ()
EndIf
EndFunc
Func _Func ()
$IpRead = FileReadLine("Launcher.txt", 6)
$Ip = ($IpRead)
Local $meinarray
InetGet($Ip &"/file.list",@ScriptDir &"\file.list")
$filename = (@ScriptDir &"\file.list")
$FILEPATH = (@ScriptDir &"\file.txt")
$hFile = FileOpen($filename,0)
_FilereadToArray($filename, $meinarray)
_FileWriteFromArray($FILEPATH, $meinarray)
$split = StringRegExp(FileRead(FileOpen(@ScriptDir & '\file.txt', 0)), '(?<=\n|\A).*(?=,)', 3)
$file = FileOpen("UpdInf.txt",2)
For $i = 0 To Ubound($split) -1
FileWrite("UpdInf.txt", $split[$i] & @crlf)
Next
$filename1 = @ScriptDir & '\UpdInf.txt'
$filename2 = @ScriptDir & '\UpdInf2.txt'
Local $meinarray1
Local $nLfd
_FileReadToArray($filename1,$meinarray1)
For $nLfd = 1 To $meinarray1[0]
$meinarray1[$nLfd] = StringRegExpReplace($meinarray1[$nLfd],'\\','\/')
$meinarray1[$nLfd] = StringRegExpReplace($meinarray1[$nLfd],'\./','/')
Next
_FileWriteFromArray($filename1,$meinarray1,1,$meinarray1[0])
$filename1 = @ScriptDir & '\UpdInf.txt'
$filename2 = @ScriptDir & '\UpdInf2.txt'
Local $meinarray1
Local $nLfd
_FileReadToArray($filename1,$meinarray1)
For $nLfd = 1 To $meinarray1[0]
$meinarray1[$nLfd] = StringRegExpReplace($meinarray1[$nLfd],'\/','\\')
$meinarray1[$nLfd] = StringRegExpReplace($meinarray1[$nLfd],'\.\','\\')
Next
_FileWriteFromArray($filename2,$meinarray1,1,$meinarray1[0])
ProgressOn("Found KalOnline Updates", "KalOnline Update in Progress", "Update",-1,-1,18)
$filename0 = FileOpen("UpdInf.txt",0)
$filename3 = FileOpen("UpdInf2.txt",0)
ProgressSet(0,"0%")
Local $der
$der = FileReadLine("file.txt", 1)
for $i = 1 to $der
$1 = FileReadLine($filename0,$i)
$2 = FileReadLine($filename3,$i)
Inetget($Ip&$1,@ScriptDir &$2)
$prozent = $i/$der*100
$prozent = StringSplit($prozent, ".")
If IsArray($prozent) Then ProgressSet($prozent[1],$2,$prozent[1]&" %")
Next
Sleep(200)
ProgressOff()
FileClose(@ScriptDir &"UpdInf.txt")
FileClose(@ScriptDir &"UpdInf2.txt")
FileClose(@ScriptDir &"file.list")
FileClose(@ScriptDir &"file.txt")
FileDelete(@ScriptDir &"UpdInf.txt")
FileDelete(@ScriptDir &"UpdInf2.txt")
FileDelete(@ScriptDir &"file.list")
FileDelete(@ScriptDir &"file.txt")
MsgBox(0,"Updates", "All Updates Finished", 1)
Sleep(50)
MsgBox(0,"Updates", "All Updates Finished", 1)
Sleep(50)
MsgBox(0,"Updates", "All Updates Finished", 1)
Sleep(50)
EndFunc
FileInstall("BG1.jpg",@TempDir & "\BG1.jpg")
FileInstall("Start.jpg",@TempDir & "\Start.jpg")
FileInstall("Options.jpg",@TempDir & "\Options.jpg")
FileInstall("Website.jpg",@TempDir & "\Website.jpg")
FileInstall("Close.jpg",@TempDir & "\Close.jpg")
$Lname = FileReadLine("Launcher.txt",2)
$notice = FileRead("notice.txt")
$HTT = FileReadLine("Launcher.txt",4)
$Form1 = GUICreate($Lname, 550, 300, -1, -1,$WS_POPUP)
$Pic2 = GUICtrlCreatePic(@TempDir & "\Start.jpg", 38, 265, 130, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic3 = GUICtrlCreatePic(@TempDir & "\Options.jpg", 212, 265, 130, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic4 = GUICtrlCreatePic(@TempDir & "\Website.jpg", 382, 265, 130, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic5 = GUICtrlCreatePic(@TempDir & "\Close.jpg", 532, 0, 20, 20, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic1 = GUICtrlCreatePic(@TempDir & "\BG1.jpg", 0, 0, 550, 300, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$Ws_Disabled))
$Edit1 = GUICtrlCreateEdit("", 38, 168, 474, 89)
GUICtrlSetData(-1, $notice)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetColor(-1, 0xffffff)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Pic2
_1()
Case $Pic3
_2()
Case $Pic4
_3()
Case $Pic5
_4()
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func _1 ()
ShellExecute("engine.exe","/load /config debug")
Exit
Endfunc
Func _3 ()
ShellExecute($HTT)
EndFunc
Func _2 ()
FileInstall("Reso.exe","Reso.exe")
MsgBox(0, "Setting", "Here you can change the Game Resolution, other settings please change in Game",4)
Sleep(500)
Run("Reso.exe")
Exit
EndFunc
Func _4 ()
Exit
Endfunc

[/autoit]

Nochmals MfG LogiVidia

P.s. ist es evtl. möglich dafür zu sorgen das er schwarz als transparent nimmt ? oder irgendeine andere farbe ?

progandy

Suchst du vllt. so was? http://www.autoitscript.com/forum/index.php?showtopic=47651&hl=
Da bekommst du den Transparenz-Verlauf auch mit rein.

Eistee

Danke Progandy das hatte ich schon damit komme ich nicht klar verstehe da nicht wie ich einfach nur die funktion ausbaue um ein png in autoit zu verwenden
vielleicht kannste mir das erklären ?
aber danke schonmal

**Greenhorn**

Moinsen,

Spoiler anzeigen

[autoit]

#include-once
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>

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

$hWnd = GUICreate('Window', 800, 600, -1, -1, $WS_POPUP)

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

$Backgrnd = GUICtrlCreatePic(@SystemDir & '\oobe\images\wpaback.jpg', _
0, 0, 800, 600, $SS_NOTIFY, $GUI_WS_EX_PARENTDRAG)
_GuiRoundCorners($hWnd, 0, 0, 60, 60)

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

GUISetState()

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

While True

Switch GUIGetMsg()

Case -3
Exit
EndSwitch
WEnd

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

Func _GuiRoundCorners($hWnd, $x1, $y1, $x3, $y3)

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

Dim $pos, $ret, $ret2
$pos = WinGetPos($hWnd)
$ret = DllCall('gdi32.dll', 'long', 'CreateRoundRectRgn', _
'long', $x1, _
'long', $y1, _
'long', $pos[2], _
'long', $pos[3], _
'long', $x3, _
'long', $y3)
If $ret[0] Then
$ret2 = DllCall('user32.dll', 'long', 'SetWindowRgn', 'hwnd', $hWnd, 'long', $ret[0], 'int', 1)
If $ret2[0] Then
Return 1
Else
Return 0
EndIf
Else
Return 0
EndIf

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

EndFunc
;

[/autoit]

Gruetzi

Eistee

Greenhorn hey das ist echt geil danke
eine frage noch könnte man evtl. noch eine stärkere abrundung vornehmen ?
also das die ecken intensiver abgerundet werden ?
also nur so, evtl. halt

Mfg Eistee

**Greenhorn**

Moin,

verändere die letzten beiden Parameter ...
_GuiRoundCorners($hWnd, 0, 0, 60, 60)

Gruß

Eistee

ok greenhorn thx werde ich machen danke nochmal für die tolle antwort

MfG LogiVidia