1. RE: IDE V.18 squares on form?
Are you using win32lib v0.59.2? I know that with that version if
configurations is opened all checkboxes and radio buttons end up checked,
even if they were not checked before. I was checking the preferred language
change at the time I discovered this and I do not know if this happens under
other situations because I immediately went back to using v0.59.1. One of
the tabs in configurations is the grid information. After using
configurations the grid is changed from dots to lines which gives the effect
of many little boxes on Design. You need to use win32lib v0.59.1 and then go
into configurations and examine all the radio and checkbox fields for
correctness and be sure to look at grid tab. If I remember correctly both
'lines' and 'dots' will be checked.
I can't remember about the win32lib warning message. I got one but I can not
remember which one it was.
If you are using win32lib v0.59.1 I do not have a clue what is happening to
you. I would suggest you look at the grid tab in configurations and if
'lines' radio is checked, check 'dots' instead. Also for your information
you can turn off grid via Menu Options/Grid Hide.
If this information does not solve the problem, please let me know.
--judith
Judith,
I just got the latest IDE to begin work on another project and when I
start the program I get the standard Win32Lib warning window about
drawRectangle() failed. If I click Yes I get 5-7 more such warnings
before the main window appears.
I'm assuming it's related to the squares now drawn on the form? I
looked in the docs and couldn't find anything about this. What is the
purpose of these squares and is it possible to not display them?
Thanks,
Jonas
2. RE: IDE V.18 squares on form?
Judith,
> Are you using win32lib v0.59.2?
No, v0.59.1.
One of
> the tabs in configurations is the grid information. After using
> configurations the grid is changed from dots to lines which gives the
> effect
> of many little boxes on Design. You need to use win32lib v0.59.1 and
> then go
> into configurations and examine all the radio and checkbox fields for
> correctness and be sure to look at grid tab. If I remember correctly
> both
> 'lines' and 'dots' will be checked.
On my system 'dots' is checked. What I get is square boxes with 25 dots
inside each box. This is true if I create a new project or open an
existing one. If I click "Yes" repeatedly on each warning and then try
to resize the form, I get the warning with every move of the mouse. The
same is true if 'lines' is checked as well.
> If this information does not solve the problem, please let me know.
> --judith
>
I can send you screen prints privately, if that will help.
Jonas
3. RE: IDE V.18 squares on form?
I build the grid in groups of dots. On my screen it is in groups of 20 dots.
But I do not see any lines, just the dots.
Here is the routine that builds the grid. Does anyone see a problem?
global procedure drawGrid( integer id )
--David Cuny was kind enough to share how to blt the dots
--faster than what I was doing.
sequence size
integer blitsize, many, many1, many2
blitsize=20
many = floor( blitsize/SnapSize )
many1 = blitsize - ( many*SnapSize )
many2 = SnapSize - many1
blitsize+=many2
size = getRect( Screen )
if GridHide then
return
end if
if not SnapSize then
return
end if
setPenColor( id, GridColor )
setPenColor( tile, GridColor )
if GridDots then
if SnapSize < 41 then
for i=0 to blitsize by SnapSize do
for j=0 to blitsize by SnapSize do
drawLine( tile, i, j, i+1, j+1 )
end for
end for
for i=0 to size[3] by blitsize do
for j=0 to size[4] by blitsize do
copyBlt( id, i, j, tile )
end for
end for
else
for i=0 to size[3] by SnapSize do
for j=0 to size[4] by SnapSize do
drawLine( id, i, j, i+1, j+1 )
end for
end for
end if
else
for i = 0 to size[3] by SnapSize do
drawLine( id, i, 0, i, size[4] )
end for
for i = 0 to size[4] by SnapSize do
drawLine( id, 0, i, size[3], i )
end for
end if
end procedure
I still wonder why you get the Win32lib warning message. You may be correct
that overriding whatever is causing the message, creates the 'box' effect.
I'd like to hear from anyone else who sees this behavior as well. The more
information I can get about this problem the faster it can be solved.
I'm sure I understand what you are experiencing but a screen shot would make
sure. I have a slow connection speed in the rural area I live so the
smallest zipped file you can make would be appreciated. Let's take this
problem private until I find a solution and then I will report back to
Topica if needed.
--judith
Jonas writes:
SNIP
On my system 'dots' is checked. What I get is square boxes with 25 dots
inside each box. This is true if I create a new project or open an
existing one. If I click "Yes" repeatedly on each warning and then try
to resize the form, I get the warning with every move of the mouse. The
same is true if 'lines' is checked as well.
I can send you screen prints privately, if that will help.
Jonas
4. RE: IDE V.18 squares on form?
I forgot to say Jonas wrote:
This screen shot is on a Win2K Pro machine. Desktop settings are:
- High Color (16 bit)
- 1024 x 768 (although I get the same effect on lower resolution
sizes).
--judith
5. RE: IDE V.18 squares on form?
This is a multi-part message in MIME format.
------=_NextPart_000_0019_01C38757.63B02AA0
charset="iso-8859-1"
I sent this little program to Jonas to see if it also produced the 'boxes'
effect on his machine. It tells me it does. I works fine on my win98SE
producing a bunch of dots on my screen but on Jonas's system it produces
many dark bordered boxes each about 25 dots (his zipped screen shot
attached).
I'd like anyone that can help to test on their various Op systems and let me
know if it works or not.
TIA,
--judith
--code follows:
include win32lib.ew
without warning
sequence sizeS
sizeS=getRect(Screen)
constant win=createEx(Window,"test grid",0,Default,Default,400,300,0,0)
constant tile=createEx(Pixmap, "a",win,-40,0,40,40,0,0)
constant GridBlit=createEx(Pixmap,"",win,-1,-1,sizeS[3],sizeS[4],0,0)
constant ControlBlit=createEx(Pixmap,"",win,-2,-2,sizeS[3],sizeS[4],0,0)
integer SnapSize, GridDots, GridLines, GridColor
SnapSize=4
GridDots=True
GridLines=False
GridColor=BrightBlue
procedure drawGrid( integer id )
sequence size
integer blitsize, many, many1, many2
blitsize=20
many = floor( blitsize/SnapSize )
many1 = blitsize - ( many*SnapSize )
many2 = SnapSize - many1
blitsize+=many2
size = getRect( Screen )
if not SnapSize then
return
end if
setPenColor( id, GridColor )
setPenColor( tile, GridColor )
if GridDots then
if SnapSize < 41 then
for i=0 to blitsize by SnapSize do
for j=0 to blitsize by SnapSize do
drawLine( tile, i, j, i+1, j+1 )
end for
end for
for i=0 to size[3] by blitsize do
for j=0 to size[4] by blitsize do
copyBlt( id, i, j, tile )
end for
end for
else
for i=0 to size[3] by SnapSize do
for j=0 to size[4] by SnapSize do
drawLine( id, i, j, i+1, j+1 )
end for
end for
end if
else
for i = 0 to size[3] by SnapSize do
drawLine( id, i, 0, i, size[4] )
end for
for i = 0 to size[4] by SnapSize do
drawLine( id, 0, i, size[3], i )
end for
end if
end procedure
procedure Activate_win(integer self, integer event, sequence params)
sequence size
size=getClientRect(win)
setPenColor(GridBlit,getSysColor(COLOR_BTNFACE))
drawRectangle(GridBlit,True,0,0,size[3],size[4])
setPenColor(tile,getSysColor(COLOR_BTNFACE))
drawRectangle(tile,True,0,0,40,40)
drawGrid(GridBlit)
copyBlt(ControlBlit,0,0,GridBlit)
bitBlt(win,0,0,ControlBlit,0,0,size[3],size[4],SRCCOPY )
end procedure
setHandler(win,w32HActivate,routine_id("Activate_win"))
WinMain(win,Normal)
------=_NextPart_000_0019_01C38757.63B02AA0
Content-Type: application/x-zip-compressed;
name="screenshot.zip"
