Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi Erkennen, ob ein Punkt zu einem Font dazu gehört (https://www.delphipraxis.net/51179-erkennen-ob-ein-punkt-zu-einem-font-dazu-gehoert.html)

xaromz 7. Aug 2005 23:30

Re: Erkennen, ob ein Punkt zu einem Font dazu gehört
 
Hallo,

die Eigenschaften sind genau die Kurven und Linien, mittels derer ein Zeichen gezeichnet wird. Ich kenn mich da jetzt nicht genau aus, aber vielleicht kommst Du da über MSDN-Library durchsuchenGetGlyphOutline ran.

Gruß
xaromz

BlackJack 7. Aug 2005 23:34

Re: Erkennen, ob ein Punkt zu einem Font dazu gehört
 
Zitat:

Zitat von negaH
Zitat:

ch weiss jetzt nich genau was du mit Path meinst, aber ich denke mal nicht dass das gehen wird, da man beim "malen" ja wieder den "Bauplan" des zeichens in ein pixelbild rastert, und da hat man dann ja wieder kanten drin.
Aha. Wie wird denn dein 2D Punkt angegeben ? Als Zahlen ? Als Double Zahlen ? Ach schau an, auf grund ihrer Auflösung haben zb. Ganzzahlige Zahlen wie Integer ebenfalls "Stufen" in Schritten von +-1 drinnen. Auch Double oder jeder beliebige andere Zahlentyp hat "Stufen" bzw- eine Rasterung. Man könnte auch von Fehlern in der maximalen Auflösung reden, wie bei Bitmaps oder auch Vektorzeichnungen.

och, bei Doubles mit 300 stellen mach ich mir da nicht so die sorgen.
die koordinaten sollten als Floats angegeben werden.
aber ich denke es dürfte klar sein dass ich nicht kanten durch float-ungenauigkeiten meine, sondern eben die kanten die entstehen wenn man eine pixelgrafik erstellt - ich wusste ja nicht dass es sich bei Paths um Vektorgrafiken handelt. also mal ganz easy.

Zitat:

Zitat von negaH
Es hängt also nur davon ab wie du die Fonts scaliert in einen Path umwandelst. Die daraus erzeugbare Region ist wie auch der Path eine Vektorzeichnung.

Den Vorschlag von xaromz halte ich für absolut richtig, und alles wird vom GDI API unterstützt.

könntet ihr mir dann mal ein beispiel geben, wie man so einen Path benutzt? die Hilfe spuckt da irgendwie nichts richtiges bei aus...

xaromz 7. Aug 2005 23:42

Re: Erkennen, ob ein Punkt zu einem Font dazu gehört
 
Zitat:

Zitat von BlackJack
könntet ihr mir dann mal ein beispiel geben, wie man so einen Path benutzt? die Hilfe spuckt da irgendwie nichts richtiges bei aus...

So in etwa:
Delphi-Quellcode:
function IsInChar(C: Char; X, Y: Integer): Boolean;
var
  Region: HRGN;
begin
  BeginPath(Canvas.Handle);
  TextOut(Canvas.Handle, 0, 0, @C, 1);
  EndPath(Canvas.Handle);
  Region := PathToRegion(Canvas.Handle);
  Result := PtInRegion(Region, X, Y);

  DeleteObject(Region);
end;
Du brauchst a) einen Canvas bzw. ein HDC und b) den entsprechenden Font in DC selektiert.

Gruß
xaromz

negaH 7. Aug 2005 23:44

Re: Erkennen, ob ein Punkt zu einem Font dazu gehört
 
Zitat:

och, bei Doubles mit 300 stellen mach ich mir da nicht so die sorgen.
Wie kommst du auf 300 Stellen Genauigkeit ? Suche mal in der Hilfe nach Datentypen -> Double.
Ein Double ist 8 Bytes groß, in 4 Bytes bekommst du ca. 9 dezimale Stellen rein, beim Double beträgt die Genauigkeit gerademal 15-16 Stellen und keine 300.

Paths: Windows SDK Hilfe im Delphi öffenen und nach "Path Functions" suchen. Der Rest sollte damit erklären.

Gruß Hagen

BlackJack 8. Aug 2005 14:30

Re: Erkennen, ob ein Punkt zu einem Font dazu gehört
 
@xaromz: danke für den Code, aber irgendwie bekomme ich damit auch keine runden kurven hin, sondern zu wieder pixelmäßig gerasterte. kannst ja mal selber diesen Beispielcode testen:
Delphi-Quellcode:
function TForm1.IsInChar(C: Char; X, Y: Double): Boolean;
var
  Region: HRGN;
begin
  BeginPath(Canvas.Handle);
  TextOut(Canvas.Handle, 0, 0, @C, 1);
  EndPath(Canvas.Handle);
  Region := PathToRegion(Canvas.Handle);
  Result := PtInRegion(Region, Trunc(X*Canvas.TextWidth(C)), Trunc(Y*Canvas.TextHeight(C)));

  DeleteObject(Region);
end;

procedure TForm1.Button1Click(Sender: TObject);
var x, y: Integer;
begin
  for y := 0 to ClientHeight-1 do
    for x := 0 to ClientWidth-1 do
      if IsInChar('A', x/ClientWidth, y/ClientHeight) then
        Canvas.Pixels[x,y] := clBlack
      else
        Canvas.Pixels[x,y] := clWhite;
end;
mich würde eher dieses GetGlyphOutline interessieren, damit kann ich mir ja die splines holen. wenn ich dann aber PtInRegion benutze, muss ich ja immer einen Canvas angeben, in den die Splines gezeichnet werden müssen, und schon habe ich wieder die gleichen kanten wie oben in dem code. bleibt mir da also nicht anderes übrig, als selber die splines zu untersuchen, oder gibt es auch Region-funtionen, die direkt mit den Splines arbeiten, ohne diese zu zeichnen? (hab da bisher nichts in der Richtung entdeckt).

oder ginge soetwas mit den Path-functions? bei denen habe ich allerdings nirgendwo so etwas wie PtInside oder so entdecken können.

@negaH:
ok, 300 stellen genauigkeit hat man nicht immer, das ist klar. aber lass uns diese diskussion hier beenden, das bringt nichts. wie gesagt, mir geht es darum Float-koordianten anzugeben (wie ich sie ja auch bei Path-functions haben müsste?)

edit: noch ne frage: wie kann ich eigentlich diese Path-functions dann letztendlich nutzen? so wie ich das in der Hilfe sehe ist das doch ne C++-Klasse, oder?


Alle Zeitangaben in WEZ +1. Es ist jetzt 14:15 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz