DLL: Form

Sujet: DLL: Form Mar 18 Oct 2011 - 19:10

Voici une petite DLL qui me permet de regrouper des fonctions non encore disponibles sous Panoramic
Actuellement, je veux empêcher le redimensionnement d'un formulaire.
Il n'y a pas grand chose pour l'instant, mais je la complèterai petit à petit... Wink

Voir maintenant le lien : ICI
Fonctions :

SizeOff : permet d'empêcher le redimensionnement d'un formulaire
syntaxe : retour=dll_call1("SizeOff",handle(N°form))

SizeOn : rétabli le redimensionnement
syntaxe:retour = dll_call1("SizeOn",handle(N°form))

CloseOff: désactive le bouton de fermeture d'un formulaire
syntaxe:retour = dll_call1("CloseOff",handle(N°form))

MinimizeOff: désactive le bouton de mise en icone
syntaxe:retour = dll_call1("MinimizeOff",handle(N°form))

MaximizeOff: désactive le bouton de mise en plein ecran
syntaxe:retour = dll_call1("MaximizeOff",handle(N°form))

HideCaption: supprime la barre de titre d'un formulaire
syntaxe:retour = dll_call1("HideCaption",handle(N°form))
Attention: le formulaire n'est plus déplacable, on ne peut plus également le fermer à l'aide de la souris... (normal... )

FormActive: renvoi 1 si le formulaire est en avant-plan sinon 0
syntaxe:retour = dll_call1("FormActive",handle(N°form))

ActivateForm: Met le formulaire en avant-plan
syntaxe:retour = dll_call1("ActivateForm",handle(N°form))

TopMost: Force le formulaire à rester en avant-plan par rapport au form 0
syntaxe:retour = dll_call1("TopMost",handle(N°form))

La DLL : ICI
Le petit programme d'exemple : exemple
Les sources de la DLL en Delphi (@Severin ) : source

Sujet: Re: DLL: Form Mar 18 Oct 2011 - 21:23

Hallo Nardo,
ich prersönlich finde es gut wenn du für fehlende Befehle in Panoramic DLL erstellst.
Jedoch ist damit ein großes Problem verbunden.
1. Wer entwickelt weiter wenn du nicht weiter machst ?
--- siehe Klaus, er hatte mir erzählt die DLL Druck weiter zu entwickeln. Leider habe
--- ich seit langer Zeit nichts mehr von ihm gehört. Schade !!
2. Wenn man das Programm weiter gibt, sind eine große Zahl von DLL, INI mit zugeben.
Das wird dann zu einem Problem, wenn diese Personen dann mit dem Programm weiter arbeiten sollen.
Ich hatte schon mal geschrieben, wenn Jack die Entwicklung von Panoramic aufhört, kann man es
jedoch in dem Zustand benutzen. Wenn auch einige Befehle fehlen, es läuft.
Daher versuche ich mit den vorhandenen Befehlen ein funktionierendes Programm zu erstellen.
Wenn Jack neue Befehle entwickelt, kann ich diese dann bei einer neuen Version einbauen.
Ich will dich nicht kritisieren und sei mir nicht böse. Aber ich habe viel Zeit in die DLL Druck
von Klaus investiert. Doch jetzt ist ende mit DLL Druck. Keine Antwort auf Fragen.
Jack hatte drucken angekündigt. Also warten wir. Warum warten wir ?
Jack muß Geld verdienen, wie wir alle. Also sollten wir nicht ungeduldig sein.
Die Erwartungen in dem Forum sind zweigeteilt:
die einen wollen Spiele erstellen
die anderen wollen echte Programme erstellen
Für alle sind bestimmte Befehle sinnvoll. Jack entscheidet die Prorität.
So, das musste ich mal loswerden. Entschuldigung wenn ich jemanden beleidigt oder
frustiert habe.
Severin

Hello Nardo,
I find it good when you're creating prersönlich for missing commands in Panoramic DLL.
However, a major issue is connected.
First Who developed further if you keep going?
Klaus --- see, he had told me the DLL pressure to develop. Unfortunately, I
--- I have long not heard from him. Too bad!
Second If you are on the program, a large number of DLL, INI are to admit.
This becomes a problem when these people will be working with the program.
I had written before, when Jack stops the development of Panoramic, it can be
However, use in the state. Although some commands are missing, it is running.
So I try with the existing commands to create a working program.
If Jack develops new commands, can I then install on a new version.
I will not criticize you and do not be angry with me. But I have a lot of time in the DLL Print by Klaus
invests. But now is end with DLL pressure. No answer to questions.
Jack had announced print. So we wait. Why are we waiting for?
Jack has to make money, like all of us. So we should not be impatient.
The expectations in the forum are divided into two parts:
some are trying to create games
others want to create real programs
For certain commands are all useful. Jack decides the Prorität.
So, I had to get rid of the time. Apology if I offended anyone or 'm frustrated.
Severin

Bonjour Nardo,
Je trouve cela bien quand vous créez prersönlich pour avoir manqué des commandes dans la DLL panoramique.
Cependant, un problème majeur est connecté.
Premier Qui a développé plus loin si vous continuer?
Klaus --- voir, il m'avait dit la pression de la DLL à se développer. Malheureusement, je
--- Je suis depuis longtemps sans nouvelles de lui. Dommage!
Deuxième Si vous êtes sur le programme, un grand nombre de DLL, INI sont à admettre.
Cela devient un problème lorsque ces personnes vont travailler avec le programme.
J'avais écrit avant, quand Jack arrête le développement de panoramique, il peut être
Toutefois, l'utilisation en l'état. Bien que certaines commandes sont manquantes, il est exécuté.
J'ai donc essayer avec les commandes existantes pour créer un programme de travail.
Si Jack développe de nouvelles commandes, puis-je installer sur une nouvelle version.
Je ne vais pas vous critiquer et ne pas être en colère contre moi. Mais j'ai beaucoup de temps dans l'impression de DLL par Klaus
investit. Mais maintenant, c'est la fin avec une pression de DLL. Pas de réponse aux questions.
Jack avait annoncé impression. Alors que nous attendons. Pourquoi sommes-nous attendre?
Jack a faire de l'argent, comme nous tous. Donc nous ne devrions pas être impatient.
Les attentes dans le forum sont divisées en deux parties:
certains tentent de créer des jeux
d'autres veulent créer de véritables programmes
Pour certaines commandes sont toutes utiles. Jack décide de l'Prorität.
Donc, je devais me débarrasser de l'époque. Excuses si j'ai offensé quelqu'un ou 'm frustré.
Severin

Sujet: Re: DLL: Form Mar 18 Oct 2011 - 22:07

Severin,

Je ne suis pas vexé ! Very Happy

Je m'explique sur ma motivation au sujet des DLL:
Je fais des DLLs essentiellement pour moi, en complément de Panoramic

Je les mets en partage (ça sert à ça un forum Smile

) quand je pense que cela peut dépanner d'autres personnes...
Chacun est libre de les utiliser ou non. Wink

Contrairement à Klaus, (qui faisait des grosses DLL qui devait demander beaucoup de travail) je n'écrit que des petites DLL.
J'essaye de fournir la plupart du temps les sources de ces DLL (sauf oubli de ma part cf. color.dll Embarassed

).

De cette manière, si un problème apparait ou si quelqu'un veux modifier/rajouter dedans ses propres fonctions, il est libre de le faire...

-> pour télécharger mes sources, voir sur mon site, dans le répertoire qui contient la DLL...

j'ai également rencontré des soucis avec la DLL print et sans les sources, je n'ai rien pu faire... Sad

Ne crois pas que je suis un expert en Delphi, Je suis loin de maitriser ce langage. J'ai bien écrit en turbo-pascal pendant mes études mais cela remonte il y a 20 ans maintenant... (mon expérience est surtout basé sur Php, le C et l'assembleur sur micro-controleur 68HCxx/9S12###, dans ces langages je pense maitriser le sujet! Wink

)

Actuellement en Delphi, je me débrouille un peu à l'aide d'un source de DLL que j'ai récupéré et je fait des recherches avec Google pour trouver les commandes qui m’intéresse...du bricolage quoi... Wink

PS: La DLL pour le FTP n'est pas de moi, je n'ai pas les sources de la couche basse , j'ai juste rajouter des fonctions écrites en Panoramic qui viennent se greffer dessus...

Sujet: Re: DLL: Form Mar 18 Oct 2011 - 22:37

Et en plus tu est le dernier créateur de DLL actuellement actif Smile

Donc ne change pas ^^
Comme ça on a 3 façon d'avancer:
L'officiel avec Jack qui fait avancer Panoramic toujours plus loin
JL35 et le javascript autogénéré par le source du programme
toi et les DLL pour ajouter des fonctions complémentaires

C'est la diversité qui fait la richesse ^^

Sujet: Re: DLL: Form Mar 18 Oct 2011 - 22:44

Je ne suis pas le seul à faire des DLL : avec FreeBasic c'est possible également !
Jean debord a fait un superbe tuto dans son site : http://www.unilim.fr/pages_perso/jean.debord/panoramic/panoramic_dll.htm
Et c'est peut être la solution la plus abordable pour les Panoramicien... Wink

Sujet: Re: DLL: Form Jeu 20 Oct 2011 - 10:27

Mise à jour de la DLL : Ajout de fonctions, voir 1er post

Sujet: Re: DLL: Form Jeu 20 Oct 2011 - 12:23

Cool ta DLL Nardo. J'ai pensé à une petite fonction complémentaire qui irait bien avec si tu trouves que c'est une bonne idée et que ce n'est pas trop galère à faire:

•ActivateForm: Permet de demander la mis en avant-plan d'un formulaire et renvoi 1 si la fonction réussie sinon 0
syntaxe:retour = dll_call1("ActivateForm",handle(N°form))

Sujet: Re: DLL: Form Jeu 20 Oct 2011 - 13:34

Bonjour Jicehel,

C'est fait....
par contre cette fonction renverra toujours 1 car au moment de l'appel, si il y a pb, tu te feras jeter sur la fct Handle.

Sujet: Re: DLL: Form Jeu 20 Oct 2011 - 14:06

Purée, tu va vite Smile

Pour éviter les erreurs (pas sûr que ce soit utile) sur le Activate, il faudrait peut être une fonction pour vérifier l'existance de la fenêtre correspondant au Handle du genre

IsExistingForm: Permet de demander si le formulaire correspondant au handle existe (renvoi 1 s'il existe sinon 0)
syntaxe:retour = dll_call1("IsExistingForm",handle(N°form))

Du coup on ferait:
if retour=1
retour = dll_call1("ActivateForm",handle(N°form))
end_if

mais bon, là c'est pour trouver quelque chose qui t'occupe plus de 2 mn Smile

^^

Sujet: Re: DLL: Form Jeu 20 Oct 2011 - 14:56

Je n'en voit pas trop l'utilité...
il vaut mieux mettre un ON_ERROR_GOTO en debut de prog et traiter le problème à la source...

Invité

Bonjour,

Citation :: fonction pour vérifier l'existance de la fenêtre correspondant au Handle

Cette dll existe sur le site de Klaus, qui l'avait faite à ma demande:
https://panoramic.1fr1.net/t1354-nouvelle-dll-isrunningdll

Elle est pratique pour moi, qui met en marche plusieurs programmes Panoramic en même temps, avec le transfert d'infos de l'un à l'autre.

Sujet: Re: DLL: Form Jeu 20 Oct 2011 - 15:40

Bonjour Cosmos,

La dll que tu indique permet de tester si une application est lancée ou non.
Je crois que ce que voudrait Jicehel c'est plutot de tester l'existence d'une fenêtre dans la même application:

Du genre, tu crées 3 forms auquel tu associes une procédure générale de traitement (la même pour les 3 form).
Dans ce cas, il faudrait tester l'existence ou non de la fenêtre avant d'y appliquer un calcul ou tout autres opérations...
Perso : Je contourne le Pb en désactivant le bouton "close" et en jouant sur hide/show... Wink

EDIT : il existe aussi la commande OBJECT_EXISTS(N) ...

Sujet: Re: DLL: Form Jeu 20 Oct 2011 - 16:50

OK

J'avais un doute sur l'utilité, juste au cas où close ne serait pas désactivé sur et que l'utilisateur la ferme puis que le programme y fasse référence, mais c'est vrai que l'on peut le gérer par le ON_ERROR_GOTO... (C'était pour voir si tu restait vigilant Wink

)

Sujet: Re: DLL: Form Jeu 20 Oct 2011 - 18:55

Hallo Nardo,

super, es fängt an interessant zu werden. bounce

Ich will 2 Formen zusammenführen, und kann die 3 Knöpfe nich gebrauchen.
Beispiel im Programm. Es ist jetzt nur in der Entwicklung. Aber man kann
die 2 Formen schon erkennen. Sonst ist nur Müll im weiteren Code.

Ideal wäre wenn alle 3 Butten verschwinden würden.
Aber ich brauche Form Normal für ein weiteres Menü.

Mach bitte weiter, ich würde mich dann an DLL gewöhnen. Embarassed

Severin

Hello Nardo,

great, it starts to get interesting. bounce

I want to merge two shapes, and can use the 3 buttons niche.
Example in the program. It is only now being developed. But you can
the two forms perceived. Else is just rubbish in other code.

Ideal would disappear if all three tubs would.
But I need normal form for another menu.

Please go ahead, then I would get used to DLL. Embarassed

Severin

Bonjour Nardo,

grand, il commence à devenir intéressant. bounce

Je tiens à fusionner deux formes, et peut utiliser la niche 3 boutons.
Exemple dans le programme. Il est seulement en cours d'élaboration. Mais vous pouvez
les deux formes perçues. Le reste n'est que des ordures dans d'autres codes.

Idéal disparaîtrait si les trois cuves serait.
Mais j'ai besoin de forme normale pour un autre menu.

S'il vous plaît allez-y, alors je vous habituer à la DLL. Embarassed

Severin

Code:: ' *** COPY TO COPY *************************************************************
' ******************************************************************************
' *** Nach einem Entwurf von minifly 564 ***************************************
' ******************************************************************************
' ******************************************************************************
'
' *** LABEL FÜR UNTERTMENÜ'S DEFINIEREN ****************************************
'
Label Zahl1100 :' Einsprung für Unterprogramm - Sprache einstellen
Label Zahl1200 :' Einsprung für Unterprogramm - Sprache einstellen
Label Zahl1300 :' Einsprung für Unterprogramm - Sprache einstellen
Label Zahl1400 :' Einsprung für Unterprogramm - Sprache einstellen
Label Zahl1500 :' Einsprung für Unterprogramm - Sprache einstellen
Label Zahl1600 :' Einsprung für Unterprogramm - Sprache einstellen
Label Zahl1700 :' Einsprung für Unterprogramm - Sprache einstellen
Label Zahl1800 :' Einsprung für Unterprogramm - Sprache einstellen
Label Zahl1900 :' Einsprung für Unterprogramm - Programm beenden
'
Label Zahl2100
'
Label PROGRAMM
' *** LeftLabel definieren *****************************************************
Label LeftSub_Ferme_Dirlist
Label LeftRep_list
Label LeftSub_open_dialog
Label LeftSub_Choix_List
Label LeftSub_Peripheriques
Label LeftDisque
Label LeftSuite01
Label Linke_Seite
Label Rechte_Seite
'
Label LAUFWERK_ERMITTLUNG
' *** RightLabel definieren ****************************************************
Label RightSub_Ferme_Dirlist
Label RightRep_list
Label RightSub_open_dialog
Label RightSub_Choix_List
Label RightSub_Peripheriques
Label RightDisque
Label RightSuite01
'
' *** language setting *********************************************************
'
Label German :' Unterprogramm - Text auf Form und Button in deutsch
Label French :' Unterprogramm - Text auf Form und Button in deutsch
Label English :' Unterprogramm - Text auf Form und Button in deutsch
Label Espanol :' Unterprogramm - Text auf Form und Button in deutsch
Label FREI1 :' Unterprogramm - Text auf Form und Button in deutsch
Label FREI2 :' Unterprogramm - Text auf Form und Button in deutsch
Label FREI3 :' Unterprogramm - Text auf Form und Button in deutsch
Label FREI4 :' Unterprogramm - Text auf Form und Button in deutsch
'
' *** LABEL FÜR SCHRIFTEN - SYMBOL anlegen *************************************
'
Label SCHRIFTARTSYMBOLschwarz
Label SCHRIFTARTSYMBOLrot
Label SCHRIFTARTSYMBOLschwarz12
Label SCHRIFTARTSYMBOLrot12
'
' *** LABEL FÜR SCHRIFTEN - ARIAL Normal anlegen *******************************
label SCHRIFTART08N
label SCHRIFTART09N
label SCHRIFTART10N
label SCHRIFTART11N
label SCHRIFTART12N
label SCHRIFTART15N
label SCHRIFTART20N
' *** LABEL FÜR SCHRIFTEN - ARIAL Fett anlegen *********************************
label SCHRIFTART08F
label SCHRIFTART09F
label SCHRIFTART10F
label SCHRIFTART11F
label SCHRIFTART12F
label SCHRIFTART15F
label Schriftart20F
' *** LABEL FÜR SCHRIFTEN - ARIAL Fett Unterstrichen anlegen *******************
label SCHRIFTART08FU
label SCHRIFTART09FU
label SCHRIFTART10FU
label SCHRIFTART11FU
label SCHRIFTART12FU
label SCHRIFTART15FU
label Schriftart20FU
' *** LABEL FÜR SCHRIFTEN - ARIAL Normal rot anlegen ***************************
label Schriftart09NR
label Schriftart11NR
' *** Variable für Schriftarten anlegen ****************************************

' ******************************************************************************
'
dim Laufwerk_tab$(26,4)
dim LW_j%
dim LW_i%
dim LW_k%
dim Laufwerk_nr$
dim Laufwerk_frei
dim Laufwerk_max
'
' *** LeftVariable definieren **************************************************
Dim LeftDirList%
Dim LeftList_Dirlist%
Dim LeftEdit_Dirlist%
Dim Butt01_Dirlist%
Dim Butt02_Dirlist%
Dim Butt03_Dirlist%
Dim Butt04_Dirlist%
Dim Butt05_Dirlist%
Dim LeftList_File_list%
Dim Lefta$
Dim LeftTest%
Dim Leftchaine$
Dim LeftRepertoire_Courant$
Dim LeftLong_Chaine%
Dim LeftSous_Chaine$
Dim Lefti%
'
' *** RightVariable definieren *************************************************
Dim RightDirList%
Dim RightList_Dirlist%
Dim RightEdit_Dirlist%
Dim RightList_File_list%
Dim Righta$
Dim RightTest%
Dim Rightchaine$
Dim RightRepertoire_Courant$
Dim RightLong_Chaine%
Dim RightSous_Chaine$
Dim Righti%
'
' *** Erstellen von Listen *****************************************************
'
List 9000:hide 9000
List 9001:hide 9001
List 9002:hide 9002
List 9003:hide 9003
'
' *** Erstellen von Edit *******************************************************
edit 9100:hide 9100
edit 9101:hide 9101
'
edit 9110:hide 9110:' DATA LINKS Speicherkapazität
edit 9111:hide 9111:' DATA LINKS Belegter Speicher
edit 9112:hide 9112:' DATA LINKS Freier Speicher
'
edit 9120:hide 9120:' DATA RECHTS Speicherkapazitä
edit 9121:hide 9121:' DATA RECHTS Belegter Speicher
edit 9122:hide 9122:' DATA RECHTS Freier Speicher
'
' *** Variablen erstellen für Alpha und Alpha erstellen ************************
'
Dim TextaufForm$(100) :' Text auf Form in Verschiedenen Sprachen
'
ALPHA 9200:hide 9200
ALPHA 9201:hide 9201
ALPHA 9202:hide 9202
ALPHA 9203:hide 9203
ALPHA 9204:hide 9204
ALPHA 9205:hide 9205
'
ALPHA 9210:hide 9210:' TEXT LINKS Speicherkapazität
ALPHA 9211:hide 9211:' TEXT LINKS Belegter Speicher
ALPHA 9212:hide 9212:' TEXT LINKS Freier Speicher
'
ALPHA 9220:hide 9220:' TEXT RECHTS Speicherkapazität
ALPHA 9221:hide 9221:' TEXT RECHTS Belegter Speicher
ALPHA 9222:hide 9222:' TEXT RECHTS Freier Speicher
'
' *** Erstellen von Combo ******************************************************
'
COMBO 9300:hide 9300
COMBO 9301:hide 9301
'
' *** Variablen für Button erstellen und Butten erstellen **********************
'
Dim TextaufButton$(100):' Text auf Button in Verschiedenen Sprachen
'
Button 2024:hide 2024
Button 2025:hide 2025
button 2026:hide 2026
button 2027:hide 2027
button 2028:hide 2028
'
' *** Variabele für Menü erstellen und füllen **********************************
'
Dim FORM_TEXT$(100) :' Text auf Menü in Englisch
'
FORM_TEXT$(00) = " language setting "
FORM_TEXT$(01) = " German "
FORM_TEXT$(02) = " French "
FORM_TEXT$(03) = " English "
FORM_TEXT$(04) = " Español "
FORM_TEXT$(05) = " *** "
FORM_TEXT$(06) = " *** "
FORM_TEXT$(07) = " *** "
FORM_TEXT$(08) = " *** "
FORM_TEXT$(09) = " Quit "
FORM_TEXT$(10) = " About "
FORM_TEXT$(11) = " *** "
'
' ******************************************************************************

' *** Beginn des Programms *****************************************************
' *** Form 0000 erstellen ******************************************************
'
top 0000,0000
left 0000,0000
width 0000,SCREEN_X
height 0000,SCREEN_Y-42 :' Bildschirmhöhe - Leiste Windows
color 0000,255,255,255
' SCHRIFTART = 0000:Gosub Schriftart15F
caption 0000," Copy <== to ==> Copy "
border_normal 0000
'
Command_Target_is 0000
'
' *** Hauptmenü erstellen ******************************************************
main_menu 0001
' *** ERSTELLEN DES HAUPTMENÜ 1000 bis 9000 ************************************
sub_menu 1000:caption 1000,FORM_TEXT$(00):parent 1000,0001
sub_menu 2000:caption 2000,FORM_TEXT$(10):parent 2000,0001
' *** ERSTELLEN UNTERMENÜ 1100 bis 1900 ***************************************
sub_menu 1100:caption 1100,FORM_TEXT$(01):parent 1100,1000
sub_menu 1200:caption 1200,FORM_TEXT$(02):parent 1200,1000
sub_menu 1300:caption 1300,FORM_TEXT$(03):parent 1300,1000
sub_menu 1400:caption 1400,FORM_TEXT$(04):parent 1400,1000
sub_menu 1500:caption 1500,FORM_TEXT$(05):parent 1500,1000
sub_menu 1600:caption 1600,FORM_TEXT$(06):parent 1600,1000
sub_menu 1700:caption 1700,FORM_TEXT$(07):parent 1700,1000
sub_menu 1800:caption 1800,FORM_TEXT$(08):parent 1800,1000
sub_menu 1900:caption 1900,FORM_TEXT$(09):parent 1900,1000
' *** ERSTELLEN UNTERMENÜ 2100 bis 2900 ***************************************
sub_menu 2100:caption 2100,FORM_TEXT$(11):parent 2100,2000
'
' ******************************************************************************
Form 3000
top 3000,0080
left 3000,0000
width 3000,SCREEN_X :' Bildschirmbreite
height 3000,SCREEN_Y-42-80 :' Bildschirmhöhe - Leiste Windows
color 3000,000,255,000
' SCHRIFTART = 0000:Gosub Schriftart15F
caption 3000," Copy <== to ==> Copy "
border_normal 3000
'
Command_Target_is 3000

stop

' *** LABEL UND VARIABLE FÜR BILDSCHIRMRAHMEN DEFINIEREN ***********************
'
' LABEL RAHMENaufFORMoben
'
' Dim i
'
' for i = 1 to 999
'

' next i

'
' ******************************************************************************
' ******************************************************************************
'
Dim Schriftart
'
DIm A$
Dim SCHRIFT_HOEHE%
Dim SCHRIFT_BREIT%
Alpha 100
'
' A$ = "AAAAAAAAAA"

A$= CHR$(201) + STRING$(299,CHR$(205)) + CHR$(187)
'
SCHRIFTART = 100
'
font_name SCHRIFTART,"Terminal"
font_size SCHRIFTART,10
font_bold SCHRIFTART
font_underline_off SCHRIFTART
' font_underline SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
'
'
'

A$= CHR$(201) + STRING$(299,CHR$(205)) + CHR$(187)
' A$ = CHR$(201)+CHR$(205)

rem display an explaining text (its number is used as reference)
'
Print
caption 100,A$
'
Print
Print
Print "Höhe in Pixel":Print TEXT_HEIGHT (A$,100)
Print
SCHRIFT_HOEHE% = TEXT_HEIGHT (A$,100)
Print
Print SCHRIFT_HOEHE%
'
Print
Print "Breite in Pixel":Print TEXT_WIDTH (A$,100)
Print
SCHRIFT_BREIT% = TEXT_WIDTH (A$,100)
Print
Print SCHRIFT_BREIT%

stop

' *** Sprun nach on_click ******************************************************
on_click 1100,Zahl1100
on_click 1200,Zahl1200
on_click 1300,Zahl1300
on_click 1400,Zahl1400
on_click 1500,Zahl1500
on_click 1600,Zahl1600
on_click 1700,Zahl1700
on_click 1800,Zahl1800
on_click 1900,Zahl1900
' ***
on_click 2100,Zahl2100
end
' *** Sprung nach Klick im Menü ************************************************
'
Zahl1100:
Gosub German :' Sprache einstellen
Gosub PROGRAMM :' Programm beginn
'
Zahl1200:
Gosub French :' Sprache einstellen
Gosub PROGRAMM :' Programm beginn
'
Zahl1300:
Gosub English :' Sprache einstellen
Gosub PROGRAMM :' Programm beginn
'
Zahl1400:
GOSUB Espanol :' Sprache einstellen
Gosub PROGRAMM :' Programm beginn
'
Zahl1500: :' Sprache einstellen
GOSUB FREI :' Programm beginn
'
Zahl1600: :' Sprache einstellen
GOSUB FREI :' Programm beginn
'
Zahl1700: :' Sprache einstellen
GOSUB FREI :' Programm beginn
'
Zahl1800: :' Sprache einstellen
GOSUB FREI :' Programm beginn
'
Zahl1900:
GOTO LeftSub_Ferme_Dirlist:' Sprache einstellen
'
Zahl2100:
GOSUB FREI
'
' *** Beginn Hauptprogramm *****************************************************
'
PROGRAMM:
'
Command_Target_is 000
'
' GOSUB RAHMENaufFORMoben

' *** ALPHA - Verzeichnis Text links *******************************************
'
top 9202,0130
left 9202,0040
SCHRIFTART = 9202:Gosub Schriftart12F
caption 9202,TextaufForm$(02)
show 9202
'
' *** Verzeichnis Liste links **************************************************
'
top 9000,0150
left 9000,0020
width 9000,0205
height 9000,0360
show 9000
'
' *** ALPHA - Datei Text inks **************************************************
'
top 9203,0130
left 9203,0300
SCHRIFTART = 9203:Gosub Schriftart12F
caption 9203,TextaufForm$(04)
show 9203
'
' *** LeftListe rechts *********************************************************
'
top 9001,0150
left 9001,0245
width 9001,0205
height 9001,0420
show 9001
'
' *** Datei Text inks **********************************************************
'
top 9204,0130
left 9204,0590
SCHRIFTART = 9204:Gosub Schriftart12F
caption 9204,TextaufForm$(04)
show 9204
'
' *** RightListe rechts ********************************************************
'
top 9002,0150
left 9002,0550
width 9002,0205
height 9002,0420
show 9002
'
' *** Verzeichnis Text links ***************************************************
'
top 9205,0130
left 9205,0800
SCHRIFTART = 9205:Gosub Schriftart12F
caption 9205,TextaufForm$(02)
show 9205
'
' *** RightListe links *********************************************************
'
top 9003,0150
left 9003,0775
width 9003,0205
height 9003,0360
show 9003
'
' *** LeftAnzeige PFAD *********************************************************
'
left 9100,020
top 9100,020
width 9100,430
height 9100,25
show 9100
'
' *** RightAnzeige PFAD ********************************************************
'
left 9101,550
top 9101,020
width 9101,430
height 9101,25
show 9101
'
' *** LeftBUTTON aktivieren ****************************************************
'
Left 2027,020
top 2027,0080
width 2027,430
height 2027,025
SCHRIFTART = 2027
gosub SCHRIFTART10F
Caption 2027,TextaufButton$(04)
show 2027
' inactive 2027
'
' *** Right BUTTON aktivieren **************************************************
'
Left 2028,550
top 2028,0080
width 2028,430
height 2028,025
SCHRIFTART = 2028
gosub SCHRIFTART10F
Caption 2028,TextaufButton$(05)
show 2028
' inactive 2028
'
' *** 1. Links Text anzeigen für Laufwerksauswahl*** ALPHA *********************
'
top 9200,535
left 9200,040
SCHRIFTART = 9200
Gosub Schriftart12F
caption 9200,TextaufForm$(01)
show 9200
'
' *** 1. Links AuswahlLaufwerk *** COMBO ***************************************
clear 9300
top 9300,530
left 9300,170
width 9300,50
height 9300,20
color 9300,255,255,255
SCHRIFTART = 9300
Gosub Schriftart10N
hint 9300,TextaufForm$(05)
'
LW_j% =0
'
for LW_i% = 65 to 90
Laufwerk_nr$ = chr$(LW_i%)
IF DISK_EXISTS(Laufwerk_nr$) = 1
LW_j% =LW_j% +1
'
Laufwerk_frei = DISK_KILO_FREE(Laufwerk_nr$)
Laufwerk_max = DISK_KILO_SIZE(Laufwerk_nr$)
Laufwerk_nr$ = Laufwerk_nr$ + ":"
Laufwerk_tab$(LW_j%,1)= Laufwerk_nr$
Laufwerk_tab$(LW_j%,2)= str$(int(Laufwerk_max/1000))
Laufwerk_tab$(LW_j%,3)= str$(int(Laufwerk_frei/1000))
END_IF
NEXT LW_i%
'
text 9300," LW "
for LW_k% = 1 to LW_j%
item_add 9300,Laufwerk_tab$(LW_k%,1)
next LW_k%
show 9300
'
top 9210,0600
left 9210,0020
SCHRIFTART = 9210
Gosub Schriftart10F
caption 9210,TextaufForm$(06)
show 9210
'
top 9211,0650
left 9211,0020
SCHRIFTART = 9211
Gosub Schriftart10F
caption 9211,TextaufForm$(07)
show 9211
'
top 9212,0700
left 9212,0020
SCHRIFTART = 9212
Gosub Schriftart10F
caption 9212,TextaufForm$(08)
show 9212
'
left 9110,0250
top 9110,0600
width 9110,100
height 9110,25
SCHRIFTART = 9212
Gosub Schriftart10F
text 9110,"12345678902
show 9110
'
left 9111,0250
top 9111,0650
width 9111,100
height 9111,25
SCHRIFTART = 9212
Gosub Schriftart10F
text 9111,"12345678902
show 9111
'
left 9112,0250
top 9112,0700
width 9112,100
height 9112,25
SCHRIFTART = 9212
Gosub Schriftart10F
text 9112,"12345678902
show 9112
'
top 9220,0600
left 9220,0800
SCHRIFTART = 9220
Gosub Schriftart10F
caption 9220,TextaufForm$(06)
show 9220
'
top 9221,0650
left 9221,0800
SCHRIFTART = 9221
Gosub Schriftart10F
caption 9221,TextaufForm$(07)
show 9221
'
top 9222,0700
left 9222,0800
SCHRIFTART = 9222
Gosub Schriftart10F
caption 9222,TextaufForm$(08)
show 9222
'
left 9120,0650
top 9120,0600
width 9120,100
height 9120,25
SCHRIFTART = 9212
Gosub Schriftart10F
text 9120,"12345678902
show 9120
'
left 9121,0650
top 9121,0650
width 9121,100
height 9121,25
SCHRIFTART = 9212
Gosub Schriftart10F
text 9121,"12345678902
show 9121
'
left 9122,0650
top 9122,0700
width 9122,100
height 9122,25
SCHRIFTART = 9212
Gosub Schriftart10F
text 9122,"12345678902
show 9122
'
' *** 1. Rechts Text anzeigen für Laufwerksauswahl*** ALPHA ********************
'
top 9201,535
left 9201,800
SCHRIFTART = 9201
Gosub Schriftart12F
caption 9201,TextaufForm$(01)
show 9201
'
' *** 1. Rechts AuswahlLaufwerk *** COMBO **************************************
clear 9301
top 9301,530
left 9301,920
width 9301,50
height 9301,20
color 9301,255,255,255
SCHRIFTART = 9301
Gosub Schriftart10F
hint 9301,TextaufForm$(05)
'
LW_j% =0
'
for LW_i% = 65 to 90
Laufwerk_nr$ = chr$(LW_i%)
IF DISK_EXISTS(Laufwerk_nr$) = 1
'
LW_j% =LW_j% +1
'
Laufwerk_frei = DISK_KILO_FREE(Laufwerk_nr$)
Laufwerk_max = DISK_KILO_SIZE(Laufwerk_nr$)
Laufwerk_nr$ = Laufwerk_nr$ + ":"
Laufwerk_tab$(LW_j%,1)= Laufwerk_nr$
Laufwerk_tab$(LW_j%,2)= str$(int(Laufwerk_max/1000))
Laufwerk_tab$(LW_j%,3)= str$(int(Laufwerk_frei/1000))
END_IF
NEXT LW_i%
'
text 9301," LW "
for LW_k% = 1 to LW_j%
item_add 9301,Laufwerk_tab$(LW_k%,1)
next LW_k%
show 9301
'
' *** BUTTON "Quit" ************************************************************
'
Left 2024,460
top 2024,500
width 2024,080
height 2024,025
SCHRIFTART = 2024
gosub SCHRIFTART10F
Caption 2024,TextaufButton$(01)
show 2024
On_Click 2024,LeftSub_Ferme_Dirlist
'
' *** BUTTON "Copy ===>" dieses File *******************************************
'
Left 2025,460
top 2025,400
width 2025,080
height 2025,025
SCHRIFTART = 2025
gosub SCHRIFTART10F
Caption 2025,TextaufButton$(02)
show 2025
'
' *** BUTTON "<=== Copy" dieses File *******************************************
'
Left 2026,460
top 2026,300
width 2026,080
height 2026,025
SCHRIFTART = 2026
gosub SCHRIFTART10F
Caption 2026,TextaufButton$(03)
show 2026
'
' *** LeftBUTTON aktivieren ****************************************************
'
' active 2027
' active 2028
'
on_click 2027,Linke_Seite
on_click 2028,Rechte_Seite
end
'
' ******************************************************************************
' *** hide DirList% ***********************************************************
'
Linke_Seite:
gosub LeftSub_open_dialog
end
'
' *** Ouverture du dialogue repertoire *****************************************
'
LeftSub_open_dialog:
'
' Numero_bouton%=Number_click
'
show LeftdirList%
Text 9100, Dir_Current$
Item_add 9000,".."
gosub LeftRep_List
'
on_click 9000,LeftSub_Choix_List
'
' end
return
'
' Affichage de la liste des répertoire a gauche et des fichiers a droites
LeftRep_List:

clear 9000
clear 9001

item_add 9000,".."
Lefta$ = file_find_first$
while Lefta$<>"_"
LeftTest%=File_Exists(Lefta$)
if LeftTest%=0 then item_add 9000,Lefta$
if LeftTest%>0 then item_add 9001,Lefta$
Lefta$ = file_find_next$
end_while
'
file_find_close
'
' *** Recherche des periphiques disponibles ************************************

gosub LeftSub_Peripheriques
return

' Choisir un repertoire dans la liste
'
LeftSub_Choix_List:
'
LeftTest%= item_Index( 9000)
Leftchaine$=item_read$ ( 9000,LeftTest%)
if LeftChaine$=":" then Leftsuite01
if LeftChaine$=".."
Leftchaine$=Dir_Current$
LeftLong_Chaine%=Len(Dir_Current$)
'
for Lefti% = 1 to LeftLong_Chaine% step 1
'
Leftchaine$=left$(Leftchaine$,Leftlong_chaine%-Lefti%)
LeftSous_Chaine$=Right$(LeftChaine$,1)
'
if LeftSous_Chaine$="\" then exit_for
'
next Lefti%
'
end_if
'
' ******************************************************************************
LeftSuite01:
'
dir_change Leftchaine$
Text 9100, Dir_Current$
LeftRepertoire_Courant$=Dir_Current$
'
gosub LeftRep_list
'
return
'
' ******************************************************************************
LeftSub_Peripheriques:

Lefta$="A":gosub Leftdisque
Lefta$="B":gosub Leftdisque
Lefta$="C":gosub Leftdisque
Lefta$="D":gosub Leftdisque
Lefta$="E":gosub Leftdisque
Lefta$="F":gosub Leftdisque
Lefta$="G":gosub Leftdisque
Lefta$="H":gosub Leftdisque
Lefta$="I":gosub Leftdisque
Lefta$="J":gosub Leftdisque
Lefta$="K":gosub Leftdisque
Lefta$="L":gosub Leftdisque
Lefta$="M":gosub Leftdisque
Lefta$="N":gosub Leftdisque
Lefta$="O":gosub Leftdisque
Lefta$="P":gosub Leftdisque
Lefta$="Q":gosub Leftdisque
Lefta$="R":gosub Leftdisque
Lefta$="S":gosub Leftdisque
Lefta$="T":gosub Leftdisque
Lefta$="U":gosub Leftdisque
Lefta$="V":gosub Leftdisque
Lefta$="W":gosub Leftdisque
Lefta$="X":gosub Leftdisque
Lefta$="Y":gosub Leftdisque
Lefta$="Z":gosub Leftdisque
'
return
'
' ******************************************************************************
Leftdisque:
'
if disk_exists(Lefta$)=1
item_add 9000,Lefta$+":"
end_if

Return
'
' ******************************************************************************
LeftSub_Ferme_Dirlist:
'
Hide LeftDirlist%
'
Return
End
' ******************************************************************************
' hide DirList%
Rechte_Seite:
gosub RightSub_open_dialog
end
' Ouverture du dialogue repertoire
'
RightSub_open_dialog:
'
' Numero_bouton%=Number_click
'
show RightdirList%
Text 9101, Dir_Current$
Item_add 9003,".."
gosub RightRep_List
'
on_click 9003,RightSub_Choix_List
'
' end
return
'
' Affichage de la liste des répertoire a gauche et des fichiers a droites
RightRep_List:

clear 9003
clear 9002

item_add 9003,".."
Righta$ = file_find_first$
while Righta$<>"_"
RightTest%=File_Exists(Righta$)
if RightTest%=0 then item_add 9003,Righta$
if Righttest%>0 then item_add 9002,Righta$
Righta$ = file_find_next$
end_while
'
file_find_close
'
' *** Recherche des periphiques disponibles ************************************

gosub RightSub_Peripheriques
return

' Choisir un repertoire dans la liste
'
RightSub_Choix_List:
'
Righttest%= item_Index( 9003)
Rightchaine$=item_read$ ( 9003,Righttest%)
if RightChaine$=":" then Rightsuite01
if RightChaine$=".."
Rightchaine$=Dir_Current$
RightLong_Chaine%=Len(Dir_Current$)
'
for Righti%=1 to RightLong_Chaine% step 1
'
Rightchaine$=left$(Rightchaine$,Rightlong_chaine%-Righti%)
RightSous_Chaine$=Right$(RightChaine$,1)
'
if RightSous_Chaine$="\" then exit_for
'
next Righti%
'
end_if
'
' ******************************************************************************
RightSuite01:
'
dir_change Rightchaine$
Text 9101, Dir_Current$
RightRepertoire_Courant$=Dir_Current$
'
gosub RightRep_list
'
return
'
' ******************************************************************************
RightSub_Peripheriques:

Righta$="A":gosub Rightdisque
Righta$="B":gosub Rightdisque
Righta$="C":gosub Rightdisque
Righta$="D":gosub Rightdisque
Righta$="E":gosub Rightdisque
Righta$="F":gosub Rightdisque
Righta$="G":gosub Rightdisque
Righta$="H":gosub Rightdisque
Righta$="I":gosub Rightdisque
Righta$="J":gosub Rightdisque
Righta$="K":gosub Rightdisque
Righta$="L":gosub Rightdisque
Righta$="M":gosub Rightdisque
Righta$="N":gosub Rightdisque
Righta$="O":gosub Rightdisque
Righta$="P":gosub Rightdisque
Righta$="Q":gosub Rightdisque
Righta$="R":gosub Rightdisque
Righta$="S":gosub Rightdisque
Righta$="T":gosub Rightdisque
Righta$="U":gosub Rightdisque
Righta$="V":gosub Rightdisque
Righta$="W":gosub Rightdisque
Righta$="X":gosub Rightdisque
Righta$="Y":gosub Rightdisque
Righta$="Z":gosub Rightdisque
'
return
'
' ******************************************************************************
Rightdisque:
'
if disk_exists(Righta$)=1
item_add 9003,Righta$+":"
end_if

Return
' ******************************************************************************
RightSub_Ferme_Dirlist:
'
Hide RightDirlist%
'
Return
end
' *** SUBPROGRAMME FÜR SCHRIFTARTEN
' *** SCHRIFTART Terminal GRÖSSE 08 Normal Schwarz
Schriftartsymbolschwarz:
font_name SCHRIFTART,"Terminal"
font_size SCHRIFTART,08
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
return
' *** SCHRIFTART Terminal GRÖSSE 08 Normal Schwarz
Schriftartsymbolschwarz12:
font_name SCHRIFTART,"Terminal"
font_size SCHRIFTART,11
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
return
' *** SCHRIFTART Terminal GRÖSSE 08 Normal Rot
Schriftartsymbolrot:
font_name SCHRIFTART,"Terminal"
font_size SCHRIFTART,08
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,255,0,0
return
' *** SCHRIFTART Terminal GRÖSSE 08 Normal Rot
Schriftartsymbolrot12:
font_name SCHRIFTART,"Terminal"
font_size SCHRIFTART,09
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,255,0,0
return
' *** SCHRIFTART Courier New GRÖSSE 08 Normal
Schriftart08N:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,08
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
return
' *** SCHRIFTART Courier New GRÖSSE 09 Normal
Schriftart09N:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,09
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
return
' *** SCHRIFTART Courier New GRÖSSE 09 Normal Rot
Schriftart09NR:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,09
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,225,0,0
return
' *** SCHRIFTART "Courier New" GRÖSSE 10 Normal
Schriftart10N:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,10
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' *** SCHRIFTART ARIAL GRÖSSE 11 Normal Schwarz
Schriftart11N:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,11
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
return
' *** SCHRIFTART ARIAL GRÖSSE 11 Normal Rot
Schriftart11NR:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,11
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,255,0,0
return
' *** SCHRIFTART "Courier New" GRÖSSE 12 Normal
Schriftart12N:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,12
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' *** SCHRIFTART "Courier New" GRÖSSE 15 Normal
Schriftart15N:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,15
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' *** SCHRIFTART "Courier New" GRÖSSE 20 Normal
Schriftart20N:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,20
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' *** SCHRIFTART "Courier New" GRÖSSE 08 Fett
Schriftart08F:
font_name SCHRIFTART,"Terminal"
font_size SCHRIFTART,08
font_bold SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' *** SCHRIFTART "Courier New" GRÖSSE 09 Fett
Schriftart09F:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,09
font_bold SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' *** SCHRIFTART "Courier New" GRÖSSE 10 Fett
SCHRIFTART10F:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,10
font_bold SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' *** SCHRIFTART "Courier New" GRÖSSE 11 Fett
Schriftart11F:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,11
font_bold SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' *** SCHRIFTART "Courier New" GRÖSSE 12 Fett
Schriftart12F:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,12
font_bold SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
return
' *** SCHRIFTART "Courier New" GRÖSSE 15 Fett
Schriftart15F:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,15
font_bold SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
return
' *** SCHRIFTART "Courier New" GRÖSSE 20 Fett
Schriftart20F:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,20
font_bold SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
return
' *** SCHRIFTART "Courier New" GRÖSSE 08 Fett Unterstrichen
Schriftart08FU:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,08
font_bold SCHRIFTART
font_underline SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' *** SCHRIFTART "Courier New" GRÖSSE 09 Fett Unterstrichen
Schriftart09FU:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,09
font_bold SCHRIFTART
font_underline SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' *** SCHRIFTART "Courier New" GRÖSSE 10 Fett Unterstrichen
Schriftart10FU:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,10
font_bold SCHRIFTART
font_underline SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' *** SCHRIFTART "Courier New" GRÖSSE 11 Fett Unterstrichen
Schriftart11FU:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,11
font_bold SCHRIFTART
font_underline SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' *** SCHRIFTART "Courier New" GRÖSSE 12 Fett Unterstrichen
Schriftart12FU:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,12
font_bold SCHRIFTART
font_underline SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' *** SCHRIFTART "Courier New" GRÖSSE 15 Fett Unterstrichen
Schriftart15FU:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,15
font_bold SCHRIFTART
font_underline SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' *** SCHRIFTART "Courier New" GRÖSSE 20 Fett Unterstrichen
Schriftart20FU:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,20
font_bold SCHRIFTART
font_underline SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' ******************************************************************************
German:
'
TextaufButton$(01) = "Beenden"
TextaufButton$(02) = "=> kopieren"
TextaufButton$(03) = "kopieren <="
TextaufButton$(04) = "Aktivieren des linken Verzeichnis"
TextaufButton$(05) = "Aktivieren des rechten Verzeichnis"

TextaufForm$(00) = ""
TextaufForm$(01) = "Pfad"
TextaufForm$(02) = "Verzeichnisse"
TextaufForm$(03) = "Laufwerke"
TextaufForm$(04) = "Dateien"
TextaufForm$(05) = "Laufwerk auswählen"
TextaufForm$(06) = "Speicherkapazität"
TextaufForm$(07) = "Belegter Speicher"
TextaufForm$(08) = "Freier Speicher"
TextaufForm$(09) = ""
TextaufForm$(10) = ""
'
RETURN
' ******************************************************************************
French:
'
TextaufButton$(01) = "Fin"
TextaufButton$(02) = "===> copie"
TextaufButton$(03) = "copie <==="
TextaufButton$(04) = "Activation du répertoire gauche"
TextaufButton$(05) = "Activer le bon répertoire"
'
TextaufForm$(00) = ""
TextaufForm$(01) = "chemin"
TextaufForm$(02) = "Annuaires"
TextaufForm$(03) = "Disques"
TextaufForm$(04) = "fichiers"
TextaufForm$(05) = "Sélectionnez Disque"
TextaufForm$(06) = "stockage"
TextaufForm$(07) = "L'espace disque"
TextaufForm$(08) = "mémoire libre"
TextaufForm$(09) = ""
TextaufForm$(10) = ""
'
RETURN
' ******************************************************************************
English:
'
TextaufButton$(01) = "End"
TextaufButton$(02) = "===> Copy"
TextaufButton$(03) = "Copy <==="
TextaufButton$(04) = "Activating the left directory"
TextaufButton$(05) = "Activating the right directory"
'
TextaufForm$(00) = ""
TextaufForm$(01) = "path"
TextaufForm$(02) = "directories"
TextaufForm$(03) = "drives"
TextaufForm$(04) = "files"
TextaufForm$(05) = "select Drive"
TextaufForm$(06) = "storage"
TextaufForm$(07) = "Disk space"
TextaufForm$(08) = "free Memory"
TextaufForm$(09) = ""
TextaufForm$(10) = ""
'
RETURN
' ******************************************************************************
Espanol:
'
TextaufButton$(01) = "final"
TextaufButton$(02) = "==> copia"
TextaufButton$(03) = "copia <=="
TextaufButton$(04) = "Activar el directorio de la izquierda"
TextaufButton$(05) = "Activar el directorio de la derecha"
'
TextaufForm$(00) = ""
TextaufForm$(01) = "camino"
TextaufForm$(02) = "directorios"
TextaufForm$(03) = "unidades"
TextaufForm$(04) = "archivos"
TextaufForm$(05) = "seleccionar la unidad"
TextaufForm$(06) = "almacenamiento"
TextaufForm$(07) = "de espacio en disco"
TextaufForm$(08) = "memoria libre"
TextaufForm$(09) = ""
TextaufForm$(10) = ""
'
RETURN
' ******************************************************************************
'
FREI1:
'
RETURN
END
' ******************************************************************************
'
FREI2:
'
RETURN
END
' ******************************************************************************
'
FREI3:
'
RETURN
END
' ******************************************************************************
'
FREI4:
'
RETURN
END
'
' *** LAUFWERKE ERMITTEN ************************************************************************************************************
LAUFWERK_ERMITTLUNG:
'
if disk_exists(LAUFWERK$)=1
'
LAUFWERK_GROESSE$ = LAUFWERK_HELP$+str$((disk_kilo_size(LAUFWERK$))/1000000)
LAUFWERK_GROESSE$ = left$(LAUFWERK_GROESSE$,10)+" GB"
'
LAUFWERK_FREE$ = LAUFWERK_HELP$+str$((disk_kilo_free(LAUFWERK$))/1000000)
LAUFWERK_FREE$ = left$(LAUFWERK_FREE$,10)+" GB"
'
else
'
LAUFWERK_GROESSE$ = " Nicht vorhanden"
LAUFWERK_FREE$ = ""
end_if
'
return
'

' ***********************************************************************************************************************************
' ***********************************************************************************************************************************
' *** SUBPROGRAMME FÜR RAHMEN AUF FORM 000 SCHWARZ **********************************************************************************
RAHMENAUFFORM11:
on_error_goto WEITER900
Command_Target_is 000
ALPHA 0011:hide 0011
'
For i11% = 100 to 500
ALPHA i11%:hide i11%
Next i11%
'
ALPHA 0090:hide 0090
'
WEITER900:
off_error_goto
' ******************************************************************************
' RAHMEN OBEM AUF FORM 000 SCHWARZ *********************************************
'
RAHMENaufFORMoben:

Command_Target_is 0000
show 0011
top 0011,0000
left 0011,0000
SCHRIFTART = 0011
Gosub Schriftartsymbolschwarz
caption 0011,RAHMENAUFFORMOBEN$

return
' ******************************************************************************
' RAHMEN LINKS AUF FORM 000 ****************************************************
Command_Target_is 0000
'
for i11% = 101 to RAMENAUFFORMLINKS%
'
show i11%
top i11%,(i11%-100)*8
left i11%,0
SCHRIFTART = i11%
Gosub Schriftartsymbolschwarz
caption i11%,RAHMENLINKSRECHTS$(i11%)
'
next i11%
' ******************************************************************************
' RAHMEN RECHTS AUF FORM 000 ***************************************************
Command_Target_is 0000
'
for i11% = 301 to RAHMENAUFFORMRECHTS%
'
show i11%
top i11%,(i11%-300)*8
'
left i11%,RAHMENAUFFORMABSTADND%
'
SCHRIFTART = i11%
Gosub Schriftartsymbolschwarz
caption i11%,RAHMENLINKSRECHTS$(i11%)
next i11%
' ******************************************************************************
' RAHMEN UNTEN AUF FORM 000 ****************************************************
Command_Target_is 0000
'
show 0090
top 0090,RAHMENAUFFORMUNTEN%
'
left 0090,0
SCHRIFTART = 0090
Gosub Schriftartsymbolschwarz
caption 0090,RAHMENAUFFORNUNTEN$
return
' *****************************************************************************

Sujet: Re: DLL: Form Jeu 20 Oct 2011 - 19:05

Hello Severin Very Happy

!
I don't understand what you want... Neutral

Quelqu'un peut m'aider à comprendre ce qu'il désire ? Smile

You have 2 form and... ?
scratch

Sujet: Re: DLL: Form Jeu 20 Oct 2011 - 19:28

Hola Nardo,

grandes, que empieza a ponerse interesante.
Quiero unir dos formas, y puede utilizar el nicho de 3 botones.
Ejemplo en el programa. Sólo ahora se están desarrollando. Pero se puede
las dos formas de percepción. Lo demás es sólo basura en otro código.

Ideal desaparecerían si las tres tinas sería.
Pero necesito forma normal de otro menú.

Por favor, vaya por delante, entonces se acostumbraría a DLL.

Severin

Sujet: Re: DLL: Form Jeu 20 Oct 2011 - 20:11

@Severin:

Try this...

Code:: dll_on "form.dll"
dim r
FORM 1: caption 1,"Form 1": top 1,screen_y/2:left 1,100:r=dll_call1("TopMost",handle(1))
form 2: caption 2,"Form 2":top 2,top(1):left 2, screen_x/2: r=dll_call1("TopMost",handle(2)) : hide 2
width 0,screen_x
height 0,screen_y
r=dll_call1("ActivateForm",handle(0))

label CloseForm1,OpenForm1
main_menu 100
sub_menu 110: parent 110,100: caption 110,"Form 1"
sub_menu 111: parent 111,110: caption 111,"Open": on_click 111,OpenForm1 : inactive 111
sub_menu 112: parent 112,110: caption 112,"Close": on_click 112,CloseForm1

command_target_is 1
label CloseForm2,OpenForm2
main_menu 200
sub_menu 210: parent 210,200: caption 210,"Form2"
sub_menu 211: parent 211,210: caption 211,"Open" : on_click 211,OpenForm2
sub_menu 212: parent 212,210: caption 212,"Close": on_click 212,CloseForm2 : inactive 212

command_target_is 2
r=dll_call1("MinimizeOff",handle(1))
r=dll_call1("MaximizeOff",handle(1))
r=dll_call1("CloseOff",handle(1))
END

CloseForm1:
Hide 1 : active 111 : inactive 112
return
OpenForm1:
show 1 : active 112 : inactive 111
return
CloseForm2:
Hide 2 : active 211 : inactive 212
return
OpenForm2:
Show 2 : active 212 : inactive 211
return

Sujet: Re: DLL: Form Jeu 20 Oct 2011 - 20:21

Hallo Nardo,

muss ich am Wochenende nochmal genau prüfen.
Danke Severin

Bonjour Nardo,

J'ai besoin d'examiner attentivement à nouveau le week-end.
Merci Séverin

Sujet: Re: DLL: Form Jeu 20 Oct 2011 - 20:32

Test mit Babylon
Test de Babylone

Écrire nardo, Super, il commence à intéressant. Je vais réunir 2 formes, et peut les utiliser PAS ATTEINTE 3 boutons.
Par exemple dans le programme. Il est aujourd'hui uniquement dans le développement.
Mais on ne peut les 2 formes déjà reconnaissent. Sinon, seuls les déchets dans le nouveau code.
L'idéal serait que tous les 3 butten disparaissent.
Mais je n'ai pas besoin forme normal pour un autre menu. mach je vous en prie, je suis à dll habituer.
Severin

Hello nardo, super, it begins to become interesting. I want to merge 2 forms, and can not use the 3 buttons.
For example in the program. Now it is only in the development.
But you can already see the 2 forms. Otherwise, only garbage in the other code.
The ideal situation would be if all 3 arches would disappear.
But i need Form normal for a further Menu.
Speaker please continue, i would then to DLL to get used to.
Severin

Sujet: Re: DLL: Form Jeu 20 Oct 2011 - 20:51

C'est là qu'on se rend compte qu'il manque Klaus ! Sad

You want this ?

DLL: Form Capture_02

Sujet: Re: DLL: Form Jeu 20 Oct 2011 - 22:08

Citation :: C'est là qu'on se rend compte qu'il manque Klaus !

Et son site n'est plus accessible...

Sujet: Re: DLL: Form Jeu 20 Oct 2011 - 22:17

Si, je viens de m'y connecter, mais son silence est quand même très inquiétant.

Sujet: Re: DLL: Form Jeu 20 Oct 2011 - 22:19

Oui, très inquiétant....
Quand à son site, avant hier on pouvait encore,
ce soir je n'y arrive plus....
Crying or Very sad

Sujet: Re: DLL: Form Jeu 20 Oct 2011 - 22:57

Letzter Versuch
Hallo Nardo,

super, es fängt an interessant zu werden.
Ich will 2 Formen zusammenführen, und kann die 3 Knöpfe nich gebrauchen.
Beispiel im Programm. Es ist jetzt nur in der Entwicklung. Aber man kann
die 2 Formen schon erkennen. Sonst ist nur Müll im weiteren Code.

Ideal wäre wenn alle 3 Butten verschwinden würden.
Aber ich brauche Form Normal für ein weiteres Menü.

Mach bitte weiter, ich würde mich dann an DLL gewöhnen.

Severin

La dernière tentative
Nardo,

Super, cela attrape à de devenir intéressant.
Je veux réunir 2 formes, et peux utiliser 3 boutons nich.
Exemple dans le programme. Maintenant, c'est seulement dans le développement.
Mais on peut déjà reconnaître 2 formes. Autrement, seulement l'ordure est par la suite le code.

Idéalement serait si toutes les 3 barbues disparaîtraient.
Mais j'ai besoin de la forme le normal pour un autre menu.

Continue, s'il vous plaît, alors je m'habituerais à des DLL.

Severin

Sujet: Re: DLL: Form Jeu 20 Oct 2011 - 23:10

Bizarre pour le site de Klaus, moi je m'y connecte tout à fait normalement:
http://klaus.panoramic.voila.net/Bienvenue.1.html

» FORM
» Une form ou un form ?
» Form auf Form
» Form Automatique
» BMP ou JPG sur une form