![]() |
DOS Eingabemasken
Hallo,
ihr (also die Ü25'er) kennt doch bestimmt noch diese DOS Eingabemasken, in denen man auch noch in den Felde vor und zurück navigieren konnte. Gibt es da für das BDS2006 noch irgendwelche Units mit denen man so was noch realisisren kann? Hübsch wäre es auch, wenn man noch entsprechende Menüs hinbekommen könnte, wie zum Beipsiel hier: ![]() ![]() ![]() |
Re: DOS Eingabemasken
Moin, Moin Luckie.
Du meinst jetzt nicht so etwas wie die Unit "crt32" von ZieglerSoft in Dänemark, oder? PS1: Da gab es früher von Chip(?) mal so eine tolle Heftreihe (Name?), da war auch so etwas drin. PS2: Bei Turbo Pascal 7.0 (?) war mal Turbo Vision dabei - das schaute genau so aus! |
Re: DOS Eingabemasken
Hi!
Ich kenne das nur noch von Turbo Pascal 7 oder Turbo C unter DOS. Da hatte ich mal so eine Unit, muss ich mal suchen, ob die aber mit BDS2006 funktioniert... keine Ahnung. |
Re: DOS Eingabemasken
Hallo,
um den Cursor und die Farben zu setzen, habe ich selbst was. Ich meinte eher etwas, womit man eben relative einfach solche Eingabemasken und Menüs erstellen kann und ih bräuchte ja auch irgendewie eine Schleife, um die Tastatureingaben abfange und auswerten zu können. Mit der crt32 könnte man sich sowas wahrscheinlich auch selber basteln. Allerdings hätte ich noch keinen Plan,w ei man so etwas realisiesren könnte. Hinzukommt, dass die Eingabefelder auch Ids haben müssten, um deren Wert dann auch auswerten zu können. |
Re: DOS Eingabemasken
[OT]
Hallo Marc, Turbo Pascal 7 kam (glaube ich) 1992 auf den Markt. Hast du mit 9 Jahren schon programmiert? Alle Achtung! [OT] @Luckie : Ja, ich denke Turbo Vision ist das gesuchte. Zitat:
|
Re: DOS Eingabemasken
Vielleicht akzeptiert Delphi ja eine
![]() |
Re: DOS Eingabemasken
Luckie, möchtest du dir die TurboVisions-Bibliotheken mal anschauen?
Ich hab' das alles noch auf der Platte... |
Re: DOS Eingabemasken
[OT]
@taaktaak: Meine ersten PC hatte ich mit 8 Jahren bekommen. Ein 80286 mit ganzen 16MHz im Turbo-Modus. Alle Kumpels hatten Amiga, C64 usw. nur ich hatte den PC... Spiele gabs aber kaum, da kam ich dann schnell zum Programmieren. Da mein Onkel Programmierer ist, hatte ich gute Unterstützung. Angefangen hab' ich damals mit PowerBasic, dann kam aber schnell Turbo Pascal 5.5, dann 7.0. Mittlerweile bin ich beruflich bei Delphi gelandet. Naja, so war das halt... [/OT] |
Re: DOS Eingabemasken
:thumb:
|
Re: DOS Eingabemasken
Zitat:
|
Re: DOS Eingabemasken
der erste Screen ist (fast sicher) Object Professional von TurboPower. Nr.2 und 3 sind Turbo-Vision bzw. die damalige BP-Pascal IDE. OP hat ein ID-System für die Menüpunkte.
|
Re: DOS Eingabemasken
Zitat:
Ist ja glaube ich inzwichen frei ![]() |
Re: DOS Eingabemasken
Turbovision ist das -glaube ich- doch nicht. Ich hab früher sehr viel damit gemacht, und die Bilder 2 und 3 haben nur einen 90%igen Wiedererkennungseffekt. Bild 1 gar nicht. Ich glaube nicht, das die Units unter BDS kompilieren, soweit ich weiss wurde sehr viel mit Assembler rumhantiert und direkt in den Bildschirmspeicher geschrieben. Ich meine, es vor Jahren mal versucht zu haben.
Darf man fragen, was Du anstellen willst? Du könntest doch mit TP und TV selbst solche Geschichten programmieren... Übrigens ist es mit den Eingabefeldern sehr einfach in TV gelöst: Jeder Dialog füllt ein Record aus. Jedes Feld des Records entspricht einem Eingabefeld. Jedes Eingabefeld definiert die Länge der von ihm beschriebenen Daten und ist dafür zuständig diese auch im korrekten Format (String, Real, Integer, Byte etc.) zu liefern bzw. abzuholen. Eine Methode des Dialogs kopiert den zu befüllenden Record in die einzelnen Eingabefelder bzw. deren selbstverwalteten Datenpuffer. Eine andere Methode ruft nacheinander die Schreibmethode der Eingabefelder auf und übergibt jeweils einen Zeiger. anschließend wird der Zeiger um den vom Eingabefeld definierten Offset erhöht.
Delphi-Quellcode:
Jeder Dialog hat auch seine Eventhandler, ähnlich einem WndProc. Leider finde ich keinen Code mehr dafür.
Procedure TDialog.SetData (Var aRecord);
Begin ForEach Control in Controls Do Begin Control.SetData (aRecord); Inc (aRecord, Control.Buffersize); End End; Procedure TDialog.SetData (Var aRecord); Begin ForEach Control in Controls Do Begin Control.GetData (aRecord); Inc (aRecord, Control.Buffersize); End End; Der Screen wird über ein Insanz der 'Desktop'-Klasse verwaltet. Um einen Dialog anzuzeigen, ruft man auf:
Delphi-Quellcode:
So, mehr ist aus meinem BB (Brainbackup) nicht mehr rauszuholen. Hoffe, das hilft ein wenig.
Desktop^.ExecView (MyDialog);
|
Re: DOS Eingabemasken
Zitat:
|
Re: DOS Eingabemasken
Irgendwie komme ich aus dem Staunen nicht heraus, dass sowas nochmal wieder gefragt ist :mrgreen:
Luckie, was möchtest Du damit machen: Einen kleinen Bildschirm bedienen oder die alte Dos Tastatursteuerung emulieren. Viele von den Menues könnte man ja per ListView nachbauen, wie beim TotalCommander. PS: Adressen braucht mnan doch immer wieder... Grüße // Martin |
Re: DOS Eingabemasken
Also, ich hab auf meiner platte noch TOT aka. Technojocks Object Toolkit, ein paket mit dem man schöne (nach damaligen gesichtspunkten :-D ) Eingabemasken zimmern konnte. Hab's halt weil ich noch ein UraltKassensystem von 1989 betreue. Bei Interesse einfach melden...
|
Re: DOS Eingabemasken
Nur damit ich Dich richtig verstehe!
Du willst in einem Win32 Form einen DOS Bildschirm simulieren? Wenn JA, da habe ich eine CRT Unit die das macht. Inkl. Font usw... Läuft schon ab Delphi 1.0... Müsste "nurmal" :gruebel: die alten Backups suchen... Grüsse Frank :coder: |
Re: DOS Eingabemasken
Nein, es sollte natürlcih ein Konsolenprogramm werden.
|
Re: DOS Eingabemasken
Zitat:
CRT Unit.... |
Re: DOS Eingabemasken
Na er möchte ein Menü unter DOS in welchem er mit Tab oder was auch immer navigieren kann mit Delphi in einem Konsolenprogramm machen
|
Re: DOS Eingabemasken
Ich hab grad folgende Seiten gefunden wo bissl was dabei ist, einfach mal durchgucken:
![]() ![]() ![]() Den letzten find ich am besten :D Der reste iss aber au net schlecht :gruebel: nur der mittlere hinkt bissl hinterher :stupid: |
Alle Zeitangaben in WEZ +1. Es ist jetzt 22:48 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz