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
 Euro char in TImageEnVect (iekText)
 New Topic  Reply to Topic
 Printer Friendly
Author Previous Topic Topic Next Topic  

pcmueller77

2 Posts

Posted - Jan 06 2021 :  06:31:55  Show Profile  Reply
Hello. The is not displayed, but @ and .
Any ideas?

Code:
procedure TForm1.FormCreate(Sender: TObject);
var
  f: TFont;
begin
  hobj := -1;
  f :=  Form1.Font; //TFont.Create;
  try
    iev1.MouseInteractVt := [miPutMemo];
    iev1.Cursor := 1785;
    iev1.ObjKind[hobj] := iekText;
    iev1.ObjBoxHighlight[hobj] := False;
    iev1.ObjTransparency[hobj] := 255;
    iev1.ObjTextAutoSize[hobj] := true;
    iev1.ObjFontName[hobj] := AnsiString('Arial'); // f.Name);
    iev1.ObjFontStyles[hobj] := f.Style;
    iev1.ObjPenColor[hobj] := f.Color;
    iev1.ObjBrushStyle[hobj] := bsClear;
    iev1.ObjMemoCharsBrushStyle[hobj] := bsClear;
    iev1.ObjMemoBorderStyle[hobj] := psClear;
    iev1.ObjText[hobj] := AnsiString('@@ߧ$');
    iev1.ObjName[hobj] := AnsiString(intTostr(1));
    iev1.ObjTextAutoSize [hobj]    :=true;
  finally
    f.Free;
  end;
end;

procedure TForm1.iev1NewObject(Sender: TObject; hobj: Integer);
begin
   iev1.StretchTextRect(hobj);
end;


Thanks a lot

xequte

5759 Posts

Posted - Jan 06 2021 :  23:14:45  Show Profile  Reply
Hi

What version of Delphi are you using?

Also, have you considered using TIETextLayer?

https://www.imageen.com/help/TIETextLayer.html


Nigel
Xequte Software
www.imageen.com
Go to Top of Page

pcmueller77

2 Posts

Posted - Jan 12 2021 :  05:10:25  Show Profile  Reply
Hi, we are using imageEn 4.1.2 and XE2, so I think ielkText is not available in this old stuff. or?
Thanks & with best regards, Thomas.
Go to Top of Page

xequte

5759 Posts

Posted - Jan 12 2021 :  17:55:26  Show Profile  Reply
Hi

This code works fine when I test it with 9.3.0. The old version you have may predate our Unicode support.

Nigel
Xequte Software
www.imageen.com
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic  Reply to Topic
 Printer Friendly
Jump To: