Button Farbe

**Tweaky**

Hi,
ich möchte gerne einen farbigen Button mit einem Icon.
Leider kann ich nur einen Button färben der kein Icon enthält.
Geht das nicht oder habe ich eine Funktion übersehen?

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <GuiButton.au3>
#include <GuiImageList.au3>

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

Local $hImage, $y = 70, $iIcon = 125, $btn[6], $rdo[6], $chk[6]

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

GUICreate("Buttons", 510, 400)
GUISetState()

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

$hImage = _GUIImageList_Create(32, 32, 5, 3, 6)
For $x = 6 To 11
_GUIImageList_AddIcon($hImage, "shell32.dll", $x, True)
Next

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

$btn[0] = GUICtrlCreateButton("Button 1", 10, 10, 90, 50)
;~ GUICtrlSetBkColor(-1, 0x00ff00) ;geht nicht
_GUICtrlButton_SetImageList($btn[0], $hImage)

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

GUICtrlCreateButton("Button mit Farbe", 10, 200, 200, 40)
GUICtrlSetBkColor(-1, 0x00ff00)

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

While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop
EndSwitch
WEnd

[/autoit]

SgtIgram

howdy

also ich hab es in einem meiner programme so geregelt:

[autoit]

GUICtrlCreateButton("",300,155,30,30,$BS_ICON)
GUICtrlSetImage(-1,@ScriptName, "207")

[/autoit]

wobei es sich dabei tatsächlich um icons handelt die ich der exe direkt mitgegeben hab, 207 ist in diesem fall die indexnummer des icons

mfg
sgtigram

**Tweaky**

Ja, das weiß ich, dass es so geht.
Aber seit neuestem will ich zu dem Icon auch noch Text im Button drin haben

SgtIgram

also im notfall könntest du nen pic-control nehmen, es drüberlegen und es deaktivieren damit es den buttonclick nicht behindert..
oder du arbeitest direkt mit nem pic-control und nem label und machst das ganze dann per guictrlsetonevent

**Tweaky**

diese Lösung habe ich bereits, jedoch hoffe ich, dass es auch einfacher geht

**Oscar**

Es geht einfacher: lass das $BS_ICON weg.

Spoiler anzeigen

[autoit]

GUICreate('test')
GUICtrlCreateButton(' Button', 10, 10, 120, 48)
GUICtrlSetImage(-1, 'shell32.dll', 23)
GUISetState()
Do
Until GUIGetMsg() = -3

[/autoit]

**Andy**

Oscar ,
scheint BS-Abhängig zu sein, bei mir unter XP32 bekomme ich bei deiner Version nur den Button mit dem Text zu sehen ohne Icon...

Habe jetzt mit verschiedenen Versuchen probiert, dem Button eine Msg zu schicken:

[autoit]

$hInstance = _WinAPI_GetModuleHandle("shell32.dll")
$hIcon = _WinAPI_LoadImage($hInstance, 22, $IMAGE_ICON, 0, 0, $LR_DEFAULTSIZE)
guictrlSendMsg($button, $BM_SETIMAGE, $IMAGE_ICON, $hIcon);

[/autoit]

funktioniert das bei dir?

**Oscar**

Stimmt, mein Beispiel funktioniert, glaub ich, erst ab Vista.
Aber Dein Beispiel funktioniert bei mir unter Win7 (64Bit). Wenn das auch unter XP funktioniert, dann haben wir eine Lösung des Problems.

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <Constants.au3>
#include <WinAPI.au3>

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

GUICreate('test')
$button = GUICtrlCreateButton(' Button', 10, 10, 120, 48)
GUISetState()
$hInstance = _WinAPI_GetModuleHandle("shell32.dll")
$hIcon = _WinAPI_LoadImage($hInstance, 22, $IMAGE_ICON, 0, 0, $LR_DEFAULTSIZE)
GUICtrlSendMsg($button, $BM_SETIMAGE, $IMAGE_ICON, $hIcon)
Do
Until GUIGetMsg() = -3

[/autoit]

**Andy**

Zitat

Wenn das auch unter XP funktioniert, dann haben wir eine Lösung des Problems.

Tja, also bei mir mit XP32 funktioniert es nicht..

Ich hatte mir schon gedacht, dass es bei BS>Vista funktionieren "sollte"

**UEZ**

Sollte auch mit $BS_ICON unter WinXP funzen.

Gruß,
UEZ

**Oscar**

Mit $BS_ICON funktioniert es unter Win7 aber nicht mehr mit Icon und Text.

**UEZ**

Am besten das Icon in eine Bitmap umwandeln und den Button Control mit dem Style $BS_BITMAP verwenden.

Dann sollte es passen.

Gruß,
UEZ

RR04

Hi,
ich hoffe ich habe es richtig verstanden?

Spoiler anzeigen

[autoit]

#AutoIt3Wrapper_AU3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#include <ButtonConstants.au3>
#include <WindowsConstants.au3>
;~ +> $WS_CLIPSIBLINGS —> WindowsConstants.au3
;~ +> $BS_BOTTOM —> ButtonConstants.au3
;~ +> $BS_MULTILINE —> ButtonConstants.au3

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

Global $msg, $tate = 1, $sMsg[2], $Color[2] = [0xFF0000, 0x00FF00]
$sMsg[0] = '\nViel Spaß wünscht\nRitzelrocker04 !'
$sMsg[1] = '\nDas ist ein\nmehrzeiliger Text\nin einem\nfarbigen Button'

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

GUICreate('Colored_Image_Button-Tut', 300, 150)
GUICtrlCreateIcon("shell32.dll", -14, 40, 40, 32, 32, 0)
Global $btnColor = GUICtrlCreateButton(StringFormat($sMsg[1]), 10, 10, 230, 100, BitOR($WS_CLIPSIBLINGS, $BS_BOTTOM, $BS_MULTILINE))
GUICtrlSetBkColor(-1, 0x00FF00)
GUISetState()

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

While True
$msg = GUIGetMsg()
Switch $msg
Case -3 ;$GUI_EVENT_CLOSE
MsgBox(64, 'Colored_Image_Button-Tut', StringFormat($sMsg[0]), 3)
ExitLoop
Case $btnColor
$tate = BitXOR($tate, 0, 1)
For $k = 0 To 1 ;i statisch kein Ubound
GUICtrlSetData($btnColor, StringFormat($sMsg[$tate]))
GUICtrlSetBkColor($btnColor, $Color[$tate])
Next
EndSwitch
WEnd
; Ende

[/autoit]

**Andy**

Zitat von UEZ

Sollte auch mit $BS_ICON unter WinXP funzen.

wenn $BS_ICON verwendet wird, ist nur das Icon sichtbar, aber nicht der Text!