Topic: Color of image_button

[Coder]

Hello everyone.

Is there a way to get the current colour of the image_button tile then toggle the colour to a new different one?
Thanks in advance.

[tombu]

What version are you using?
Newest versions use PNG files with transparent backgrounds.
https://www142.lunapic.com/editor/ does a nice job of converting an image to PNG and setting transparent background.

[Coder]

Sorry I am not talking about image edit but the color of image_button tile from a dcl file.
http://help.autodesk.com/view/OARX/2018/ENU/?guid=GUID-C1E7FFC9-065F-4975-B356-CF31474B6746

[Lee Mac]

Is there a way to get the current colour of the image_button tile

No - the visual appearance of a DCL image/image_button is one-way: you can modify what is displayed, but you cannot query the properties of the tile to obtain information about what is currently being displayed.

Is there a way to toggle the colour to a new different one?

I would suggest initialising the image_button to a known colour (either in the DCL file or better yet, in your program), and assigning such colour to a variable which may then be referenced in the action_tiles statements for your dialog. Ensure the variable value is updated when you alter the colour and you can easily toggle the colour.

[Coder]

Thank you Lee for your kind contribution.

I was thinking if the colour property of the image_button is obtainable then I would be able to avoid using a variable but it seems it is not as you already ensured that also.

Have a nice day.

[efernal]

Code - Auto/Visual Lisp: [Select]

1. ;|
2. teste:dialog{label="teste";
3. :image_button{key="i";width=50;height=30;color=30;}
4. ok_cancel;}
5. |;
6. (DEFUN c:teste (/ cor dh)
7.   (SETQ dh (LOAD_DIALOG "c:\\lixo\\teste.dcl"))
8.   (NEW_DIALOG "teste" dh)
9.   (ACTION_TILE "i" "(SETQ cor (GET_ATTR \"i\" \"color\"))(ALERT cor)")
10.   (START_DIALOG)
11.   (UNLOAD_DIALOG dh)
12.   (PRINC)
13. )

[Lee Mac]

A good suggestion efernal, but be aware that get_attr will only obtain the initial value, not what is currently being displayed.

[roy_043]

'Toggling the color' has me confused. Are we talking about the fill_image function?

[efernal]

Code - Auto/Visual Lisp: [Select]

1. ;;try this
2.  
3. ;|
4. teste:dialog{label="teste";
5. :image_button{key="i";width=50;height=30;}
6. ok_cancel;}
7. |;
8. (DEFUN c:teste (/ cor dh put_cor)
9.   (DEFUN put_cor ()
10.     (IF (< cor 255)
11.       (SETQ cor (1+ cor))
12.       (SETQ cor 1)
13.     )
14.     (START_IMAGE "i")
15.     (FILL_IMAGE 0 0 (DIMX_TILE "i") (DIMY_TILE "i") cor)
16.     (END_IMAGE)
17.     (ALERT (ITOA cor))
18.   )
19.   (SETQ dh (LOAD_DIALOG "c:\\lixo\\teste.dcl"))
20.   (SETQ cor 1)
21.   (NEW_DIALOG "teste" dh)
22.   (START_IMAGE "i")
23.   (FILL_IMAGE 0 0 (DIMX_TILE "i") (DIMY_TILE "i") 1)
24.   (END_IMAGE)
25.   (ACTION_TILE "i" "(put_cor)")
26.   (START_DIALOG)
27.   (UNLOAD_DIALOG dh)
28.   (PRINC)
29. )
30.  

[Grrr1337]

Maybe my ImageButtonColorPrompt subfunction would be helpful.