Are you referring to general unicode support or drawing Unicode text?
If you are referring to general Unicode support, if you are using Delphi 2009 or higher all text (except for ImageEnVect Objects) is already Unicode. The simplest way is to upgrade if you are using Delphi version less than 2009. If you are referring to drawing Unicode text then try this:
procedure TForm1.ImageEnViewMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,
Y: Integer);
var
iLayer: integer;
begin
if (Text1.Down) and (Shift = [ssLeft]) then
begin
{ Add fully transparent text layer }
iLayer := ImageEnView.LayersCreateFromText(cxTextEdit1.Text,
cxFontNameComboBox1.EditValue, cxFontSize1.EditValue,
cxFontColorComboBox1.EditValue, AFontStyle,
cxAddShadow1.EditValue, 4, 4, cxAngle1.EditValue, cxAntialias1.EditValue);
ImageEnView.Layers[iLayer].Name := AnsiString('Layer ' + IntToStr(ImageEnView.LayersCount -
1));
ImageEnView.Update;
end;
end;William Miller
Email: w2m@frontiernet.net
EBook: http://www.imageen.com/ebook/
Apprehend: http://www.frontiernet.net/~w2m/index.html
Search
