var
Form1: TclForm;
songEdit: TclProEdit;
BtnAddSong,BtnSuggest,BtnDelete: TClProButton;
lblName: TClProLabel;
mainLayout: TclLayout;
Memo1 : TclMemo;
rand,len : Integer;
rndSong: String;
void addSong
{
Memo1.Lines.Add('●'+songEdit.Text);
ShowMessage('Şarkı eklendi ');
songEdit.Text= '';
}
void deleteSong
{
Memo1.Lines.Delete(1);
ShowMessage('Şarkı silindi ');
}
void randomSong
{
len= StrToInt((Memo1.Lines.Count-1));
rand = clMath.GenerateRandom(1,len);
rndSong= Memo1.Lines[rand];
ShowMessage(rndSong);
}
{
Form1 = TclForm.Create(Self);
Form1.SetFormColor('#4d5166','',clGNone);
//Ana layout
mainLayout = Form1.AddNewLayout(Form1, 'mainLayout');
mainLayout.Align = alClient;
mainLayout.Margins.Bottom=50;
//Şarkı girme edit
songEdit=Form1.AddNewProEdit(mainLayout, 'songEdit', 'Write a song...');
songEdit.Align = alTop;
songEdit.Margins.Top=50;
songEdit.Width = 250;
songEdit.Height = 30;
songEdit.clProSettings.IsRound=True;
songEdit.clProSettings.RoundHeight=15;
songEdit.clProSettings.RoundWidth=15;
songEdit.SetclProSettings(songEdit.clProSettings);
// Şarkı listeleme
Memo1= Form1.AddNewMemo(mainLayout,'Memo1', '');
Memo1.Height=250;
Memo1.Width=500;
Memo1.Align=alCenter;
Memo1.ReadOnly=True;
Memo1.TextSettings.WordWrap = True;
Memo1.Lines.Add('SONG LIST');
Memo1.TextSettings.HorzAlign = taCenter;
Memo1.TextSettings.Font.Size=50;
// Label şarkı ismi
lblName = Form1.AddNewProLabel(mainLayout, 'lblName', '');
lblName.Width=100;
lblName.Align=alVertCenter;
lblName.clProSettings.FontSize = 20;
lblName.clProSettings.FontColor = clAlphaColor.clHexToColor('#a8ffde');
lblName.clProSettings.TextSettings.Font.Style = [fsBold];
lblName.SetclProSettings(lblName.clProSettings);
//Buton şarkı ekleme
BtnAddSong=Form1.AddNewProButton(mainLayout, 'BtnAddSong', 'Add Song');
BtnAddSong.Margins.Bottom=5;
BtnAddSong.Align=alBottom;
BtnAddSong.Height=35;
BtnAddSong.Width=100;
BtnAddSong.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');
BtnAddSong.clProSettings.FontSize = 15;
BtnAddSong.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#2cc361');
BtnAddSong.clProSettings.IsRound=True;
BtnAddSong.clProSettings.RoundHeight=20;
BtnAddSong.clProSettings.RoundWidth=20;
BtnAddSong.clProSettings.TextSettings.Font.Style = [fsBold];
BtnAddSong.SetclProSettings(BtnAddSong.clProSettings);
Form1.AddNewEvent(BtnAddSong,tbeOnClick,'addSong');
//Buton son eklenen şarkıyı silme
BtnDelete=Form1.AddNewProButton(mainLayout, 'BtnDelete', 'Delete Song');
BtnDelete.Margins.Bottom=5;
BtnDelete.Align=alBottom;
BtnDelete.Height=35;
BtnDelete.Width=100;
BtnDelete.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');
BtnDelete.clProSettings.FontSize = 15;
BtnDelete.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#ff5c5c');
BtnDelete.clProSettings.IsRound=True;
BtnDelete.clProSettings.RoundHeight=20;
BtnDelete.clProSettings.RoundWidth=20;
BtnDelete.clProSettings.TextSettings.Font.Style = [fsBold];
BtnDelete.SetclProSettings(BtnDelete.clProSettings);
Form1.AddNewEvent(BtnDelete,tbeOnClick,'deleteSong');
//Buton rastgele şarkı öner
BtnSuggest=Form1.AddNewProButton(mainLayout, 'BtnSuggest', 'Random song');
BtnSuggest.Margins.Bottom=5;
BtnSuggest.Align=alBottom;
BtnSuggest.Height=35;
BtnSuggest.Width=100;
BtnSuggest.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');
BtnSuggest.clProSettings.FontSize = 15;
BtnSuggest.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#488efe');
BtnSuggest.clProSettings.IsRound=True;
BtnSuggest.clProSettings.RoundHeight=20;
BtnSuggest.clProSettings.RoundWidth=20;
BtnSuggest.clProSettings.TextSettings.Font.Style = [fsBold];
BtnSuggest.SetclProSettings(BtnSuggest.clProSettings);
Form1.AddNewEvent(BtnSuggest,tbeOnClick,'randomSong');
Form1.Run;
}