PureBasic Forums - English

Posted: **Fri Jan 13, 2023 2:30 pm**

[PB 5.73 x64 - Win 10 pro x64]

Can this be a "FrameGadget" bug ?

See post here ...
https://www.purebasic.fr/english/viewt ... p?t=80408

Code: Select all

;--------------------------------------------------------------------------------------------------
;- TEST PROGRAM FRAMEGADGET
;--------------------------------------------------------------------------------------------------
EnableExplicit

;--------------------------------------------------------------------------------------------------
Declare CreateWindow()

;--------------------------------------------------------------------------------------------------
	CreateWindow()

	Repeat
		Delay(10)
	Until WaitWindowEvent() = #PB_Event_CloseWindow

	End

;--------------------------------------------------------------------------------------------------
Procedure CreateWindow()
	If OpenWindow(0, 0, 0, 320, 250, "FrameGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
		SetWindowColor (0, $004000)

		FrameGadget(3, 10, 190, 300, 50, "", #PB_Frame_Flat)

	EndIf

EndProcedure

;--------------------------------------------------------------------------------------------------

Thanks,
marco

Posted: **Fri Jan 13, 2023 10:45 pm**

Didn't we just talk about this some days ago in another thread?

Posted: **Sat Jan 28, 2023 5:21 pm**

The FrameGadget() isn't transparent on Windows, it can be a feature request.

Posted: **Sat Jan 28, 2023 11:16 pm**

Fred wrote: Sat Jan 28, 2023 5:21 pm The FrameGadget() isn't transparent on Windows, it can be a feature request.

Then it's a bug since there are different results based on where the SetWindowColor() is placed...

Frame is solid (no background Window color) until Window is dragged off the screen and back.

Code: Select all

If OpenWindow(0, 0, 0, 320, 250, "FrameGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
	SetWindowColor (0, $004000)
	FrameGadget(3, 10, 190, 300, 50, "", #PB_Frame_Flat)
EndIf
Repeat:Until WaitWindowEvent() = #PB_Event_CloseWindow

Frame is transparent and lets Window background color through.

Code: Select all

If OpenWindow(0, 0, 0, 320, 250, "FrameGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
	FrameGadget(3, 10, 190, 300, 50, "", #PB_Frame_Flat)
	SetWindowColor (0, $004000)
EndIf
Repeat:Until WaitWindowEvent() = #PB_Event_CloseWindow

Also, if Windows is created invisible and then you make it visible (forcing Window to be redrawn like when Window is dragged off the screen and back) then SetWindowColor can be set first

Code: Select all

If OpenWindow(0, 0, 0, 320, 250, "FrameGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered|#PB_Window_Invisible)
	SetWindowColor (0, $004000)
	FrameGadget(3, 10, 190, 300, 50, "", #PB_Frame_Flat)
	HideWindow(0,0)
EndIf
Repeat:Until WaitWindowEvent() = #PB_Event_CloseWindow

Posted: **Tue Jan 31, 2023 1:14 am**

Sorry Fred,

If you can read my post here
viewtopic.php?p=593361#p593361

This works very well in previous versions of PB ... till PB5.72 x64
And not on PB 5.73 LTS x64

I do not understand your answer here !!!

Marc

PureBasic Forums - English

FrameGadget backcolor problem ...

FrameGadget backcolor problem ...

Re: FrameGadget backcolor problem ...

Re: FrameGadget backcolor problem ...

Re: FrameGadget backcolor problem ...

Re: FrameGadget backcolor problem ...