Updated my SF to Ver. 2.30 build 2276, AppGraphics program ill behaved

Rod,

That behavior is almost certainly due to how AppGraphics handles updating the window.  Basically, overlaying the Windows controls (buttons, etc.) over graphics can be problematic as Windows requests redraws.  It isn't your fault, though.  AppGraphics should be forcing the Windows control to the top regardless of redrawing. Let me see if I can replicate and fix the issue, and I'll let you know when a build is available.  If I do come across  quick fix in the meantime, I'll be sure to notify you.

Rod,

Not just yet.  I suspect I can find and fix the intial problem (disappearing buttons) rather easily.  The second problem, graphical artifacts, might be related to double-buffering and a failure to update all buffers appropriately.  I'll take a look at that as well.  The problems you've described should be caused entirely by AppGraphics itself as opposed to your code.

Rod,

One additional question: What operating system are you using?  Drawing can vary between different versions of Windows, although one would think it wouldn't matter.

Jeff,

Sorry, I didn't see your questions from earlier yesterday. My answers follow best as I can understand.

1) I have been using clearviewport from the beginning and it does what I think is should do. For example, when the the zoom-in button is pushed I set a flag in the callback subroutine that tells the main plotting loop that we want to change the plotting scale. In the plotting loop, there is a big if-then-else segment where all plotting control flags are checked. In the case of zoom-in, I reset the plotting scale and clear the viewport for plotting data at the new scale.

In this case clearviewport works fine, here is the segment of code for re-initializing the viewport for the new scaling:

! mcntrl=2 is Zoom In button actions
        pscale=4.0*pscale/5.0
       
        write(scalenumber,'(f8.2)')pscale
       
        call settextboxcontents(isclbox, scalenumber)
       
        mcntrl=0
         
        call setviewport(1,iwiny-iptx,iptx,iwiny,.true.)
         
        call setbkcolor(mBlack)
         
        call clearviewport()
         
        call setviewport(iptx+1,iwiny-iptx,iwinx,iwiny,.true.)
         
        call setbkcolor(mBlack)
         
        call clearviewport()

2) If understand your question, I don't do anything in the callback subroutines other that setting an action flag (mcntrl above) to tell the code what action to perform. I know this extremely simplistic coding but that is what I settled on to keep the callbacks simple. Here is the callback for the zoomin action:

    Subroutine zoominbut()
       
    integer::mcntrl
       
    common /control/ mcntrl
       
    mcntrl=2
   
    end subroutine zoominbut

3) Creating the buttons:

In the code, I start by creating all the items in the top control area of the program which includes all the text boxes, check box, other text and then I create all the buttons:

!Create all the bottons in the control viewport
   
ignore=createbutton(iwinx-ibutton-5,ibutwinsiz-2*ibtoffy-2,ibutton,ibtoffy,"Pause",pausebut)

All the button and other controls are created before the main data plotting loop ever starts and before I create the other plotting and informational viewports. I assume once created, they never need attention again and that was what worked before in the old versions I was using.

***************************************************************************************
I know you didn't ask for it but as an exercise, I thought I would include a high level flow.
From a program flow perspective the code starts:

Initialize all the variables to be used later
set up some color names for later use
Create the main execution window, setting up default text and colors
Create the Control view port which includes:
    Set the size
    Set default text and color
    Write the fixed text for the three left text boxes to follow
    Set up the three text boxes for the scale, File increment and file number and set their initial contents
    Set up the three text boxes for the x,y and z offsets and set their initial contents
    Create the check box for center-of-mass plotting
    Create the two two text boxes for the CM plotting dialog and initialize their contents.
    Write out the fixed text associated with those CM text boxes
    Create 12 buttons for all the button actions each with an associated callback subroutine
Create the informational text area of the program,set color (white) and default text properties
Create the two data plotting areas, set colors and then clear each new viewport.

At this point the main plotting loop begins
    Check for any control changes and perform actions needed for the associated control
    read in data from the current file number
    Check for CM positions to be calculated
    Begin object plotting loop
        Set up all the positioning constraints based on control sets
        Check to see if object is inside the plotting window
        Call setviewport for the X-Y plotting window
        Plot the object based on control conditions (includes plotting black for previous loop positions)
        Call setviewport for the Z-Y plotting window
        Plot the object based on control conditions (includes plotting black for previous loop positions)
        Save current positions to use for next iteration
        Check for last file or first file actions to reverse time plotting if needed; includes update the increment text             box in the control viewport
    End object plot loop
    Check for every fifth loop to output status to the control and text windows. This includes the following:
            Set and write text for updating the text boxes in the control window
            Set and write  text for updating the text in the information text area
End main loop
Exit

Jeff,

I don't have any real issue sending my code (other than dying of embarrassment from how horrible a coder I am).

Sending an entire project is problematic in that you will need data to plot in order for the program to do anything. I can try to bundle a small amount of data in with the project and zip it into a folder that you can extract and work from. Do you know how large of an email file your mail system can handle? If I can squeeze it into that size, then it should be possible.

I will have to wait until I get home tonight to send the email.

Note too there are other things going on in the program that I didn't discuss, like there is an option to create screen captures to make video from the output but that is an option that is access through the initialization file. I will try to include instructions on how to use/run the program when I send it.

Thanks again,
Rod

Jeff,

Unfortunately, if there is no data, the program immediately shuts down and the window closes. You will not be able to see the artifacts plotted outside the data plotting windows. I can rig up a small data folder to include along with the project folders.

Note this is self contained code, so there is no other source or libraries needed.

Rod

If anyone else had similar problems, a new build (2281) of Simply Fortran is now available on the Download page that should fix drawing issues with Windows controls (buttons, text boxes, etc.).