Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Genel İşlemler
  Aktif Konular Aktif Konular RSS - ekran sorunu
  SSS SSS  Forumu Ara   Etkinlikler   Kayıt Ol Kayıt Ol  Giriş Giriş

Clomosy Resmi Forum Sitesidir. Amacımız kullanıcılarımıza, iş ortaklarımıza, danışmanlara, yazılımcılara programlarımız hakkında destek ve bilgi vermektir.

ekran sorunu
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
Barthe_dev Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 4 Saat 15 Dakika Önce
Konum: konya
Durum: Aktif Değil
Puanlar: 4 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Barthe_dev Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: ekran sorunu
    Gönderim Zamanı: 4 Saat 5 Dakika Önce Saat 10:40
//ShowMessage('Hello world');


//Degisken deger atma
/*var
  sayi: Integer;
  {
    sayi=10;
    ShowMessage(sayi);
  }
*/

/*var 
sayi1,sayi2:Integer;
{
  sayi1=50;
  sayi2=60;
  ShowMessage(sayi2+sayi1);
}*/

/*var 
i:Integer
{
  for(i=1 to 7)
  ShowMessage(i*2)
}*/

/*var 
i,fac:Integer;
{
  fac=1;
  for(i=1 to 7)
  {
    fac=fac*i;
  }
  ShowMessage(fac);
}*/

/*const 
pi=3;
function yaricapi(r:Integer):Integer
{
  Result=((r*r)*pi)
}
{
  ShowMessage(yaricapi(5));
}*/


var 
anaForm : TCLForm;
testBtn:TCLProButton;
testCheckBox,testCheckBox2 : TClCheckBox;
testCombo : TClComboBox;
testEdit : TclEdit;
testButtonX,testButtonY:TCLButton;
counter:Integer;
horizontalscrolllbox:TCLHorzScrollBox;
verticalscrollbox:TCLVertScrollBox;
testListView=TCLListView;
 void ButtonClicked;
 {
   testCheckBox.isChecked = not testCheckBox.isChecked;
   testCheckBox2.isChecked = not testCheckBox2.isChecked;
 }
 
  void ComboSelected;
 var
   strValue,strKey,strKey2 : String;
 {
   strValue = testCombo.GetValueIndex(testCombo.ItemIndex);
   strKey = testCombo.GetItemIndex(testCombo.ItemIndex);
   strKey2 = testCombo.Items[testCombo.ItemIndex];

   ShowMessage('strValue : '+strValue); //value1
   ShowMessage('strKey : '+strKey); //key
   ShowMessage('strKey2 : '+strKey2); //key
   ShowMessage('testCombo.ItemIndex : '+IntToStr(testCombo.ItemIndex)); //index 
 }
 
 void OnClickmessage;
 {
   ShowMessage('My first  button demo on clomosy');
 }

{
  anaForm=TCLForm.create(self);
  testBtn=anaForm.AddNewProButton(anaForm,'TestBtn', 'Tikla');
  testBtn.Align = alCenter;
  testBtn.Height = 50;
  testBtn.Width = 100;
  testBtn.clProSettings.BackgroundColor= clAlphaColor.clHextoColor ('#c02121');
  anaForm.AddNewEvent(testBtn,tbeOnClick,'OnClickmessage');
  
  testBtn.SetclProSettings(testBtn.clProSettings)
  
  testCheckBox = anaForm.AddNewCheckBox(anaForm,'testCheckBox','Reading book');
  testCheckBox.StyledSettings = ssFamily;
  testCheckBox.TextSettings.Font.Size=15;
  testCheckBox.TextSettings.FontColor = clAlphaColor.clHexToColor('#272643');
  testCheckBox.Align = alTop;
  testCheckBox.Height = 30;
   
  testCheckBox2 = anaForm.AddNewCheckBox(anaForm,'testCheckBox2','Watching movie');
  testCheckBox2.StyledSettings = ssFamily;
  testCheckBox2.TextSettings.Font.Size=15;
  testCheckBox2.TextSettings.FontColor = clAlphaColor.clHexToColor('#272643');
  testCheckBox2.Align = alTop;
  testCheckBox2.Height = 30;
  
  
  testCombo = anaForm.AddNewComboBox(anaForm,'testCombo');
 testCombo.Align = alTop;
 testCombo.Width = 150;
 testCombo.Margins.Top=10;
 testCombo.Margins.Left =50;
 testCombo.Margins.Right =50;

 testCombo.AddItem('Monday','01');
 testCombo.AddItem('Tuesday','02');
 testCombo.AddItem('Wednesday','03');
 testCombo.AddItem('Thursday','04');
 testCombo.AddItem('Friday','05');
 testCombo.AddItem('Saturday','06');
 testCombo.AddItem('Sunday','07');
 
 testEdit= anaForm.AddNewEdit(anaForm,'testEdit','Write something');
 testEdit.TextSettings.Font.Size=70;
 testEdit.Align = alTop;
 testEdit.Margins.Top= 10; 
 testEdit.Height = 50;
 
 horizontalscrolllbox=anaForm.AddNewHorzScrollBox(anaForm,'ScrollBoxX');
 horizontalscrolllbox.Align=alMostTop;
 horizontalscrolllbox.Height=50
 
 verticalscrollbox=anaForm.AddNewVertScrollBox(anaForm,'ScrollBoxY');
 verticalscrollbox.Align=alMostTop;
 verticalscrollbox.Height=150
 
 for (counter=1 to 15)
 {
   testButtonX=anaForm.AddNewButton(horizontalscrolllbox,'testButtonX'+IntToStr(counter), 'ButtonX'+IntToStr(counter));
   testButtonX.Align=alLeft;
   testButtonX.Height=50;
   testButtonX.StyledSettings=ssFamily;
   testButtonX.TextSettings.FontColor=clAlphaColor.clHexToColor('#2c867c')
 }
 for (counter=1 to 15)
 {
   testButtonY=anaForm.AddNewButton(verticalscrollbox,'testButtonY'+IntToStr(counter), 'testButtonY'+IntToStr(counter));
   testButtonY.Align=alTop;
   testButtonY.Height=50;
   testButtonY.StyledSettings=ssFamily;
   testButtonY.TextSettings.FontColor=clAlphaColor.clHexToColor('#8a067c')
 }
 
 
  testListView = anaForm.AddNewListView(MyForm,'testListView');
  testListView.Align = alClient;
  testListView.clLoadListViewDataFromDataset(Clomosy.ClDataSetFromJSON('[
  {"RECORD_GUID":"AAAAAA","MAIN_TEXT":"Hello World","SUB_TEXT":5,"SIDE_TEXT_TOP":1,"SIDE_TEXT_CENTER":1,"SIDE_TEXT_BOTTOM":1,"FOOTER_TEXT":1},
  {"RECORD_GUID":"BBBBBB","MAIN_TEXT":"Hi World","SUB_TEXT":1,"SIDE_TEXT_TOP":1,"SIDE_TEXT_CENTER":1,"SIDE_TEXT_BOTTOM":1,"FOOTER_TEXT":1}]'));
  testListView.CheckedProperty = True; //It must be enabled if a CheckBox is to be used within the ListView.
  
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
  anaForm.Run;
}





















https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">
Yukarı Dön
Emr.Erkmn Açılır Kutu İzle
Moderatör
Moderatör


Kayıt Tarihi: 28 Şubat 2025
Durum: Aktif Değil
Puanlar: 960 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Emr.Erkmn Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 3 Saat 45 Dakika Önce Saat 11:00
Merhaba Barthez 

İki temel hatan mevcut. 
Biri değişken tanımlarken testListView=TCLListView; atama operatörünü kullanman
testListView : TCLListView; olması gerekiyordu 

Bir diğeri de   testListView = anaForm.AddNewListView(MyForm,'testListView'); ilgili satır da myform olarak geçiyor formun adı ama değişkenler de tanımlarken anaform şeklinde tanımlamışsın. 
Bunları düzeltince kod çalışıyorhttps://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">
Yukarı Dön
 Yanıt Yaz Yanıt Yaz

Forum Atla Forum İzinleri Açılır Kutu İzle

Forum Software by Web Wiz Forums® version 12.07
Copyright ©2001-2024 Web Wiz Ltd.

Bu Sayfa 0,035 Saniyede Yüklendi.