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
1   L A T E S T    R E P L I E S    (Newest First)
xequte Posted - Oct 23 2024 : 17:52:22
Hi Peter

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

I will need to check this when I am back in the office in early November.

Nigel
Xequte Software
www.imageen.com