Basit

resim
Yeni Bileşen Objesi

Obje BenimButonum

Açık Değişken Rakam ArkaRenk; AktifArkaRenk; ÇerçeveRenk; YazıRenk; AktifYazıRenk; Metin Yazı
Kapalı Belirle İşaretli Çerçeve ButonObjem

Prosedür ÇizBeni ( Bayt Kip )

    GözAt Kip
       Değer 0 ? Butonun normal hali
          Çizim.Başlar( BenimButonum.ButonObjem; ÇizimKipi.Çerçeve )
             Çizim.Kutu( 0; 0; &&
BenimButonum.ButonObjem.Genişliği(); &&
BenimButonum.ButonObjem.Yüksekliği(); &&
ÇizimŞekli.Dolgu; &&
BenimButonum.ArkaRenk )

             Çizim.Kutu( 0; 0; &&
BenimButonum.ButonObjem.Genişliği(); &&
BenimButonum.ButonObjem.Yüksekliği(); &&
ÇizimŞekli.DüzKenarlı1Piksel; &&
BenimButonum.ÇerçeveRenk )

             Çizim.Yaz( &&
BenimButonum.ButonObjem.Yazı : &&
(BenimButonum.ButonObjem.Genişliği() - Çizim.MetinGenişliği(BenimButonum.ButonObjem.Yazı)) : 2; && (BenimButonum.ButonObjem.Yüksekliği() - Çizim.MetinYüksekliği(BenimButonum.ButonObjem.Yazı)) : 2; && ÇizimŞekli.Dolgu; &&
BenimButonum.YazıRenk )

          Çizim.Biter()
       Değer 1 ? Butonun tıklanmış hali
          Çizim.Başlar( BenimButonum.ButonObjem; ÇizimKipi.Çerçeve )
             Çizim.Kutu( 0; 0; &&
BenimButonum.ButonObjem.Genişliği(); &&
BenimButonum.ButonObjem.Yüksekliği(); &&
ÇizimŞekli.Dolgu; &&
BenimButonum.AktifArkaRenk )

             Çizim.Kutu( 0; 0; &&
BenimButonum.ButonObjem.Genişliği(); &&
BenimButonum.ButonObjem.Yüksekliği(); &&
ÇizimŞekli.DüzKenarlı1Piksel; &&
BenimButonum.ÇerçeveRenk )

             Çizim.Yaz( &&
BenimButonum.ButonObjem.Yazı : &&
((BenimButonum.ButonObjem.Genişliği() - Çizim.MetinGenişliği(BenimButonum.ButonObjem.Yazı)) : 2) + 1; && ((BenimButonum.ButonObjem.Yüksekliği() - Çizim.MetinYüksekliği(BenimButonum.ButonObjem.Yazı)) : 2) + 1; && ÇizimŞekli.Dolgu; &&
BenimButonum.AktifYazıRenk )

          Çizim.Biter()
    GözAtSon

ProsedürSon

NeYap

   ProsedürBapı SolTıklatıldı()
   ProsedürBapı SolBırakıldı()
NeYapSon

Prosedür BenimButonum.SolTıklatıldı ()

   BenimButonum.ÇizBeni(1)
ProsedürSon

Prosedür BenimButonum.SolBırakıldı ()

   BenimButonum.ÇizBeni(0)
ProsedürSon

Metot Soldan ( Rakam veri )

   BenimButonum.ButonObjem.Soldan( veri )
MetotSon

Metot Soldan () Rakamdır

   Sonuç BenimButonum.ButonObjem.Soldan()
MetotSon

Metot Yukardan ( Rakam veri )

   BenimButonum.ButonObjem.Yukardan( veri )
MetotSon

Metot Yukardan () Rakamdır

   Sonuç BenimButonum.ButonObjem.Yukardan()
MetotSon

Metot Genişliği ( Rakam veri )

   BenimButonum.ButonObjem.Genişliği( veri )
MetotSon

Metot Genişliği () Rakamdır

   Sonuç BenimButonum.ButonObjem.Genişliği()
MetotSon

Metot Yenile ()

   BenimButonum.ÇizBeni(0)
MetotSon

Prosedür BenimButonum ( İşaretli Konteyner )

   Değişken Çerçeve AsılButonObjem
AsılButonObjem( Konteyner )
   BenimButonum.ButonObjem = AsılButonObjem
   BenimButonum.ArkaRenk = Çizim.KYM( 235; 235; 235 )
   BenimButonum.AktifArkaRenk = Çizim.KYM( 135; 135; 135 )
   BenimButonum.ÇerçeveRenk = Çizim.KYM( 160; 165; 170 )
   BenimButonum.YazıRenk = Çizim.KYM( 35; 35; 135 )
   BenimButonum.AktifYazıRenk = Çizim.KYM( 255; 255; 255 )
   BenimButonum.Yazı = "Butonum"
   BenimButonum.ÇizBeni(0)
ProsedürSon

Prosedür _BenimButonum ()

   Yoket BenimButonum.ButonObjem
ProsedürSon

ProsedürSon

ObjeSon
Örnek:
Prosedür deBirşey ()
   Denetim "Tamamdır, sağol" ProsedürSon

Prosedür Başlat ()
Belirle Pencere pencerem; BenimButonum Buton1

   pencerem()
   pencerem.Başlık("Benim Harika Butonum :-)")
   Buton1(pencerem)
   Buton1.Genişliği( pencerem.Genşliği() : 2 )
   Buton1.Yüksekliği( pencerem.Yüksekliği() : 2 )
   Buton1.Soldan( ( pencerem.Genişliği() - Buton1.Genişliği() ) : 2 )
   Buton1.Yukardan( ( pencerem.Yüksekliği() - Buton1.Yüksekliği() ) : 2 )
   Buton1.Yazı = "Tıkla"
   Buton1.NeYap.SolBırakıldı = deBirşey
   Basit.Eylem()
ProsedürSon



Giriş      Kaydol      Bilgi      Gizlilik      Site Haritası



Bu İnternet sitesinde bulunan tüm kod, görsel kaynaklar ve bilgi, özellikle belirtilmemiş ise, 5M-Ware'e aittir ve tüm hakları saklıdır. Bu kaynakların izinsiz kopyalanması, izinsiz başka platformlarda kullanılması yasaktır. Ayrıntılı bilgi için Kullanıcı Sözleşmesini inceleyebilirsin.


ok
Bu web sitesi çerezleri saklamaz. İletişim formu aracılığıyla yapılan sorular geçici olarak saklanır ve işlemden sonra silinir. Yazı tipleri Google’dan alınmıştır. Ayrıntılı bilgi için  Gizlilik Politikamızı  inceleyin.
Kılavuz Forum Site
Dil Kuralları Temel Bilgi
Editör Bağımsız Gizlilik
Kur Paketleyici Mac Site Haritası
Bileşen Taslak Editörü Linux Hakkımızda
Simge Editörü Windows Youtube
Simge Çevirici Basit Eklentiler Kütüphanesi Blog
Animasyon Editörü Natif Kütüphaneler
Yedekleyici
Ayrıntılar

5M-Ware Youtube Videoları Blogger Tumblr


Icons erstellt von Freepik from www.flaticon.com


Tüm Telif Hakkı Saklıdır© 2019-2020 5M-Ware
info@basit.web.tr