How to set the background color for the Picture control

[AutoHot159357]

Hello, everyone, How to set the background color for the Picture control.Please help me thanks

Code: Select all

MyGui := Gui(,"Gui测试")
MyGui.Opt("+Resize")
MyGui.BackColor := "ddc4b0"
MyGui.AddEdit("r9 vedtEdit w325 ReadOnly")
picColor0 := MyGui.AddPicture("xm w19 h19 vpicColor0")
edtXYColor0 := MyGui.AddEdit("r1 w300 vedtXYColor0 yp  ReadOnly")
MyGui.AddPicture("xm w19 h19 vpicColor1 BackgroundRed")
MyGui.AddEdit("r1 w300 vedtXYColor1 yp  ReadOnly")
MyGui.AddPicture("xm w19 h19 vpicColor2 BackgroundRed")
MyGui.AddEdit("r1 w300 vedtXYColor2 yp  ReadOnly")
MyGui.AddPicture("xm w19 h19 vpicColor3 BackgroundRed")
MyGui.AddEdit("r1 w300 vedtXYColor3 yp  ReadOnly")
MyGui.AddPicture("xm w19 h19 vpicColor4 BackgroundRed")
MyGui.AddEdit("r1 w300 vedtXYColor4 yp ReadOnly")
MyGui.AddPicture("xm w19 h19 vpicColor5 BackgroundRed")
MyGui.AddEdit("r1 w300 vedtXYColor5 yp ReadOnly")
MyGui.AddPicture("xm w19 h19 vpicColor6 BackgroundRed")
MyGui.AddEdit("r1 w300 vedtXYColor6 yp ReadOnly")
MyGui.Show("Center")

Xvk58_key(*){
    global MyGui, GetColor, mX, mY
    CoordMode "Pixel"
    MouseGetPos &mX, &mY
    GetColor := PixelGetColor(mX, mY, "Slow")
    setColor := SubStr(GetColor, 3, 6)
    ;ToolTip "X:" mX " Y:" mY "`nColor:" GetColor, mX, mY 
    ;How to write here
    picColor0
    edtXYColor0.Text := mX "x" mY ":" GetColor
    colorXY := mX "," mY ":" GetColor
    ClipSave := ClipboardAll()
    ClipSave := colorXY
    A_Clipboard := ClipSave
    
}

[boiler]

BackgroundRed is how you do it. And since you’re not specifying a picture file, you should just be getting a red square, which it apparently does. What is it doing that you are not expecting?

[AutoHot159357]

@boiler
I want to press X key, Set the background color of the picture control. Don't know how to put setColor variables, Assign to picColor0

Code: Select all

Xvk58_key(*){
    global MyGui, GetColor, mX, mY
    CoordMode "Pixel"
    MouseGetPos &mX, &mY
    GetColor := PixelGetColor(mX, mY, "Slow")
    setColor := SubStr(GetColor, 3, 6)
    ;ToolTip "X:" mX " Y:" mY "`nColor:" GetColor, mX, mY 
    ;How to write here
    picColor0
    edtXYColor0.Text := mX "x" mY ":" GetColor
    colorXY := mX "," mY ":" GetColor
    ClipSave := ClipboardAll()
    ClipSave := colorXY
    A_Clipboard := ClipSave
    
}

[Mod edit: Added [code][/code] tags. Please use them yourself when posting code!]

[boiler]

Some types of controls are more amenable to having their options changed. If you just want a square color that you can change, use a Progress control instead. Demo:

Code: Select all

#Requires AutoHotkey v2.0
MyGui := Gui()
MyGui.Backcolor := 'Red'
MyGui.Add('Progress', 'w100 h100 BackgroundBlue vMyPrg')
MyGui.Show
Sleep 3000
MyGui['MyPrg'].Opt('+BackgroundGreen')

[just me]

Code: Select all

#Requires AutoHotkey v2.0
MyGui := Gui(,"Gui测试")
MyGui.Opt("+Resize")
MyGui.BackColor := "ddc4b0"
MyGui.AddEdit("r9 vedtEdit w325 ReadOnly")
picColor0 := MyGui.AddPic("xm w19 h19 vpicColor0 BackgroundGreen")
edtXYColor0 := MyGui.AddEdit("r1 w300 vedtXYColor0 yp  ReadOnly")
MyGui.Show("Center")

^r:: {
   picColor0.Opt("+BackgroundRed")
   picColor0.Redraw() ; static controls aren't redrawn automatically after a color change
}
^g:: {
   picColor0.Opt("+BackgroundGreen")
   picColor0.Redraw()
}
^b:: {
   picColor0.Opt("+BackgroundBlue")
   picColor0.Redraw()
}