🚀 go-pugleaf

On Thu, 28 Feb 2002 09:56:15 +0100, Adib Taraben
<Taraben.aA@wige-data.de> wrote:

>can you provide some code (sample/source) to the community?

I'd like to, but the code is owned by my employer, so I can't.
But it's quite easy.

Just experiment a bit with ExtDrawTextW and then reimplement DrawTextW
using ExtDrawTextW. This is quite straighforward, although you will be
reinventing the wheel ;) Then take some simple VCL component (like
TCustomLabel), derive from it and reimplement what TLabel does, while
replacing DrawText with your own implementation of DrawTextW.
For labels you could do it even with ExtDrawTextW directly.
For storing the unicode string you can use the AnsiString Caption
property, when you convert UTF16 to UTF8 for storing and back again
for displaying. Or just make your own WideString WCaption property.
The same goes for the other components. For example the listbox - just
make it ownerdrawn, make your own list with unicode strings and add
corresponding count of Items with value "".
You can also find some inspiration in UniRed
(http://www.esperanto.mv.ru/UniRed/ENG/), which uses it's own unicode
VCL components and it's source is publicly available.

Regards

		Petr Sulla