Bild , aber davor noch ein Bild

Teddy

Hallo Leute ( Ich bins wieder ;))

Also ich hab ein Bild im Vordergrund , Wenn ich dan F8 Drücke soll das bild im Gui sein, aber davor sollen Zahlen 1-32 sein.

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

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

AutoIt Version: 3.2.13.7 (beta)
Author: myName

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

Script Function:
Template AutoIt script.

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

#ce ----------------------------------------------------------------------------

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

; Script Start - Add your code below here

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

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ScreenCapture.au3>

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

HotKeySet("{F8}", "_Klaus")

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 633, 447, -1,-1)
GUISetFont(12, 400, 2, "Monotype Corsiva")
GUISetBkColor(0xFFFFFF)

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

$Pic2 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Alexander\Desktop\AutoStaller\NumInventory.jpg", 32, 40, 177, 321, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic1 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Alexander\Desktop\AutoStaller\Bild1.jpg", 32, 40, 177, 321, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetState(-1, $GUI_HIDE)

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

$Group2 = GUICtrlCreateGroup("Einstellungen", 272, 16, 169, 137)
$Button1 = GUICtrlCreateButton("Laden", 312, 56, 75, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)

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

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1

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

$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd

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

Func _Klaus()
Local $hBmp

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

; Capture full screen
$hBmp = _ScreenCapture_Capture(@ScriptDir & "\Bild1.jpg", 744, 429, 744+150 , 429+295)

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

; Save bitmap to file
_ScreenCapture_SaveImage (@ScriptDir & "\Bild", $hBmp)

guictrlsetstate($Pic2,$GUI_HIDE)
guictrlsetstate($Pic1,$GUI_ENABLE)
$Pic1 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Alexander\Desktop\AutoStaller\Bild1.jpg", 32, 40, 177, 321, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))

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

EndFunc ;==>_Main

[/autoit]

Ist vll Kompliziert des zu schreiben

**eukalyptus**

Hi

würde dir vielleicht sowas helfen?

Spoiler anzeigen

[autoit]

#Include <GDIPlus.au3>

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

$Bild=@DocumentsCommonDir & "\Eigene Bilder\Beispielbilder\Sonnenuntergang.jpg"
;$Bild=@ScriptDir & "\Test.bmp"

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

GUICreate("Bild",800,600)
$hPic=GUICtrlCreatePic($Bild,0,0,800,600)
GUISetState()

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

_GDIPlus_Startup ()

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

For $Zahlen=1 to 5
$hImage = _GDIPlus_ImageLoadFromFile($Bild)
$hGraphics = _GDIPlus_ImageGetGraphicsContext ($hImage)
$IMGX=_GDIPlus_ImageGetWidth($hImage)
$IMGY=_GDIPlus_ImageGetHeight($hImage)
$hBrush = _GDIPlus_BrushCreateSolid (0x7F00FF00)
$hFormat = _GDIPlus_StringFormatCreate ()
$hFamily = _GDIPlus_FontFamilyCreate ("Arial")
$hFont = _GDIPlus_FontCreate ($hFamily, 200, 1)
$tLayout = _GDIPlus_RectFCreate (10, 10, $IMGX, $IMGY)
_GDIPlus_GraphicsDrawStringEx ($hGraphics, $Zahlen,$hFont,$tLayout, $hFormat, $hBrush)
_GDIPlus_ImageSaveToFile($hImage,@ScriptDir & "\Neu.bmp")
_GDIPlus_ImageDispose($hImage)
_GDIPlus_GraphicsDispose($hGraphics)
GUICtrlSetImage($hPic,@ScriptDir & "\Neu.bmp")
Sleep(1000)
Next

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

_GDIPlus_Shutdown()

[/autoit]

(falls beim Testlauf kein Bild angezeigt wird, dann kopiere einfach ein Test.bmp ins Scriptverzeichnis und gib das ";" bei Zeile 4 weg)

Die Zahlen können auch andere Farben haben, bzw nicht transparent sein...

vielleicht wär es ganz gut, wenn du schreiben könntest, wofür du das dann benötigst...

lgE

Teddy

Das ist doch schön

Wie mach ich des dan mit 32 kleinen zahlen ? XD ,die da nur stehen und sich nicht wehcseln

**eukalyptus**

Spoiler anzeigen

[autoit]

#include <GDIPlus.au3>

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

$Bild = @DocumentsCommonDir & "\Eigene Bilder\Beispielbilder\Sonnenuntergang.jpg"
;$Bild=@ScriptDir & "\Test.bmp"

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

GUICreate("Bild", 800, 600)
$hPic = GUICtrlCreatePic($Bild, 0, 0, 800, 600)
GUISetState()

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

_GDIPlus_Startup()
$hImage = _GDIPlus_ImageLoadFromFile($Bild)
$hGraphics = _GDIPlus_ImageGetGraphicsContext($hImage)
$IMGX = _GDIPlus_ImageGetWidth($hImage)
$IMGY = _GDIPlus_ImageGetHeight($hImage)
$hFormat = _GDIPlus_StringFormatCreate()
$hFamily = _GDIPlus_FontFamilyCreate("Arial")
$hFont = _GDIPlus_FontCreate($hFamily, 50, 1)

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

For $Zahlen = 0 To 31
$hBrush = _GDIPlus_BrushCreateSolid("0x" & _RC() & _RC() & _RC() & _RC())
$tLayout = _GDIPlus_RectFCreate(Mod($Zahlen, * $IMGX / 8, Floor($Zahlen / * $IMGY / 4, 100, 100)
_GDIPlus_GraphicsDrawStringEx($hGraphics, $Zahlen + 1, $hFont, $tLayout, $hFormat, $hBrush)
Next

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

_GDIPlus_ImageSaveToFile($hImage, @ScriptDir & "\Neu.bmp")
_GDIPlus_ImageDispose($hImage)
_GDIPlus_GraphicsDispose($hGraphics)
GUICtrlSetImage($hPic, @ScriptDir & "\Neu.bmp")
MsgBox(0, "", "Fertig")

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

_GDIPlus_Shutdown()

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

Func _RC()
Return StringRight(Hex(Random(100, 255, 1)), 2)
EndFunc

[/autoit]

$hBrush = _GDIPlus_BrushCreateSolid:
0x11223344
11=Transparenz
22=Rot
33=Grün
44=Blau
Alle von 00 bis FF

lgE