Sayfa 29

HAIR

IL call setposition(Sortgrubu () call interactive( call sortlist(Di call setborder (In esi().-1) call setborder(GrupListesi (),-1) call interactive(1) exit

SortDL.MACRO: DiskListesi'ne göre sıralama yapar.

TL call se call call call call call interactive(1) exit

SortGL.MACRO: Gruplistesi'ne göre sıralama yapar.

if numelements (DiskList. call setposition(Sortgr y=getclickrow(**)

then exit

if y>175 & y< call activate( call setpositi exit

SortTipi MACRO: Sıralama düğmesi seçildiğinde seçenekleri ekrana çıkarır ve çağırılanı çalıştırır.

sortlist(IL,DL,GL) setborder (IndexListesi (),1) call setborder (GrupLi call

IndexListesi'ne göre sıralama yapar.

if numelements(DiskListesi then exit call setposition (GenelGrubu () , 640,70) sorsgetresponse('Tüm listeyi temizlemek istiyor musunuz?') if sorz0 then exit call clearlist (DiskListesi ()) call clearlist ()) call clearlist (GrupListesi ()) exit

Temizle MACRO: Listeyi temizler.

tik. Bunun için hemen SCANNER programına giderek albümlerden birinin kapağını taradık. Bunu onaltı renk modunda yaparak belleği biraz rahat bıraktık. Daha sonra DPaint'i çalıştırdık ve ekranın yarısını kaplayan resmin yanına albümle ilgili bilgileri sıraladık. Daha sonra da Harddiskte ayarladığımız özel bir yere bu resmi kaydettik. Resmin ait olduğu albümü listemize eklerken, tüm yapmamız gereken resmin hard diskteki yerini programa bildirmek olacaktır. HyperBook bu eleman seçildiğinde otomatik olarak

resmi yükleyip gösterme işini üzerine almış zaten,