Git Product home page Git Product logo

delphifmxcomponenttocode's Introduction

DelphiFMXComponentToCode

Primitive Components (Design) To Code

From

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

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;

delphifmxcomponenttocode's People

Contributors

hemulgm avatar

Recommend Projects

  • React photo React

    A declarative, efficient, and flexible JavaScript library for building user interfaces.

  • Vue.js photo Vue.js

    ๐Ÿ–– Vue.js is a progressive, incrementally-adoptable JavaScript framework for building UI on the web.

  • Typescript photo Typescript

    TypeScript is a superset of JavaScript that compiles to clean JavaScript output.

  • TensorFlow photo TensorFlow

    An Open Source Machine Learning Framework for Everyone

  • Django photo Django

    The Web framework for perfectionists with deadlines.

  • D3 photo D3

    Bring data to life with SVG, Canvas and HTML. ๐Ÿ“Š๐Ÿ“ˆ๐ŸŽ‰

Recommend Topics

  • javascript

    JavaScript (JS) is a lightweight interpreted programming language with first-class functions.

  • web

    Some thing interesting about web. New door for the world.

  • server

    A server is a program made to process requests and deliver data to clients.

  • Machine learning

    Machine learning is a way of modeling and interpreting data that allows a piece of software to respond intelligently.

  • Game

    Some thing interesting about game, make everyone happy.

Recommend Org

  • Facebook photo Facebook

    We are working to build community through open source technology. NB: members must have two-factor auth.

  • Microsoft photo Microsoft

    Open source projects and samples from Microsoft.

  • Google photo Google

    Google โค๏ธ Open Source for everyone.

  • D3 photo D3

    Data-Driven Documents codes.