In the mean time you can load the file using following code:
var
ieTemp: TImageEnView;
begin
ieTemp := TImageEnView.Create(Application);
ieTemp.IO.Params.JPEG_EnableAdjustOrientation := True;
ieTemp.IO.Params.PSD_LoadLayers := True;
ieTemp.IO.Params.PSD_ReplaceLayers := True;
ieTemp.IO.LoadFromFileIEN('YourFile');
//Loop through each Layer and do the needful here
//Once completed
FreeAndNil(ieTemp);
end;
The problem here is that the user needs to know the name of the font before it is assigned to the layer. So an OnBeforeLoadLayer event would need to list all of the properties that have been loaded, and then after the event they would need to be assigned to the layer (a two stage loading process).
After loading an ImageEn layer file you can iterate through all of the fonts to ensure they are valid, for example:
ImageEnView1.IO.LoadFromFileIEN(...);
// Validate fonts are installed on this system
for i := 0 to ImageEnView1.LayersCount do
begin
if ImageEnView1.Layers[i].Kind = ielkText then
fontName := TIETextLayer( ImageEnView1.Layers[i] ).Font
else
if ImageEnView1.Layers[i].Kind = ielkLine then
fontName := TIELineLayer( ImageEnView1.Layers[i] ).LabelFont
else
continue;
if Screen.Fonts.IndexOf( fontName ) = -1 then
begin
// This font is not installed. Substitute or install it...
end;
end;
Search
how can i get layer's information before load file
Posted - Nov 12 2018 : 01:40:58
