<![CDATA[Approximatrix Forums — AppGraphics and Multiple Windows]]> 2016-02-19T13:58:57Z PunBB http://forums.approximatrix.com/viewtopic.php?id=476 <![CDATA[Re: AppGraphics and Multiple Windows]]> Tommy,

You can set the window's background color using setbkcolor followed by a call to clearviewport.

You can't, at this time, control the color of Windows controls (buttons, text boxes, etc.) at all.  They will always draw according to the Windows system theme.

I'm not sure if you have a question about createtextbox.

]]> http://forums.approximatrix.com/profile.php?id=2 2016-02-19T13:58:57Z http://forums.approximatrix.com/viewtopic.php?pid=2377#p2377 <![CDATA[Re: AppGraphics and Multiple Windows]]> Jeff,
think I got past the button problem. I cannot control the background color of the window that's created. I drew a box over the entire window and I can control the color etc. Just does not seem right. Also, I have not found way to control color of buttons.

Trying to create edit box i.e. createtextbox. seems it's not there.

THX
Tommy

]]> http://forums.approximatrix.com/profile.php?id=3663 2016-02-18T18:04:30Z http://forums.approximatrix.com/viewtopic.php?pid=2374#p2374 <![CDATA[Re: AppGraphics and Multiple Windows]]> Comment: In MATLAB with same situation - used "hold on". If loop() does it here I'm not sure how it works. Thx for looking!
program test
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
! program resizing
use appgraphics
implicit none

    integer::myscreen
    integer::mybutton
    integer::mybutton1
    integer::mybutton2
    integer::mybutton3
    integer::mybutton4
    integer, volatile::task

    integer, parameter::task_quit=0
    integer, parameter::task_open=1
    integer, parameter::task_run=2
    integer::run_item

    !--------------Added-------------------------------------\/
    integer, parameter::task_win=3
    integer, parameter::task_close=4
    integer         :: root_menu, file_menu, item_temp, win_menu, itr
    integer         ::  file_menu1, file_menu2
    character(2)    :: CRLF, title
    character(512)  :: cTxt
    logical         :: bClose
   
    integer, dimension(256)::child_windows

    !--- CRLF = C_CARRIAGE_RETURN // C_NEW_LINE
    CRLF = Achar(13) // Achar(10)
    !--------------------------------------------------------/\
   
    child_windows = -1
   
    myscreen = initwindow(820, 940, closeflag=.FALSE.)

    !    myscreen = initwindow(400, 100, title=title, dbflag=.FALSE., closeflag=.FALSE.)
        call setbkcolor(systemcolor(COLOR_WINDOW_BKGD))
        call setcolor(BLACK)
        call settextstyle(WINDOWS_FONT, HORIZ_DIR, 10)
        call setfillstyle(SOLID_FILL, RED)

    root_menu = addmenu("", MENU_FOR_WINDOW)

    file_menu = addmenu("File", root_menu);

    file_menu1 = addmenu("Last Seven Days", root_menu);

    file_menu2 = addmenu("Last Eight Days", root_menu);

    item_temp = addmenuitem("Open another window...", file_menu, handle_winopen)
    item_temp = addmenuitem("Close a window...", file_menu, handle_winclose)
    item_temp = addmenuitem("Save Screenshot...", file_menu, savescreen)
    item_temp = addmenuitem("Open", file_menu, handle_open)
    run_item = addmenuitem("Run", file_menu, handle_run)
    item_temp = addmenuitem("Quit", file_menu, quitwndo)

    call setfillstyle(SOLID_FILL, WHITE);
    call bar(0, 0, 820, 940);
   
    mybutton1 = createbutton(70, 410, 120, 120, "Off Duty", handle_button1)
    mybutton2 = createbutton(270, 410, 120, 120, "Sleeper", handle_button2)
    mybutton = createbutton(470, 410, 120, 120, "Driving", handle_button3)
    mybutton = createbutton(670, 410, 120, 120, "On Duty ", handle_button4)

    do while(task .NE. task_quit)
        call draw_window()    !            draw_window
        task = -1
        call loop()
        select case(task)
            case (task_open)
                call openfile()
            case (task_run)
                call longrun()
    !--------------Added-------------------------------------\/
            case (task_win)
                itr = itr + 1
                call openwin()
            case (task_close)
                call closewin()
    !--------------------------------------------------------/\
        end select

    end do

  !  call closewindow(myscreen)

    CONTAINS !--- SUBROUTINES



    subroutine draw_window()
    use appgraphics
    implicit none
        integer::w,h

        integer::tw
        character(100)::info
       
        call setcurrentwindow(myscreen)
       
        w = getmaxx()
        h = getmaxy()

        call setbuttonposition(mybutton, w-50, h-30, 40, 20)

        write(info, '(A5,1X,I5,A1,I5)') "Size:", w, "x", h

        call setviewport(0, 0, w, 40, .FALSE.)
        call clearviewport()
        tw = textwidth(trim(info))
        call outtextxy( (w/2-tw/2), 5, trim(info))

    end subroutine draw_window

    subroutine handle_button1()
    use appgraphics, only: stopidle
    implicit none

        task = task_quit
        call stopidle()
   
    end subroutine handle_button1

     subroutine handle_button2()
    use appgraphics, only: stopidle
    implicit none

        task = task_quit
        call stopidle()
   
    end subroutine handle_button2


     subroutine handle_button3()
    use appgraphics, only: stopidle
    implicit none

        task = task_quit
        call stopidle()

    end subroutine handle_button3
   
     subroutine handle_button4()
    use appgraphics, only: stopidle
    implicit none

        task = task_quit
        call stopidle()

    end subroutine handle_button4

subroutine handle_resize()
    use appgraphics
    implicit none

        call stopidle()

    end subroutine handle_resize

    subroutine handle_open()
    use appgraphics
    implicit none

        task = task_open
        call stopidle()

    end subroutine handle_open

    !--------------Added-------------------------------------\/
    subroutine handle_winopen()
    use appgraphics
    implicit none

        task = task_win
        call stopidle()

    end subroutine handle_winopen

    subroutine openwin()
        USE appgraphics
        implicit none
        character(4) :: cItr

        write( cItr, '(I3)' ) Itr
        cTxt =  'Open window number '// cItr //CRLF// &
                'with the closeflag = .FALSE.  Let''s try and ' //CRLF// &
                'select-> FILE/CLOSE A WINDOW.' //CRLF
        bClose = .FALSE.
        CALL SplashScreen( 'New Window', cTxt, 3, bClose )

    end subroutine openwin

    subroutine handle_winclose()
    use appgraphics
    implicit none

        task = task_close
        call stopidle()

    end subroutine handle_winclose

    subroutine closewin()
        USE appgraphics
        implicit none
        integer::i

        !--- Close the windows
!        CALL closewindow (ALL_WINDOWS)
!        CALL closewindow (NO_CURRENT_WINDOW)
!        CALL closewindow()

        do i=1,ubound(child_windows, 1)
            if(child_windows(i) .GE. 0) then
                call closewindow(child_windows(i))
                child_windows(i) = -1
                exit
            end if
        end do
       
    end subroutine closewin

    subroutine openfile()
        USE appgraphics, ONLY: dlgopenfile
        implicit none

        CHARACTER(255)  :: input_file_name

        !   Appgraphics function dlgopenfile (filename, maskdesc, mask, title)
        input_file_name= repeat(' ', 255)

        IF( dlgopenfile( &
            input_file_name, 'Data', '*.raw', 'Enter data file') ) THEN

            Print *, "You've selected "//trim(input_file_name)
        ELSE
            Print *, "No file was selected"
        END IF

        input_file_name = TRIM(input_file_name)

    end subroutine openfile

    subroutine savescreen()
        use appgraphics, only: writeimagefile
        implicit none

        ! This call will open a file dialog since we haven't
        ! specified a filename
        call writeimagefile()

    end subroutine savescreen

    subroutine handle_run()
        use appgraphics, only: stopidle
        implicit none

        task = task_run
        call stopidle()

    end subroutine handle_run

    subroutine longrun()
        implicit none

        real::starttime, nowtime

            call enablemenuitem(run_item, .FALSE.)

            call cpu_time(starttime)
            nowtime = starttime
            do while(nowtime - starttime .LT. 0.01)
                call cpu_time(nowtime)
                WRITE( *,'(A1$)') , "."
            end do

            call enablemenuitem(run_item, .TRUE.)

    end subroutine longrun

    subroutine quitwndo()
        use appgraphics, only: stopidle
        implicit none

        task = task_quit
        call stopidle()

    end subroutine quitwndo

    !
    !--------------------------------------------------------
    Subroutine SplashScreen( cMenu, cTxt, nDelaysec, bClose )
    ! Parameters:
    !   cMenu:      text used in the menu title bar
    !   cTxt:       text narrative in the textbox
    !   nDelaysec:  number seconds delayed
        implicit none

        character(*), intent(IN) :: cMenu
        character(*), intent(IN) :: cTxt
        integer, intent(IN)      :: nDelaysec
        logical, intent(IN)      :: bClose

        character(LEN(cTxt))     :: cTxt2
        character(2) :: CRLF
        integer :: textbox, timerscreen, myscreen
        integer :: tw, w, wd, h, ht, nlen
        integer::i

        !--- CRLF = C_CARRIAGE_RETURN // C_NEW_LINE
          CRLF = Achar(13) // Achar(10)

        !--- Line width of text is 64 characters/line
        nlen = LEN( TRIM(cTxt) )  ! lenstr(s)
        cTxt2 = cTxt(1:nlen)

        ht = 100
        wd = 0

        timerscreen = initwindow(400, ht, title=cMenu, &
            left=300, top=200, closeflag=bClose)
           
        do i=1, ubound(child_windows, 1)
            if(child_windows(i) .EQ. -1) then
                child_windows(i) = timerscreen
                exit
            end if
        end do

        call setcolor(BLACK)
        call setbkcolor(WHITE)
        call clearviewport()

        w = getmaxx()
        h = getmaxy()

        call settextjustify(LEFT_TEXT, TOP_TEXT)
        call settextstyle (SANS_SERIF_FONT, HORIZ_DIR, 16)

        tw = textwidth(TRIM(cTxt2))
        cTxt2 = TRIM(cTxt2)
        call outtextxy( (w/2-tw/2+wd), h/2-h/5, TRIM(cTxt2) )

        call startidle (nDelaysec*1000)
        CALL stopidle( )

        call refreshall( )

        !--- Set the main menu window to the current window
        CALL setcurrentwindow (myscreen)

        IF ( bClose ) THEN
            !--- Then close the second window
            CALL closewindow(timerscreen)
        ELSE
            !--- Don't close the window.
        ENDIF

        RETURN

    End Subroutine SplashScreen
   
    Subroutine InitializeScreen()  ! ============ InitializeScreen()
use appgraphics
character * 30 :: msg2
integer :: start_button
msg2 = "In InitializeScreen()    "
myscreen = initwindow(400, 200, title="Controls Demo", closeflag=.TRUE.)
! call setbkcolor(systemcolor(COLOR_WINDOW_BKGD))
call setbkcolor(WHITE)
call clearviewport()  ! to display the windows background color
call dlgmessage(DIALOG_INFO,msg2)

!call btnTest  ! and it executes as expected  but
! Comment out the above line and the build fails

start_button = createbutton(100, 200,120,50,"Button Test", handle_button1)
call enablebutton(start_button, .FALSE.)

End Subroutine InitializeScreen
    !--------------------------------------------------------/\
    !--------------------------------------------------------/\
end program test

]]> http://forums.approximatrix.com/profile.php?id=3663 2016-02-18T13:41:17Z http://forums.approximatrix.com/viewtopic.php?pid=2372#p2372 <![CDATA[Re: AppGraphics and Multiple Windows]]> I don't see anything wrong with your code snippet as-is.  Could you post the entire program here so I can see if something is wrong?

]]> http://forums.approximatrix.com/profile.php?id=2 2016-02-17T21:23:33Z http://forums.approximatrix.com/viewtopic.php?pid=2371#p2371 <![CDATA[Re: AppGraphics and Multiple Windows]]> I'm newby to this forum and do not find a formal way to post so I'm giving this a try.
Subject: create button
Problem: multiple buttons in window
Description: I can create a single button just fine but when I do a second button (in the same way) the window appears quickly and then closes. Is there problem with multiple buttons? If not, I'm missing something??
   
    mybutton1 = createbutton(70, 410, 120, 120, "Win 1", handle_button1)
     mybutton2 = createbutton(270, 410, 120, 120, "Win 2", handle_button2)

    subroutine handle_button1()
    use appgraphics, only: stopidle
    implicit none

        task = task_quit
        call stopidle()

    end subroutine handle_button1

     subroutine handle_button2()
    use appgraphics, only: stopidle
    implicit none

        task = task_quit
        call stopidle()

]]> http://forums.approximatrix.com/profile.php?id=3663 2016-02-17T16:25:11Z http://forums.approximatrix.com/viewtopic.php?pid=2370#p2370 <![CDATA[AppGraphics and Multiple Windows]]> Finally we have a tutorial upon managing a multiple window applications in Appgraphics:

https://approximatrix.wordpress.com/201 … pgraphics/

With multiple windows, we're starting to wade into the world of non-trivial AppGraphics examples.  This writeup might be  substantially more complex that earlier examples.

]]> http://forums.approximatrix.com/profile.php?id=2 2015-06-26T16:27:51Z http://forums.approximatrix.com/viewtopic.php?pid=2132#p2132