Turbo Pascal 5.0/5.5 Units und Utilities: Die optimale Toolbox für den Profi mit 180 Routinen

391 Pages·1989·10.502 MB·German

by  Anton Liebetrau (auth.)

Anton Liebetrau
Turbo Pascal 5.0/5.s Units und Utilities
Die optimale Toolbox fUr den
Profi mit 180 Routinen
,software
Vieweg DeskManager
Eine mentigesteuerte Benutzeroberflache flir die effektive
Festplattenorganisation mit Datensicherung
von Karl Scheurer
Vieweg GraphikManager: ARA
Ein kompaktes speicherresidentes Graphikprogramm ftir die
EGA-Graphikkarte
von Markus Weber
Thrbo Pascal 5.0/5.5 Units und Utilities
Die optimale Toolbox fUr den Profi
mit 180 Routinen
Vieweg WindowManager: Tools
Eine Entwicklungsumgebung in Turbo C ftir komplexe
Mentistrukturen und Fenstersysteme mit Maussteuerung
von Andreas Dripke (Hrsg.)
Vieweg DisplayManager
FUr die Programmierung leistungsfahiger und komfortabler
Benutzerschnittstellen
von Karl Scheurer
Anton Liebetrau
Turbo Pascal 5.0/5.5
Units und Utilities
Die optimale Toolbox fur den Profi mit 180 Routinen
Fried. Vieweg & Sohn Braunschweig / Wiesbaden
Die Software-Routinen, beschrieben in diesem Buch, dlirfen in eigenen Anwendungsprogrammer
verwendet werden. Der Programmierer darf eigene Programme, die diese Routinen enthalten, in aus
ftihrbarer und compilierter Form ohne Einschrankungen oder Verpflichtungen zu zusatzlichen Lizenz
geblihren weiterverkaufen; dasselbe gilt flir die Worterbuch-Datei SPELL.LEX, wenn diese in Program
men verwendet wird. Die Quellcodes der einzelnen Units oder nur Teile davon dlirfen weder weiter
gegeben noch verkauft werden.
Das in diesem Buch enthaltene Programm-Material ist mit keiner Verpflichtung oder Garantie irgend
einer Art verbunden. Der Autor und der Verlag libernehmen infolgedessen keine Verantwortung un<
werden keine daraus folgende oder sonstige Haftung libernehmen, die auf irgendeine Art aus de.
Benutzung dieses Programm-Materials oder Teilen davon entsteht.
Der Verlag Vieweg ist ein Unternehmen der Verlagsgruppe Bertelsmann.
Aile Rechte vorbehalten
© Friedr. Vieweg & Sohn Verlagsgesellschaft mbH, Braunschweig 1989
Softcover reprint of the hardcover I st edition 1989
Das Werk einschliej),lich aller seiner Teile ist urheberrechtlich geschlitzt. Jedl
Verwertung auj),erhalb der engen Grenzen des Urheberrechtsgesetzes ist ohnl
Zustimmung des Verlags unzuHissig und strafbar. Das gilt insbesondere fii
Vervielfaltigungen, Ubersetzungen, Mikroverfilmungen und die Einspeicherunl
und Verarbeitung in elektronischen Systemen.
Umschlaggestaltung: Markgraf, Wiesbaden
ISBN-13 :978-3-528-04716-0 e-ISBN-13 :978-3-322-83678-6
DOl: 10.1007/978-3-322-83678-6
v
Vorwort
Wenn ich an meinem Computer sitze und sich dieser wieder einmal mit
einer langweiligen Endlosschleife begnUgt, wUnsche ich mir eine
Programmiersprache, die mich etwas besser versteht:
"Lieber Computer, schreib mir bitte einen kleinen Editor, der sich sehr
einfach bedienen lal3t und aul3erdem Uber allen Schnick-Schnack verfUgt;
aul3erst interessant ware zum Beispiel ein integrierter Wecker, ein prakti
scher Terminkalender und ein kleines Malprogramm. Aber du kennst
mich ja schon seit langerer Zeit und weil3t genau, was ich unter Schnick
Schnack verstehe."
Der Compiler arbeitet etwas vor sich hin und fragt dann frech: "Und
wozu brauchst du eigentlich dieses Programm?"
Da es solche Compiler nie geben wird, sind heutzutage viele Programm
Bibliotheken im Umlauf, die einen Software-Entwickler hilfreich entla
sten und es ihm erlauben, die ganze Kraft in die wesentlichen Teile seines
Software-Poduktes zu stecken.
Dieses Buch eignet sich besonders fUr denjenigen Programmierer, der fUr
seine Software-Entwicklungen Turbo Pascal (ab Version 4.0) verwendet
und trotz der mehr als 300 Prozeduren und Funktionen an Grenzen stol3t.
Dies bedeutet, daB aIle Routinen dieses Buches unter Turbo Pascal 4.0,
Turbo Pascal 5.0 und Turbo Pascal 5.5 ablauffahig sind.
Die sieben in diesem Buch beschriebenen Units enthalten rund 180 neue
Routinen und erweitern Turbo Pascal betrachtlich. Besonders nennenswert
erscheint mir die Unit Spell; mit ihr wird es moglich, anhand eines Re
ferenz-Worterbuches Orthographie-Fehler in einem Text zu suchen. Sie
erkennt zusammengesetzte Hauptworter, unterscheidet zwischen Grol3-
und Kleinschreibung und ist aul3erdem unglaublich schnell. Eine 1i.hnliche
Unit ist bis zum heutigen Zeitpunkt nicht auf dem Software-Markt er
haltlich.
Dieses Buch ist in drei Teile gegliedert. Der erste Teil beschreibt die Wir
kungsweise der einzelnen Routinen und verdeutlicht einzelne Aspekte
durch kurze Beispiel-Programme. 1m zweiten Teil finden Sie die Quell
Codes der einzelnen Units; die zahlreichen Erl1i.uterungen mach en Sie mit
den wichtigsten GrundzUgen der verwendeten Algorithmen vertraut und
VI
teilen Ihnen das natige technische Fach-Wissen mit. 1m Anhang schlieB
lich finden Sie neben Tabellen und einer Ubersicht aller Routinen eine
Zusammenfassung, die die wesentlichen Punkte bei der Erstellung von
Units beschreibt.
Die einzelnen Routinen sind mit graBter Sorgfalt geschrieben und getestet
worden. Da sich aber Fehler nie ganz ausschlieBen lassen oder vielleicht
einzelne Routinen nicht Ihren Vorstellungen entsprechen, bin ich fUr
Hinweise und Anregungen jederzeit dank bar.
Danken mochte ich
000
... meinem Vater, der mir vor bald 10 Jahren die ersten Programmier
schritte beigebracht und trotz eigener Buch- und Software-Projekte die
Zeit gefunden hat, das Manuskript zu diesem Buch zu lesen und zu kom
mentieren .
... Martin Sauter, der sich meine Schwarmereien immer kritisch angehart
und bei der Gestaltung einiger der hier beschriebenen Routinen mitge
wirkt hat .
... Regina fUr die letzten drei schOnen Jahre .
... meiner Mutter, meinem Vater und meinen drei Schwestern fUr die un
beschwerte Jugend .
... dem Vieweg-Verlag fUr das entgegengebrachte Vertrauen.
Winterthur, Februar 1989 Anton Liebetrau
VII
Inhaltsverzeichnis
Vorwort ........................................................................................................... V
Dank ............................................................................................................... VI
Teil I . Verzeichnis der Routinen
Unit Mouse ...................................................................................................... 2
Unit Special ................................................................................................... 35
Unit Spell ....................................................................................................... 62
Unit Standard .................................................... : ........................................... 86
Unit Sys ......................................................................................................... 116
Unit Txt ........................................................................................................ 150
Unit Win ....................................................................................................... 177
TeillI . Quellcodes der Units
Unit Mouse ................................................................................................... 200
'Unit Special .................................................................................................. 214
Unit Spell ...................................................................................................... 268
Unit Standard ............................................................................................... 291
Unit Sys ......................................................................................................... 310
Unit Txt ........................................................................................................ 324
Unit Win ....................................................................................................... 341
Anhang
Das Schreiben von Units .............................................................................. 356
Ubersicht der Routinen ............................................................................... 362
Tastencodes ................................................................................................... 369
Graphikzeichen fur Tabellen ....................................................................... 371
IBM-Zeichensatz .......................................................................................... 372
Li teratur hin weise .......................................................................................... 3 7 4
Nachwort ....................................................................................................... 375
Sachwortverzeichnis ...................................................................................... 3 76
Teil I
Verzeichnis der Routinen
2
Die Unit Mouse
Zweck
Erlaubt die Verwendung einer Maus als Eingabegerat.
Bemerkung
Um eine Maus betreiben zu k6nnen, ben6tigen Sie neben der Hardware
auch einen Maustreiber (MOUSE.COM oder MOUSE.SYS), der die Funk
tionen zur Maussteuerung bereitstellt. Fur die Installation des Maustrei
bers stehen Ihnen zwei Wege offen:
MOUSE.COM wird wie ein gew6hnliches Programm gestartet und
kann bei Bedarf in die Datei A UTOEXEC.BA T auf
genom men werden (somit wird der Treiber bei jedem
Systemstart selbstandig geladen). Der Treiber bleibt
resident im Speicher.
MOUSE.SYS befindet sich in der Datei CONFIG.SYS und ladt den
Maustreiber bei jedem Systemstart (erweitern Sie also
die Datei CONFIG .SYS um die Zeile DEVICE=
MOUSE.SYS).
Die Unit Mouse erkennt automatisch, ob ein Treiber installiert ist. Falls
nicht, sind die meisten Routinen nicht ausfiihrbar (siehe auch Mouse
Ready), jedoch behindern sie auch nicht die Programmausfuhrung. Fol
gende Prozeduren und Funktionen stehen in der Unit Mouse zur Verfii
gung:
AnyButton Pruft, ob eine beliebige Maustaste gedruckt wird
Buttons Ermittelt die verfiigbaren Maustasten
ConvertOff Schaltet die Umrechnung (in Abhiingigkeit des aktu
ellen Bildschirm-Modus) fur die Maus-Position aus
ConvertOn Schaltet die Umrechnung (in Abhiingigkeit des ge
setzten Bildschirm-Modus) fur die Maus-Position ein
(entspricht der Standard-Einstellung)
DoubleClick Pruft, ob eine Maustaste in einer gewissen Zeitspanne
zwei Mal gedruckt wird
GetClickPos Ermittelt die Position, bei der eine Maustaste ge
druckt wurde
GetMotion Ermittelt die relative Mausbewegung in der Einheit
"Mickey"
GetMousePos Ermittelt die aktuelle Position des Mauszeigers
GetReleasePos Ermittelt die Position, bei der eine Maustaste losge
lassen wurde
Die Unit Mouse 3
InitMouse Setzt einige Maus-Parameter auf ibre Anfangswerte
zuriick
IsConvertOn Priift, ob die Maus-Koordinaten umgewandelt wer
den (in Abhiingigkeit des gesetzten Bildschirm-Mo
dus)
IsMouseOn Priift, ob der Mauszeiger sichtbar ist
LeftButton Priift, ob die linke Maustaste gedriickt wird
MiddleButton Priift, ob die mittlere Maustaste gedriickt wird
MouseActRange Priift, ob sich die aktuelle Maus-Position in einem
bestimmten rechteckigen Bereich befindet
MouseCondOff Schaltet den Mauscursor aus, sobald dieser in einen
gewissen Bildschirmausschnitt gefiihrt wird
MouseOff Schaltet den Mauscursor aus
MouseOn Schaltet den Mauscursor ein
MouseRange Priift, ob sich ein bestimmter Punkt in einem recht
eckigen Ausschnitt befindet
MouseReady Priift, ob eine Maus betrieben werden kann
RigbtButton Ermittelt, ob die rechte Maustaste gedriickt wird
SetGrapbCursor Definiert einen neuen Cursor fiir den Graphik-Mo
dus
SetMousePos Setzt den Mauszeiger an einen bestimmten Punkt
SetMouseRange Definiert einen Bereich, in dem sich der Mauszeiger
bewegen darf
SetMouseStyle Wahlt einen vordefinierten Graphik-Cursor
SetRatio Legt das AusmaB einer Mausbewegung fest
SetTextCursor Definiert einen neuen Text-Cursor
SetTbresbold Legt fest, wann die Geschwindigkeit des Mauszeigers
verdoppelt werden soll
SingleClick Priift, ob eine Maustaste wahrend einer gewissen
Zeitspanne genau einmal gedriickt wird
Die Prozedur SetGraphCursor kann folgenden vordefinierten Datentyp
verwenden:
TYPE
CursorType=ARRAY [0 •• 31] OF WORD;
Folgende Konstanten k6nnen zusammen mit den Prozeduren DoubleClick,
GetClickPos, GetReleasePos und SingleClick verwendet werden:
LeftBut =0; Linke Maustaste
RigbtBut =1; Rechte Maustaste
MiddleBut =2; Mittlere Maustaste