Initial commit.

Author: FMXExpress

CodeDroidAI.dpr

@@ -0,0 +1,17 @@
+program CodeDroidAI;
+
+uses
+  System.StartUpCopy,
+  FMX.Forms,
+  Skia.FMX,
+  uMainForm in 'uMainForm.pas' {MainForm},
+  uItemFrame in 'uItemFrame.pas' {FrameItem: TFrame};
+
+{$R *.res}
+
+begin
+  GlobalUseSkia := True;
+  Application.Initialize;
+  Application.CreateForm(TMainForm, MainForm);
+  Application.Run;
+end.

CodeDroidAI.dproj

@@ -0,0 +1,9 @@
+program MyProgram;
+
+var
+  i: Integer;
+
+begin
+  for i := 0 to 9 do
+    writeln(i);
+end.

ConsoleProgram.dpr

@@ -0,0 +1,73 @@
+object FrameItem: TFrameItem
+  Size.Width = 297.000000000000000000
+  Size.Height = 193.000000000000000000
+  Size.PlatformDefault = False
+  object Panel1: TPanel
+    Align = Client
+    Margins.Left = 5.000000000000000000
+    Margins.Top = 5.000000000000000000
+    Margins.Right = 5.000000000000000000
+    Margins.Bottom = 5.000000000000000000
+    Size.Width = 287.000000000000000000
+    Size.Height = 183.000000000000000000
+    Size.PlatformDefault = False
+    TabOrder = 0
+    OnClick = Panel1Click
+    object TitleLabel: TLabel
+      Align = Top
+      AutoSize = True
+      StyledSettings = [Family, Style, FontColor]
+      Margins.Left = 20.000000000000000000
+      Margins.Right = 20.000000000000000000
+      Margins.Bottom = 5.000000000000000000
+      Position.X = 20.000000000000000000
+      Position.Y = 52.000000000000000000
+      Size.Width = 247.000000000000000000
+      Size.Height = 27.000000000000000000
+      Size.PlatformDefault = False
+      TextSettings.Font.Size = 20.000000000000000000
+      Text = 'Generate Procedures'
+      TabOrder = 1
+    end
+    object Line1: TLine
+      Align = Top
+      HitTest = False
+      LineType = Top
+      Position.Y = 84.000000000000000000
+      Size.Width = 287.000000000000000000
+      Size.Height = 11.000000000000000000
+      Size.PlatformDefault = False
+      Stroke.Color = claSteelblue
+    end
+    object DescriptionLabel: TLabel
+      Align = Client
+      AutoSize = True
+      Margins.Left = 20.000000000000000000
+      Margins.Top = 5.000000000000000000
+      Margins.Right = 20.000000000000000000
+      Margins.Bottom = 20.000000000000000000
+      Size.Width = 247.000000000000000000
+      Size.Height = 63.000000000000000000
+      Size.PlatformDefault = False
+      TextSettings.VertAlign = Leading
+      Text = 'Generates code procedures by describing what it should do.'
+      TabOrder = 3
+    end
+    object EmojiLabel: TLabel
+      Align = Top
+      AutoSize = True
+      StyledSettings = [Family, Style, FontColor]
+      Margins.Left = 20.000000000000000000
+      Margins.Top = 20.000000000000000000
+      Margins.Right = 20.000000000000000000
+      Position.X = 20.000000000000000000
+      Position.Y = 20.000000000000000000
+      Size.Width = 247.000000000000000000
+      Size.Height = 32.000000000000000000
+      Size.PlatformDefault = False
+      TextSettings.Font.Size = 24.000000000000000000
+      Text = #55358#56598
+      TabOrder = 0
+    end
+  end
+end

ConsoleProgram.dproj

@@ -0,0 +1,36 @@
+unit uItemFrame;
+
+interface
+
+uses
+  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, 
+  FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls,
+  FMX.Objects, FMX.Controls.Presentation;
+
+type
+  TFrameItem = class(TFrame)
+    Panel1: TPanel;
+    TitleLabel: TLabel;
+    Line1: TLine;
+    DescriptionLabel: TLabel;
+    EmojiLabel: TLabel;
+    procedure Panel1Click(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+implementation
+
+{$R *.fmx}
+
+uses
+  uMainForm;
+
+procedure TFrameItem.Panel1Click(Sender: TObject);
+begin
+  MainForm.LoadTemplate(Self.Tag);
+end;
+
+end.

uItemFrame.fmx

@@ -0,0 +1,24 @@
+[MainForm.LanguageMT]
+Visible=False
+
+[MainForm.RSVarsFDMemTable]
+Visible=False
+
+[MainForm.PlatformFDMemTable]
+Visible=False
+
+[MainForm.ProjectsFDMemTable]
+Visible=False
+
+[MainForm.LanguageMT2]
+Visible=False
+
+[MainForm.HistoryMT]
+Visible=False
+
+[MainForm.ModelsMT]
+Visible=False
+
+[MainForm.TemplatesMT]
+Visible=False
+