https://github.com/hemulgm/delphifmxcomponenttocode
Primitive Components (Design) To Code
https://github.com/hemulgm/delphifmxcomponenttocode
delphi fmx
Last synced: 3 days ago
JSON representation
Primitive Components (Design) To Code
- Host: GitHub
- URL: https://github.com/hemulgm/delphifmxcomponenttocode
- Owner: HemulGM
- License: mit
- Created: 2021-04-26T18:29:29.000Z (over 4 years ago)
- Default Branch: main
- Last Pushed: 2021-04-26T18:36:16.000Z (over 4 years ago)
- Last Synced: 2025-02-27T17:36:32.209Z (7 months ago)
- Topics: delphi, fmx
- Language: Pascal
- Homepage:
- Size: 57.6 KB
- Stars: 9
- Watchers: 5
- Forks: 3
- Open Issues: 0
-
Metadata Files:
- Readme: README.md
- License: LICENSE
Awesome Lists containing 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;
```