Basit

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

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