OpenEuphoria

RE: IDE V.18 squares on form?

• Posted by Judith Evans <camping at txcyber.com> Sep 27, 2003
• 449 views

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