ImageEn, unit iexLayers

TIELayer.Kind

TIELayer.Kind


Declaration


property Kind: TIELayerKind;


Description


Returns the kind of layer.

Read-Only


Example 1


if ImageEnView1.CurrentLayer.Kind = ielkImage then
  TIEImageLayer( ImageEnView1.CurrentLayer ).ResampleFilter := rfLanczos3;
ImageEnView1.Update();

// Which is the same as...
if ImageEnView1.CurrentLayer is TIEImageLayer then
  TIEImageLayer( ImageEnView1.CurrentLayer ).ResampleFilter := rfLanczos3;
ImageEnView1.Update();


Example 2


// Hide labels of all line layers when user clicks a check box
procedure Tfmain.chkShowLabelsClick(Sender: TObject);
var
  I: integer;
begin
  ImageEnView1.LockUpdate();
  for I := 0 to ImageEnView1.LayersCount - 1 do
    if ImageEnView1.Layers[ I ].Kind = ielkLine then
    begin
      if chkShowLabels.Checked then
        TIELineLayer( ImageEnView1.Layers[ I ]).LabelPosition := ielpAtEnd
      else
        TIELineLayer( ImageEnView1.Layers[ I ]).LabelPosition := ielpHide;
    end;
  ImageEnView1.UnlockUpdate();
end;