ImageEn for Delphi and C++ Builder ImageEn for Delphi and C++ Builder

 

ImageEn Forum
Profile    Join    Active Topics    Forum FAQ    Search this forumSearch
Forum membership is Free!  Click Join to sign-up
Username:
Password:
Save Password
Forgot your Password?

 All Forums
 ImageEn Library for Delphi, C++ and .Net
 ImageEn and IEvolution Support Forum
 How to write unicode text?
 New Topic  Reply to Topic
Author Previous Topic Topic Next Topic  

aftereffectniko

Ethiopia
23 Posts

Posted - May 07 2013 :  13:25:29  Show Profile  Reply
How to write unicode text.? Help help

w2m

USA
1990 Posts

Posted - May 07 2013 :  14:13:17  Show Profile  Reply
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
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic  Reply to Topic
Jump To: