View Single Post
  #14  
Old 18-12-2014, 07:26
Razor12911's Avatar
Razor12911 Razor12911 is offline
Noob
 
Join Date: Jul 2012
Location: South Africa
Posts: 3,751
Thanks: 2,181
Thanked 11,211 Times in 2,309 Posts
Razor12911 is on a distinguished road
Some pictures of Advanced Setup Creator

At least you MAY be able to add as many labels, images and other graphic objects as you want and remove the ones which you do not want.


Working with this difficult Delphi code but I am learning, and I now know what is happening.

type
TCustomEffect = (efNormal, efShadow, efBlur, efGlow, efInnerGlow, efReflection);
TCustomFontStyles = record
Bold, Italic, Underline, StrikeOut, Uppercase, Lowercase: Boolean;
end;
TCustomPosition = record
Left, Top, Width, Height, Rotation, OffsetX, OffSetY: Single;
end;
TCustomLabel = class
strict private
Shd: TShadowEffect;
Blr: TBlurEffect;
Glw: TGlowEffect;
IGl: TInnerGlowEffect;
Ref: TReflectionEffect;
Sel: TSelection;
Lbl: TLabel;
Text: String;
public
protected
published
constructor Create(AOwner: TComponent);
function ReadPosition: TCustomPosition;
function ReadFont: TFont;
function ReadFontColor: TAlphaColor;
function ReadText: String;
procedure WritePosition(Left, Top, Width, Height, Rotation, OffsetX, OffSetY: Single);
function WriteFont: TFont;
function WriteFontColor: TAlphaColor;
function WrtieText: String;
end;
Attached Images
File Type: jpg 1.JPG (73.3 KB, 2105 views)
File Type: jpg 2.JPG (143.3 KB, 2114 views)
Reply With Quote
The Following 4 Users Say Thank You to Razor12911 For This Useful Post:
amgad_800 (03-03-2015), arkantos7 (18-12-2014), Carldric Clement (18-12-2014), mausschieber (18-12-2014)