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

 

ImageEn Forum
Profile    Join    Active Topics    Forum FAQ    Search this forumSearch
 All Forums
 ImageEn Library for Delphi, C++ and .Net
 ImageEn and IEvolution Support Forum
 TextLayer issue

Note: You must be registered in order to post a reply.
To register, click here. Registration is FREE!

View 
UserName:
Password:
Format  Bold Italicized Underline  Align Left Centered Align Right  Horizontal Rule  Insert Hyperlink   Browse for an image to attach to your post Browse for a zip to attach to your post Insert Code  Insert Quote Insert List
   
Message 

 

Emoji
Smile [:)] Big Smile [:D] Cool [8D] Blush [:I]
Tongue [:P] Evil [):] Wink [;)] Black Eye [B)]
Frown [:(] Shocked [:0] Angry [:(!] Sleepy [|)]
Kisses [:X] Approve [^] Disapprove [V] Question [?]

 
Check here to subscribe to this topic.
   

T O P I C    R E V I E W
PeterNu Posted - Oct 23 2024 : 06:56:12
I want to put a vertical stamp on the bottom left of a image.

Everything looks correct when I output a border around the text.
If the border is invisible (BorderWidth:=0 or BorderColor:=clNone),
then the stamp text will be positioned incorrectly and clipped.





Code sample

with ImageCtrl do
begin
  LayersAdd(ielkText);
  with TIETextLayer(CurrentLayer) do
  begin
    Layout := ielBottom;
    Alignment := iejLeft;

    Rotate := 90;
    TextOverflow := ieoShrink;
    Opacity := 1.0;

    WordWrap := False;
    AutoSize := True;
    Text := 'This is my stamp';

    Font.Name := 'Arial';
    Font.Size := 60;
    Font.Color := clBlack;
    Font.Style := [fsBold];

    BorderColor := clBlack;         
    BorderWidth := 6;               // <-- if border ist set, all looks fine

    SizeToText;

    PosX := IELayer_Pos_Left;
    PosY := IELayer_Pos_Bottom;

    LayersMergeAll;
  end;
  Update;
 end;



PeterNu
9   L A T E S T    R E P L I E S    (Newest First)
xequte Posted - Nov 11 2024 : 13:04:39
Hi Peter

And it fails if you do it this way?

FontCombo.FontName:='Arial';
FontCombo.Font.Size:=60;
FontCombo.Font.Color:=clBlack;
FontCombo.Font.Quality:=fqDefault;
FontCombo.Font.Style:=[fsBold];

Font.FontName := FontCombo.FontName;
Font.Size := FontCombo.Font.Size;
Font.Color := FontCombo.Font.Color;
Font.Quality := FontCombo.Font.Quality;
Font.Style := FontCombo.Font.Style;


Nigel
Xequte Software
www.imageen.com
PeterNu Posted - Nov 11 2024 : 08:49:00
Hi Nigel

Same result, but I have an workaround.

When I use the component TJvFontcombobox everything works as expected.

FontCombo.FontName:='Arial';
FontCombo.Font.Size:=60;
FontCombo.Font.Color:=clBlack;
FontCombo.Font.Quality:=fqDefault;
FontCombo.Font.Style:=[fsBold];
Font.Assign(FontCombo.Font);

Maybe this will help to identify the problem.

Peter

PeterNu
xequte Posted - Nov 07 2024 : 16:32:34
Hi Peter

There were a lot of changes to text layer sizing in v13.6.0, please try that version.

Nigel
Xequte Software
www.imageen.com
PeterNu Posted - Nov 07 2024 : 02:20:23
Hi Nigel,

I'm using ImageEN Version: 13.5.0

Peter

PeterNu
xequte Posted - Nov 05 2024 : 16:56:26
Hi Peter

Also need to know what version of ImageEn you're using?

You can display it like this:

Label1.Caption := 'ImageEn Version: ' + IEGlobalSettings().ImageEnVersion.VersionStr;



Nigel
Xequte Software
www.imageen.com
PeterNu Posted - Nov 05 2024 : 07:49:54
Hi Nigel,

I'm using Delphi 11 Alexandria.



PeterNu
xequte Posted - Nov 04 2024 : 01:03:58
Hi Peter

I'm not seeing that, can you confirm what version of ImageEn and Delphi you are using?

Try emailing me for the latest release.



Nigel
Xequte Software
www.imageen.com
PeterNu Posted - Oct 24 2024 : 02:33:35
Hi Nigel,

ieoTruncate has the same result.

Thanks,
Peter

PeterNu
xequte Posted - Oct 23 2024 : 17:52:22
Hi Peter

Your code looks correct. I presume TextOverflow := ieoTruncate; offers no improvement?

Nigel
Xequte Software
www.imageen.com