changing screen size using corners of the run window

[Siavash]

ive seen many tutorials on how to change screen size like the fallowing:

Turing:

setscreen ('graphics:maxx,maxy')

But how do i allow the user make the screen larger by dragging the corners of the run window?

[DtY]

As far as I know, you can't

[Dusk Eagle]

You can't do what you wanted, but you can set the screen size using variables, like this:

Turing:

var x_size := 100 var y_size := 180 View.Set ("graphics:" + intstr(x_size) + "," + intstr(y_size))

So, since this is entirely possible, you could add buttons to your screen that increase or decrease the screen's size. Not sure if this can help you here, but it's an interesting thing to know either way,

[Kharybdis]

you can kinda cheat and make this possible... like you can do with anything..

but i wouldn't recommend it. too much work..

[BigBear]

Kharybdis @ Tue May 26, 2009 7:57 am wrote:

you can kinda cheat and make this possible... like you can do with anything..

but i wouldn't recommend it. too much work..

How is it cheating, you can't drag the corners with the mouse but you can figure out a way of using turing, isn't that what programming is learning how to use a programming language?

[Geniis]

i made a quick prog to resize the window once. All i did was check if the mouse was on a border or corner then then figured out the difference and set the screens size with setscreen to the old size plus the difference. But whenever i did the window would disappear and reapear so its not worth dooing.

[DemonWasp]

This code demonstrates how this can be done, but as Geniis notes, it destroys and re-creates the window every time you resize it, and it doesn't resize with the cursor (you could also do that, but I didn't). It's also not perfect - if you click your mouse anywhere and drag over that corner, it'll grab it anyway (this is fixable, but I'm lazy).

Turing:

var x, y : int := 400               % Size of the screen var mx, my, mb : int                % Mouse status var dragging : boolean := false     % True if and only if we're dragging the window corner const TOLERANCE : int := 5          % Tolerance for mouse-click distance, in pixels fcn nearEquals (a, b, tol : int) : boolean      % Comparator that's essentially "approximately equal to, plus or minus 'tol'".     result a + tol >= b and a - tol <= b end nearEquals View.Set ("graphics:" + intstr (x) + ";" + intstr (y)) loop     % Grab input information     Mouse.Where (mx, my, mb)     if mb > 0 and nearEquals (x, mx, TOLERANCE) and nearEquals (0, my, TOLERANCE) then     % We're clicking near that corner, start dragging         dragging := true     elsif mb = 0 and dragging then    % Released, so resize         dragging := false         x := mx         y := maxy-my         View.Set ("graphics:" + intstr (x) + ";" + intstr (y))     end if     % Debugging output     Text.Locate (1, 1)     put "x = ", x, "; y = ", y     put "mx = ", mx, "; my = ", my     put "dragging = ", dragging end loop