Close window

[amigainspired]

Hallo.
I have one specific problem with loop. I need close window by red cross (right up), but in the loop DO-LOOP is not working...

Code: Select all

do
  getmouse x,y,,b

if x>15 and x<50 then exit do

loop

Loop working good, but red cross is out of service.

Thank you beforehand!

P.S.Sorry for terrible english! :(

[JasonL]

Seems to me that your loop is looping and not reading the next message from your preferred GUI messaging system.

Without checking these messages (they are ignored) and not action is taken....?


Just a thought.

[fxm]

in windowed mode, clicking on the window close button will add a keypress of Chr(255)&"k" to the Inkey buffer.
You must test it as a key in:
do
getmouse x,y,,b
.....
loop until inkey = chr(255)&"k"

[amigainspired]

in windowed mode, clicking on the window close button will add a keypress of Chr(255)&"k" to the Inkey buffer.
You must test it as a key in:
do
getmouse x,y,,b
.....
loop until inkey = chr(255)&"k"

Yes, this is exactly what I need! ;-) Thanks!

What is "k" (or &"k" with chr$(255)) actually? And exists, for example, chr$ for key ENTER?

[fxm]

If the key is an "extended" one (numeric pad, cursors, functions, close button) a two-character String is returned, the first of which is the extended character:
Chr(255), except Chr(0) for QB dialect.

RETURN key enters Chr(13) in the Inkey buffer.

[amigainspired]

If the key is an "extended" one (numeric pad, cursors, functions, close button) a two-character String is returned, the first of which is the extended character:
Chr(255), except Chr(0) for QB dialect.

RETURN key enters Chr(13) in the Inkey buffer.

Thank you very much!! ;-)

[pestery]

The escape key is 27.
Also, for the close window button you could use Chr(255,107) instead of Chr(255)&"k". They both do the same thing.

Here is a little program I used to use to find key ID numbers. You might find it useful, just press random keys and see their IDs. Press Space to exit.

Code: Select all

ScreenRes 320, 240
Dim As String key
Do
   Sleep 16
   key = InKey
   While key <> ""
      For i As Integer = 0 To (Len(key) - 1)
         Print " " & key[i];
      Next
      Print
      If key = " " Then Exit Do
      key = InKey
   Wend
Loop

On a side note, you may want to investigate MultiKey and ScreenEvent if you haven't used them before. From your original question I think you might find them useful.
http://www.freebasic.net/wiki/wikka.php ... PgMultikey
http://www.freebasic.net/wiki/wikka.php ... creenevent

[amigainspired]

The escape key is 27.
Also, for the close window button you could use Chr(255,107) instead of Chr(255)&"k". They both do the same thing.

Here is a little program I used to use to find key ID numbers. You might find it useful, just press random keys and see their IDs. Press Space to exit.

Code: Select all

ScreenRes 320, 240
Dim As String key
Do
   Sleep 16
   key = InKey
   While key <> ""
      For i As Integer = 0 To (Len(key) - 1)
         Print " " & key[i];
      Next
      Print
      If key = " " Then Exit Do
      key = InKey
   Wend
Loop

On a side note, you may want to investigate MultiKey and ScreenEvent if you haven't used them before. From your original question I think you might find them useful.
http://www.freebasic.net/wiki/wikka.php ... PgMultikey
http://www.freebasic.net/wiki/wikka.php ... creenevent

wau, thanks, it is comprehensive information. It is very importat for work with keyboard & mouse. I did not know about use chr$(X,Y).