ImageEn, unit iexLayers

TIEShapeLayer.Shape

TIEShapeLayer.Shape


Declaration

property Shape: TIEShape;


Description

The shape displayed by the layer.
One hundred built-in shapes are available. The style of some shapes can be modified using ShapeModifier. Line curving can be set with AutoCurving.

Note: The default shape for new layers is specified by DefaultLayerShape (defaulting to iesEllipse).


Shapes

Shape Item Description
iesEllipse Ellipse
iesHalfEllipse Half Ellipse
iesQuarterEllipse Quarter Ellipse
iesEllipseSegment * Ellipse Segment
iesRectangle Rectangle
iesRoundRect Round Rectangle
iesTriangle Triangle
iesCorner Corner
iesDiamond Diamond
iesPentagon Pentagon
iesHexagon Hexagon
iesHeptagon Heptagon
iesOctagon Octagon
iesCustomShape * Custom Shape
iesStar5 5-Point Star
iesStar6 6-Point Star
iesCustomStar * Custom Star
iesArrowLeft Arrow Left
iesArrowRight Arrow Right
iesArrowUp Arrow Up
iesArrowDown Arrow Down
iesArrowLeftRight Arrow Left and Right
iesArrowUpDown Arrow Up and Down
iesArrowNW Arrow NW
iesArrowNE Arrow NE
iesArrowSW Arrow SW
iesArrowSE Arrow SE
iesFatArrowLeft Fat Arrow Left
iesFatArrowRight Fat Arrow Right
iesFatArrowUp Fat Arrow Up
iesFatArrowDown Fat Arrow Down
iesShootingArrowNW Shooting Arrow NW
iesShootingArrowNE Shooting Arrow NE
iesShootingArrowSW Shooting Arrow SW
iesShootingArrowSE Shooting Arrow SE
iesLightningLeft Lightning Left
iesLightningRight Lightning Right
iesExplosion Explosion
iesCustomExplosion * Custom Explosion
iesCross Cross
iesHeart Heart
iesDoubleHeart Double Heart
iesCloud Cloud
iesMoon Moon
iesSpeechBubbleLeftInShort Left Speech Bubble In
iesSpeechBubbleLeftOutShort Left Speech Bubble Out
iesSpeechBubbleRightInShort Right Speech Bubble In
iesSpeechBubbleRightOutShort Right Speech Bubble Out
iesSpeechBubbleLeftInLong Left Caption Bubble In
iesSpeechBubbleLeftOutLong Left Caption Bubble Out
iesSpeechBubbleRightInLong Right Caption Bubble In
iesSpeechBubbleRightOutLong Right Caption Bubble Out
iesThoughtBubbleLeft Left Thought Bubble
iesThoughtBubbleRight Right Thought Bubble
iesShield Shield
iesBadge Badge
iesNamePlate Name Plate
iesFrame Frame
iesNarrowFrame Narrow Frame
iesFatFrame Fat Frame
iesCircularFrame Circular Frame
iesPinLeft Pin Left
iesPinRight Pin Right
iesMarker Marker
iesRainDrop Rain Drop
iesBanner Banner
iesFemale Female
iesMale Male
iesMusic Music
iesPower Power
iesSmile Smile
iesRainbow Rainbow
iesCandy Candy
iesSun Sun
iesBrooch Brooch
iesCog Cog
iesCog2 Cog 2
iesCustomCog * Custom Cog
iesAsterisk Asterisk
iesCustomAsterisk * Custom Asterisk
iesClover Clover
iesFlower Flower
iesFlower2 Flower 2
iesCustomFlower * Custom Flower
iesRadiance Radiance
iesCustomRadiance * Custom Radiance
iesCustomRadiance2 * Custom Radiance 2
iesSplat Splat
iesCrown Crown
iesEnvelope Envelope
iesHandPointLeft Hand Pointing Left
iesHandPointRight Hand Pointing Right
iesTagLeft Tag Left
iesTagRight Tag Right
iesTagUp Tag Up
iesTagDown Tag Down
iesTag2Left Shopping Tag Left
iesTag2Right Shopping Tag Right
iesTag2Up Shopping Tag Up
iesTag2Down Shopping Tag Down
iesChevronLeft Chevron Left
iesChevronRight Chevron Right
iesChevronUp Chevron Up
iesChevronDown Chevron Down
iesSimpleArrowLeft Simple Arrow Left
iesSimpleArrowRight Simple Arrow Right
iesSimpleArrowUp Simple Arrow Up
iesSimpleArrowDown Simple Arrow Down
iesSimpleArrowNW Simple Arrow NW
iesSimpleArrowNE Simple Arrow NE
iesSimpleArrowSW Simple Arrow SW
iesSimpleArrowSE Simple Arrow SE
iesFlag Flag
iesDinosaur Dinosaur
iesPineTree Pine Tree
iesPalmTree Palm Tree
iesBalloon Balloon
iesGladiator Gladiator
iesLink Link
* Can be modified by TIEShapeLayer.ShapeModifier


Examples

// Append a Star layer
ImageEnView1.LayersAdd( ielkShape );
TIEShapeLayer( ImageEnView1.CurrentLayer ).Shape := iesStar5;
TIEShapeLayer( ImageEnView1.CurrentLayer ).AspectRatioLocked := True;
ImageEnView1.CurrentLayer.FillColor := clRed;
ImageEnView1.Update();



// Explosion Shape
TIEShapeLayer( ImageEnView1.CurrentLayer ).Shape := iesExplosion;



// Triangle Shape
TIEShapeLayer( ImageEnView1.CurrentLayer ).Shape := iesTriangle;



// Arrow Shape
TIEShapeLayer( ImageEnView1.CurrentLayer ).Shape := iesShootingArrowSW;



// Ellipse Shape
TIEShapeLayer( ImageEnView1.CurrentLayer ).Shape := iesEllipse;



// Lightning Shape
TIEShapeLayer( ImageEnView1.CurrentLayer ).Shape := iesLightningLeft;



// Allow user to change the shape using the mouse wheel
procedure Tfmain.ImageEnView1MouseWheel(Sender: TObject; Shift: TShiftState;
    WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
var
  lyr: TIEShapeLayer;
begin
  if ( ImageEnView1.LayersCurrent > 0 ) and ( ImageEnView1.CurrentLayer.Kind = ielkShape ) then
  begin
    lyr :=  TIEShapeLayer( ImageEnView1.CurrentLayer );
    if WheelDelta < 0 then
    begin
      if lyr.Shape = High( TIEShape ) then
        lyr.Shape := Low( TIEShape )
      else
        lyr.Shape := TIEShape( ord( lyr.Shape ) + 1 );
    end
    else
    begin
      if lyr.Shape = Low( TIEShape ) then
        lyr.Shape := High( TIEShape )
      else
        lyr.Shape := TIEShape( ord( lyr.Shape ) - 1 );
    end;
    ImageEnView1.Update();
    Handled := True;
  end;
end;


See Also

ShapeModifier
AutoCurving