Beiträge von qixx

qixx

Hi,
ein nützliches Programm für Designer wie mich.
Ich bin auch schonmal auf die Idee gekommen, soetwas
zu programmieren, aber irgendwie nie dazu gekommen.^^

Zu deinem Problem mit der INI. Warum erstellst du denn
eine INI?^^ Das geht auch ohne:
(Achja, habe deinen Code etwas verkürzt. ;))

Veränderter Code

[autoit]

#include <Misc.au3>
Global $Farbwahl = False
TrayTip("Bereit","Programm ist bereit. Mit Esc beenden. Mit Klicken Farbe herausbekommen", 20, 1)

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

While 1
If _IsPressed("1B") Then Exit ;Escape Taste
If $Farbwahl = False Then
If _IsPressed("01") Then ;Linke Maustaste
$pos = MouseGetPos()
$Farbe = StringFormat("%#06x\t",PixelGetColor($pos[0], $pos[1]))
TrayTip("Farbe",$Farbe & " - Mit Eingabe eine MsgBox öffnen. Mit Backspace andere Farbe herausfinden",20)
$Farbwahl = True
EndIf
EndIf
If $Farbwahl = True Then
If _IsPressed("0D") Then ;Return Taste
ClipPut($Farbe)
$Farbwahl = False
EndIf
EndIf
If $Farbwahl = True Then
If _IsPressed("08") Then ;Backspace Taste
$Farbwahl = False
EndIf
EndIf
WEnd

[/autoit]

Es wäre vielleicht auch nciht schlecht, wenn du eine
GUI baust. In der wird dann immer die aktuelle Farbe
angezeigt und dort kann man dann auf "Kopieren" und "Ende"
oder so klicken. Dadurch würde dann ein möglicher Konflikt
mit den Tasten zu dem gewünschen Programm o.Ä. aus
dem man die Farben ziehen möchte entfallen.

MfG
qixx

qixx

Danke fürs neu Hochladen!

Ich muss sagen, das Programm ist echt nicht schlecht.
Ich hatte auch mal vor sowas zu machen, aber bin immer
wieder dran gescheitert!

MfG
qixx

qixx

Zitat von Michael B.

ich würde sehr gerne dieses Programm ausprobieren, aber der Link aus dem ersten Post funktioniert nicht.

Dito.
Es ist immer besser, die Dateien hier zu posten, wenn möglich, da
andere Hoster die Dateien löschen könnten.

Sieht aber schon sehr nice aus!

MfG
qixx

qixx

Hatte noch keine Zeit das zu testen, aber bei $WS_MIDCHILD
kann man das innere GUI dann aus dem HauptGUI herausziehen.
Die Position ist nur relativ zum HauptGUI.

Hier nochmal die Bilder im Anhang.

MfG
qixx

qixx

Habe jetzt mal ein bisschen rumprobiert und ws funktionieren
manche Sachen nicht. Ich habe versucht, 2 GUI's resizen zu
lassen, aber das funktioniert irgendwie nicht..
Und das Hintergrundbild verschlingt trotzdem die 2 anderen
GU's..
Was kann man tun?

Code

[autoit]

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

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

AutoIt Version: 3.3.2.0
Author: qixx (http://www.autoit.de)
Credits:

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

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

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

#Region ### Includes
#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#EndRegion ### Includes

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

Global Const $margin = 12;

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

#Region ### GUI
$MainGUI = GUICreate("Pinnwand",500,375,-1,-1,$WS_POPUP)
GUICtrlCreatePic(@ScriptDir & "\PinnImages\main.jpg",0,0,500,375,$SS_LEFT)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlCreatePic(@ScriptDir & "\PinnImages\rahmen.jpg",0,0,500,25,-1,$GUI_WS_EX_PARENTDRAG)
$Exit = GUICtrlCreateButton("Beenden",387,337,100,25)
GUISetState(@SW_SHOW)

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

$Zettel = GUICreate("Test",100,100,50,50,$WS_POPUP, $WS_EX_TOOLWINDOW)
GUISetBkColor(0xdfc187)
GuiCtrlCreateLabel("lol",1,1)
WinActivate($Zettel)

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

_GUIinGUI($MainGUI,$Zettel)
GUISetState(@SW_SHOW)

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

$Zettel2 = GUICreate("Test",100,100,150,150,$WS_POPUP, $WS_EX_TOOLWINDOW)
GUISetBkColor(0xdfc187)
GuiCtrlCreateLabel("lol",1,1)
WinActivate($Zettel)

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

_GUIinGUI($MainGUI,$Zettel2)
GUISetState(@SW_SHOW)
#EndRegion ### GUI

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

GUIRegisterMsg($WM_LBUTTONDOWN, "WM_LBUTTONDOWN")
GUIRegisterMsg($WM_MOUSEMOVE, "SetCursor")

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

While 1
Sleep(10)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Exit
Exit
EndSwitch
WEnd

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

Func _GUIinGUI($Parent,$Children)
$nExStyle = DllCall("user32.dll", "int", "GetWindowLong", "hwnd", $Children, "int", 0xEC)
DllCall("user32.dll", "int", "SetWindowLong", "hwnd", $Children, "int", 0xEC, "int", BitOR($nExStyle[0], $WS_EX_MDICHILD))
DllCall("user32.dll", "int", "SetParent", "hwnd", $Children, "hwnd", $Parent)
EndFunc

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

#Region ###Resizing Funktion
Func GetMousePosType($hWnd)
Local $cp = GUIGetCursorInfo($hWnd)
Local $wp = WinGetPos($hWnd)
Local $side = 0
Local $TopBot = 0
Local $curs
If WinActive($Zettel) Then
If $cp[0] < $margin Then $side = 1
If $cp[0] > $wp[2] - $margin Then $side = 2
If $cp[1] < $margin Then $TopBot = 3
If $cp[1] > $wp[3] - $margin Then $TopBot = 6

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

Return $side + $TopBot
EndIf
EndFunc;==>GetMousePosType

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

Func SetCursor()
Local $curs
Switch GetMousePosType(WinGetHandle("[ACTIVE]"))
Case 0
$curs = 2
Case 1, 2
$curs = 13
Case 3, 6
$curs = 11
Case 5, 7
$curs = 10
Case 4, 8
$curs = 12
EndSwitch

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

GUISetCursor($curs, 1)

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

EndFunc;==>SetCursor

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

Func WM_LBUTTONDOWN($hWnd, $iMsg, $StartWIndowPosaram, $lParam)

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

Local $drag = GetMousePosType($hWnd)
If $drag > 0 Then
DllCall("user32.dll", "long", "SendMessage", "hwnd", $hWnd, "int", $WM_SYSCOMMAND, "int", 0xF000 + $drag, "int", 0)
EndIf

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

;F001 = LHS, F002 = RHS, F003 = top, F004 = TopLeft, F005 = TopRight, F006 = Bottom, F007 = BL, F008 = BR
;F009 = move gui, same as F011 F012 to F01F
;F010, moves cursor to centre top of gui - no idea what that is useful for.
;F020 minimizes
;F030 maximizes

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

EndFunc;==>WM_LBUTTONDOWN
#EndRegion ###Resizing Funktion

[/autoit]

MfG
qixx

qixx

Sehr geil!
Dankeschön!

MfG
qixx

qixx

[autoit]

$breite = $DeineDesktopBreite / @DesktopWidth
$hoehe = $DeineDesktopHoehe / @DesktopHeight

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

$x = $xKoordinaten / $breite
$y = $yKoordinaten / $hoehe

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

MouseClick("left", $x, $y)

[/autoit]

Ich glaube, da ist ein Denkfehler drin, aber
zumindest so in der Art. xD Bin gerade nicht so
konzentriert..

MfG
qixx

qixx

Ich packe einfach mal meinen Code dazu:

Code

[autoit]

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

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

AutoIt Version: 3.3.2.0
Author: qixx (http://www.autoit.de)
Credits:

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

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

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

#Region ### Includes
#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#EndRegion ### Includes

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

#Region ### GUI
$MainGUI = GUICreate("Pinnwand",500,375,-1,-1,$WS_POPUP, $WS_EX_TOOLWINDOW)
GUICtrlCreatePic(@ScriptDir & "\PinnImages\main.jpg",0,0,500,375,$SS_LEFT)
GUICtrlCreatePic(@ScriptDir & "\PinnImages\rahmen.jpg",0,0,500,25,-1,$GUI_WS_EX_PARENTDRAG)
$Exit = GUICtrlCreateButton("Beenden",387,337,100,25)
GUISetState(@SW_SHOW)

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

$Zettel = GUICreate("Test",100,100,10,10,$WS_POPUP, $WS_EX_TOOLWINDOW)
GUISetBkColor(0xdfc187)
WinActivate($Zettel)

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

_GUIinGUI($MainGUI,$Zettel)
GUISetState(@SW_SHOW)
#EndRegion ### GUI

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

While 1
Sleep(10)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Exit
Exit
EndSwitch
WEnd

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

Func _GUIinGUI($Parent,$Children)
$nExStyle = DllCall("user32.dll", "int", "GetWindowLong", "hwnd", $Children, "int", 0xEC)
DllCall("user32.dll", "int", "SetWindowLong", "hwnd", $Children, "int", 0xEC, "int", BitOR($nExStyle[0], $WS_EX_MDICHILD))
DllCall("user32.dll", "int", "SetParent", "hwnd", $Children, "hwnd", $Parent)
EndFunc

[/autoit]

Vielleicht kann mir auch noch jemand bei
folgendem Problem helfen:
Das Hintergrundbild "verschlingt" alles andere.
Also wird z.B. das Child-GUI gar nicht angezeigt.
Was kann man da machen?

MfG
qixx

qixx

Hallo Leute,

ich bastle gerade ein Skript mit einem GUI das
einen Style $WS_Popup hat. Damit ist kein Rand
um das GUI. Wie ich dieses verschieben kann, habe
ich schon herausgefunden, aber wie kann ich es
vergrößern und verkleinern? Es sollte keinen oder
maximal einen 1px breiten Rand haben, an dem man
"anfassen" kann, um die Größe zu verändern.

Kennt dazu jemand eine Lösung?

MfG
qixx

qixx

Sollen in derm Dropdown Menü die Bilder
schon angezeigt werden oder nur der Text?

Denn mit Bildern darin glaube ich nicht, dass
es geht.

MfG
qixx

qixx

Zitat von PokerFace

Du kannst ja Anteile des Progressbars füllen.
Also:
[autoit]
For $i = 1 to $AnzahlDateien
FileDelete ("...")
GUICtrlSetData ($Progress, $i/$AnzahlDateien)
Next
[/autoit]

Zitat von crocojunk

[...] aber nicht deinstalliert?? [...]

MfG
qixx

qixx

Meinst du sowas?

Installations-Balken

[autoit]

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

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

AutoIt Version: 3.3.2.0
Author: qixx (http://www.autoit.de)
Credits:

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

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

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

#Region ### Includes
#include <GUIConstants.au3>
#EndRegion ### Includes

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

#Region ### GUI
$MainGUI = GUICreate("Installations-Balken", 370, 90)
$Progress = GUICtrlCreateProgress(8, 8, 350, 40)
$Button = GUICtrlCreateButton("Start", 265, 55, 100, 25)
GUISetState(@SW_SHOW)
#EndRegion ### GUI

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

While 1
Sleep(10)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button
For $i = 0 To 100
GUICtrlSetData($Progress, $i)
Sleep(100)
Next
MsgBox(0,"","Fertig")
EndSwitch
WEnd

[/autoit]

Deinstallations-Balken

[autoit]

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

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

AutoIt Version: 3.3.2.0
Author: qixx (http://www.autoit.de)
Credits:

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

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

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

#Region ### Includes
#include <GUIConstants.au3>
#EndRegion ### Includes

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

#Region ### GUI
$MainGUI = GUICreate("Deinstallations-Balken", 370, 90)
$Progress = GUICtrlCreateProgress(8, 8, 350, 40)
GUICtrlSetData(-1, 100)
$Button = GUICtrlCreateButton("Start", 265, 55, 100, 25)
GUISetState(@SW_SHOW)
#EndRegion ### GUI

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

While 1
Sleep(10)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button
For $i = 0 To 100
GUICtrlSetData($Progress, 100 - $i)
Sleep(100)
Next
MsgBox(0,"","Fertig")
EndSwitch
WEnd

[/autoit]

MfG
qixx

qixx

Gut, danke.

MfG
qixx

qixx

Die Funktion gibt es gar nicht? oO

MfG
qixx

qixx

Danke, aber ich habe vergessen zu erwähnen,
dass die Maße des zu ermittelnden Bildes in
einem Verzeichnis liegen. Also es ist noch nicht
im GUI eingebaut.

MfG
qixx

qixx

Hi,
ich habe ein Problem bei meinem Skript.
Und zwar möchte ich die Maße eines Bildes
herausfinden. Wie kann ich das machen?

MfG
qiyy

qixx

Zitat von RechterWinkel

GUICtrlRead liest nicht die Liste, sondern den markierten Eintrag aus

Aber das kannst du ja nicht mit

[autoit]

WinSetState

[/autoit]

ausblenden.

Was genau hast du denn vor?

Zitat von TheShadowAE

WinSetState arbeitet mit dem Fenstertitel

Du kannst aber auch eine Variable einer zuvor erstellten
GUI benutzen.

MfG
qixx""

qixx

Warum liest du denn die Liste aus und speicherst
das unter der Variable, bei der du den Status ändern
willst.
WinSetState ist nur für GUIS oder andere Programme.
Benutze, wenn du das gesamte GUI ausblenden willst:

[autoit]

WinSetState($GUI,"",@SW_HIDE)

[/autoit]

Oder wenn du das Control ausblenden willst:

[autoit]

GuiCtrlSetState($Handle,@SW_HIDE)

[/autoit]

MfG
qixx

qixx

Versuchs mal mit:

[autoit]

#Include <GuiListView.au3>
_GUICtrlListView_AddItem($hWnd, $sText[, $iImage = -1[, $iParam = 0]])

[/autoit]

anstatt mit;

[autoit]

GuiCtrlSetData

[/autoit]

MfG
qixx

qixx

Gibt es denn keine Lösung dafür?
Naja, dann muss ich mein Projekt wohl
einstellen...

@PrideRage: Ja, genau.

MfG
qixx

Beiträge von qixx

Mouse Check Color

Maple-Desktop <Last Update>

Maple-Desktop <Last Update>

GUI mit Style $WS_Popup vergrößern?

GUI mit Style $WS_Popup vergrößern?

GUI mit Style $WS_Popup vergrößern?

Mouseclick für andere Auflösung

GUI mit Style $WS_Popup vergrößern?

GUI mit Style $WS_Popup vergrößern?

Gui Guictrlcreatecombo - bild

Deinstalationsbalken

Deinstalationsbalken

Bildgröße (Abmessungen) ermitteln

Bildgröße (Abmessungen) ermitteln

Bildgröße (Abmessungen) ermitteln

Bildgröße (Abmessungen) ermitteln

WinSetState geht nicht ?

WinSetState geht nicht ?

OGame Userverwaltungstool -> Problemchen :P

Ausgewähltes Symbol ermitteln