|
var dcGameForm: TclGameForm; kullaniciBilgileriPanel: TclProPanel; btnOyunaBasla: TClProButton; oyuncuAdiProEdit1,oyuncuAdiProEdit2,oyuncuAdiProEdit3,oyuncuAdiProEdit4: TclProEdit; oyuncuSayisiCmb: TCLComboBox; arkaPlan: TCLImage; ikiKisilikUnit, ucKisilikUnit, dortKisilikUnit: TclUnit; oyuncuSayisiLbl : TClProLabel; addNameQuery : TclSqlQuery;
void butonaTikla; { Clomosy.GlobalVariableString =oyuncuAdiProEdit1.Text+'.'+oyuncuAdiProEdit2.Text+'!'+oyuncuAdiProEdit3.Text+','+oyuncuAdiProEdit4.Text+';';
case oyuncuSayisiCmb.ItemIndex of { 0: Clomosy.RunUnit('ikiKisilikUnit'); // 2 oyuncu seçildiğinde 1: Clomosy.RunUnit('ucKisilikUnit'); // 3 oyuncu seçildiğinde 2: Clomosy.RunUnit('dortKisilikUnit'); // 4 oyuncu seçildiğinde else ShowMessage('Geçersiz Seçim'); } }
{ dcGameForm = TclGameForm.Create(Self); ikiKisilikUnit = TclUnit.Create; ucKisilikUnit = TclUnit.Create; dortKisilikUnit = TclUnit.Create; dcGameForm.SetFormBGImage(' https://i.hizliresim.com/d5u495h.png" rel="nofollow - https://i.hizliresim.com/d5u495h.png ');
// Panel kullaniciBilgileriPanel = dcGameForm.AddNewProPanel(dcGameForm, 'kullaniciBilgileriPanel'); clComponent.SetupComponent(kullaniciBilgileriPanel, '{ "Align" : "Center", "MarginBottom": 135, "MarginTop":110, "Width" : 350, "Height" : 450, "RoundHeight" : 10, "RoundWidth" : 10, "BorderWidth" : 2, "BorderColor" : "#ffffff" }' );
oyuncuSayisiCmb = dcGameForm.AddNewComboBox(kullaniciBilgileriPanel, 'oyuncuSayisiCmb'); oyuncuSayisiCmb.Align = alCenter; oyuncuSayisiCmb.Width = 60; oyuncuSayisiCmb.Height = 30; oyuncuSayisiCmb.Margins.Left = 35; oyuncuSayisiCmb.Margins.Bottom = 400; oyuncuSayisiCmb.AddItem('2', '2'); oyuncuSayisiCmb.AddItem('3', '3'); oyuncuSayisiCmb.AddItem('4', '4');
oyuncuSayisiLbl = dcGameForm.AddNewProLabel(kullaniciBilgileriPanel, 'oyuncuSayisiLbl', 'Oyuncu Sayısını Seçiniz:'); clComponent.SetupComponent(oyuncuSayisiLbl, '{ "Align" : "Center", "MarginRight" :220, "MarginBottom" :400, "TextColor":"#000000", "TextSize":11, "TextVerticalAlign":"center", "TextHorizontalAlign":"left" }');
oyuncuAdiProEdit1 = dcGameForm.AddNewProEdit(kullaniciBilgileriPanel, 'oyuncuAdiProEdit1', 'Oyuncu 1'); clComponent.SetupComponent( oyuncuAdiProEdit1, '{ "Align" : "Center", "MarginBottom" : 200, "Width" : 180, "Height" : 45, "RoundHeight" : 14, "RoundWidth" : 2, "BorderWidth":2 }' ); oyuncuAdiProEdit2 = dcGameForm.AddNewProEdit(kullaniciBilgileriPanel, 'oyuncuAdiProEdit2', 'Oyuncu 2'); clComponent.SetupComponent( oyuncuAdiProEdit2, '{ "Align" : "Center", "MarginBottom" : 100, "Width" : 180, "Height" : 45, "RoundHeight" : 14, "RoundWidth" : 2, "BorderWidth":2 }' ); oyuncuAdiProEdit3 = dcGameForm.AddNewProEdit(kullaniciBilgileriPanel, 'oyuncuAdiProEdit3', 'Oyuncu 3'); clComponent.SetupComponent( oyuncuAdiProEdit3, '{ "Align" : "Center", "MarginTop" : 150, "Width" : 180, "Height" : 45, "RoundHeight" : 14, "RoundWidth" : 2, "BorderWidth":2 }' ); oyuncuAdiProEdit4 = dcGameForm.AddNewProEdit(kullaniciBilgileriPanel, 'oyuncuAdiProEdit4', 'Oyuncu 4'); clComponent.SetupComponent( oyuncuAdiProEdit4, '{ "Align" : "Center", "MarginTop" : 250, "Width" : 180, "Height" : 45, "RoundHeight" : 14, "RoundWidth" : 2, "BorderWidth":2 }' );
btnOyunaBasla = dcGameForm.AddNewProButton(dcGameForm, 'btnOyunaBasla', 'Oyuna Başla'); clComponent.SetupComponent( btnOyunaBasla, '{ "caption" : "Oyuna Başla", "Align" : "Center", "MarginTop" : 340, "Width" : 150, "Height" : 50, "RoundHeight" : 7, "RoundWidth" : 2 , "BorderColor" : "#ffffff" , "BorderWidth" : 2, "BackgroundColor": "#ec7979", "FontStyle":"bold" }' ); addNameQuery = TclSqlQuery.Create(Nil); Clomosy.DBSQLServerConnect('SQL Server', 'DESKTOP-Q7UNJV9\SQLEXPRESS', 'sa', 'Aze129901', 'DC',1433); addNameQuery.Connection = Clomosy.DBSQLServerConnection;
btnOyunaBasla.OnClick = 'butonaTikla'; dcGameForm.Run; }
merhabalar. kod bilgisayarda exe de gayet güzel çalışıyor ancak mobil telefonumda clomosy uygulamasında açamıyorum. siyah ekranda kalıyor.
|