AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia Delphi TextSuite will nicht

TextSuite will nicht

Ein Thema von EWeiss · begonnen am 30. Jun 2008 · letzter Beitrag vom 5. Jul 2008
 
EWeiss
(Gast)

n/a Beiträge
 
#23

Re: TextSuite will nicht

  Alt 2. Jul 2008, 16:43
Zitat:
tsTextOutW ist die Wide Variante von tsTextOut.
Das ist gut
Macht keinen sinn dann WideString wider auf PChar zu casten dann war alles umsonst.

Zitat:
Das halte ich für sehr gefährlich!!!
Wie würdest du es denn machen ?
Returnstring ist nun mal ein string aber die Rückgabe muss Longint bzw.. der pointer auf den string sein.
Mir ist da nix anderes eingefallen.

Zitat:
Allerdings habe ich keine Ahnung ob der Text richtig übergeben, da ich nicht verstehen was du da machst.
Der Songtitel ist der name der ausgeführten Datei (mp3 oder was immer)
übergebe dann meinen Record @mMediaInfo an BassVis(DLL)
die konstanze mMediaInfo.Songfile := PChar(StreamFile);
zeigt dann auf den String 'StreamFile'

jetzt ist nur die frage ob der Record Typensicher ist und der übergebene WideString auch erhalten bleibt.
Wie es dann weitergeht habe ich ja schon beschrieben .. weiter oben.

EDIT:
Du hast da im OpenGl Forum im Thread von TextSuite den Eintrag!
Delphi-Quellcode:
Font1 := TtsFontCreator.Create('C:\WINDOWS\Fonts\verdana.ttf', 14, [], ffBGRA);
Font2 := TtsFontCreator.Create('C:\WINDOWS\Fonts\bonzai.ttf', 36, [], ffBGRA);
Font2.AddPostProcessStep(TtsPostPattern.Create(Pattern, 0, 0));
Font2.AddPostProcessStep(TtsPostBorder.Create(1, tsColor($FF, $FF, $FF, $FF)));
Font2.AddPostProcessStep(TtsPostShadow.Create(10, 3, 4, 3, $A0));

Font3 := TtsFontCreator.Create('C:\WINDOWS\Fonts\Cyberbit.ttf', 34, [], ffBGRA);
Font3.AddPostProcessStep(TtsPostPattern.Create(Pattern, 0, 0));
Font3.AddPostProcessStep(TtsPostBorder.Create(1, tsColor($00, $00, $00, $FF)));
Font3.AddPostProcessStep(TtsPostBorder.Create(1, tsColor($FF, $FF, $FF, $FF)));
Font3.AddPostProcessStep(TtsPostShadow.Create(4, 3, 4, 3, $A0));

Font4 := TtsFontCreator.Create('C:\WINDOWS\Fonts\Cyberbit.ttf', 34, [], ffBGRA);
Font4.AddPostProcessStep(TtsPostBorder.Create(1, tsColor($00, $00, $00, $FF)));
Font4.AddPostProcessStep(TtsPostShadow.Create(3, 0, 2, 2, $80));
und erstellst damit Chinesiche schriftzeichen
gibt es ein Sample ohne SDL das ich mir mal anschauen kann
dann weiss ich wenn alles richtig läuft das es mit widestring bei mir auch funktioniert.

gruss Emil
  Mit Zitat antworten Zitat
 

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

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 00:14 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