var
talepForm: TclStyleForm;
baslikLbl: TClProLabel;
requestpnl: TClProPanel;
baslikedit, aciklamaedit: TClProEdit;
eklebtn: TClProButton;
kullaniciEmail: String;
UserID: Integer;
OpenAIEngine: TclOpenAIEngine;
bekleyenBaslik, bekleyenAciklama, modul: String;
void TalepEkle;
{
bekleyenBaslik = baslikedit.Text;
bekleyenAciklama = aciklamaedit.Text;
OpenAIEngine.SendAIMessage(
'Aşağıdaki açıklama hangi yazılım modülüne ait? Sadece modül adını 1-2 kelimeyle belirt:\n' +
'"' + bekleyenAciklama + '"'
);
ShowMessage('Yapay zeka tahmin yapıyor...');
}
void OnNewMessageEvent;
{
modul = OpenAIEngine.NewMessageContent;
kullaniciEmail = Clomosy.GlobalVariableString;
UserID = Clomosy.GlobalVariableString;
Clomosy.DBSQLiteQuery.SQL.Text =
'INSERT INTO Talepler (kullanici_email, kullanici_id, baslik, aciklama, modul) VALUES (' +
QuotedStr(kullaniciEmail) + ',' +
IntToStr(UserID) + ',' +
QuotedStr(bekleyenBaslik) + ',' +
QuotedStr(bekleyenAciklama) + ',' +
QuotedStr(modul) + ')';
Clomosy.DBSQLiteQuery.OpenOrExecute;
ShowMessage('Talep başarıyla eklendi. Tahmini modül: ' + modul);
baslikedit.Text = '';
aciklamaedit.Text = '';
}
{
talepForm = TclStyleForm.Create(Self);
talepForm.SetFormBGImage(' https://i.imgur.com/rQmEqR4.jpeg" rel="nofollow - https://i.imgur.com/rQmEqR4.jpeg ');
baslikLbl = talepForm.AddNewProLabel(talepForm, 'baslikLbl', 'Talep Oluştur');
baslikLbl.Align = alTop;
baslikLbl.Margins.Top = 10;
baslikLbl.Height = 40;
baslikLbl.clProSettings.FontSize = 30;
baslikLbl.clProSettings.TextSettings.Font.Style = [fsBold];
baslikLbl.clProSettings.FontHorzAlign = palCenter;
baslikLbl.SetclProSettings(baslikLbl.clProSettings);
requestpnl = talepForm.AddNewProPanel(talepForm, 'requestpnl');
requestpnl.Align = alCenter;
requestpnl.Height = 350;
requestpnl.Width = 400;
requestpnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ffffff');
requestpnl.clProSettings.RoundWidth = 8;
requestpnl.clProSettings.RoundHeight = 8;
requestpnl.SetclProSettings(requestpnl.clProSettings);
requestpnl.BringToFront;
baslikedit = talepForm.AddNewProEdit(requestpnl, 'baslikedit', 'Talep Başlığı');
baslikedit.Align = alTop;
baslikedit.Height = 40;
baslikedit.Width = 60;
baslikedit.clProSettings.FontHorzAlign = palCenter;
baslikedit.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#58d7f4');
baslikedit.SetclProSettings(baslikedit.clProSettings);
aciklamaedit = talepForm.AddNewProEdit(requestpnl, 'aciklamaedit', 'Açıklama');
aciklamaedit.Align = alTop;
aciklamaedit.Margins.Top = 10;
aciklamaedit.Height = 200;
aciklamaedit.Width = 250;
aciklamaedit.clProSettings.FontVertAlign = palLeading;
aciklamaedit.clProSettings.FontHorzAlign = palLeading;
aciklamaedit.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#58d7f4');
aciklamaedit.SetclProSettings(aciklamaedit.clProSettings);
eklebtn = talepForm.AddNewProButton(requestpnl, 'eklebtn', 'EKLE');
eklebtn.Align = alBottom;
eklebtn.Margins.Bottom = 5;
eklebtn.Height = 40;
eklebtn.Width = 60;
eklebtn.Margins.Right = 60;
eklebtn.Margins.Left = 60;
eklebtn.clProSettings.RoundHeight = 8;
eklebtn.clProSettings.RoundWidth = 8;
eklebtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#58d7f4');
eklebtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');
eklebtn.clProSettings.TextSettings.Font.Style = [fsBold];
eklebtn.clProSettings.FontSize = 20;
eklebtn.SetclProSettings(eklebtn.clProSettings);
talepForm.AddNewEvent(eklebtn, tbeOnClick, 'TalepEkle');
OpenAIEngine = TclOpenAIEngine.Create(Self);
OpenAIEngine.ParentForm = talepForm;
OpenAIEngine.SetToken('apikeyimbukısımdagüvenlikaçısındaneklemedim');
OpenAIEngine.OnNewMessageEvent = 'OnNewMessageEvent';
talepForm.Run;
}