Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi MS-Word: Unicode-Zeichen als Button-Label? (https://www.delphipraxis.net/83083-ms-word-unicode-zeichen-als-button-label.html)

mjenke 27. Dez 2006 07:08


MS-Word: Unicode-Zeichen als Button-Label?
 
Guten Morgen, alle miteinander!


Ich bin noch immer in der DLL-Programmierung (Word-AddIn) unterwegs und stoße natürlich auf immer weitere Probleme. Ein aktuelles Problem ist folgendes:

Wie kann man ein Unicode-Zeichen als Button-Label darstellen?

Beispiel:
Wenn ich in Word einen Auto-Text erstelle („Φ“ Unicode [dez]: 934) und diesen Auto-Text in eine CommandBar als Schaltfläche einfüge, wird die Schaltfläche auch mit diesem griechischen Zeichen als Label bestückt.
Wenn ich jedoch einen solchen Button dynamisch erzeuge, kann ich lediglich die Caption setzen, ohne jedoch bestimmen zu können, dass diese ein Unicode-Zeichen sein soll (Im Fall des obigen Zeichens wäre das ein normales F).

Delphi-Quellcode:
function TEnv.GetButton(CommBar: CommandBar; DotSimple: TDotSimple;
  TBC: RToolBarCreate): TOfficeButton;
[...]
  Result.Caption := TBC.ButtonLabel;
end;
Der Buttontyp ist dabei msoButtonCaption.

Gibt es eine Möglichkeit, einer Schaltfläche zu sagen, „stelle mir als Label das Zeichen mit dem dezimalen Unicode ‚934’ dar?“


:?:
Matthias

Heffalump 27. Dez 2006 08:10

Re: MS-Word: Unicode-Zeichen als Button-Label?
 
Ist "Result.Caption" vom Type WideString? Ich kann mir nur vorstellen, das es irgendwo eine Stringvariable vom Type Ansistring mit im Spiel ist.

mjenke 27. Dez 2006 11:56

Re: MS-Word: Unicode-Zeichen als Button-Label?
 
Ist WideString, ja! :?

mjenke 2. Jan 2007 14:02

Re: MS-Word: Unicode-Zeichen als Button-Label?
 
@Heffalump:

Der Hinweis war die Lösung des Problems! Danke! Mit WideChar() kann ich mir den Dezimalwert umrechnen und das entsprechende Zeichen als Caption des Buttons setzen.

:-D


Alle Zeitangaben in WEZ +1. Es ist jetzt 22:40 Uhr.

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