Lable covering up Text Box Mystery
My brother and I are working on a project. He recently sent me his
latest version which was missing three or four text boxes. I called him
and he said he could see them just fine. We are both using WinXP Home
and both have 1024 X 768 display. Here's a test program I made to
illustrate the problem:
without warning
include win32lib.ew
integer Lbl11,Tabs,Tab1,flag,Age,lablen
flag=0 -- flag=10 allows win color to bleed through?
lablen=60 -- this setting covers causes the lable to cover up the Age
control. Change it to 30 and try it
constant win=createEx (Window,"Test",0,Center,Center,500,500,0,0)
setWindowBackColor(win,SkyBlue)
Tabs = create ( TabControl, "", win,0, 0, 500,500, 0 )
Tab1 = create( TabItem, "Patient", Tabs,0,0,0,0,0)
procedure print_it( integer self, integer event, sequence params)
sequence OldFont
OldFont = setCreateFont("Courier New",11,Normal,Black)
Lbl11 = create(LText,"Age", Tab1,30,
50,lablen,25,flag)
Age = create(SleText,"", Tab1,60,50,30,25,0)
end procedure
setHandler(win, w32HPaint, routine_id( "print_it" ))
WinMain(win,Normal)
With lablen set to 60 the label is covering up the text box. If I
change it to 30 than I can see the text box.
My brother discovered that if he sets flag=10 it allows the main window
color to show through the tab. When he did that it shows the blue color
on both sides of the text box, but the box is still visable. When I try
it the entire text box is covered up with the blue. Can someone please
explain what is happening here? Could it have something to do with our
respective video cards?
|
Not Categorized, Please Help
|
|
