Erstellen von Tablet PC-Anwendungen mit VFP - dFPUG-Portal

Erstellen von Tablet PC-Anwendungen mit Visual
FoxPro
Mike Stewart, Visual FoxPro Team, Microsoft Corporation
Erfahren Sie, wie Sie in Visual FoxPro-Anwendungen das Microsoft® Tablet PC Platform
SDK einsetzen, um mit „digitaler Tinte“ zu arbeiten, handschriftliche Eingaben zu
akzeptieren, die durch Tablet PC-Steuerelemente ausgelösten Ereignisse zu behandeln
und die „Tinte“ in Dateien dauerhaft zu speichern.
Einführung
Die Steuerelemente und APIs, die erforderlich
sind, um viele der Ink-Features der
Microsoft Windows® Tablet PC Edition
nutzen zu können, finden Sie im Tablet PC
Platform SDK. Das Tablet PC Platform
SDK können Sie von http://www.microsoft.com/windowsxp/tabletpc/developers/
default.asp herunterladen. Es stellt die Ink-
Objekte auf zwei Arten bereit: über die
Component Object Model (COM) Automation,
sowie über die Common Language
Runtime (CLR) des Microsoft .NET Frameworks
über managed APIs. Da Visual
FoxPro nicht in die CLR kompiliert, konzentriert
sich dieser Artikel auf die COM
Automation APIs.
Der Tablet PC betrachtet Ink anders als frühere
Geräte, die ebenfalls Ink als Funktionalität
umfassten. Bei früheren Geräten wie
dem Apple Newton oder Microsoft Windows
CE/Pocket PC-Geräten lag der
Schwerpunkt auf der Erkennung von Ink als
Handschrift. Beim Tablet PC hat sich diese
Philosophie geändert, so dass Ink jetzt als
Dateneingabe betrachtet wird, die Umwandlung
in Text wird als zweiter Schwerpunkt
betrachtet. Beispielsweise können Sie Notizen
im Windows Journal, da im Tablet PC
und Microsofts OneNote enthalten ist, erfassen,
ohne dass es erforderlich ist, diese
Notizen in Text umzuwandeln. Das bedeutet,
dass die Erkennungsfähigkeiten des
Tablet PCs sehr gut sind, und dass für den
Fall, dass Sie Ink in Text umwandeln müs-
sen, eine sehr hohe Erkennungsquote erreicht
wird.
Die für VFP-Entwickler interessanten Objekte
sind InkEdit, InkPicture und InkOverlay.
Das Steuerelement InkEdit entspricht
der Editbox von VFP. Der Unterschied besteht
darin, dass InkEdit digitale Tinte akzeptiert
und erkennt. Das Steuerelement
InkPicture ist genau das, was Sie erwarten: in
diesem Steuerelement kann ein Bild platziert
werden und der Anwender kann mit der digitalen
Tinte auf diesem Bild malen. Das
Steuerelement liegt unsichtbar über einem
Fenster und kann Ink annehmen und verarbeiten.
Anforderungen an das System
• Microsoft Tablet PC Platform SDK
• Microsoft Windows XP. Sie können
das Tablet PC Platform SDK auch auf
Microsoft Windows XP einsetzen, aber
die Microsoft XP Tablet PC Edition ist
dringend empfohlen.
• Microsoft Visual FoxPro 8.0 oder höher.
Es ist auch mit früheren Versionen
von VFP möglich, nahezu alle Funktionalitäten
des Tablet PC Platform SDK
zu nutzen. Allerdings sind in VFP 8.0
verschiedene Bugs, die die Zusammenarbeit
mit der Microsoft XP Tablet PC
Edition betreffen, beseitigt worden.
• Digitizer. Verschiedene Hersteller bieten
Digitizer für die USB-Schnittstelle
06-28 Tablet PC-Anwendungen mit VFP FoxX-Professional 16 Seite 1

an, beispielsweise Wacom (http://
www.wacom.com) oder es können Anwendungen
entwickelt werden, die den
eingebauten Digitizer eines Tablet PCx
einsetzen.
A) Nur auf einem Tablet PC?
Das Tablet PC Platform SDK erfordert lediglich
Microsoft Windows XP. Allerdings
wird die Funktionalität der Steuerelemente
durch den Einsatz von Windows XP Tablet
PC Edition signifikant erweitert. Ist das SDL
nicht auf einem Tablet PC installiert, ist keine
Erkennungsengine vorhanden und einige
Steuerelemente akzeptieren kein Ink. Es ist
also ratsam, wenn Sie zumindest zum Testen
und Debuggen Zugriff auf einen Tablet PC
haben.
Im Idealfall können Sie Ihre Anwendungen
auf einem Tablet PC codieren und debuggen.
Aber wer will schon Code mit einem
Stift schreiben? Auch die Tastaturen, über
die einige Tablet PCs verfügen, haben nicht
#define SM_TABLETPC 86
Declare Integer GetSystemMetrics in Win32API Integer
retVal = GetSystemMetrics(SM_TABLETPC)
If retVal 0
Wait Window "Running on a Tablet PC"
Else
Wait Window "*Not* running on a Tablet PC"
Endif
Ein Rückgabewert ungleich 0 zeigt allerdings
noch nicht an, ob alle Komponenten des
Tablet PC installiert sind und funktionieren.
Um festzustellen, ob eine Komponente in-
Ein Beispiel:
Try
oInkEdit = Newobject("InkEd.InkEdit.2")
Catch To oException
Wait Window "InkEdit control is not installed!"
Endtry
Ein Tablet PC kann über zwei Anzeigemodi
verfügen: Quer- und Hochformat. Meist
wird das Querformat genutzt, wenn der
Tablet PC angedockt ist oder als Standard-
die volle Größe. Es gibt verschiedene Möglichkeiten,
um dieses Problem zu umgehen.
Eine Möglichkeit besteht darin, eine USB-
Tastatur und -Maus einzusetzen (oder Sie
nutzen eine Dockingstation, falls für Ihren
Tablet PC eine solche verfügbar ist). Eine
andere Möglichkeit besteht darin, das Feature
Remote Desktop von Windows XP zu
verwenden, um mit einem Desktop-Rechner
auf den Tablet PC zuzugreifen.
Entscheidungen zum Design
Eine häufig gestellte Frage lautet: „Woher
weiß ich, ob meine Anwendung auf einem
Tablet PC ausgeführt wird?“ Die Antwort
erhalten Sie durch einen Aufruf der
Win32®-Funktion GetSystemMetrics mit
dem Parameter SM_TABLETPC(86). Ein
Rückgabewert ungleich 0 zeigt an, dass
Windows XP Tablet PC Edition ausgeführt
wird; der Rückgabewert 0 zeigt an, dass dies
nicht der Fall ist.
stalliert ist, versuchen Sie, eine Instanz der
Komponente zu erstellen und prüfen Sie
dabei auf Fehler während der Erstellung.
Laptop eingesetzt wird; im Hochformat wird
er genutzt, wenn er als Tablet eingesetzt
wird.
06-28 Tablet PC-Anwendungen mit VFP FoxX-Professional 16 Seite 2

Abbildung 1. Das Querformat.
Abbildung 2. Das Hochformat.
Es kann vorkommen, dass Ihre Anwendung
feststellen muss, ob der Tablet PC des Anwenders
im Hoch- oder im Querformat ausgeführt
wird, damit die Größe der Bildschirmelemente
entsprechend angepasst
wird. Durch den Einsatz der Funktion
SYSMETRIC() von VFP mit den Parametern
1 oder 2 können Sie die Breite und Höhe
der Anzeige feststellen. Ist die Breite geringer
als die Höhe, befindet sich der Tablet
PC im Hochformat.
Sie müssen beim Design Ihrer Anwendung
noch weitere Entscheidungen treffen. Lesen
Sie in der Hilfedatei des Tablet PC SDKs
den Eintrag „Planning Your Application“.
Tinte sammeln
Die einfachste Möglichkeit, Eingaben per
Stift entgegenzunehmen, ist der Einsatz des
Objekts InkCollector, das durch das Tablet
PC Platform SDK zur Verfügung gestellt
wird. Es ist extrem einfach einzusetzen und
erfordert lediglich drei einfache Schritte zum
Einrichten und Aktivieren. InkCollector
wird einem Formular über das Windows-
Handle (hWnd) des Formulars hinzugefügt
und ermöglicht dem gesamten Formular die
Eingabe per Stift.
B) Ink Collection auf einem
Formular ermöglichen
1. Erstellen Sie ein neues Objekt mit dem
InkCollector.
2. Fügen Sie dem Windows-Handle des
Formulars den InkCollector hinzu.
3. Aktivieren sie den InkCollector, indem
Sie dessen Eigenschaft Enabled auf .T.
setzen.
Führen Sie den folgenden Code aus und
starten Sie die Eingabe per Stift.
06-28 Tablet PC-Anwendungen mit VFP FoxX-Professional 16 Seite 3

Local oInkCollector as MSINKAUT.inkcollector.1
Local oForm1 as Form
oForm1 = NewObject("form")
*-- Create a new InkCollector, and set the
*-- window handle to be the form on which
*-- we want to work with the InkCollector
oInkCollector = NewObject("msinkaut.inkcollector.1")
oInkCollector.hWnd = oForm1.HWnd
*-- That's it, we're done setting it up. Enable
*-- the InkCollector so we can start using it.
oInkCollector.Enabled = .t.
*-- InkCollector is turned on, show the form
oForm1.Show
Read Events
Beachten Sie, dass dies der Tablet PC-spezifische Code ist:
oInkCollector = NewObject("msinkaut.inkcollector.1")
oInkCollector.hWnd = oForm1.HWnd
Wenn Sie das Windows Journal eingesetzt
haben, werden Sie eventuell erwarten, dass
Sie in einer Tablet PC-Anwendung die Möglichkeit
haben, Ink zu markieren, zu ändern
und zu löschen. Wenn Sie das Objekt Ink-
Collector einsetzen, können Sie auf Ihrem
Formular zeichnen, das Geschriebene akzeptieren
und die Ink anschließend löschen. Allerdings
können Sie die Methode InkCollector
in Ihrer VFP-Anwendung nicht einsetzen,
um Ink zu markieren, zu ändern oder
zu löschen. Dafür setzen Sie die Klasse InkOverlay
ein. InkOverlay ist ein erweitertes
InkCollector, so dass Sie über die vollständige
Funktionalität verfügen.
*-------------------------------------
*-- Program: InkOl1.prg
*--
*-- Author: Mike Stewart
*-- Comments: Simple InkOverlay demo using an
*-- InkOverlay class with a recognizer
*-- button.
*-------------------------------------
PUBLIC oform1
oform1=NEWOBJECT("InkOverlayDemo1")
oform1.Show
RETURN
DEFINE CLASS InkOverlayDemo1 AS form
Top = 0
Left = 0
Height = 416
Width = 659
DoCreate = .T.
Caption = "Form1"
Name = "Form1"
ADD OBJECT inkRecognize AS Commandbutton WITH ;
C) Die Klasse InkOverlay
Der Einsatz der Klasse InkOverlay ist so
einfach wie der Einsatz der Klasse InkCollector.
Aufgrund der zusätzlichen Funktionalitäten
ist aber bei dieser Klasse einiges
mehr zu beachten. Beginnen wir mit einem
einfachen Formular, das InkOverlay enthält
und das die Möglichkeit hinzufügt, festzustellen,
was der Anwender schreibt. Beachten
Sie, dass Sie, um die Schaltfläche Recognize
zu betätigen, Alt-R betätigen müssen.
Gleich erfahren Sie, weshalb dies so ist.
06-28 Tablet PC-Anwendungen mit VFP FoxX-Professional 16 Seite 4

Top = 368, ;
Left = 20, ;
Caption = "\

Mit nur 38 Zeilen Code verfügen wir über
ein funktionierendes Formular, das Ink akzeptiert
und das die Fähigkeit besitzt, die
Eingabe zu erkennen und sie in ein Steuerelement
von VFP zu schreiben, das an ein
Feld gebunden ist und dessen Wert in eine
Tabelle geschrieben werden kann.
Wenn Sie den oben stehenden Code ausführen,
werden Sie festgestellt haben, dass es
schwierig war, mit dem Stift oder der Maus
auf die Schaltfläche Recognize zu klicken.
Dies liegt daran, dass das gesamte Formular
umfasst wird, wenn Sie ihm das Objekt InkOverlay
hinzufügen. Dieses Verhalten entspricht
dem der Klasse InkCollector. Offen-
Procedure SetRectangle
LOCAL oInkRectangle as MSINKAUT.inkrectangle
oInkrectangle = NEWOBJECT("msinkaut.inkrectangle")
*-- Set the bottom of the rectangle
*-- to be the top of the editbox.
*-- Doing this means the InkOverlay
*-- will not overlap our controls.
oInkRectangle.Bottom = thisform.edtRecognized.Top
*-- The rest of the dimensions of the
*-- rectangle will match those of the
*-- form.
oinkrectangle.Top = thisform.Top
oinkrectangle.Left = thisform.Left
oinkrectangle.Right = thisform.Width - thisform.Left
*-- Call the method by passing our InkRectangle
*-- and we're done.
ThisForm.InkOverlay.SetWindowInputRectangle(oInkRectangle)
sichtlich klappt dies bei den meisten Anwendungen
nicht, da der Großteil der Formulare
Textboxen und andere Steuerelemente
enthält, in denen die Eingaben der Benutzer
aufgenommen werden.
Für dieses Problem gibt es eine einfache Lösung.
Sie besteht darin, für InkOverlay ein
Rechteck zu definieren. Das Tablet PC Platform
SDK stellt für genau diesen Zweck das
Objekt InkRectangle und die Methode InkOverlay.SetWindowInputRectangle
bereit.
Die Änderungen am oben stehenden Code
sind minimal. Zunächst einmal erstellen Sie
mit dem folgenden Code die Methode
SetRectangle.
Anschließend rufen Sie diese Methode aus der Methode Init des Formulars heraus auf:
.AttachMode = 1 && IOAM_InFront
this.setrectangle
Führen Sie den Code aus und Sie werden
feststellen, dass der Eingabebereich für den
Stift jetzt auf den Bereich der Editbox beschränkt
ist.
Eine andere Lösung besteht darin, die Eigenschaft
InkOverlay.AttachMode auf 0
(IOAM_Behind) zu setzen. Damit wird InkOverlay
hinter den Steuerelementen auf
dem Formular platziert, so dass Sie die Steuerelemente
wie normal nutzen können. Ein
Problem dieser Lösung besteht darin, dass
der Anwender zwischen den Steuerelementen
schreiben kann, aber nicht auf ihnen.
Eine mit der Methode SetInputWindowTectangle
gut definierte Inking-Oberfläche
könnte für Ihre Anwender die bessere Lösung
sein.
Auswählen und Löschen von Ink
Der folgende Code zeigt, wie eine Combobox
für die Auswahl zwischen drei Cursorn
hinzugefügt wird:
• Ink Cursor – für Zeichnen und
Schreiben.
• Selection Lasso – eingesetzt für die
Markierung von Ink.
• Eraser – eingesetzt für das Löschen
von Ink.
06-28 Tablet PC-Anwendungen mit VFP FoxX-Professional 16 Seite 6

Zunächst fügen Sie der Klassendefinition eine Combobox hinzu:
ADD OBJECT inkPenType AS combobox WITH ;
RowSourceType = 1, ;
RowSource = "Ink,Select,Delete", ;
Height = 24, ;
Left = 36, ;
Top = 428, ;
Width = 168, ;
Name = "inkPenType"
Jetzt fügen Sie dem Ereignis InteractiveChange der Combobox den folgenden Code hinzu, um
die Eigenschaft EditingMode auf der Basis der Auswahl des Anwenders einzustellen:
PROCEDURE inkPenType.InteractiveChange
DO Case
CASE this.Value = "Ink"
thisform.inkoverlay.EditingMode = 0 && IOEM_Ink
CASE this.Value = "Select"
thisform.inkoverlay.EditingMode = 2 && IOEM_Select
CASE this.Value = "Delete"
thisform.inkoverlay.EditingMode = 1 && IOEM_Delete
*-- Lastly, set the EraserMode based on
*-- whether entire strokes should be erased
*-- when the pen touches the screen,
*-- or if pixels should be erased:
*-- Set EraserMode to 0 to erase strokes,
*-- or 1 to erase pixels
*-- thisform.inkoverlay.EraserMode = 0
thisform.Inkoverlay.EraserMode = 1
ENDCASE
ENDPROC
Durch eine Auswahl der entsprechenden
Option in der Combobox kann der Anwender
jetzt das Verhalten des Stifts ändern.
Speichern und Laden von Ink
Vermutlich will der Anwender das von ihm
Geschriebene speichern und zu einem späteren
Zeitpunkt neu laden.
ADD OBJECT cmdSave AS commandbutton WITH ;
Top = 360, ;
Left = 357, ;
Height = 27, ;
Width = 84, ;
Caption = "\

Das Ink-Objekt des InkOverlay nutzt seine
Methode Save, um ein Byte-Array zurückzugeben,
das das Ink auf dem InkOverlay repräsentiert.
Mit Hilfe von FoxPros Funktion
STRTOFILE() kann dieses Byte-Array (das
PROCEDURE cmdLoad.Click
lsInk = CREATEBINARY(FILETOSTR(GETFILE("isf")))
thisform.inkoverlay.Enabled = 0
thisform.inkoverlay.ink.Load(lsInk)
thisform.inkoverlay.Enabled = 1
FoxPro als String behandelt) anschließend
auf der Festplatte gespeichert werden.
Um das gespeicherte Ink-Objekt über die
Schaltfläche Load neu zu laden, nutzen Sie
die Methode Ink.Load:
*--Tell control to redraw, or changes will not be made visible.
*-- Use the InkRectangle object we
*-- created during form Init.
ThisForm.inkoverlay.Draw(ThisForm.InkRectangle)
ENDPROC
Beachten Sie den Einsatz der Funktion
CREATEBINARY(), wenn die Ink-Datei in
eine FoxPro-Variable eingelesen wird. Dies
ist erforderlich, um sie in ein Format zu
bringen, die das Objekt InkOverlay akzeptiert.
Beachten Sie auch, dass das InkOverlay
zunächst deaktiviert werden muss, bevor das
Ink geladen wird. Andernfalls würde ein
Fehler auftreten.
Versuchen Sie folgendes: Speichern Sie etwas
Ink in einer Datei, beenden Sie das
Formular, führen es erneut aus und laden Sie
das von Ihnen erstellte Ink. Jetzt klicken Sie
auf die Schaltfläche Recognize. Das InkOverlay
erkennt das Ink! Dies liegt daran, dass
das InkOverlay nicht nur die Position der
Pixel speichert, so dass es später erneut angezeigt
werden kann, sondern es werden
auch die Metadaten gespeichert, die für die
Erkennung erforderlich sind.
Was ist in diesen Metadaten enthalten? Die
Metadaten der Datei enthalten Informationen
wie das Datum und den Zeitstempel
sowie auch eine eindeutige Identifizierung
für jeden Stich.
Das Steuerelement InkEdit
Abbildung 4. Hinzufügen eines Microsoft InkEdit-Steuerelements auf einem Formular.
Das Steuerelement InkEdit ist ein erweitertes
RichText-Steuerelement. Es wurde entworfen,
um eine einfache Möglichkeit zu
schaffen, Ink zu akzeptieren, anzuzeigen und
zu erkennen. Um ein Steuerelement InkEdit
auf einem VFP-Formular zu implementieren,
ziehen Sie ein ActiveX-Steuerelement
von der Steuerelemente-Toolbar des Formulars.
Wenn Sie danach gefragt werden, markieren
Sie das InkEdit-Steuerelement.
06-28 Tablet PC-Anwendungen mit VFP FoxX-Professional 16 Seite 8

Wenn Sie das Formular ausführen, akzeptiert
das Steuerelement InkEdit das Ink und
erkennt es nach der vorgegebenen Zeit von
200 Millisekunden. Sie können die Zeit bis
zur Erkennung über die Eigenschaft RecognitionTimeout
des Steuerelements InkEdit
ändern. InkEdit verfügt über in der Eigenschaft
Text über den Vorgabewert „Olecontrol1“,
was Sie aber später auf einfache
Weise ändern können.
Abbildung 5. Vor der Erkennung.
Abbildung 6. Nach der Erkennung.
PUBLIC ofrminkpicture
ofrminkpicture=NEWOBJECT("frminkpicture")
ofrminkpicture.Show
RETURN
DEFINE CLASS frminkpicture AS form
Top = 0
Left = 0
Height = 460
Width = 469
DoCreate = .T.
Caption = "InkPicture Form"
AllowOutput = .F.
Name = "frmInkPicture"
ADD OBJECT olecontrol1 AS olecontrol WITH ;
Top = 12, ;
Left = 7, ;
Height = 444, ;
Width = 360, ;
OleClass = "msinkaut.inkpicture.1"
OleLCID = "1033"
Da das Steuerelement InkEdit auf dem
Steuerelement RichText basiert, können die
Anwender Eingaben im Steuerelement InkEdit
vornehmen, genau wie sie es von der
Standard-Textbox oder -Editbox gewohnt
sind. Durch den Einsatz des Steuerelements
InkEdit können Sie Anwendungen erstellen,
die dem Anwender die Option eröffnen, Daten
wahlweise mit der Tastatur oder mit dem
Stift einzugeben.
Das Steuerelement InkPicture
Das Steuerelement InkPicture kombiniert
die meisten der Attribute des Steuerelements
InkOverlay mit der Fähigkeit, Ink über eine
Grafikdatei zu legen. Der folgende Code
demonstriert, wie ein Formular mit einem
InkPicture-Steuerelement erstellt wird und
gibt dem Anwender die Möglichkeit, die
Grafik auszuwählen, die geladen werden soll.
Das Steuerelement InkPicture kann auch
genau wie ein InkEdit-Steuerelement auf ein
Formular gezogen werden. In Abbildung 4
ist es das Steuerelement direkt unter dem
InkEdit
06-28 Tablet PC-Anwendungen mit VFP FoxX-Professional 16 Seite 9
.

Name = "Olecontrol1"
ADD OBJECT cmdload AS commandbutton WITH ;
Top = 24, ;
Left = 374, ;
Height = 27, ;
Width = 84, ;
Caption = "\

PROCEDURE cmdcolor.Click
thisform.olecontrol1.DefaultDrawingAttributes.Color =;
GetColor()
ENDPROC
Die Collection DefaultDrawingAttributes
bietet eine Vielzahl an Möglichkeiten, die
Art zu ändern, in der das Ink gezeichnet
wird. In diesem Beispiel ist Color das einzige
Element der Collection und der Code ruft
einfach FoxPros Funktion GETCOLOR()
auf, um die Farbwahl des Anwenders entgegenzunehmen.
Wie schon das Steuerelement InkOverlay
kann auch das Steuerelement InkPicture Ink
erkennen, speichern und laden. Der Code
für die Erledigung dieser Aufgabe mit dem
Steuerelement InkOverlay führt direkt über
das Steuerelement InkPicture.
Zusammenfassung
Dies sind lediglich einige der Dinge, die Sie
mit dem Tablet PC SDK und Visual FoxPro
auf dem Tablet PC erledigen können. Der
Artikel hat die Aufgabe, Sie auf die Möglichkeiten
aufmerksam zu machen, die Ihnen
beim Schreiben von Anwendungen für den
Tablet PC zur Verfügung stehen. Eine vollständige
Liste der Eigenschaften, Ereignisse
und Methoden der hier behandelten Steuerelemente
finden Sie in der Hilfedatei des
Tablet PC SDK.
06-28 Tablet PC-Anwendungen mit VFP FoxX-Professional 16 Seite 11