Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Catalog · How the catalog works
Anything · Lazarus or Delphi
Random projectRandom project

DelphiFMXComponentToCode

Primitive Components (Design) To Code

View on GitHub

Member rating

No ratings yet.

Sign in to rate this project.

README

DelphiFMXComponentToCode

Primitive Components (Design) To Code

From

pascal
object LayoutMenu: TLayout
 Anchors = [akLeft, akTop, akRight, akBottom]
 Size.Width = 50.000000000000000000
 Size.Height = 578.000000000000000000
 Size.PlatformDefault = False
 TabOrder = 0
 object SpeedButtonMenu: TSpeedButton
   StaysPressed = True
   Align = Top
   GroupName = 'Menu'
   Hint = #1052#1077#1085#1102
   Images = ImageListIcons
   ImageIndex = 7
   Margins.Bottom = 5.000000000000000000
   Position.X = 2.000000000000000000
   Size.Width = 46.000000000000000000
   Size.Height = 46.000000000000000000
   Size.PlatformDefault = False
   ParentShowHint = False
   ShowHint = True
   StyleLookup = 'speedbutton_style_pro'
   Text = 'SpeedButtonMenu'
   OnClick = SpeedButtonMenuClick
 end
 object FloatAnimationMenuOp: TFloatAnimation
   Duration = 0.200000002980232200
   PropertyName = 'Position.X'
   StartValue = -50.000000000000000000
   StopValue = 0.000000000000000000
 end
end

To

pascal
FloatAnimationMenuOp: TFloatAnimation;
SpeedButtonMenu: TSpeedButton;
LayoutMenu: TLayout;

LayoutMenu := TLayout.Create(Self);
with LayoutMenu do
begin
  Parent := Self;
  Anchors := [akLeft, akTop, akRight, akBottom];
  Size.Width := 50;
  Size.Height := 578;
  Size.PlatformDefault := False;
  TabOrder := 0;
  SpeedButtonMenu := TSpeedButton.Create(Self);
  with SpeedButtonMenu do
  begin
    Parent := LayoutMenu;
    StaysPressed := True;
    Align := TAlignLayout.Top;
    GroupName := 'Menu';
    Hint := #1052#1077#1085#1102;
    Images := ImageListIcons;
    ImageIndex := 7;
    Margins.Bottom := 5;
    Position.X := 2;
    Size.Width := 46;
    Size.Height := 46;
    Size.PlatformDefault := False;
    ParentShowHint := False;
    ShowHint := True;
    StyleLookup := 'speedbutton_style_pro';
    Text := 'SpeedButtonMenu';
    OnClick := SpeedButtonMenuClick;
  end;
  FloatAnimationMenuOp := TFloatAnimation.Create(Self);
  with FloatAnimationMenuOp do
  begin
    Parent := LayoutMenu;
    Duration := 0.200000002980232200;
    PropertyName := 'Position.X';
    StartValue := -50;
    StopValue := 0;
  end;
end;