Programming C, C++, Java, PHP, Ruby, Turing, VB
Computer Science Canada 
Programming C, C++, Java, PHP, Ruby, Turing, VB  

Username:   Password: 
 RegisterRegister   
 Non-Default Turing Windows?
Index -> Programming, Turing -> Turing Help
View previous topic Printable versionDownload TopicSubscribe to this topicPrivate MessagesRefresh page View next topic
Author Message
TheZsterBunny




PostPosted: Fri Mar 12, 2004 8:06 am   Post subject: Non-Default Turing Windows?

It it possible to open up a window in turing that does not have the title bar, or any other window buttons? Preferably, I'd like to keep the title bar, but I still don't know how to use non-default windows.

-bunny


(ex. where below(risk game))
code:

setscreen ("nobuttonbar")
View.Update
% Player Colors
var mx, my, mb : int
var prettycolor : array 1 .. 6 of int
prettycolor (1) := 12 % Red
prettycolor (2) := 9 % Blue
prettycolor (3) := 47 % Green
prettycolor (4) := 14 % Yellow
prettycolor (5) := 42 % Orange
prettycolor (6) := 35 % Purple
% Number of players
var plrnomax : int
put "Enter Number of players (2-6): " ..
get plrnomax
cls
% Fonts
setscreen ("graphics:150;480,nobuttonbar,offscreenonly,title: Ownership")
var statext : int
statext := Font.New ("Times:8")
% Drawing
for i : 0 .. 39
    drawfillbox (10, maxy - (((i + 1) * 10) - 2), 4, maxy - ((i * 10) + 2), prettycolor ((i mod plrnomax) + 1))
    drawbox (10, maxy - (((i + 1) * 10) - 2), 4, maxy - ((i * 10) + 2), black)
    % For Text Height fiddle with this number                        *
    Font.Draw ("Country " + intstr (i), 15, maxy - (((i + 1) * 10) - 2), statext, black)
    % For Text Height fiddle with this number                                      *
    Font.Draw (intstr (Rand.Int (1, 12)) + " Armies", 80, maxy - (((i + 1) * 10) - 2), statext, black)
end for
View.Update
loop
    mousewhere (mx, my, mb)
    if mb = 1 then
        for j : 1 .. 6
            if whatdotcolor (mx, my) = prettycolor (j) then
                drawfillbox (15, 15, 100, 30, 0)
                Font.Draw ("Player " + intstr (j), 15, 15, statext, black)
                View.Update
            end if
        end for
    end if
end loop


-thx
Sponsor
Sponsor
Sponsor
sponsor
Dan




PostPosted: Fri Mar 12, 2004 11:52 am   Post subject: (No subject)

i think that the only way to do this was with fullscreen but that was taken away in turing 4.x.
Computer Science Canada Help with programming in C, C++, Java, PHP, Ruby, Turing, VB and more!
Display posts from previous:   
   Index -> Programming, Turing -> Turing Help
View previous topic Tell A FriendPrintable versionDownload TopicSubscribe to this topicPrivate MessagesRefresh page View next topic

Page 1 of 1  [ 2 Posts ]
Jump to:   


Style:  
Search: