AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

DOS Eingabemasken

Ein Thema von Luckie · begonnen am 18. Sep 2008 · letzter Beitrag vom 19. Sep 2008
 
alzaimar
(Moderator)

Registriert seit: 6. Mai 2005
Ort: Berlin
4.956 Beiträge
 
Delphi 2007 Enterprise
 
#13

Re: DOS Eingabemasken

  Alt 19. Sep 2008, 07:17
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:
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;
Jeder Dialog hat auch seine Eventhandler, ähnlich einem WndProc. Leider finde ich keinen Code mehr dafür.

Der Screen wird über ein Insanz der 'Desktop'-Klasse verwaltet. Um einen Dialog anzuzeigen, ruft man auf:
Desktop^.ExecView (MyDialog); So, mehr ist aus meinem BB (Brainbackup) nicht mehr rauszuholen. Hoffe, das hilft ein wenig.
"Wenn ist das Nunstruck git und Slotermeyer? Ja! Beiherhund das Oder die Flipperwaldt gersput!"
(Monty Python "Joke Warefare")
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:00 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-2025 by Thomas Breitkreuz