Beiträge von Vîathan

Zitat von name22

Es kommt aber auf das selbe raus wenn du eine interne "richtige" Funktion verwendest. Den tatsächlichen Code dahinter würdest du auch nicht verstehen und du kannst es noch nicht mal versuchen, weil AutoIt mittlerweile ein closed-source Projekt ist.

Das definieren von eigenen Funktionen um Arbeitsvorgänge zu abstrahieren und diese in UDFs zusammenfassen um sie mit anderen zu teilen ist eine Stärke von AutoIt. Ich kann nachvollziehen, dass du gerne den Code verstehen möchtest, aber dann setze doch da an und frag nicht nach einer weiteren Lösung... Eine bessere Lösung als die von chesstiger wirst du kaum finden und ich vermute, dass so auch eine "offizielle" Funktion von AutoIt vorgehen würde.

Hmmn, ja macht Sinn.
Da hast du allerdings Recht. Obwohl das ja eigentlich bei jeder Sprache so ist.. Ich versuche halt immer alles so einfach wie möglich zu haben/machen.
Ich denke, dass das nichts für mich ist, also dieser Weg wie in der UDF. Entweder finde ich einen anderen Weg (wie eigentlich immer ) oder ich muss es halt lassen / anders machen.

Wie gesagt, vielen Dank Leute

Zitat von chesstiger

Die (meiner Meinung nach) elegantere Variante ist das Hooken von der WndProc des Fensters, um das WM_PAINT abzufangen, und vor dem eigentlichen WM_PAINT eben das Hintergrundbild zu malen. Ich habe das ganze mal in einer kleinen UDF zusammengefasst:

GUIBkImage.au3

[autoit]

#include-once
#include <GDIPlus.au3>
#include <WindowsConstants.au3>
#include <WinAPI.au3>

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

Global Enum $GBKI_IDX_GFX, $GBKI_IDX_IMG, $GBKI_IDX_DEFPROC
Global $__intern_GBKI_ohWnds = ObjCreate("Scripting.Dictionary")
Global $__intern_GBKI_hWndProc = DllCallbackRegister("__intern_GBKI_WndProc", "ptr" , "hwnd;uint;long;long;")
Global $__intern_GBKI_pWndProc = DllCallbackGetPtr($__intern_GBKI_hWndProc)
Global Const $SC_CLOSE = 0xf060

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

; #FUNCTION# ====================================================================================================================
; Name ..........: _GUISetBkImage
; Description ...: Sets an image as background for a window by hooking it's WndProc
; Syntax ........: _GUISetBkImage($hWnd, $sIMG)
; Parameters ....: $hWnd - GUI Handle, returned from GUICreate().
; $sIMG - Path to the image.
; Return values .: None
; Author ........: chesstiger (autoit.de)
; Modified ......:
; Remarks .......:
; Related .......:
; Link ..........:
; Example .......: GUIBkImage Example.au3
; ===============================================================================================================================
Func _GUISetBkImage($hWnd, $sIMG)
_GDIPlus_Startup()
Local $aData[3]
$aData[$GBKI_IDX_GFX] = _GDIPlus_GraphicsCreateFromHWND($hWnd)
$aData[$GBKI_IDX_IMG] = _GDIPlus_ImageLoadFromFile($sIMG)
$aData[$GBKI_IDX_DEFPROC] = _WinAPI_SetWindowLong($hWnd, $GWL_WNDPROC, $__intern_GBKI_pWndProc)
$__intern_GBKI_ohWnds(String($hWnd)) = $aData
EndFunc

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

Func __intern_GBKI_WndProc($hWnd, $iMsg, $iwParam, $ilParam)
Local $aData, $tPaint
$aData = $__intern_GBKI_ohWnds(String($hWnd))

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

If $iMsg = $WM_PAINT Then ;draw
_WinAPI_BeginPaint($hWnd, $tPaint)
_GDIPlus_GraphicsDrawImageRect($aData[$GBKI_IDX_GFX], $aData[$GBKI_IDX_IMG], 0, 0, _WinAPI_GetWindowWidth($hWnd), _WinAPI_GetWindowHeight($hWnd))
_WinAPI_EndPaint($hWnd, $tPaint)
Return 0
EndIf

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

If $iMsg = $WM_SYSCOMMAND Then ;dispose
If _WinAPI_LoWord($iwParam) = $SC_CLOSE Then
_GDIPlus_ImageDispose($aData[$GBKI_IDX_IMG])
_GDIPlus_GraphicsDispose($aData[$GBKI_IDX_GFX])
_GDIPlus_Shutdown()
_WinAPI_SetWindowLong($hWnd, $GWL_WNDPROC, $aData[$GBKI_IDX_DEFPROC])
EndIf
EndIf

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

Return _WinAPI_CallWindowProc($aData[$GBKI_IDX_DEFPROC], $hWnd, $iMsg, $iwParam, $ilParam)
EndFunc

[/autoit]

GUIBkImage Example.au3

[autoit]

#include "GUIBkImage.au3"

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

$hWindow = GUICreate("myGUI", 600, 400)
_GUISetBkImage($hWindow, "back.jpg")
$cButton = GUICtrlCreateButton("MyButton", 10, 10)
$cProgress = GUICtrlCreateProgress(100, 100, 100, 20)
GUICtrlSetData($cProgress, 50)

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

GUISetState()

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

While True
Switch GUIGetMsg()
Case -3
Exit
EndSwitch
WEnd

[/autoit]

Im Anhang nochmal als ZIP wegen dem Bild.

Gruß

Alles anzeigen

Wow, danke ihr 2
Allerdings bin ich nicht der fan von UDF's.
Das es dafür noch keine "richtige" Funktion von AutoIT gibt ist schon ein bisschen blöd..

Gibt's da nicht eine einfache/simple/logische/gute Lösung für?
Ich nutze ungern und eigentlich nie Code in meinen Programmen / Tools den ich nicht verstehe, bzw nicht "kann".

Was mich wundert ist, die Buttons und co funktionieren alle so wie sie sollen. Aber das Label nicht. Warum? :wacko:

Aber trz noch mal danke für die Hilfe. Ich werde mir das alles (auch deine UDF) noch mal anschauen und falls ich ne andere Lösung finde mich melden.

Wäre super von dir!

Zitat von Stevenx

Sry, bin am Handy.
Habs so gelöst, dass du zuerst ein leeres Bild erstellst ('') und nach Guisetstate das Bild setzt. Schau mal in Hilfe nach, wie das funktioniert, sry dass ich dir jetzt nicht komplett helfen kann

Hi, kein Problem.
Interessante Idee, allerdings sieht das bei mir total "ungut" aus
Das witzige ist, dass ja die Buttons, Input-Felder etc funktionieren. Aber ich wollte eine Funktion auf ein Label legen und das geht leider nicht.
Das Hintergrundbild habe ich so angepasst, dass es auch Hervorhebungen hat, wie z.b. kleine schwarze Kästchen in denen dann im fertigen Programm die Texte stehen, hier mal ein Screenshot:
(Heißt LightHack, ich kenne die Forenregeln! Allerdings ist das nur der Name, ein Freund hat ein Spiel geschrieben und mich gefragt ob ich im erweiterungen schreiben kann, mit praktischem bsp. Also es ist kein Hack / Bot etc der illegal wäre, er verändert nur über die memory eine value für das Licht )
Ist nicht das neueste Interface, aber so in der Richtung

Hey Hey Leute

Ich habe das Forum (und noch einige andere) auf den Kopf gestellt und zwar auf der Suche nach Hintergrundbildern in GUI's
An sich:

GUICreate("GUI_Name", 350, 250)
GUICtrlCreatePic(@TempDir & "lux_bg_5.jpg", 0, 0, 350, 250, 0x04000000)
GUICtrlSetState(-1, 128)

Ist ja alles schön und gut, allerdings funktionieren bei mir keine progressbars mehr (werden nur angezeigt wenn sie den state 0 haben) und auch labels mit Funktionen etc nicht.
Also villt gibt es eine Möglichkeit das Bild per z-index (wie in Html/Css) nach hinten zu verlegen. Oder ne Hintergrund Funktion?
Das Hintergrundbild geht über die komplette GUI und das möchte ich eigentlich auch ungern' ändern.

Hoffe das mir noch jemand ein paar tipps geben kann. Wenn noch was benötigt wird, Quellcode etc, bitte bescheid geben

- Vîathan

Ahhhhh! *Gullideckelfällt*

Man man man, vielen Dank!
Das nächste mal, HelpFile checken! Ich danke Dir!

Schönen Tag noch

Hmm ok. Das Problem ist, dass Programm befindet sich in einem bestimmten Ordner, in diesem Ordner ist dann auch die .ini Datei mit anderen Informationen gespeichert.
Gibt es eine Möglichkeit, dieses FileOpenDialog so zu benutzen, dass es wie FileSelectFolder (war das glaube ich) funktioniert?
Also das ich quasi einfach den Pfad der Datei die ich auswähle in die Variable schreibe?

Könntest du mir Ggf das Script so abändern das es funktioniert, denn ich habe das jetzt kurz mal mit meiner Logik versucht und es hat nicht geklappt
..Natürlich nur wenn das nicht ZU viel Zeit bzw Aufwand kostet

- Gruß

Moinsn,

ich habe hier ein kleines Problemchen, was ich allerdings nicht nachvollziehen kann.
Das ist der fehlerhafte Teil von einem großen Skript, den ich zur Übersichtlichkeit mal poste als das ganze Skript.

_tunngle()

Func _tunngle()
$CheckConfig = FileExists("Config.ini")
If $CheckConfig = 0 Then
IniWrite("Config.ini", "Tunngle", "Path", "")
EndIf
$TunnglePath = IniRead("Config.ini", "Tunngle", "Path", "")
If $TunnglePath = "" Then
$TunnglePath = FileOpenDialog("TEXT-BlaBla", "C:\Program Files (x86)\Tunngle", "Application (*.exe)", 0,"Tunngle.exe")
IniWrite("Config.ini", "Tunngle", "Path", $TunnglePath)
MsgBox(0, "Path", $TunnglePath)
EndIf
EndFunc ;==>_tunngle

Im Endeffekt, zeigt mir die MsgBox den Pfad richtig an, aber die IniWrite funktioniert nicht. 
Habe schon einiges getestet wie andere Variablen, anderen aufbau (neu geschrieben) und so was.
Nichts hat geholfen.

Danke schon einmal im voraus!  

Zitat von Make-Grafik

Hey
Du musst noch das entsprechende Control (in diesen Fall dein Label) den ExStyle $WS_EX_TRANSPARENT geben.

[autoit]

$gui_group_main = GUICtrlCreateLabel("HIER DAS LABEL", 5, 100, Default, Default, Default, $WS_EX_TRANSPARENT)

[/autoit]

Ah okay. Klingt gut Danke schon mal
Nur was muss ich includen, bzw was ist der Wert von dieser Variablen?

"WARNING: $WS_EX_TRANSPARENT: possibly used before declaration."


EDIT:


Habs gefunden. Der Wert ist: 0x00000020
(Include wäre WindowsConstants.au3)


Ich danke euch und vorallem Dir, Make-Grafik    

#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>

GUICreate("BlaBlubv.1.0", 500, 350)
; Menu
$gui_menu_exlauncher = GUICtrlCreateMenu("TextYo")
$gui_menu_setup = GUICtrlCreateMenu("Text", $gui_menu_exlauncher)
$gui_menu_setup_config = GUICtrlCreateMenuItem("BlaBlub", $gui_menu_setup)
$gui_menu_setup_newconfig = GUICtrlCreateMenuItem("Text", $gui_menu_setup)
$gui_menu_about = GUICtrlCreateMenuItem("Text", $gui_menu_exlauncher)

$gui_progress_main = GUICtrlCreateProgress(50, 10, 400, 30)
$gui_group_main = GUICtrlCreateLabel("HIER DAS LABEL", 5, 100)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetColor(-1, 0x000000)
$gui_main_tab = GUICtrlCreateTab(1, 80, 248, 100)
GUICtrlCreateTabItem("Bla")
GUICtrlCreateTabItem("Bla")
$gui_main_chrome = GUICtrlCreateButton("1", 5, 100, 40, 40)
GUISetState()

While 1
$gui_action = GUIGetMsg()
Select
Case $gui_action = -3
Exit
EndSelect
WEnd

Hier  

Hallo Leute

Bevor es anfängt mit:
.."Das haben wir schon x-mal beantwortet"
.."Schon mal was von SuFu gehört".. etc

Ich habe hier schon einige Threads zu dem Thema gefunden. Nur leider hat das ganze bei MIR nicht funktioniert.

Und zwar geht es um ein GUI-Problem. Ich möchte im Endeffekt nur einen Text auf dem GUI erscheinen lassen, eben mit "Label", allerdings soll sich das Wort nahe eines "Tabs" befinden. Quasi als Überschrift dienen. (Evtl gibt's ne bessere Lösung?     )

Ein Label hat immer diesen grauen Hintergrund und mit den Vorschlägen hier:
[ gelöst ] Label mit transparentem Hintergrund
.. Hab ich's schon probiert, auch die Google-Such-Server zum schwitzen gebracht, aber NÜSCHTS gefunden, was mir hilft.
Evtl stell ich mich auch nur ziemlich dumm an  


$gui_group_main = GUICtrlCreateLabel("TextBlaBla", 5, 70)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) --> geht nicht so wie ichs mir vorstelle.
auch:

$gui_group_main = GUICtrlCreateLabel("Main - Programs", 5, 70)
GUICtrlSetBkColor(-1, -2) --> Nix

Transparent isses zumindest nicht

Hoffe ich hab das Problem ganz ok und leserlich beschrieben. Danke schon einmal