OpenEuphoria

1. Text Not Showing

• Posted by Lone_EverGreen_Ranger Jan 06, 2012
• 1481 views

Hello,

When I made an LText control, it does not appear on a TabControl. It shows up as a black blank bar. Why is this?

3. Re: Text Not Showing

• Posted by Lone_EverGreen_Ranger Jan 06, 2012
• 1457 views

I'm using 4.0 of Eu. I'm using 0_70_20 of win32lib. I'm using Windows Vista.

5. Re: Text Not Showing

• Posted by Lone_EverGreen_Ranger Jan 06, 2012
• 1448 views

4.0.3

7. Re: Text Not Showing

• Posted by ArthurCrump Jan 07, 2012
• 1414 views

Could this be connected with ticket:616 ?

[matt: fixed link]

9. Re: Text Not Showing

• Posted by mattlewis (admin) Jan 07, 2012
• 1490 views

Yes, I suspect that it is.

Matt

11. Re: Text Not Showing

• Posted by ArthurCrump Jan 07, 2012
• 1408 views

If you don't want to update Euphoria to get the fixes you could try:

open_dll("comdlg32.dll") 

before opening any standard dialog

13. Re: Text Not Showing

• Posted by ChrisB (moderator) Jan 08, 2012
• 1352 views

Hi

Why would open_dll("commdlg32.dll") solve text displaying problem. Just curious.

Cheers

Chris

15. Re: Text Not Showing

• Posted by ArthurCrump Jan 08, 2012
• 1308 views

I still get the black box problem with the win32lib demo file tabcontrol2.exw

17. Re: Text Not Showing

• Posted by mattlewis (admin) Jan 10, 2012
• 1544 views

The problem appears to be in win32lib.ew:fDoCtlColor(). It's there apparently to override the foreground and background color selections for controls. Apparently, the themed settings are slightly different than non-themed settings, at leaast on XP. To turn it off, you can simply modify the function so that it always does:

    return {kMainMsg , -1} 

If you've been taking advantage of the features of win32lib that use this, of course, they won't work any more (I'm not familiar with the motivation, etc, for this function, so I can't really say more). I found a modification that fixes the issue with the static labels by checking to see if win32lib believes the control should be transparent. Again, in fDoCtlColor, update the if statement that checks for w32WinDefColor to read:

 
	if not equal( classBGColor[ctrl_Type[lControl]], w32BGTransparent ) and 
	not equal(ctrl_Bg_Color[lControl], w32WinDefColor) then 

That doesn't fix the combo's issues. I think the problem occurs with the Combo's edit box. Normally, those aren't transparent, so it doesn't get fixed by the transparency check, though the first suggestion, of making this function o NOOP fixes the combo box display.

For completeness, here is the simple example that demonstrates the issue:

include win32lib.ew  
constant Win1 = create(Window,"Strange",0,Default,Default,400,400,0),  
		TabCtl = create(TabControl,"",Win1,5,5,380,355,0),  
		Tab1 = create(TabItem,"First",TabCtl,0,0,0,0,0),  
		Label1 = create(CText,"Nothing important",Tab1,10,30,360,25,0),  
		Cbox1 = create(Combo,"",Tab1,20,80,250,100,0)  
WinMain(Win1,Normal)  

Matt

19. Re: Text Not Showing

• Posted by mattlewis (admin) Jan 10, 2012
• 1283 views

Yes, I'm not convinced that what I did is the right fix, but at least you can read the text. I'd like to get Derek's thoughts about the way forward.

Matt