Beiträge von Greenhorn

**Greenhorn**

Moin,

[autoit]

$classes = WinGetClassList("[CLASS:AutoIt v3 GUI;TITLE:ModMan]") ; ???
$struct = DllStructCreate("dword") ; COLORREF = BGR !!!
$struct2 = DllStructCreate("wstr")
DllStructSetData($struct2, 1, $classes)
$htheme = DllCall("uxtheme.dll", "none", "OpenThemeData", "hwnd", $gui, "ptr", DllStructGetPtr($struct2))
$color = DllCall("uxtheme.dll", "int", "GetThemeColor", _
"ptr", $htheme, _
"int", "TABP_BODY", _ ; ???
"int", "", _ ; ???
"int", "TMT_COLOR") ; ???
DllCall("uxtheme.dll", "none", "CloseThemeData", "ptr", $htheme)

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

Du brauchst die Klassennamen des Tab-Steuerelements ...
Du brauchst die Werte für TABP_BODY und TMT_COLOR ...

Gruß
Greenhorn

**Greenhorn**

Moin,

nimm WGet !!!

Gruß
Greenhorn

**Greenhorn**

Stop !!!

Moin,

der Bug scheint nicht in den Funktionen zu sitzen ...

Versucht mal den Text manuell zu ändern, also

Zweimal anklicken und den Text ändern ... -> Geht nicht !!!

Gruß
Greenhorn

p.s.

MSDN

Tree-View Label Editing
The user can directly edit the labels of items in a tree-view control that has the TVS_EDITLABELS style. The user begins editing by clicking the label of the item that has the focus. An application begins editing by using the TVM_EDITLABEL message. The tree-view control notifies the parent window when editing begins and when it is canceled or completed. When editing is completed, the parent window is responsible for updating the item's label, if appropriate.

When label editing begins, a tree-view control sends its parent window a TVN_BEGINLABELEDIT notification message. By processing this notification, an application can allow editing of some labels and prevent editing of others. Returning zero allows editing, and returning nonzero prevents it.

When label editing is canceled or completed, a tree-view control sends its parent window a TVN_ENDLABELEDIT notification message. The lParam parameter is the address of an NMTVDISPINFO structure. The item parameter is a TVITEM structure that identifies the item and includes the edited text. The parent window is responsible for updating the item's label if it wishes to keep the new label. The pszText member of TVITEM is zero if editing is canceled.

During label editing, typically in response to the TVN_BEGINLABELEDIT notification message, you can retrieve the handle to the edit control used for label editing by using the TVM_GETEDITCONTROL message. You can send the edit control an EM_SETLIMITTEXT message to limit the amount of text a user can enter or subclass the edit control to intercept and discard invalid characters. Note, however, that the edit control is displayed only after TVN_BEGINLABELEDIT is sent.

**Greenhorn**

[autoit]

WinWaitActive ("Windoof Tools")
If (1) then
$hwnd_2 = GUICreate ("Donate", 100, 150)
GUISetOnEvent($GUI_EVENT_CLOSE, "guiCPLClose")
GUISetState(@SW_SHOW, $hwnd_2) ; !!!
GUICtrlCreateLabel("Test", 15, 15)

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

While 1
Sleep (1000)
WEnd

EndIf

[/autoit]

LG
Greenhorn

**Greenhorn**

Ohne Skript, schwer zu sagen ...

So funktioniert es

Spoiler anzeigen

[autoit]

#NoTrayIcon
#Include <Constants.au3>
#include <GUIConstantsEX.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEX.au3>
#include <Misc.au3>

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

Opt ('MustDeclareVars', 1)
Opt ("TrayMenuMode", 1)

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

Global $var = 26
Global $IDC_TRAYITEM [5] ,$btn[$var], $icn[$var], $ovv[$var], $ping
Global $sOffice12_Dir = 'C:\Programme\Microsoft Office\Office12'
Global $asOfficeTools [2][11] = _
[ ['WINWORD.exe','EXCEL.exe', 'POWERPNT.exe', 'OUTLOOK.exe', 'INFOPATH.exe', 'GROOVE.exe', _
'ONENOTE.exe', 'MSPUB.exe', 'WINPROJ.exe', 'MSACCESS.exe', 'VISIO.exe'], _
['Microsoft Word', 'Microsoft Exel', 'Microsoft PowerPoint', 'Microsoft Outlook', 'Microsoft InfoPath', 'Microsoft Groove', _
'Microsoft OneNote', 'Microsoft Publisher', 'Microsoft Projekt', 'Microsoft Acces', 'Microsoft Visio'] _
]
;

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

; Only accept one Instance
if (Not _Singleton ("test", 0)) Then _
Exit

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

Office ( )

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

Func Office ( )

Local $nMsgGUI, $nMsgTRAY

If (Not InitGUI ( ) Or Not InitTray ( )) Then _
Return

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

While 1

GUIMsgProc (GUIGetMsg ( ))
TrayMsgProc (TrayGetMsg ( ))
WEnd

Return 0

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

EndFunc

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

Func GUIMsgProc ($nMsg)

;~ If ($nMsg > 0) Then _
;~ ConsoleWrite('GUIMsg = '&$nMsg & @CRLF)
Switch $nMsg

Case $GUI_EVENT_CLOSE
Exit

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

Case $btn[0] To $btn[10] ; Office
Run ($sOffice12_Dir &'\'& $asOfficeTools[0][$nMsg - 3])

Case $btn[25];= 0 !!!!!
;Exit

Case Else
Return
EndSwitch

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

EndFunc

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

Func TrayMsgProc ($nMsg)

;~ ConsoleWrite('TrayMsg = '&$nMsg & @CRLF)
Switch $nMsg

Case $IDC_TRAYITEM[3]
Msgbox (266304, "Über:", "Office Explorer"&@tab)

Case $IDC_TRAYITEM[4]
Exit

Case Else
Return 1
EndSwitch

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

EndFunc

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

Func InitGUI ( )

Local $hwnd

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

$hwnd = GUICreate ("Office Explorer" , 530, 500)

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

; Microsoft Office
For $i = 0 To 10
$btn[$i] = GUICtrlCreateButton ($asOfficeTools [1][$i], 10, 10 + $i * 30, 200, 30)
;~ ConsoleWrite($btn[$i] & @CRLF)
Next

For $i = 0 To 10
$icn[$i] = GUICtrlCreateIcon ($sOffice12_Dir&"\"&$asOfficeTools [0][$i], -1, 230, 15 + $i * 30, 16, 16)
Next

GUISetState (@SW_SHOW, $hwnd)

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

if (not @error) then _
return 1

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

EndFunc

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

Func InitTray ( )

$IDC_TRAYITEM[0] = TrayCreateMenu ("Einstellungen")
$IDC_TRAYITEM[1] = TrayCreateItem ("Anzeige", $IDC_TRAYITEM[0])
$IDC_TRAYITEM[2] = TrayCreateItem ("Drucker", $IDC_TRAYITEM[0])
TrayCreateItem ("")
$IDC_TRAYITEM[3] = TrayCreateItem ("Über ...")
TrayCreateItem ("")
$IDC_TRAYITEM[4] = TrayCreateItem ("Beenden")

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

TraySetState ( )

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

if (not @error) then _
return 1

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

EndFunc

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

; Skript beenden ...
Exit

[/autoit]

Gruß
Greenhorn

**Greenhorn**

Einen habe ich auch noch ...

Spoiler anzeigen

[autoit]

While 1
Local $sClip = ClipGet ( )
If (StringRegExp ($sClip, '(\r\n)', 0)) Then _
ClipPut (StringReplace ($sClip, @crlf, ''))

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

Sleep (100)
WEnd

[/autoit]

Wenn nur Leerzeilen entfernt werden sollen, dann ...

Spoiler anzeigen

[autoit]

While 1
Local $sClip = ClipGet ( )
If (StringRegExp ($sClip, '(\r\n\r\n)', 0)) Then _
ClipPut (StringRegExpReplace ($sClip, '(\r\n\r\n)', @crlf))

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

Sleep(100)
WEnd

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

LG
Greenhorn

**Greenhorn**

Moin,

probiere doch mal das hier ...
[ offen ] .ico in Ordner als Ordnerbild auswählen

LG
Greenhorn

**Greenhorn**

Problem:

Zitat von Sayen

Gibt es eine möglichkeit die Datei so in die exe zu integrieren das Sie nicht extrahiert wird und man sie in der GUI verwenden kann?

Lösung:
Resources UDF

LG
Greenhorn

**Greenhorn**

Moinsen,

das geht mit StretchBlt ...
http://msdn.microsoft.com/en-us/library/dd145120(VS.85).aspx

EDIT:
Ups, Andy war schneller ...

Gruß
Greenhorn

**Greenhorn**

Moinsen,

ähm, StringLen () ... ???

Hilfedatei !!!

Gruß
Greenhorn

**Greenhorn**

Moin,

ändere deine WinSetState in GuiSetState (@SW_SHOW), dann geht es ...

LG
Greenhorn

**Greenhorn**

Rasta

BigRox hat bisher sehr gute Arbeit geleistet und so schlecht sind seine Englischkenntnisse nun auch wieder nicht, er hat schon genug Dateien übersetzt.

Desweiteren sind die Übersetzer manchmal schlechter im Deutschen als im Englischen, das bügelt BigRox dann meist wieder aus.

LG
Greenhorn

**Greenhorn**

Zitat von Jam00

äh was

Über Nachrichten und Nachrichten-Warteschleifen

Zitat

Das Betriebssystem Windows arbeitet ereignisorientiert, das heißt, dass die Programme nicht nach Informationen bezüglich Systemänderungen oder Benutzerereignissen fragen, sondern sie bekommen diese Informationen bei Bedarf frei Haus geliefert. Etwas technischer Beschrieben, ruft Windows eine Funktion des Programms auf, wenn eines dieser Ereignisse eingetreten ist. Diese Funktion ist vom Programm definiert und bestimmt so den Ablauf des Programms. So eine Funktion (auch Window Procedur oder kurz WndProc genannt) ist jedoch nicht an ein Programm gebunden, sondern an ein Fenster. Es kommt daher häufig vor, dass ein Programm mehrere solcher Funktionen unterhält. Über die Parameter der WndProc Funktion bekommt man die Art (also, was passiert ist) der Nachricht übergeben. Denn, falls es noch nicht deutlich geworden ist, eine WndProc Funktion ist für alle Ereignisse eines Fensters zuständig. Die Palette reicht vom skalieren des Fensters über einen Mouseklick bis hin zum Empfangen von Daten.

WinAPI Tutorial

Gruß

**Greenhorn**

Zitat von Jam00

Warum geht das mit dem Edit nicht?

Weil ein Editfenster diese Nachricht (WM_CTLCOLORSTATIC) nicht erhält ...

Gruß

**Greenhorn**

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <WinAPI.au3>

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

Global $OPAQUE = 0
Global $TRANSPARENT = 1

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

; Dies ist der erste Streich ...
GUIRegisterMsg ($WM_CTLCOLORSTATIC, 'WM_CTLCOLORSTATIC')

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

$hWndMain = GUICreate ("My CheckBox Button with Transparency", 300, 200, _
-1, -1, _
$WS_OVERLAPPEDWINDOW)

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

GUISetBkColor (0x00ff00)

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

$pic = GUICtrlCreatePic (@SystemDir & '\oobe\images\wpaback.jpg', 0, 0, 300, 200)
GUICtrlSetState (-1, $GUI_DISABLE)

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

$btnCheckBox = GUICtrlCreateCheckbox ('Checkbox', 100, 90, 100, 20)
; ... und der zweite folgt sogleich.
DllCall ('UxTheme.dll', 'int', 'SetWindowTheme', 'hwnd', GUICtrlGetHandle (-1), 'wstr', ' ', 'wstr', ' ')

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

$btnPushButton = GUICtrlCreateButton ('PushButton', 110, 150, 80, 20)

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

GUISetState ()

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

While True

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

Switch GUIGetMsg ()
Case -3
Exit
EndSwitch

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

WEnd

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

;========================================================================================
; WM_CTLCOLORSTATIC ($hDC, $hCtrl)
;========================================================================================
Func WM_CTLCOLORSTATIC ($hWnd, $Msg, $wParam, $lParam)

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

Local $hDC = $wParam

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

SetBkMode ($hDC, $TRANSPARENT)
Return _WinAPI_GetStockObject (5) ; 5 = NULL_BRUSH/HOLLOW_BRUSH

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

EndFunc

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

;========================================================================================
; Func SetBkMode ()
;========================================================================================
Func SetBkMode ($hDC, $flag = 0)

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

If ($flag < 0 Or $flag > 1) Then Return SetError (1)

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

DllCall ('gdi32.dll', 'int', 'SetBkMode', _
'hwnd', $hDC, _ ; handle to Decive Context
'int', $flag) ; $flag: 1 = TRANSPARENT, 0 = OPAQUE

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

EndFunc

[/autoit]

**Greenhorn**

Sorry, war noch ein altes Script ...

Die includes müssen natürlich aktualisiert werden ...

[autoit]

#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>

[/autoit]

**Greenhorn**

Wenn Du auf den XP-Stil bei diesen Steuerelementen verzichten kannst, dann kannst Du es so hinbekommen ...

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#Include <WinAPI.au3>

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

Global $OPAQUE = 0
Global $TRANSPARENT = 1

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

; Dies ist der erste Streich ...
GUIRegisterMsg ($WM_CTLCOLORSTATIC, 'WM_CTLCOLORSTATIC')

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

$hWndMain = GUICreate ("My CheckBox Button with Transparency", 300, 200, _
-1, -1, _
$WS_OVERLAPPEDWINDOW)

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

GUISetBkColor (0x00ff00)

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

$pic = GUICtrlCreatePic (@SystemDir & '\oobe\images\wpaback.jpg', 0, 0, 300, 200)
GUICtrlSetState (-1, $GUI_DISABLE)

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

$btnCheckBox = GUICtrlCreateCheckbox ('Checkbox', 100, 90, 100, 20)
; ... und der zweite folgt sogleich.
DllCall ('UxTheme.dll', 'int', 'SetWindowTheme', 'hwnd', GUICtrlGetHandle (-1), 'wstr', ' ', 'wstr', ' ')

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

$btnPushButton = GUICtrlCreateButton ('PushButton', 110, 150, 80, 20)

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

GUISetState ()

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

While True

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

Switch GUIGetMsg ()
Case -3
Exit
EndSwitch

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

WEnd

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

;========================================================================================
; WM_CTLCOLORSTATIC ($hDC, $hCtrl)
;========================================================================================
Func WM_CTLCOLORSTATIC ($hWnd, $Msg, $wParam, $lParam)

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

Local $hDC = $wParam

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

SetBkMode ($hDC, $TRANSPARENT)
Return _WinAPI_GetStockObject (5) ; 5 = NULL_BRUSH/HOLLOW_BRUSH

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

EndFunc

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

;========================================================================================
; Func SetBkMode ()
;========================================================================================
Func SetBkMode ($hDC, $flag = 0)

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

If ($flag < 0 Or $flag > 1) Then Return SetError (1)

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

DllCall ('gdi32.dll', 'int', 'SetBkMode', _
'hwnd', $hDC, _ ; handle to Decive Context
'int', $flag) ; $flag: 1 = TRANSPARENT, 0 = OPAQUE

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

EndFunc

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

Gruß
Greenhorn

**Greenhorn**

Moin,

Sehr cool !!!

[offtopic]
So ein Programm habe ich mal aus einer Zeitschrit abgetippt, das war ca. 1988 (Die Zeitschrift war von 1985, glaube ich).
Sprache: Turbo Basic XL
System: Atari 800XL

Auf einem 36 cm Fernseher (SW) hat es mit 4 Farben ca 36 Stunden gedauert bis es fertig war, je nachdem wie tief man eingedrungen ist.
[/offtopic]

Gruß
Greenhorn

**Greenhorn**

Moin,

bei statischen Fenstern kann man die Hintergrundfarbe transparent darstellen.

In AutoIt sieht das dann so aus:
(Hättest Du aber auch der Hilfe entnehen können !)

[autoit]

$Toolname=GUICtrlCreateLabel("3D-KundenDatenbanken-Tool.V1.02.", 110, 10, 200,-1,$WS_EX_TRANSPARENT)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)

[/autoit]

Gruß
Greenhorn

**Greenhorn**

Zitat von Raupi

BugFix kannst du mir nen Tipp geben wo ich mehr über WM_NOTIFY erfahre ? Oder besser wie das ganze funktioniert .

About Messages and Message Queues

Beiträge von Greenhorn

Tab Hintergrundfarbe ermitteln

Mehrere Downloads gleichzeitig laufen lassen

TreeView Edit funktioniert nicht (Bsp aus der Hilfe)

2x GUI öffnen

Tray Icon erscheint nicht

Zeilenumbrüche aus der Ablage entfernen

Ordner Icons auf USB Stick verändern

Bitmap einbinden

Bilder spiegeln

Anzahl von Zeicher herausfinden

Wie kann ich eine Gui überall "verschiebbar" machen?

Wo seid ihr?

Textfeld / Button etc. Transparent machen

Textfeld / Button etc. Transparent machen

Textfeld / Button etc. Transparent machen

Textfeld / Button etc. Transparent machen

Textfeld / Button etc. Transparent machen

Mandelbrot Fraktal zoomen

Textfeld / Button etc. Transparent machen

ListView reagiert nicht