Hallo AutoIt.de,
habe mal meine externe Festplatte aufgeräumt und noch ein nützliches Script gefunden.
Vielleicht können es ja einige gebrauchen, es bindet ein Bild als text ein.
Code +2 weitere Datein im Anhang.
Test.au3 (= Das Bild)
BinaryData.au3 (= erstellt die Test.au3 datei wo das Bild drin gebunden ist.)
[autoit]
FileToBinaryFunc(@ScriptDir & '\About.png', 'AutoitImage' , 'Test.au3')
[/autoit]
Spoiler anzeigen
; LoadImage
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <GUIConstantsEx.au3>
#include "BinaryData.au3"
#include "Test.au3"
_Start()
[/autoit][autoit][/autoit][autoit]Func _Start()
Local $vThxString, $vArrayThanksTo[3][2] = [ _
["Person1" & @TAB, "...Peter"], _
["Person2" & @TAB & @TAB, "Für Blub und Bla" & @CRLF & @TAB & @TAB & "erstellte dies und das" & @CRLF & @TAB & @TAB & "blub"], _
["Person3" & @TAB & @TAB, "Lustig und so"]]
For $k = 1 To UBound($vArrayThanksTo)
$vThxString &= $vArrayThanksTo[$k - 1][0] & $vArrayThanksTo[$k - 1][1] & @CRLF
Next
Opt("GUIOnEventMode", 1) ; Change to OnEvent mode
Dim $SS_REALSIZEIMAGE = 0x00000800, $msg
Dim $homepageLink = "http://x.de"
GUICtrlSetOnEvent($homepageLink, "_Homepage")
Dim $hGUIAbout = GUICreate(" x ~Manager - About", 464, 153, -1, -1, -1, 0x00000080)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
Dim $BinaryData = AutoitImage()
Dim $Array = LoadImageFrom_BinaryData($BinaryData)
Dim $Pic = GUICtrlCreateLabel("", 0, 0, $Array[1][4], $Array[1][5], $WS_BORDER + $SS_CENTERIMAGE + $SS_REALSIZEIMAGE)
Dim $HandleImage = $Array[1][1] ;$ImageArray[0][1] = "HBITMAP"
STATIC_SETBITMAP($Pic, $HandleImage)
_SM_GUICtrlCreateLabel("Programm Version " & @CRLF & "Coded by x" & @CRLF & $homepageLink & @CRLF & @CRLF & "Thanks to..." & @CRLF & $vThxString, 170, 7, 280, 147)
GUICtrlSetFont(-1, 8.5, 800)
GUISetState(@SW_SHOW, $hGUIAbout)
EndFunc ;==>_Start
While 1
Sleep(1000)
WEnd
Func _SM_GUICtrlCreateLabel($L_Text, $L_X, $L_Y, $L_Width = Default, $L_Height = 17, $L_Style = -1, $L_ExStyle = -1, $L_Color = 0xFFFFFF, $L_BkColor = Default)
Local $L_HWnd = GUICtrlCreateLabel($L_Text, $L_X, $L_Y, $L_Width, $L_Height, $L_Style, $L_ExStyle)
If $L_Color <> Default And $L_Color <> -1 Then GUICtrlSetColor($L_HWnd, $L_Color)
If $L_BkColor <> Default And $L_BkColor <> -1 Then
GUICtrlSetBkColor($L_HWnd, $L_BkColor)
Else
GUICtrlSetBkColor($L_HWnd, -2) ;$GUI_BKCOLOR_TRANSPARENT
EndIf
Return $L_HWnd
EndFunc ;==>_SM_GUICtrlCreateLabel
Func _Homepage()
MsgBox(64, "", "")
EndFunc ;==>_Homepage
Func _Exit()
Exit
EndFunc ;==>_Exit
Vorschau
[Blockierte Grafik: http://image.cp-g.de/pics/4fb4f2b08da47.png]