Problem mit SetWideStrProp und TnTLabel

[Sharky]

Hai ihr,

ich habe mir die TntWare Unicode Controls installiert. Funktionieren sowei auch ohne Probleme.

Jetzt versuche ich aber mit diesem Code:

Delphi-Quellcode:

procedure TForm1.btn_Button1Click(Sender: TObject);
begin
  SetWideStrProp(TntLabel1, 'Caption', 'αβδτεδ');
end;

die Eigenschaft Caption eines TTntLabels zu ändern. Leider ohne erfolg. Es verählt sich genauso wie ein nicht unicodefähiges Label.

Kennt einer von euch den Grund woran das liegt und wie ich es ändern könnte?

[marabu]

Moin Sharky,

vielleicht musst du erst einen passenden Font auswählen:

Graphics.DefFontData.Name := 'Tahoma'; // siehe ReadMe.txt Grüße vom marabu

[Sharky]

Hai marabu,

daran liegt es leider auch nicht.

Wenn ich es so mache :

Delphi-Quellcode:

begin
  TntLabel1.Caption := 'αβδτεδ';
end;

funktioniert es ohne Probleme. Nur wenn ich es mit SetWideStrProp versuche kommt Müll dabei heraus.

[xaromz]

Hallo,

wenn man sich SetWideStrProp ansieht, steht da:
SetStrProp(Instance, FindPropInfo(Instance, PropName), Value); Dein WideString wird also in einen AnsiString umgewandelt. So kann das also nicht funktionieren.

Gruß
xaromz

[Sharky]

Zitat von xaromz:

... Dein WideString wird also in einen AnsiString umgewandelt. ...

Hai xaramz,

danke für den Hinweis. Ich hätte ja auch selber mal auf die Idee kommen können das zu prüfen.
Jetzt werde ich mich einmal durch den Source von TypInfo kämpfen und schauen ob ich das für einen WideString umbauen kann.

Ist also ein BUG das ganze

GetWideStrProp funktioniert übrigens richtig.