Merge branch 'develop'

Author: Cesar4D

Samples/FunctionCalling/Src/Main.View.dfm

@@ -21,9 +21,8 @@ object MainView: TMainView
     Height = 5
     Cursor = crVSplit
     Align = alTop
-    ExplicitLeft = -284
-    ExplicitTop = 233
-    ExplicitWidth = 1025
+    ExplicitLeft = 1
+    ExplicitTop = 320
   end
   object pnTop: TPanel
     Left = 0
@@ -202,8 +201,6 @@ object MainView: TMainView
             Caption = 'Dados produto'
             TabOrder = 2
             OnClick = btnDadosProdutoClick
-            ExplicitLeft = -6
-            ExplicitTop = -3
           end
         end
         object pnDefaultsPrompts02: TPanel
@@ -308,6 +305,7 @@ object MainView: TMainView
       Padding.Right = 2
       Padding.Bottom = 2
       TabOrder = 1
+      ExplicitLeft = 2
       object btnExecute: TBitBtn
         Left = 1
         Top = 3

Samples/IANaPraticaGroup.groupproj

@@ -15,6 +15,9 @@
         <Projects Include="FunctionCalling\FunctionCalling.dproj">
             <Dependencies/>
         </Projects>
+        <Projects Include="Images\Images.dproj">
+            <Dependencies/>
+        </Projects>
     </ItemGroup>
     <ProjectExtensions>
         <Borland.Personality>Default.Personality.12</Borland.Personality>
@@ -59,14 +62,23 @@
     <Target Name="FunctionCalling:Make">
         <MSBuild Projects="FunctionCalling\FunctionCalling.dproj" Targets="Make"/>
     </Target>
+    <Target Name="Images">
+        <MSBuild Projects="Images\Images.dproj"/>
+    </Target>
+    <Target Name="Images:Clean">
+        <MSBuild Projects="Images\Images.dproj" Targets="Clean"/>
+    </Target>
+    <Target Name="Images:Make">
+        <MSBuild Projects="Images\Images.dproj" Targets="Make"/>
+    </Target>
     <Target Name="Build">
-        <CallTarget Targets="IAChat;Models;APIKey;FunctionCalling"/>
+        <CallTarget Targets="IAChat;Models;APIKey;FunctionCalling;Images"/>
     </Target>
     <Target Name="Clean">
-        <CallTarget Targets="IAChat:Clean;Models:Clean;APIKey:Clean;FunctionCalling:Clean"/>
+        <CallTarget Targets="IAChat:Clean;Models:Clean;APIKey:Clean;FunctionCalling:Clean;Images:Clean"/>
     </Target>
     <Target Name="Make">
-        <CallTarget Targets="IAChat:Make;Models:Make;APIKey:Make;FunctionCalling:Make"/>
+        <CallTarget Targets="IAChat:Make;Models:Make;APIKey:Make;FunctionCalling:Make;Images:Make"/>
     </Target>
     <Import Project="$(BDS)\Bin\CodeGear.Group.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Group.Targets')"/>
 </Project>

Samples/Images/Images.dpr

@@ -0,0 +1,14 @@
+program Images;
+
+uses
+  Vcl.Forms,
+  Images.Main.View in 'Src\Images.Main.View.pas' {ImagesMainView};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.MainFormOnTaskbar := True;
+  Application.CreateForm(TImagesMainView, ImagesMainView);
+  Application.Run;
+end.