*Hüstel**Hüstel*
Hast du zufällig mein WordEditor dafür verwendet?? WordEditor
Beiträge von Bakku
-
-
Hallo nuts.
Was muss man bei den Parametern eingeben, wenn wir dein ico als cursor wollen??? -
Achso.
Beim ersten Klick muss man nicht auf Neue Farbe klicken.
Wenn man das doch will, dann muss man in Zeile 13 $Farbwahl auf True setzen.Edit: Habe das GUI Script oben umgeändert. Beim ersten Klick muss man jetzt auch auf Neue Farbe klicken. Und ein Label mit Hexa-Zahlen ist dazu gekommen.
-
So.
Ich habe ich noch ein GUI dazu gebaut.
Script ist im ersten Post.
Kann sein, dass der "Neue Farbe" Button manchmal hängt. -
Hab mal versucht, dass mit einer GUI zu schreiben.
Da gibts ein großes Problem. Das Farbbeispiel ist immer schwarz, da die Farbe am Ende der hexadezimalen Zahl noch Leerstellen hat.
Wie könnte man sowas lösen? -
Das finde ich komisch.
Ich hatte es so wie du.
Wirklich.
Aber da war es so dass das hier in die Zwischenablage gesetzt wurde "%#06x\t".
Mit der Ini war das Problem nicht.
Mit der GUI, dass könnte ich echt machen. -
Input-Box auslesen hast du in deinem Script schon gemacht.
[autoit]
Das geht mit GUICtrlRead.
wenn du z.B$read = GUICtrlRead($input)
[/autoit]
IniWrite("test.ini","Test","Test",$read)damit speicherst du das eingebene der Input-Box in der Ini-Datei ab.
-
Ja du kannst ja die InputBox auslesen lassen, und dann in die Ini einschreiben.
-
Kannst du mir die Parameter erklären.
Ich finde die UDF-Hilfe sehr kompliziert und nicht so leicht verständlich -
Ok habe das Bild konvertiert, eingebunden, etc.
Funktioniert aber immer noch nicht.
Hier der Code:Spoiler anzeigen
[autoit]#include <WinAPI.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Constants.au3>Opt('MustDeclareVars', 1)
[/autoit] [autoit][/autoit] [autoit]Global $hGUI, $hCursor
[/autoit] [autoit][/autoit] [autoit]
Global $nMsg$hGUI = GUICreate("Mouse Cursor")
[/autoit] [autoit][/autoit] [autoit]
$hCursor = _WinAPI_LoadImage(0, @ScriptDir & "\Example.ico", $IMAGE_CURSOR, 20, 20, $LR_DEFAULTCOLOR)
_WinAPI_SetCursor($hCursor)
GUISetState(@SW_SHOW)While 1
[/autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ExitLoop
EndSwitch
WEnd -
Das würde z.B so aussehen:
Spoiler anzeigen
[autoit]Case $Button1
[/autoit]
$Team1= GUICtrlRead($Input1)
GUICtrlSetData($List1,$Team1)
GUICtrlSetData($Input1, "")
IniWrite("Volleyball.ini","Team 1","Team 1",$Team1)Dann würde eine Ini erstellt, wenn sie noch nicht vorhanden ist. Der Text aus der Input-Box würde dann in der "Sektion Team 1" mit dem Schlüssel "Team 1" abgespeichert.
Du kannst ja dann mal die Ini öffnen und es dir anschauen.Edit: Ich habe einen kleinen Fehler eingebaut
.
Im Spoiler muss es Volleyball.ini heißen. -
Er soll eine Ini mit dem Text der Input-Boxen abspeichern??
-
Achso.
Wie ist denn das Format von Cursor??
Halt das Format womit man einen MouseCursor machen kann?? -
Ich habe es mal versucht, ich bekomme es aber nicht hin.
Hier ist der Code. Was ist daran falsch. Ich will, dass der Maus Cursor dieses Bild ist.Spoiler anzeigen
[autoit]#include <WinAPI.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Constants.au3>Opt('MustDeclareVars')
[/autoit] [autoit][/autoit] [autoit]Global $hGUI, $hCursor
[/autoit] [autoit][/autoit] [autoit]
Global $nMsg$hGUI = GUICreate("Mouse Cursor")
[/autoit] [autoit][/autoit] [autoit]
$hCursor = _WinAPI_LoadImage(0, @ScriptDir & "\Example.jpg", $IMAGE_CURSOR, 20, 20, $LR_DEFAULTCOLOR)
_WinAPI_SetCursor($hCursor)
GUISetState(@SW_SHOW)While 1
[/autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ExitLoop
EndSwitch
WEnd -
Ich glaube nicht wirklich, dass viele Leute am PC mal Flaschendrehen spielen.
Aber ich glaube, dass das mal ne gute Übung ist.
Also, wenn vielleicht noch ein Platz frei ist, dann würde ich schon gern mitmachen, aber ich habe noch nie ein gescheites Spiel gemacht, also keine Erfahrung -
Ok. Danke. Dann schau ich mir das mal an.
-
Gibts eine Funktion, um ein Bild als Mouse Cursor in einer GUI zu benutzen??
-
Hallo.
Da ich es gerne farbig mag, arbeite ich viel mit Farben. Und so wirklich habe ich den dreh noch nicht raus genau die richtige Farbe zu bestimmen.
Vielleicht geht es nicht nur mir so.
Also hab ich mir mal schnell ein kleines Tool geschrieben, womit man durch ein Mouseclick die Farbe der aktuellen Mouse-Position herauskriegt.
Diese Farbe wird mit hexadezimalen Zahlen dargestellt. Damit man es nicht abschreiben muss, habe ich eine Funktion geschrieben, womit man die Farbe in die Zwischenlage ablegen kann. Dabei wird leider eine Ini-Datei erstellt.
Aber ihr könnt es euch mal selber anschauen.EDIT (30.10.2011): Beide Scripte funktionieren nicht einwandfrei. Bitte für ein komplett funktionierendes Programm den Dateianhang "v.1.1" runterladen!
Hier ohne GUI:
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
#include <Misc.au3>
Global $Farbe = False
IniWrite("Name.ini","Name","Name","0")TrayTip("Bereit","Programm ist bereit. Mit Esc beenden. Mit Klicken Farbe herausbekommen", 20, 1)
[/autoit] [autoit][/autoit] [autoit]While 1
[/autoit]
If _IsPressed("1B") Then Exit
If $Farbe = False Then
If _IsPressed("01") Then
$pos = MouseGetPos()
$pix = PixelGetColor($pos[0], $pos[1])
$text = StringFormat("%#06x\t",$pix)
TrayTip("Farbe",$text & " - Mit Eingabe eine MsgBox öffnen. Mit Delete andere Farbe herausfinden",20)
$Farbe = True
EndIf
EndIf
If $Farbe = True Then
If _IsPressed("0D") Then
IniWrite("Name.ini","Name","Name",$text)
$ini = IniRead("Name.ini","Name","Name",0)
ClipPut($ini)
$Farbe = False
EndIf
EndIf
If $Farbe = True Then
If _IsPressed("08") Then
$Farbe = False
EndIf
EndIf
WEndHier mit GUI:
Spoiler anzeigen
[autoit]#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <Misc.au3>Global $Farbwahl = True
[/autoit] [autoit][/autoit] [autoit]TrayTip("Bereit","Programm ist bereit. Mit Esc beenden. Mit Klicken Farbe herausbekommen", 20, 1)
[/autoit] [autoit][/autoit] [autoit]$hGUI = GUICreate("Color", 200, 200)
[/autoit] [autoit][/autoit] [autoit]
$hLabel = GUICtrlCreateLabel("", 10, 10, 180, 80)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$hButton1 = GUICtrlCreateButton("In Zwischenablage",80,160)
$hButton2 = GUICtrlCreateButton("Neue Farbe",10,160)
$hLabel2 = GUICtrlCreateLabel("",10,100,90,50)
GUISetState()While 1
[/autoit]
If _IsPressed("1B") or GUIGetMsg() = -3 Then Exit
If $Farbwahl = False then
If _IsPressed("01") Then ;Linke Maustaste
$maus = MouseGetPos()
$farbe = PixelGetColor( $maus[0], $maus[1])
GUICtrlSetBkColor($hLabel, "0x"&StringRight(Hex($farbe),6))
GUICtrlSetData($hLabel2, "0x"&StringRight(Hex($farbe),6))
$Farbwahl = True
TrayTip("Farbe","0x"&StringRight(Hex($farbe),6) & " - GUI öffnen für weitere Funktionen", 10)
EndIf
EndIf
$msg = GUIGetMsg()
If $Farbwahl = True then
Switch $msg
Case $hButton1
ClipPut("0x"&StringRight(Hex($farbe),6))
Case $hButton2
GUICtrlSetBkColor($hLabel, 0xFFFFFF)
$Farbwahl = False
EndSwitch
EndIf
WEndAch ja. Mit ESC kann man das Programm beenden.
UPDATE: Stand 30.10.2011:
Habe nach langer Zeit mal wieder das Programm überarbeitet.
Es ist nun mit GUI, die Buttons sollten nun keine Bugs mehr enthalten, und man kann die Farbe direkt danach in die Zwischenablage abspeichern.
Viel Spaß. Falls es Probleme gibt, dann schickt mir einfach eine Nachricht. -
Ich glaube bei WinXP geht das so.
Ka obs bei deinem funktioniert:Start / Programmzugriff und Standards Windows / Webbrowser
-
Zitat von nuts
Hallo
Ja danke.
Ist aber ziemlich umständlich immer quote zu schreiben
