Update POC

More themes and pictures Dialog cleaned up
4d · Oct 8, 2024 · 9693cfa · 9693cfa
1 parent f3dd314
commit 9693cfa
Show file tree

Hide file tree

Showing 118 changed files with 305 additions and 91 deletions.
diff --git a/Project/Sources/Forms/D_Chat/Images/test3.gif b/Project/Sources/Forms/D_Chat/Images/test3.gif
diff --git a/Project/Sources/Forms/D_Chat/ObjectMethods/Button4.4dm b/Project/Sources/Forms/D_Chat/ObjectMethods/Button4.4dm
@@ -0,0 +1,24 @@
+var $aiParameters : Object
+var $file : 4D:C1709.File
+
+$file:=File:C1566(Folder:C1567(fk resources folder:K87:11).path+"Images/AI/"+Form:C1466.prompt+".png")
+
+If (Not:C34($file.exists))
+
+
+	$aiParameters:=New object:C1471
+
+	$aiParameters.apiKey:=Form:C1466.apiKey
+	$aiParameters.windowID:=Form:C1466.windowID
+
+	$aiParameters.function:="images"
+	$aiParameters.callbackAction:="icon"  //same : chat or picture
+	$aiParameters.prompt:=Form:C1466.prompt
+
+	$aiParameters.size:="1024x1024"  // for pictures only
+
+	Form:C1466.answer:=""
+	OBJECT SET VISIBLE:C603(*; "waitGears"; True:C214)
+	AI Call($aiParameters)
+
+End if 
diff --git a/Project/Sources/Forms/D_Chat/ObjectMethods/Prompt.4dm b/Project/Sources/Forms/D_Chat/ObjectMethods/Prompt.4dm
@@ -0,0 +1,2 @@
+Form:C1466.prompt:=Get edited text:C655
+SET TIMER:C645(-1)
diff --git a/...ces/Forms/D_Chat/ObjectMethods/Button.4dm → ...orms/D_Chat/ObjectMethods/btnGenerate.4dm b/...ces/Forms/D_Chat/ObjectMethods/Button.4dm → ...orms/D_Chat/ObjectMethods/btnGenerate.4dm
@@ -6,9 +6,11 @@ $aiParameters.apiKey:=Form:C1466.apiKey
 $aiParameters.windowID:=Form:C1466.windowID
 
 $aiParameters.function:=Form:C1466.local.tabs.values[Form:C1466.local.tabs.index]  // chat or picture
-$aiParameters.callbackAction:=$aiParameters.function  //same : chat or picture
+$aiParameters.callbackAction:=$aiParameters.function  //same : chat or "images"
 $aiParameters.prompt:=Form:C1466.prompt
 
+$aiParameters.size:="1024x1024"  // for pictures only
+
 Form:C1466.answer:=""
 OBJECT SET VISIBLE:C603(*; "waitGears"; True:C214)
 AI Call($aiParameters)

diff --git a/Project/Sources/Forms/D_Chat/ObjectMethods/btnThem1.4dm b/Project/Sources/Forms/D_Chat/ObjectMethods/btnThem1.4dm
@@ -2,3 +2,4 @@ var $id : Integer
 $id:=Num:C11(OBJECT Get name:C1087(Object current:K67:2))
 
 Form:C1466.prompt:=Form:C1466.buttonThems[$id-1].prompt
+SET TIMER:C645(-1)
diff --git a/Project/Sources/Forms/D_Chat/ObjectMethods/btnThem2.4dm b/Project/Sources/Forms/D_Chat/ObjectMethods/btnThem2.4dm
@@ -2,3 +2,4 @@ var $id : Integer
 $id:=Num:C11(OBJECT Get name:C1087(Object current:K67:2))
 
 Form:C1466.prompt:=Form:C1466.buttonThems[$id-1].prompt
+SET TIMER:C645(-1)
diff --git a/Project/Sources/Forms/D_Chat/ObjectMethods/btnThem3.4dm b/Project/Sources/Forms/D_Chat/ObjectMethods/btnThem3.4dm
@@ -2,3 +2,4 @@ var $id : Integer
 $id:=Num:C11(OBJECT Get name:C1087(Object current:K67:2))
 
 Form:C1466.prompt:=Form:C1466.buttonThems[$id-1].prompt
+SET TIMER:C645(-1)
diff --git a/Project/Sources/Forms/D_Chat/ObjectMethods/btnThem4.4dm b/Project/Sources/Forms/D_Chat/ObjectMethods/btnThem4.4dm
@@ -2,3 +2,4 @@ var $id : Integer
 $id:=Num:C11(OBJECT Get name:C1087(Object current:K67:2))
 
 Form:C1466.prompt:=Form:C1466.buttonThems[$id-1].prompt
+SET TIMER:C645(-1)
diff --git a/Project/Sources/Forms/D_Chat/ObjectMethods/btnThem5.4dm b/Project/Sources/Forms/D_Chat/ObjectMethods/btnThem5.4dm
@@ -2,3 +2,4 @@ var $id : Integer
 $id:=Num:C11(OBJECT Get name:C1087(Object current:K67:2))
 
 Form:C1466.prompt:=Form:C1466.buttonThems[$id-1].prompt
+SET TIMER:C645(-1)
diff --git a/Project/Sources/Forms/D_Chat/ObjectMethods/btnThem6.4dm b/Project/Sources/Forms/D_Chat/ObjectMethods/btnThem6.4dm
@@ -2,3 +2,4 @@ var $id : Integer
 $id:=Num:C11(OBJECT Get name:C1087(Object current:K67:2))
 
 Form:C1466.prompt:=Form:C1466.buttonThems[$id-1].prompt
+SET TIMER:C645(-1)
Original file line number	Diff line number	Diff line change
		@@ -0,0 +1,2 @@
		Form:C1466.prompt:=Get edited text:C655
		SET TIMER:C645(-1)
Original file line number	Diff line number	Diff line change
Expand Up		@@ -2,3 +2,4 @@ var $id : Integer
		$id:=Num:C11(OBJECT Get name:C1087(Object current:K67:2))

		Form:C1466.prompt:=Form:C1466.buttonThems[$id-1].prompt
		SET TIMER:C645(-1)