Thanks, it works fine.

What is the best way to start a program not more than one time?

In the examples dir is a programexplanation for pulldownmenu's. It is a nice program, but how can I write and/or graphics in the window? '' '' menu demo '' #include once "windows.bi" '' '' internal structs '' type TMENU hnd as HMENU end type type TMENUITEM title as string id as integer end...

I ve made a menu, it's just a begin without mouse. Press LMenu and arrows. Extern _CRT_glob Alias "_CRT_glob" As Integer Dim Shared _CRT_glob As Integer = 0 #INCLUDE "windows.bi" Dim Shared a As Integer Dim Shared alt As Integer Dim Shared alt1 As Integer Dim Shared b As Integer ...

Many thanks

Is there a way to check if the program is the active window? And also too for graphics mode?

I think that only opcode (machine code is) used at that level. So even an .exe is not possible.

Now complete with 3-mode size and 2-mode Insert: 'Choose 0, 1 Or 2 as parameter. #INCLUDE "windows.bi" Dim Shared mode As Integer Dim Shared big As Integer Dim Shared j As Integer Dim Shared nn As String Dim Shared pp As String Declare Sub xText(x As Integer, y As Integer, bb As String, s ...

OK, nice, but for passwords to 32 chars it is a bit starred. :-)

In the llast verion the following part must be removed:


If aa = Chr$(255, 134) Then
big = big Xor 3
ScreenRes 320*big, 240*big, 32: Width 80, 30: Color 0, -1:Cls
End If

Yes, that is right, but we can miss it. Nou I have the input routine extended with a big font. You have to choose mode 0, 1 or 2: 'Choose 0, 1 Or 2: Dim Shared mode As Integer = 2 Dim Shared big As Integer Dim Shared nn As String Dim Shared pp As String Declare Sub xText(x As Integer, y As Integer, ...

Now I have a length variable added. Now I think He 's ready. Now I go working with it with a larger font. Thanks for all the ideas and help. Dim Shared nn As String Dim Shared pp As String Declare Sub xText(x As Integer, y As Integer, bb As String, s As Integer, l As integer) Main: ScreenRes 640, 48...

Okay, thanks. Now it works for tekst mode and graphics mode. Here i have the insertmode made all right, the only thing is the lengt limitation. Dim Shared nn As String Dim Shared pp As String Declare Sub xText(x As Integer, y As Integer, bb As String, s As Integer) Main: ScreenRes 640, 480, 32: Widt...

I have never problems with String, Maybe I am a locky one.

If you will write between the letters, use Insert. It is not a bug.
I can make so he makes free space, 2 modes with Insert, but it
is a choice.

I have made a new one. Works good in textmode. ' Graphical mode is without cursor. Dim Shared nn As String Dim Shared pp As String Declare Sub xText(x As Integer, y As Integer, bb As String, s As Integer) Main: 'www ScreenRes 640, 480, 32: Width 80, 30: Color 0, -1 Cls Locate 5, 6: Print "Name:...

Here is mine, it has only Backspace but everything is printable. What I want is also the use of Arrow left/right, Insert and Delete. But I know it's not simply. The best way I think is the use of a buffer. Dim Shared star As Integer Dim Shared i_ak As Integer Dim Shared i_ix As Integer Dim Shared i_...