Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Genel İşlemler
  Aktif Konular Aktif Konular RSS - Text hatası
  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.

Text hatası
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
DuCi03131 Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 12 Saat 30 Dakika Önce
Durum: Aktif Değil
Puanlar: 3 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı DuCi03131 Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: Text hatası
    Gönderim Zamanı: 12 Saat 27 Dakika Önce Saat 11:44
PROJEM İÇİN geliştirdiğim kodda 

void ListeyiGuncelle(Lst: TclListView; metin: String);
{
  Lst.Free;
  if (metin == '')
  {
    Lst.Visible = False;
  }
  else
  {
    Lst.Visible = True;
    for (i = 0 to IlSayisi - 1)
    {
      gelenAd = IlListesi;
      if (Pos(UpperCase(metin), UpperCase(gelenAd)) == 1)
      {
        Lst.Items.Add;
        Lst.Items.Item[Lst.Items.Count-1].Text = gelenAd;
      }
    }
    if (Lst.Items.Count == 0)
    {
      Lst.Visible = False;
    }
  }
} 

burası için aldığım hata Unit Main: Unknown member identifier: "Text".
Source position: 106,48  nasıl çözebilirim 
https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" 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: 745 		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ı: 6 Saat 27 Dakika Önce Saat 17:44
Merhaba Emin, 

void ListeyiGuncelle(Lst: TclListView; metin: String);
var
  i: Integer;
  gelenAd, jsonStr: String;
{
  if (metin == '')
  {
    Lst.Visible = False;
    Lst.clLoadListViewDataFromDataset(Clomosy.ClDataSetFromJSON('[]'));
  }
  else
  {
    Lst.Visible = True;
    jsonStr = ''; 
    
    for (i = 0 to IlSayisi - 1)
    {
      gelenAd = IlListesi; 
      
      if (Pos(UpperCase(metin), UpperCase(gelenAd)) == 1)
      {
        if (jsonStr <> '')
        {
          jsonStr = jsonStr + ',';
        }
        
        jsonStr = jsonStr + '{"MAIN_TEXT":"' + gelenAd + '"}';
      }
    }
    
    if (jsonStr == '')
    {
      Lst.Visible = False;
      Lst.clLoadListViewDataFromDataset(Clomosy.ClDataSetFromJSON('[]'));
    }
    else
    {
      jsonStr = '[' + jsonStr + ']';
      
      Lst.clLoadListViewDataFromDataset(Clomosy.ClDataSetFromJSON(jsonStr));
    }
  }
}

Test edip kodunu entegre eder misin?
https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" 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
DuCi03131 Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 12 Saat 30 Dakika Önce
Durum: Aktif Değil
Puanlar: 3 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı DuCi03131 Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 3 Saat 3 Dakika Önce Saat 21:08
Hocam kafayı yıcem orayı düzeltiyom başka yer hata veriyo baska yeri düzeltiyom baska yer hata veriyo 

https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" 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">
var
  MyForm: TclForm;
  PnlLogin: TclProPanel;
  PnlKayit: TclProPanel;
  PnlAna: TclProPanel;
  EdtKullanici: TclProEdit;
  EdtSifre: TclProEdit;
  EdtKayitKullanici: TclProEdit;
  EdtKayitSifre: TclProEdit;
  EdtKayitEmail: TclProEdit;
  BtnGiris: TclProButton;
  BtnKayitOl: TclProButton;
  BtnKaydet: TclProButton;
  BtnGeri: TclProButton;
  BtnRotaOlustur: TclProButton;
  BtnRotaGoster: TclProButton;
  BtnKayitliRotalar: TclProButton;
  LblLoginBaslik: TclProLabel;
  LblKayitBaslik: TclProLabel;
  LblMesaj: TclProLabel;
  LblNereden: TclProLabel;
  LblNereye: TclProLabel;
  LblDetay: TclProLabel;
  CmbNereden: TclComboBox;
  CmbNereye: TclComboBox;
  LstRotalar: TclListView;
  KullaniciAdi: String;
  DB: String;
  ad: String;
  sifre: String;
  email: String;
  varMi: Integer;
  IlListesi: array[0..80] of String;
  IlSayisi: Integer;
  i: Integer;
  benzinSayisi: Integer;
  otelSayisi: Integer;
  benzinListe: String;
  otelListe: String;

void Baglan;
{
  if (Clomosy.PlatformIsMobile)
    DB = Clomosy.AppFilesPath + 'rota.db3'
  else
    DB = Clomosy.AppFilesPath + 'rota.db3';
  Clomosy.DBSQLiteConnect(DB, '');
}

void TabloKontrol;
{
  Clomosy.DBSQLiteQuery.Sql.Text = 'CREATE TABLE IF NOT EXISTS kullanicilar (id INTEGER PRIMARY KEY, kullanici_adi TEXT, sifre TEXT, email TEXT)';
  Clomosy.DBSQLiteQuery.OpenOrExecute;
  Clomosy.DBSQLiteQuery.Sql.Text = 'CREATE TABLE IF NOT EXISTS rotalar (id INTEGER PRIMARY KEY, kullanici_adi TEXT, nereden TEXT, nereye TEXT, tarih TEXT)';
  Clomosy.DBSQLiteQuery.OpenOrExecute;
}

void IlleriYukle;
{
  IlSayisi = 81;
  IlListesi[0] = 'Adana'; IlListesi[1] = 'Adıyaman'; IlListesi[2] = 'Afyonkarahisar'; IlListesi[3] = 'Ağrı';
  IlListesi[4] = 'Aksaray'; IlListesi[5] = 'Amasya'; IlListesi[6] = 'Ankara'; IlListesi[7] = 'Antalya';
  IlListesi[8] = 'Ardahan'; IlListesi[9] = 'Artvin'; IlListesi[10] = 'Aydın'; IlListesi[11] = 'Balıkesir';
  IlListesi[12] = 'Bartın'; IlListesi[13] = 'Batman'; IlListesi[14] = 'Bayburt'; IlListesi[15] = 'Bilecik';
  IlListesi[16] = 'Bingöl'; IlListesi[17] = 'Bitlis'; IlListesi[18] = 'Bolu'; IlListesi[19] = 'Burdur';
  IlListesi[20] = 'Bursa'; IlListesi[21] = 'Çanakkale'; IlListesi[22] = 'Çankırı'; IlListesi[23] = 'Çorum';
  IlListesi[24] = 'Denizli'; IlListesi[25] = 'Diyarbakır'; IlListesi[26] = 'Düzce'; IlListesi[27] = 'Edirne';
  IlListesi[28] = 'Elazığ'; IlListesi[29] = 'Erzincan'; IlListesi[30] = 'Erzurum'; IlListesi[31] = 'Eskişehir';
  IlListesi[32] = 'Gaziantep'; IlListesi[33] = 'Giresun'; IlListesi[34] = 'Gümüşhane'; IlListesi[35] = 'Hakkari';
  IlListesi[36] = 'Hatay'; IlListesi[37] = 'Iğdır'; IlListesi[38] = 'Isparta'; IlListesi[39] = 'İstanbul';
  IlListesi[40] = 'İzmir'; IlListesi[41] = 'Kahramanmaraş'; IlListesi[42] = 'Karabük'; IlListesi[43] = 'Karaman';
  IlListesi[44] = 'Kars'; IlListesi[45] = 'Kastamonu'; IlListesi[46] = 'Kayseri'; IlListesi[47] = 'Kırıkkale';
  IlListesi[48] = 'Kırklareli'; IlListesi[49] = 'Kırşehir'; IlListesi[50] = 'Kilis'; IlListesi[51] = 'Kocaeli';
  IlListesi[52] = 'Konya'; IlListesi[53] = 'Kütahya'; IlListesi[54] = 'Malatya'; IlListesi[55] = 'Manisa';
  IlListesi[56] = 'Mardin'; IlListesi[57] = 'Mersin'; IlListesi[58] = 'Muğla'; IlListesi[59] = 'Muş';
  IlListesi[60] = 'Nevşehir'; IlListesi[61] = 'Niğde'; IlListesi[62] = 'Ordu'; IlListesi[63] = 'Osmaniye';
  IlListesi[64] = 'Rize'; IlListesi[65] = 'Sakarya'; IlListesi[66] = 'Samsun'; IlListesi[67] = 'Siirt';
  IlListesi[68] = 'Sinop'; IlListesi[69] = 'Sivas'; IlListesi[70] = 'Şanlıurfa'; IlListesi[71] = 'Şırnak';
  IlListesi[72] = 'Tekirdağ'; IlListesi[73] = 'Tokat'; IlListesi[74] = 'Trabzon'; IlListesi[75] = 'Tunceli';
  IlListesi[76] = 'Uşak'; IlListesi[77] = 'Van'; IlListesi[78] = 'Yalova'; IlListesi[79] = 'Yozgat';
  IlListesi[80] = 'Zonguldak';
}

void KayitOl;
{
  PnlLogin.Visible = False;
  PnlKayit.Visible = True;
}

void KayitYap;
{
  ad = EdtKayitKullanici.Text;
  sifre = EdtKayitSifre.Text;
  email = EdtKayitEmail.Text;
  
  if (ad == '')
  {
    ShowMessage('Kullanıcı adı giriniz!');
  }
  else if (sifre == '')
  {
    ShowMessage('Şifre giriniz!');
  }
  else
  {
    Clomosy.DBSQLiteQuery.Sql.Text = 'SELECT COUNT(*) as sayi FROM kullanicilar WHERE kullanici_adi = "' + ad + '"';
    Clomosy.DBSQLiteQuery.OpenOrExecute;
    varMi = Clomosy.DBSQLiteQuery.FieldByName('sayi').AsInteger;
    Clomosy.DBSQLiteQuery.Close;
    
    if (varMi > 0)
    {
      ShowMessage('Bu kullanıcı adı zaten alınmış!');
    }
    else
    {
      Clomosy.DBSQLiteQuery.Sql.Text = 'INSERT INTO kullanicilar (kullanici_adi, sifre, email) VALUES ("' + ad + '", "' + sifre + '", "' + email + '")';
      Clomosy.DBSQLiteQuery.OpenOrExecute;
      ShowMessage('Kayıt başarılı! Giriş yapabilirsiniz.');
      EdtKayitKullanici.Text = '';
      EdtKayitSifre.Text = '';
      EdtKayitEmail.Text = '';
      PnlKayit.Visible = False;
      PnlLogin.Visible = True;
    }
  }
}

void GirisYap;
{
  ad = EdtKullanici.Text;
  sifre = EdtSifre.Text;
  
  if (ad == '')
  {
    ShowMessage('Kullanıcı adı giriniz!');
  }
  else if (sifre == '')
  {
    ShowMessage('Şifre giriniz!');
  }
  else
  {
    Clomosy.DBSQLiteQuery.Sql.Text = 'SELECT COUNT(*) as sayi FROM kullanicilar WHERE kullanici_adi = "' + ad + '" AND sifre = "' + sifre + '"';
    Clomosy.DBSQLiteQuery.OpenOrExecute;
    varMi = Clomosy.DBSQLiteQuery.FieldByName('sayi').AsInteger;
    Clomosy.DBSQLiteQuery.Close;
    
    if (varMi > 0)
    {
      KullaniciAdi = ad;
      ShowMessage('Hoş geldin ' + KullaniciAdi);
      PnlLogin.Visible = False;
      PnlAna.Visible = True;
    }
    else
    {
      ShowMessage('Kullanıcı adı veya şifre hatalı!');
    }
  }
}

void GeriDon;
{
  PnlKayit.Visible = False;
  PnlLogin.Visible = True;
}

void RotaOlustur;
{
  if (CmbNereden.Text == '' || CmbNereye.Text == '')
  {
    ShowMessage('Lütfen nereden ve nereyi seçiniz!');
  }
  else
  {
    benzinSayisi = 5 + Random(10);
    otelSayisi = 3 + Random(8);
    benzinListe = 'Shell, BP, Opet, Total, Petrol Ofisi';
    otelListe = 'Hilton, Sheraton, Ramada, Holiday Inn, Divan';

    LblDetay.Text = '🚗 ROTA: ' + CmbNereden.Text + ' → ' + CmbNereye.Text + '\n\n' +
                    '⛽ Benzin İstasyonları: ' + IntToStr(benzinSayisi) + ' adet\n' +
                    '   Örnek: ' + benzinListe + '\n\n' +
                    '🏨 Oteller: ' + IntToStr(otelSayisi) + ' adet\n' +
                    '   Örnek: ' + otelListe;
    LblDetay.Visible = True;

    Clomosy.DBSQLiteQuery.Sql.Text = 'INSERT INTO rotalar (kullanici_adi, nereden, nereye, tarih) VALUES ("' + KullaniciAdi + '", "' + CmbNereden.Text + '", "' + CmbNereye.Text + '", "' + DateTimeToStr(Now) + '")';
    Clomosy.DBSQLiteQuery.OpenOrExecute;
  }
}

void KayitliRotalariGoster;
{
  LstRotalar.Free;
  Clomosy.DBSQLiteQuery.Sql.Text = 'SELECT nereden, nereye, tarih FROM rotalar WHERE kullanici_adi = "' + KullaniciAdi + '" ORDER BY id DESC';
  Clomosy.DBSQLiteQuery.OpenOrExecute;
  while (Clomosy.DBSQLiteQuery.Eof == False)
  {
    LstRotalar.Items.Add;
    LstRotalar.Items.Item[LstRotalar.Items.Count-1].Text = Clomosy.DBSQLiteQuery.FieldByName('nereden').AsString + ' → ' + Clomosy.DBSQLiteQuery.FieldByName('nereye').AsString;
    LstRotalar.Items.Item[LstRotalar.Items.Count-1].SubItems.Add(Clomosy.DBSQLiteQuery.FieldByName('tarih').AsString);
    Clomosy.DBSQLiteQuery.Next;
  }
  Clomosy.DBSQLiteQuery.Close;
  LstRotalar.Visible = True;
  LblDetay.Visible = False;
  BtnRotaGoster.Visible = True;
  BtnGeri.Visible = True;
}

void AnaMenuGoster;
{
  LstRotalar.Visible = False;
  LblDetay.Visible = False;
  BtnRotaGoster.Visible = False;
  BtnGeri.Visible = False;
  PnlAna.Visible = True;
}

{
  MyForm = TclForm.Create(Self);
  
  Baglan;
  TabloKontrol;
  IlleriYukle;
  
  // Login Paneli
  PnlLogin = MyForm.AddNewProPanel(MyForm, 'PnlLogin');
  PnlLogin.Align = alClient;
  
  LblLoginBaslik = MyForm.AddNewProLabel(PnlLogin, 'LblLoginBaslik', '🚗 ROTA PLANLAYICI 🏨');
  clComponent.SetupComponent(LblLoginBaslik, '{"Align":"top","Height":80,"MarginTop":60,"TextSize":28,"TextBold":"yes","TextColor":"#ffffff","TextHorizontalAlign":"center"}');
  
  EdtKullanici = MyForm.AddNewProEdit(PnlLogin, 'EdtKullanici', '');
  clComponent.SetupComponent(EdtKullanici, '{"Align":"top","Height":50,"MarginTop":40,"MarginLeft":40,"MarginRight":40,"PlaceHolder":"Kullanıcı Adı Giriniz","TextColor":"#000000","BackGroundColor":"#ffffff","RoundHeight":10}');
  
  EdtSifre = MyForm.AddNewProEdit(PnlLogin, 'EdtSifre', '');
  clComponent.SetupComponent(EdtSifre, '{"Align":"top","Height":50,"MarginTop":20,"MarginLeft":40,"MarginRight":40,"PlaceHolder":"Şifre Giriniz","TextColor":"#000000","BackGroundColor":"#ffffff","RoundHeight":10,"Password":true}');
  
  BtnGiris = MyForm.AddNewProButton(PnlLogin, 'BtnGiris', '🚀 GİRİŞ YAP');
  clComponent.SetupComponent(BtnGiris, '{"Align":"top","Height":55,"MarginTop":30,"MarginLeft":40,"MarginRight":40,"BackGroundColor":"#27ae60","TextColor":"#ffffff","TextSize":18,"RoundHeight":12}');
  BtnGiris.OnClick = 'GirisYap';
  
  BtnKayitOl = MyForm.AddNewProButton(PnlLogin, 'BtnKayitOl', '📝 KAYIT OL');
  clComponent.SetupComponent(BtnKayitOl, '{"Align":"top","Height":55,"MarginTop":15,"MarginLeft":40,"MarginRight":40,"BackGroundColor":"#3498db","TextColor":"#ffffff","TextSize":18,"RoundHeight":12}');
  BtnKayitOl.OnClick = 'KayitOl';
  
  // Kayıt Paneli
  PnlKayit = MyForm.AddNewProPanel(MyForm, 'PnlKayit');
  PnlKayit.Align = alClient;
  PnlKayit.Visible = False;
  
  LblKayitBaslik = MyForm.AddNewProLabel(PnlKayit, 'LblKayitBaslik', '📝 YENİ ÜYE');
  clComponent.SetupComponent(LblKayitBaslik, '{"Align":"top","Height":80,"MarginTop":40,"TextSize":28,"TextBold":"yes","TextColor":"#ffffff","TextHorizontalAlign":"center"}');
  
  EdtKayitKullanici = MyForm.AddNewProEdit(PnlKayit, 'EdtKayitKullanici', '');
  clComponent.SetupComponent(EdtKayitKullanici, '{"Align":"top","Height":50,"MarginTop":30,"MarginLeft":40,"MarginRight":40,"PlaceHolder":"Kullanıcı Adı Giriniz","TextColor":"#000000","BackGroundColor":"#ffffff","RoundHeight":10}');
  
  EdtKayitSifre = MyForm.AddNewProEdit(PnlKayit, 'EdtKayitSifre', '');
  clComponent.SetupComponent(EdtKayitSifre, '{"Align":"top","Height":50,"MarginTop":15,"MarginLeft":40,"MarginRight":40,"PlaceHolder":"Şifre Giriniz","TextColor":"#000000","BackGroundColor":"#ffffff","RoundHeight":10,"Password":true}');
  
  EdtKayitEmail = MyForm.AddNewProEdit(PnlKayit, 'EdtKayitEmail', '');
  clComponent.SetupComponent(EdtKayitEmail, '{"Align":"top","Height":50,"MarginTop":15,"MarginLeft":40,"MarginRight":40,"PlaceHolder":"E-posta Adresiniz","TextColor":"#000000","BackGroundColor":"#ffffff","RoundHeight":10}');
  
  BtnKaydet = MyForm.AddNewProButton(PnlKayit, 'BtnKaydet', '✅ KAYDET');
  clComponent.SetupComponent(BtnKaydet, '{"Align":"top","Height":55,"MarginTop":30,"MarginLeft":40,"MarginRight":40,"BackGroundColor":"#27ae60","TextColor":"#ffffff","TextSize":18,"RoundHeight":12}');
  BtnKaydet.OnClick = 'KayitYap';
  
  BtnGeri = MyForm.AddNewProButton(PnlKayit, 'BtnGeri', '◀ GERİ');
  clComponent.SetupComponent(BtnGeri, '{"Align":"bottom","Width":100,"Height":50,"MarginBottom":20,"MarginLeft":20,"BackGroundColor":"#e67e22","TextColor":"#ffffff","RoundHeight":10}');
  BtnGeri.OnClick = 'GeriDon';
  
  // Ana Menü
  PnlAna = MyForm.AddNewProPanel(MyForm, 'PnlAna');
  PnlAna.Align = alClient;
  PnlAna.Visible = False;
  
  LblNereden = MyForm.AddNewProLabel(PnlAna, 'LblNereden', 'Nereden');
  clComponent.SetupComponent(LblNereden, '{"Align":"top","Height":30,"MarginTop":20,"MarginLeft":40,"TextSize":16,"TextBold":"yes","TextColor":"#ffffff"}');
  
  CmbNereden = MyForm.AddNewComboBox(PnlAna, 'CmbNereden');
  CmbNereden.Align = alTop;
  CmbNereden.Height = 45;
  CmbNereden.Margins.Top = 5;
  CmbNereden.Margins.Left = 40;
  CmbNereden.Margins.Right = 40;
  CmbNereden.AutoComplete = True;
  for (i = 0 to IlSayisi - 1) CmbNereden.Items.Add(IlListesi);
  
  LblNereye = MyForm.AddNewProLabel(PnlAna, 'LblNereye', 'Nereye');
  clComponent.SetupComponent(LblNereye, '{"Align":"top","Height":30,"MarginTop":10,"MarginLeft":40,"TextSize":16,"TextBold":"yes","TextColor":"#ffffff"}');
  
  CmbNereye = MyForm.AddNewComboBox(PnlAna, 'CmbNereye');
  CmbNereye.Align = alTop;
  CmbNereye.Height = 45;
  CmbNereye.Margins.Top = 5;
  CmbNereye.Margins.Left = 40;
  CmbNereye.Margins.Right = 40;
  CmbNereye.AutoComplete = True;
  for (i = 0 to IlSayisi - 1) CmbNereye.Items.Add(IlListesi);
  
  BtnRotaOlustur = MyForm.AddNewProButton(PnlAna, 'BtnRotaOlustur', '🚀 ROTA OLUŞTUR');
  clComponent.SetupComponent(BtnRotaOlustur, '{"Align":"top","Height":55,"MarginTop":20,"MarginLeft":40,"MarginRight":40,"BackGroundColor":"#27ae60","TextColor":"#ffffff","TextSize":16,"RoundHeight":12}');
  BtnRotaOlustur.OnClick = 'RotaOlustur';
  
  BtnKayitliRotalar = MyForm.AddNewProButton(PnlAna, 'BtnKayitliRotalar', '📋 KAYITLI ROTALAR');
  clComponent.SetupComponent(BtnKayitliRotalar, '{"Align":"top","Height":55,"MarginTop":10,"MarginLeft":40,"MarginRight":40,"BackGroundColor":"#2980b9","TextColor":"#ffffff","TextSize":16,"RoundHeight":12}');
  BtnKayitliRotalar.OnClick = 'KayitliRotalariGoster';
  
  LblDetay = MyForm.AddNewProLabel(PnlAna, 'LblDetay', '');
  clComponent.SetupComponent(LblDetay, '{"Align":"top","MarginTop":15,"MarginLeft":40,"MarginRight":40,"TextSize":14,"TextColor":"#ffffff","TextHorizontalAlign":"left"}');
  LblDetay.Visible = False;
  
  LstRotalar = MyForm.AddNewListView(PnlAna, 'LstRotalar');
  LstRotalar.Align = alTop;
  LstRotalar.Height = 400;
  LstRotalar.Margins.Top = 10;
  LstRotalar.Margins.Left = 20;
  LstRotalar.Margins.Right = 20;
  LstRotalar.Visible = False;
  LstRotalar.Columns.Add('Rota', 250);
  LstRotalar.Columns.Add('Tarih', 150);
  LstRotalar.ViewStyle = vsReport;
  
  BtnRotaGoster = MyForm.AddNewProButton(PnlAna, 'BtnRotaGoster', '🗺️ SEÇİLEN ROTAYI GÖSTER');
  clComponent.SetupComponent(BtnRotaGoster, '{"Align":"top","Height":50,"MarginTop":10,"MarginLeft":40,"MarginRight":40,"BackGroundColor":"#e67e22","TextColor":"#ffffff","TextSize":14,"RoundHeight":10}');
  BtnRotaGoster.Visible = False;
  
  BtnGeri = MyForm.AddNewProButton(PnlAna, 'BtnGeri', '◀ ANA MENÜ');
  clComponent.SetupComponent(BtnGeri, '{"Align":"bottom","Width":120,"Height":50,"MarginBottom":20,"MarginLeft":20,"BackGroundColor":"#e67e22","TextColor":"#ffffff","RoundHeight":10}');
  BtnGeri.OnClick = 'AnaMenuGoster';
  BtnGeri.Visible = False;
  
  MyForm.Run;
}
lütfen hataları düzeltip atarmısınız
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,027 Saniyede Yüklendi.