TextSuite will nicht

[EWeiss]

Erst mal ein großes Danke schön für deine guten erklärungen schleim .. muss aber mal gesagt werden

Zitat:

Font: Das sind ganz normale Quads. Wenn du beim Zeichnen den Tiefentest deaktivierst werden sie über alles andere gezeichnet. Der Tiefentest könnte im übrigen auch dafür sorgen, dass einige Zeichen (wie in "COMMAND" zu sehen) links abgeschnitten werden. Falls dir Courier nicht gefällt musste mal im System schauen. Ich glaube "Lucida Console" sieht
freundlicher aus.

jo sieht was besser aus und das deaktivieren des Tiefentest geht auch.

Zitat:

Eine Codepage setzten kannst du mit tsSetParameteri(TS_CODEPAGE, TS_CODEPAGE_8859_8);.

Ja habe in die Hilfe geschaut war mir nur nicht klar mit welchen parameter
der Codepage zugewiesen werden kann.

Der ablauf ist wie folgt
Die Anwendung sendet einen PChar für den SongTitle an BassVis
mMediaInfo.Songfile := PChar(StreamFile); Die Vis.. vis_BassVis holt sich den SongTitel über
SongName := Pointer(SendMessage(This_Mod^.hWNDParent, WM_WA_IPC, PlaylistPos, IPC_GETPLAYLISTTITLE)); von BassVis

Delphi-Quellcode:

if StreamInfo.PlaylistTitle <> nil then
  ReturnStr := StreamInfo.PlaylistTitle + chr(0);

p := @ReturnStr;
Inc(p, 1);
Result := longint(p);

Denke kann anstelle von Widestring auch PWideString verwenden.
Und es ist wirklich nötig das in der anwendung schon PWidestring verwendet wird ?
Das ist schwirig da es in VB kein Widestring gibt
String 10 Bytes
Bedeutet dann wohl in VB würde es nicht funktionieren mit Unicode

Den CodePage kann ich dann ignorieren?
EDIT:
Habe nun das problem das TextSuite nicht zu WideString kompatibel ist
tsTextOutA(PChar(text)); text: WideString
tsTextOutA erwartet PChar..

hmm scheint nicht so einfach zu sein in der Suite rumwurschteln bringt nix.

gruss Emil