AGB  ·  Datenschutz  ·  Impressum  







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

Stift Eingabe zum Schreiben auf Tablet

Ein Thema von oakley · begonnen am 22. Mär 2017 · letzter Beitrag vom 17. Feb 2018
Antwort Antwort
Der schöne Günther

Registriert seit: 6. Mär 2013
6.216 Beiträge
 
Delphi 10 Seattle Enterprise
 
#1

AW: Stift Eingabe zum Schreiben auf Tablet

  Alt 27. Mär 2017, 18:50
Mein Gott. Holger ist der Mann!
Angehängte Grafiken
Dateityp: png Skizze2.png (40,5 KB, 83x aufgerufen)
  Mit Zitat antworten Zitat
HolgerX

Registriert seit: 10. Apr 2006
Ort: Leverkusen
989 Beiträge
 
Delphi 6 Professional
 
#2

AW: Stift Eingabe zum Schreiben auf Tablet

  Alt 28. Mär 2017, 04:13
Hmm.

Es gibt sogar nen Demo bei Embarcadero:

http://cc.embarcadero.com/item/22684

Leider ist die Seite des Programmierers schon seit 2009 down, da sollte es noch weitere Infos gegeben haben.
  Mit Zitat antworten Zitat
HolgerX

Registriert seit: 10. Apr 2006
Ort: Leverkusen
989 Beiträge
 
Delphi 6 Professional
 
#3

AW: Stift Eingabe zum Schreiben auf Tablet

  Alt 29. Mär 2017, 08:56
Hmm..

Hab da mal ein bischen weiter gespielt...

Und gleich auch noch die Verwendung von anderen Recogniser eingebaut.
Angehängte Dateien
Dateityp: zip Test_InkRecognizer.zip (1,66 MB, 36x aufgerufen)
  Mit Zitat antworten Zitat
Der schöne Günther

Registriert seit: 6. Mär 2013
6.216 Beiträge
 
Delphi 10 Seattle Enterprise
 
#4

AW: Stift Eingabe zum Schreiben auf Tablet

  Alt 29. Mär 2017, 09:25
Wirklich großartig

Einzig was mir fehlen würde ist ein Radierer. Ich versuche demnächst mal ob ich das vielleicht auch alleine schaffe


PS: Eine Stelle kompiliert bei mir nicht weil HitTestWithLasso(..) an letzter Stelle einen var -Parameter erwartet:
Delphi-Quellcode:
function TInkDisp.HitTestWithLasso(Points: OleVariant; IntersectPercent: Single): IInkStrokes;
var
   lassoPoints: OleVariant;
begin
   lassoPoints := EmptyParam();
   Result := DefaultInterface.HitTestWithLasso(Points, IntersectPercent, lassoPoints);
end;

PS: Chua Chee Wee macht auch heute noch Delphi:
https://twitter.com/chuacw
http://chuacw.ath.cx/blogs/chuacw/ar...10/21/967.aspx
https://github.com/chuacw

Geändert von Der schöne Günther (29. Mär 2017 um 09:36 Uhr)
  Mit Zitat antworten Zitat
HolgerX

Registriert seit: 10. Apr 2006
Ort: Leverkusen
989 Beiträge
 
Delphi 6 Professional
 
#5

AW: Stift Eingabe zum Schreiben auf Tablet

  Alt 29. Mär 2017, 10:31
PS: Eine Stelle kompiliert bei mir nicht weil..
Kann gut sein, ich habe auch schon einige Fehler in der Importierten Activx Unit überarbeitet.
Da werden noch ein paar Schoten drinnen sein..
  Mit Zitat antworten Zitat
oakley

Registriert seit: 15. Aug 2005
287 Beiträge
 
#6

AW: Stift Eingabe zum Schreiben auf Tablet

  Alt 29. Mär 2017, 11:04
Ich denke ich werde mal Günthers Ansatz versuchen.
Hab gerade Visual Studio Installiert. Mal sehen wie ich das jetzt umsetzte.

LG

Mirko
  Mit Zitat antworten Zitat
HolgerX

Registriert seit: 10. Apr 2006
Ort: Leverkusen
989 Beiträge
 
Delphi 6 Professional
 
#7

AW: Stift Eingabe zum Schreiben auf Tablet

  Alt 29. Mär 2017, 11:31
Hmm..


Ich denke ich werde mal Günthers Ansatz versuchen.
Hab gerade Visual Studio Installiert. Mal sehen wie ich das jetzt umsetzte.

Aber wenn ich Günther verstanden habe, dann macht er es nun ohne VS !?!

@Günther
Den Radiergummi habe ich bei mir auch schon laufen
Werd noch ein bischen sauber machen und dann wieder posten..
  Mit Zitat antworten Zitat
HolgerX

Registriert seit: 10. Apr 2006
Ort: Leverkusen
989 Beiträge
 
Delphi 6 Professional
 
#8

AW: Stift Eingabe zum Schreiben auf Tablet

  Alt 29. Mär 2017, 12:20
Hmm..

PS: Eine Stelle kompiliert bei mir nicht weil HitTestWithLasso(..) an letzter Stelle einen var -Parameter erwartet:
Delphi-Quellcode:
function TInkDisp.HitTestWithLasso(Points: OleVariant; IntersectPercent: Single): IInkStrokes;
var
   lassoPoints: OleVariant;
begin
   lassoPoints := EmptyParam();
   Result := DefaultInterface.HitTestWithLasso(Points, IntersectPercent, lassoPoints);
end;

Nochmal hierzu..

unter Delphi 6 ist EmptyParam so in der 'Varints' deklariert

Delphi-Quellcode:
var
  EmptyParam: OleVariant; // "Empty parameter" standard constant which can be
Ich vermute, das es bei späteren Delphi Versionen zu einer 'echten' const wurde!
  Mit Zitat antworten Zitat
Der schöne Günther

Registriert seit: 6. Mär 2013
6.216 Beiträge
 
Delphi 10 Seattle Enterprise
 
#9

AW: Stift Eingabe zum Schreiben auf Tablet

  Alt 29. Mär 2017, 12:29
Ja fast, EmptyParam() ist jetzt eine Funktion, deshalb kann man es nicht mehr als VAR Parameter übertragen.
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.586 Beiträge
 
Delphi 12 Athens
 
#10

AW: Stift Eingabe zum Schreiben auf Tablet

  Alt 29. Mär 2017, 18:42
Ja fast, EmptyParam() ist jetzt eine Funktion, deshalb kann man es nicht mehr als VAR Parameter übertragen.
Das ist auch gut so.

Ich hatte mal ausversehn die Konstante EmptyStr überschrieben,
mit dem Result, dass in allen leeren Spalten der cxDBGrids plötzlich etwas drin stand, obwohl da eigentlich überall ein NULL drin war, wenn man ins DataSet guckte.

Hatte nen Weilchen bedauert, bis ich den Grund fand.
Ein Therapeut entspricht 1024 Gigapeut.
  Mit Zitat antworten Zitat
Antwort Antwort


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 17:17 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