15 replies to this topic

[dater]

Hallo,
ich habe aus dem Eng. Forum ein Beispiel, das ich gerne etwas abgeändert hätte,
aber so richtig komm ich nicht mit klar ?
Also ich hätte gerne ImageButton, aber eben mit einem Jpg oder Bmp Bild.
Und wollte ich das ganze mit GDI machen ! hat da jemand eine idee ?

Dater

/*
; from -> : http://www.autohotkey.com/board/topic/80227-icon-buttons/page__hl__imagelist_create#entry509715
#include gdip.ahk
OnExit, CleanUp		 ; clean up in case of error (otherwise some windows will get lost)
pToken := Gdip_Startup()
pBitmap := Gdip_CreateBitmapFromFile("test.bmp")
*/

Psz := A_PtrSize = "" ? 4 : A_PtrSize
DW := "UInt", Ptr := A_PtrSize = "" ? DW : "Ptr"
Gui, Add, Button, w22 h22 0x40 section hwndhwnd
VarSetCapacity( BUTTON_il, 20 + Psz, 0 )
NumPut( normal_il := DllCall( "ImageList_Create", DW, 16, DW, 16, DW, 0x21, DW, 1, DW, 1 ), BUTTON_il, 0, Ptr )
NumPut( 4, BUTTON_il, 16 + Psz, DW )
SendMessage, BCM_SETIMAGELIST := 5634, 0, &button_il,, AHK_ID %hwnd%
IL_Add( normal_il, A_AhkPath, 1 )
Gui, Show, w200
Return
GuiClose:
IL_Destroy( normal_il )
Exitapp

[nnnik]

Dafür gibts hier schon eine ganze LIB

[CallHimX]

Hat da noch jemand den komplett Download von?
Leider sind die Download-Links alle tot.

[fump2000]

Hab den Thread durchgeschaut, leider sind wirklich alle Links tot... Hat das noch irgendwer?

MfG
fump

[garry]

würde dies reichen ?

;----------- picturex buttonx --------------
F1=C:\TEST\test.jpg
Gui Add, Picture, gA1 w100 h-1,%f1%
Gui Show
return
A1:
msgbox,Clicked %f1%
return
guiclose:
exitapp

[fump2000]

Ich denk es geht um ne LIB? Muss die nich per Include geladen werden?

[ruespe]

Best Answer

Ich hab hier noch eine Version vom 16.10.2011 (Wobei die Links natürlich nicht mehr funktionieren; danke Poly )

Spoiler

;
********************************

; Basic Demo Script (download contains additional functionality)
; http://www.autohotke...der=asc&start=0
; ********************************

; Download sample images if necessary
IfNotExist %A_WorkingDir%\testbmp.bmp
{
SplashTextOn, 300, 30, !, Downloading images. Please wait...
URLDownloadToFile http://www.autoHotke...t/~corr/ahk.bmp, ahk.bmp
URLDownloadToFile http://www.autoHotke...orr/testbmp.bmp, testbmp.bmp
URLDownloadToFile http://www.autoHotke...~corr/test2.bmp, test2.bmp
SplashTextOff
}
; Create the buttons
Gui, Add, Button, h30 w140 gNbutton, Normal Button
AddGraphicButton("SampleButton1", A_WorkingDir . "\testbmp.bmp", "h30 w140 gMyButton", 30, 140)
AddGraphicButton("SampleButton2", A_WorkingDir . "\ahk.bmp", "h30 w140 gMyButton", 80, 140)
Gui, Add, Button, h30 w140 gNbutton, Another Normal Button
AddGraphicButton("SampleButton3", A_WorkingDir . "\test2.bmp", "h30 w140 gMyButton", 20, 130)

; Show the window
Gui, Show,, Bitmap Buttons

; Image rollover for SampleButton1
OnMessage(0x200, "MouseMove")
OnMessage(0x2A3, "MouseLeave")
OnMessage(0x202, "MouseLeave") ; Restore image on LBUTTONUP
Return

MouseLeave(wParam, lParam, msg, hwnd)
{
global
If (hwnd = SampleButton1_hwnd)
AddGraphicButton("SampleButton1", A_WorkingDir . "\testbmp.bmp", "h30 w140 gMyButton", 30, 140)
Return
}
MouseMove(wParam, lParam, msg, hwnd)
{
global
static _LastButtonData = true
If (hwnd = SampleButton1_hwnd)
If (_LastButtonData != SampleButton1_hwnd)
AddGraphicButton("SampleButton1", A_WorkingDir . "\ahk.bmp", "h30 w140 gMyButton", 60, 120)
_LastButtonData := hwnd
Return
}

MyButton:
MsgBox, Graphic Button Clicked
Return

Nbutton:
MsgBox, Normal Button Clicked
AddGraphicButton("SampleButton3", A_WinDir . "\clouds.bmp", "h30 w140 gMyButton", 20, 130)
Return

GuiClose:
ExitApp



; *******************************************************************
; AddGraphicButton.ahk
; *******************************************************************
; Version: 2.2 Updated: May 20, 2007
; by corrupt
; *******************************************************************
; VariableName = variable name for the button
; ImgPath = Path to the image to be displayed
; Options = AutoHotkey button options (g label, button size, etc...)
; bHeight = Image height (default = 32)
; bWidth = Image width (default = 32)
; *******************************************************************
; note:
; - calling the function again with the same variable name will
; modify the image on the button
; *******************************************************************
AddGraphicButton(VariableName, ImgPath, Options="", bHeight=32, bWidth=32) {
global
local ImgType, ImgType1, ImgPath0, ImgPath1, ImgPath2, hwndmode
; BS_BITMAP := 128, IMAGE_BITMAP := 0, BS_ICON := 64, IMAGE_ICON := 1
static LR_LOADFROMFILE := 16
static BM_SETIMAGE := 247
static NULL
SplitPath, ImgPath,,, ImgType1
If ImgPath is Float
{
ImgType1 := (SubStr(ImgPath, 1, 1) = "0") ? "bmp" : "ico"
StringSplit, ImgPath, ImgPath,`.
%VariableName%_img := ImgPath2
hwndmode := true
}
ImgTYpe := (ImgType1 = "bmp") ? 128 : 64
If (%VariableName%_img != "") AND !(hwndmode)
DllCall("DeleteObject", "UInt", %VariableName%_img)
If (%VariableName%_hwnd = "")
Gui, Add, Button, v%VariableName% hwnd%VariableName%_hwnd +%ImgTYpe% %Options%
ImgType := (ImgType1 = "bmp") ? 0 : 1
If !(hwndmode)
%VariableName%_img := DllCall("LoadImage", "UInt", NULL, "Str", ImgPath, "UInt", ImgType, "Int", bWidth, "Int", bHeight, "UInt", LR_LOADFROMFILE, "UInt")
DllCall("SendMessage", "UInt", %VariableName%_hwnd, "UInt", BM_SETIMAGE, "UInt", ImgType, "UInt", %VariableName%_img)
Return, %VariableName%_img ; Return the handle to the image
}

[fump2000]

Vielen Dank!

[ClickPlus]

Da der Thread hier schon älter is, für dich Nachwelt:

 

EInfach das hier machen und freuen:

Gui, Add, Picture, x y w h +Buttons gdein_label, pfad\Button.png

dein_label:
MsgBox, 4, Wow, It's Magic, ladies and gentlemen!
return

ne leute im ernst was versucht ihr immer alles zu verkomplizieren -.-'

[nnnik]

Die Funktionalität des ImageButton scripts geht weit darüber hinaus.

So kann man die Bilder sogar noch mit GDI+ bearbeiten.

[D_FoX]

@ ClickPlus

 

Jetzt hast ein picture mit gLabel funktion erstellt. Aber kein Button.

 

[D_FoX]

Ich habe hier mal noch eine leichtere Alternative gefunden.

 

http://www.autohotke...gui/#entry56140

[nnnik]

Da gibt es aber noch mehr zu sagen.

Er benutzt da einfach nur ein Bild, dessen eigenschaften er verändert.

Das hat folgende Folgen:

1. Umgehung der "Wie hat es auszusehen Konvention">>(Verwirrung)
2. Veränderung des Designs des Knopfes
3. Er hat in diesem Fall keinen MouseOver Effekt
4. Ich wei nicht ob man Bilder auch mit der Tastatur ohne Maus auswählen kann.

1: Das beste Beispiel dafür wie verwirrend es sein kann wenn auf einmal etwas anders aussieht als erwartet ist das vertauschen von Checkbox(Häkchen) und Radio(Auswahl von einem).

[D_FoX]

Mousover könnte man ja noch zusätzlich Programmieren.

Aber guter einwand. mit der Tastatur.

 

Aber ich denke für gewisse einfache zwecke ist das leichter, als sich erst mit dem anderen Kram auseinander zu setzen.

 

 

Funktioniert das script oben bei jemanden? Mal abgesehen davon was man dort ändern sollte?

[maexchen]

Jo, grundsätzlich funktioniert es.
Es fehlte einfach noch ein "Gui show" und ein "return" darunter... 

Gui, Add, Picture, +Buttons gdein_label, <Pfad zu Deinem Bild\Bild.png>
Gui, show
return

dein_label:
MsgBox, 4, Wow, It's Magic, ladies and gentlemen!
return