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
 Add a caption to the image?

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
PeterPanino Posted - Aug 25 2017 : 20:02:39
Is there a ready-made simple TImageEnView method to automatically create a CAPTION for an image to get something like this:



Example: 
ImageEnView1.AddCaption(CaptionText, ImagePosition, TextAlignment, BackgroundColor, TextColor, Fontname, FontStyle, etc.);
3   L A T E S T    R E P L I E S    (Newest First)
PeterPanino Posted - Sep 10 2017 : 09:00:21
Bill, thank you very much!
xequte Posted - Aug 28 2017 : 22:56:28
Nice demo!

Nigel
Xequte Software
www.xequte.com
nigel@xequte.com
w2m Posted - Aug 26 2017 : 11:46:36
procedure TForm1.AddText1Click(Sender: TObject);
var
  iText: string;
begin
  Screen.Cursor := crHourGlass;
  try
    ImageEnView1.DeSelect;
    ImageEnView1.LayersAdd(ielkText);
    iText := 'Natural Flower';
    TIETextLayer(ImageEnView1.CurrentLayer).Text := iText;
    TIETextLayer(ImageEnView1.CurrentLayer).FillColor := clWebGold;
    TIETextLayer(ImageEnView1.CurrentLayer).Font.Name := 'Arial';
    TIETextLayer(ImageEnView1.CurrentLayer).Font.Size := 10;
    TIETextLayer(ImageEnView1.CurrentLayer).Font.Color := clBlack;
    TIETextLayer(ImageEnView1.CurrentLayer).Font.Style  := [fsBold];
    ImageEnView1.CurrentLayer.PosX := -1;
    ImageEnView1.CurrentLayer.PosY := ImageEnView1.Layers[0].Height;
    ImageEnView1.CurrentLayer.Width := ImageEnView1.Layers[0].Width+1;
    ImageEnView1.CurrentLayer.Height := ImageEnView1.IEBitmap.IECanvas.TextHeight(iText) +  16;
    TIETextLayer(ImageEnView1.CurrentLayer).Alignment := iejCenter;
    TIETextLayer(ImageEnView1.CurrentLayer).Layout := ielCenter;
    ImageEnView1.Update;
    ImageEnView1.LayersMergeAll;
    ImageEnView1.Zoom := 100;
  finally
    Screen.Cursor := crDefault;
  end;
end;



Bill Miller
Adirondack Software & Graphics
Email: w2m@hughes.net
EBook: http://www.imageen.com/ebook/
Custom Commercial ImageEn Development