GUICtrlSetGraphic() problem

[annelinn]

I'm trying to use GUICtrlSetGraphic() to draw simple shapes (squares and lines) within a specified area of a window.

The script below creates a window, and creates a blue graphic control inside the window. Then it tries to draw a rectangle inside the blue area.

The script is as close as possible to the example script given in the help file for GUICtrlSetGraphic(). Naturally, the example script works perfectly, and mine doesn't. What might I be doing wrong?

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>

; Create a GUI main window
$Mwin_handle = GUICreate("Test", 1000, 600, 0, 0)
GUISetState(@SW_SHOW)

; Create a graphic control within the window
$Swin_handle = GUICtrlCreateGraphic(800, 400, 100, 100)
GUICtrlSetBkColor(-1, 0x0000ff)     ; Blue background
GUICtrlSetColor(-1, 0x000000)       ; Black border

; Try to draw a black square inside the blue area
GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0x000000)
GUICtrlSetGraphic(-1, $GUI_GR_RECT, 50, 50, 20, 20)

; Prompt the user before terminating script
MsgBox(1, "test", "waiting")

[Melba23]

annelinn,

Your code works prefectly for me.

Perhaps your monitor makes it difficult to see the black rectangle on the blue background. Have you tried to change the blue to a lighter shade (0xC4C4FF for example)?

M23

[annelinn]

Perhaps your monitor makes it difficult to see the black rectangle on the blue background. Have you tried to change the blue to a lighter shade (0xC4C4FF for example)?

Yes, I've tried various combinations of colours (including black on white, and vice-versa). I've also tried using different windows themes.

Perhaps it's a Windows Vista problem.

Edited August 25, 2010 by annelinn

[Melba23]

annelinn,

Perhaps it's a Windows Vista problem

No - I am running Vista.

What exactly does not work when you run your code? Does the larger area display correctly?

M23

[annelinn]

The main window, and the blue area within it, are displayed properly. The little black boxes I'm trying to draw inside the blue area don't appear at all.

Here's a screenshot.

[somdcomputerguy]

Hmm, I get the same result as you, annelinn, I also am running Vista, Home Premium.

Edited August 25, 2010 by somdcomputerguy

[wraithdu]

It's a repaint issue. Add this after your drawing is finished

_WinAPI_InvalidateRect($Mwin_handle)

Alternatively, don't show your GUI (GuiSetState) until your drawing is finished.

[Melba23]

wrathdu,

It's a repaint issue

Which explains why it worked for me. The message box actually covered the graphics area on my display and I had to move it to see the small box - hence automatic repainting.

Thanks.

M23

[annelinn]

Yes, that's the solution. Thank you, all, for your generous help.

The fixed script is below for future reference.

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

; Create a GUI main window
$Mwin_handle = GUICreate("Test", 1000, 600, 0, 0)
GUISetState(@SW_SHOW)

; Create a graphic control within the window
$Swin_handle = GUICtrlCreateGraphic(800, 400, 100, 100)
GUICtrlSetBkColor(-1, 0x0000ff)     ; Blue background
GUICtrlSetColor(-1, 0x000000)       ; Black border

; Try to draw a black square inside the blue area
GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0x000000)
GUICtrlSetGraphic(-1, $GUI_GR_RECT, 50, 50, 20, 20)

_WinAPI_InvalidateRect($Mwin_handle)

; Prompt the user before terminating script
MsgBox(1, "test", "waiting")

Edited August 25, 2010 by annelinn