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
 Cannot create a Text layer from Fonts....

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

Size 
UserName:
Password:
Mode 
Format  BoldItalicizedUnderline Align LeftCenteredAlign Right Horizontal Rule Insert HyperlinkInsert EmailBrowse for an image to attach to your post Browse for a zip to attach to your post Insert CodeInsert QuoteInsert List
   
Message 

 

Smilies
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
yogiyang Posted - Jan 07 2021 : 07:09:27
Hello,

I am trying to install TTF fonts at runtime from my application and use the font to create a Text Layer and save the file in .ien format.

Here is the code that I am using:
function GetFontResourceInfo(lpszFilename: PChar; var cbBuffer: DWORD; lpBuffer: PChar; dwQueryType: DWORD): DWORD; stdcall; external 'gdi32.dll' name 'GetFontResourceInfoW';

function InstallTtfFont(FntFName: string): string;
const
  QFR_DESCRIPTION  =1;
  FR_PRIVATE = $10;
var
  FileRec : TSearchRec;
  cbBuffer : DWORD;
  lpBuffer: array[0..MAX_PATH-1] of Char;
  FFontLoaded: Integer;
begin
  if FileExists(FntFName) then
  begin
    //FFontLoaded := AddFontResourceEx(Pointer(FntFName), FR_PRIVATE, nil) > 0;

    if AddFontResource(PWideChar(FntFName)) <> 0 then
    begin
      SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
    end;
    cbBuffer:=SizeOf(lpBuffer);
    GetFontResourceInfo(PWideChar(FntFName), cbBuffer, lpBuffer, QFR_DESCRIPTION);

    Result := Format('%s',[lpBuffer]);
  end;
end;

Procedure UnInstallTtfFont(FntFName: string);
Begin
  If FileExists(FntFName) Then
  begin
    If RemoveFontResource(PWideChar(FntFName)) Then
    begin
      SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
    end;
  end;
End;

procedure AddTextLayer(MyIE: TImageEnView; TextToAdd: string; FntName: string);
var
  lyr: TIETextLayer;
  ImgLyr, TxtLyr: Integer;
begin
  //Add Empty Layer
  ImgLyr := MyIE.LayersAdd( ielkImage );
  MyIE.Proc.AlphaFill(1);

  TxtLyr := MyIE.LayersAdd( ielkText ); // add a new textlayer

  lyr := TIETextLayer( MyIE.CurrentLayer );

  // Text props
  lyr.Text        := TextToAdd;
  lyr.Font.Size   := 300;
  lyr.Font.Color  := clRed;
  lyr.AutoSize    := True;
  lyr.WordWrap    := False;
  lyr.Font.Style  := [];
  lyr.Font.Name  := FntName;

  // General props
  lyr.PosX    := 0;
  lyr.PosY    := 0;
  lyr.Rotate  := 0;
  lyr.Opacity := 100 / 100;

  MyIE.Update();

  MyIE.Layers[ImgLyr].Width := MyIE.Layers[TxtLyr].Width;
  MyIE.Layers[ImgLyr].Height := MyIE.Layers[TxtLyr].Height;

  // Merge text into the background image to convert ielkText to ielkImage
  MyIE.LayersMerge(ImgLyr, TxtLyr);

  MyIE.Update();
end;

LogoChar := txtText.Text;

procedure TfrmMainForm.btnGenerateClick(Sender: TObject);
var
TTFPath, TtfFntName: string;
TTFIdx: Integer;
FntName: string;
ieTemp: TImageEnView;
begin
  ieTemp := TImageEnView.Create(Self);

  TTFPath := ExtractFilePath(Application.ExeName) + 'TTF_FONT\';
  TtfFntName :=  TTFPath + 'Grotto.ttf';

  FntName := InstallTtfFont(TtfFntName);
  if FntName <> '' then
  begin
        Application.ProcessMessages;
        AddTextLayer(ieTemp, 'AbCdEfG', FntName);
  end
  else
  begin
        AddTextLayer(ieTemp, 'AbCdEfG', 'Calibri');
  end;

  //Uninstall the font as we do not need it
  UnInstallTtfFont(TtfFntName);

  //Resize BG to enclose Text Layer
  if (ieTemp.CurrentLayer.Width > ieTemp.Layers[0].Width) or (ieTemp.CurrentLayer.Height > ieTemp.Layers[0].Height) then
  begin
        ieTemp.LayersCurrent := 0;
        ieTemp.Proc.Resample(Round( ieTemp.Layers[1].Width * 1.25 ), Round( ieTemp.Layers[1].Height * 1.25 ), rfBSpline);
        ieTemp.LayersCurrent := 1;
        ieTemp.Update;
  end;

  ieTemp.IO.SaveToFileIEN(ExtractFilePath(Application.ExeName) + 'MyTestFile.ien');
  
  FreeAndNil(ieTemp);

end;


Now the funny technical part.

If I put a break point at the line: AddTextLayer(ieTemp, 'AbCdEfG', FntName); and then open any other software like MS Word and select the font in MS Word and then run my code further the text is rendered perfectly but not otherwise.

What must be the problem and how to solve it?

TIA

attach/yogiyang/2021177914_Grotto.zip
63.1 KB

Yogi Yang
3   L A T E S T    R E P L I E S    (Newest First)
xequte Posted - Jan 12 2021 : 19:11:14
Hi Yogi

Unfortunately, it looks like GDI+ does not easily the use of private/loaded fonts. We'll need to look into a solution for this at a later time.

BTW, you don't need to merge with an image layer to create an image layer, you can just use ConvertToImageLayer:

https://www.imageen.com/help/TIELayer.ConvertToImageLayer.html

The workaround is to use rich formatted text layers, e.g.

  lyr.EnableFormatting := True;
  lyr.RichText         := #123'\rtf1\ansi\ansicpg1252\deff0'#123'\fonttbl'#123'\f0\fnil\fcharset0 Tahoma;'#125#125'\viewkind4\uc1\pard\lang1033\b\f0\fs24 ImageEn!\b0\par'#125;


Nigel
Xequte Software
www.imageen.com
yogiyang Posted - Jan 08 2021 : 06:03:05
Hello Nigel,

I am developing in Delphi Seattle as well as in Rio. My Windows is Win10 Home on my Laptop and Win10 Pro on my PC.

But my users may also have Win7 in some cases.

TIA

Yogi Yang
xequte Posted - Jan 07 2021 : 14:39:57
Hi Yogi

I'll need to investigate this and come back to you.

What version of Windows and Delphi is this?

Nigel
Xequte Software
www.imageen.com