Tutus, can you put here your .qpf program? Maybe I can fix it.

 

It has not been easy....

// Quigs 1.01 Application for Symbos
// Name:
// Coder:
// Date / Version:

// Declare variables
Var Enter:Sheet   // a curious type of variable to store  graphics

// End declares

Function Main:Void()
// Main loop

EndF

Function Image1.Event:Void()

//Lets load the Sheet according to No. of colours
If Screen.Colour = 2 Then
//Its a 2 colour image so xxx.qs1
Enter.Load(App.Path+"Sheet1.qs1")   // these two sets of graphics are created automatically
Else
//Its a 4 colour image so xxx.qs2
Enter.Load(App.Path+"Sheet1.qs2")   // and have to go with the application.
EndIf

Ctrl.Image.Tile.Set Image1, Enter,0   // this command loads the file on the Image1 control
Ctrl.Refresh Image1       // this command rewrites the event.


EndF

Function Form1.Close.Event:Void()
Enter.Free   //releases memory at exit
EndF
Function Form1.Open.Event:Void()
Image1.Event       // this is necessary to launch the Image1 event just at opening the program.


Also, if you want to show a text, the space has to be bigger than the No. of characters:

[ Guests cannot view attachments ]

I have the threads about SymbOS a little abandoned, sorry.

Tutus, today I have made some changes to your program. First I have modified the type of control for the line "Magazine...", instead of a control line only a label, the "A" symbol is used to select it. This avoids the text to be modified with the keyboard.

But then I have thought about a nice touch to the label, some action. I have added a button, and declared a matrix of short strings with the same text but on other languages....

The good side is that you can define all the matrix values on the same definition.

But... the Quigs text editor has a great limitation with very long lines, so I have needed to cut and paste the strings on single lines, with the added difficulty of it not allowing you to cut and paste with the mouse buttons.... only with the menu.

Then, I have learned that you can't assign values to variables on the definition area(for example a=0), so the best place I have found is inside the  Form1.Open.Event function. It only happens once, Just at the start of the app.

Also, I have declared a counter that is increased every time the button is clicked. When it reaches 10 it is reset to 0. Then the new text is displayed.

The result is effective, with so few changes.

I have put a matrix of 10, some are still empty, but you can put the limit you want.

The code for doing it is very "Basic":

// Declare variables
Var Enter:Sheet
Var LangText(10):String   //   0 to 9  Here you can set the limit
Var Lang:Int=0
// End declares
//
Function Main:Void()
// Main loop

EndF

Function Form1.Open.Event:Void()
Image1.Event
LangText(0)="Magazine for Enterprise users"
LangText(1)="Magazin Enterprise felhasznalok szamara"
LangText(2)="Revista para usuarios de Enterprise"
LangText(3)="Magazyn dla uzytkownikow Enterprise"
LangText(4)="Benutzermagazin Enterprise"
LangText(5)="Magazine utilisateur Entreprise"
LangText(6)="Language 7"
LangText(7)="Language 8"
LangText(8)="Language 9"
LangText(9)="Language 10"
        // Add more lines if you want
// No accent marks are allowed
EndF

And then on the button event:

Function Button1.Event:Void()
Lang=Lang+1
If Lang>9 Then      // Here change your limit
Lang=0
EndIf
Label1.Text.Set(LangText(Lang))
Label1.Refresh

EndF


Sorry, there is only the Windows version. I have not tried Quigs on Linux, on Wine, if it works maybe it can work on the Apple.

Yes, of course it works on the real Enterprise, I always test the programs several times until they work as I want, both on the emulator and on the machine.  I even try them on the other SymbOS computers I own, MSX and  PCW.

It would be a dream to have a connexion, yes, but you already can read it as a file on SymbOS.

A pity that development is so slow. I have good intentions but my skills don't let me do all what I want,. On the other side, our genious have their own lives, their own problems. And then the world is convulsed with the virus to make things worse....

It would be a dream to have a connexion, yes, but you already can read it as a file on SymbOS.

But I think the SF3 card will have an internet connection under SymbOS. Or is it still under testing?

I want to put here the latest Quigs version I have, that lets the user to program V9990 apps inside SymbOS.

Yes, there are examples on the packet.

I have not touch it for a long time and I am not quite a master, but I can say you that SymbOS is an environment driven by events, and Quigs allow you to build these events or objects: icons, clicks, windows, buttons, sliders, etc.

Windows position on screen is not managed by the app created by Quigs, it is SymbOS who manages that.

Memory is managed by SymbOS transpartently, it takes all the memory available up to 1MB.

About the other questions.... I don't remember well.