Color Popupmenu oluşturma

 

 

// Öncelikle aşağıdaki const kısmını unit'inizin aşağıdaki kısmından sonra tanımlayın.

 

//implementation

 

//{$R *.DFM}

 

  const

  ColorCount = 16; //Renk sayısı

  //Aşağıda renk adları

  Colors: array [0..ColorCount-1] of TColor = (

    clBlack, clMaroon, clGreen, clOlive, clNavy, clPurple, clTeal, clGray,

    clSilver, clRed, clLime, clYellow, clBlue, clFuchsia, clAqua, clWhite);

 

procedure Tform1.RenkYap(Sender: TObject);

begin

//Popupmenude tıklanan menünün index numarasına göre colors nesnesindeki renkle form renklendiriliyor.

Form1.Color := colors[TMenuItem(sender).MenuIndex];

end;

 

procedure TForm1.FormCreate(Sender: TObject);

var

 i: Integer;        //Saymada gerekecek sayı nesnesi

 Menu: TMenuItem;   //Menü nesnesi

begin

 for i:= 0 to ColorCount-1 do     //Renkler sırayla sayılıyor.

 begin

  Menu := TMenuItem.Create(PopupMenu1); //Menü nesnesi oluşturuluyor.

   with menu.Bitmap do begin

    Width := 16;                        //Bitmap genişlik 16 yapılıyor.

    Height := 16;                       //Bitmap yükseklik 16 yapılıyor.

    if colors[i] = clWhite then         //Eğer sıradaki renk beyazsa

    begin

     Canvas.Brush.Color := clOlive;      //Dolgu rengi zeytin yeşili ayarlanıyor.

     Canvas.Brush.Style := bsSolid;      //Dolgu tipi dolu ayarlanıyor.

    end;

    Canvas.FillRect(Rect(0,0,16,16));   //Çizim alanı dolduruluyor.

    Canvas.Brush.Color := Colors[i];    //Aktif (i) Colors nesnesine göre renk alınıyor.

    Canvas.Brush.Style := bsSolid;      //Dolgu tipi dolu ayarlanıyor.

    Canvas.Pen.Color := clblack;        //Çizgi rengi siyah ayarlanıyor.

    Canvas.Pen.Style := psSolid;        //Çizgi tipi dolu (düz) ayarlanıyor.

    Canvas.Pen.Width := 1;              //Çizgi kalınlığı 1 yapılıyor.

    Canvas.Ellipse(Rect(1,1,16,16));    //(Seçim sizin) Yukarıdaki ayarlara göre yuvarlak resim çiziliyor.

    //Canvas.Rectangle(Rect(1,1,16,16));  //(Seçim sizin) Yukarıdaki ayarlara göre kare resim çiziliyor.

   end;

   case Colors[i] of

    clBlack   :  menu.Caption := 'Siyah';              //

    clMaroon  :  menu.Caption := 'Bordo';              //

    clGreen   :  menu.Caption := 'Yeşil';              //

    clOlive   :  menu.Caption := 'Zeytin Yeşili';      //

    clNavy    :  menu.Caption := 'Lacivert';           //

    clPurple  :  menu.Caption := 'Mor';                //

    clTeal    :  menu.Caption := 'Deniz Mavisi';       //

    clGray    :  menu.Caption := 'Gri';                // Renge göre adlandırma yapılıyor.

    clSilver  :  menu.Caption := 'Gümüş';              //

    clRed     :  menu.Caption := 'Kırmızı';            //

    clLime    :  menu.Caption := 'Açık Yeşil';         //

    clYellow  :  menu.Caption := 'Sarı';               //

    clBlue    :  menu.Caption := 'Mavi';               //

    clFuchsia :  menu.Caption := 'Eflatun';            //

    clAqua    :  menu.Caption := 'Açık Deniz Mavisi';  //

    clWhite   :  menu.Caption := 'Beyaz';              //

   end;

  Menu.OnClick := RenkYap;              //Menüye görev veriliyor.(OnClick işleminde)

  PopupMenu1.Items.Add(Menu);           //Menü popupmenüye ekleniyor.

 end;

end;

 

end.

 

MediaPlayer’ın Çalmayı İptal Ettiğini Tespit Etmek

Uyarı eylemi gerçekleştiğinde, Notify özelliği False olarak geri resetlenir. Bu nedenle daha ileriki uyarı eylemlerini almak için kod içerisinde onu tekrar True olarak değiştirmeniz gerekir.

~~~~~~~~~~~~~~~~~~~~~~~~~

procedure TForm1.FormCreate(Sender: TObject) ;

begin

   MediaPlayer1.Notify := True;

   MediaPlayer1.OnNotify := NotifyProc;

end;

 

procedure TForm1.NotifyProc(Sender: TObject) ;

begin

   with Sender as TMediaPlayer do

   begin

     case Mode of

       mpStopped: {DO something HERE};

     end;

//Daha ileriki uyarı için True olarak ayarlanması gerekir.

     Notify := True;

   end;

end;

~~~~~~~~~~~~~~~~~~~~~~~~~

 

Delphi - .....................................

 

Windows Üzerinde Yüklenmiş Programların Listesini Almak

---http://delphi.about.com---

---From:zekielke@gmail.com---

 

1 - Delphi’yi başlatın.

2 - File | New Application ı seçin.

3 – Unit’in Uses kısmına Registery ekleyin.

4 – Formunuz üzerine TListBox komponenti ekleyin.

5 – Formunuz üzerine TButton ekleyin.

6 – Butonunuzun OnClick olayına Aşağıdaki kısmı ekleyin.

procedure TForm1.Button1Click(Sender: TObject) ;

const

   REGKEYAPPS = 'SOFTWAREMicrosoftWindows

CurrentVersionUninstall';

 

var

   reg : TRegistry;

   List1 : TStringList;

   List2 : TStringList;

   j, n : integer;

 

begin

   reg := TRegistry.Create;

   List1 := TStringList.Create;

   List2 := TStringList.Create;

 

   {Tüm Alt Anahtarları Yükle}

   with reg do

   begin

     RootKey := HKEY_LOCAL_MACHINE;

     OpenKey(REGKEYAPPS, false) ;

     GetKeyNames(List1) ;

   end;

  {Tüm değer “Value” adlarını yükle}

   for j := 0 to List1.Count -1 do

   begin

     reg.OpenKey(REGKEYAPPS + '' + List1.Strings[j],false) ;

     reg.GetValueNames(List2) ;

 

     {Eğer bir 'DisplayName' var ise bunu göstereceğiz.}

     n := List2.IndexOf('DisplayName') ;

     if (n <> -1) and

        (List2.IndexOf('UninstallString') <> -1) then

     begin

       ListBox1.Items.Add(

           (reg.ReadString(List2.Strings[n]))) ;

     end;

   end;

   List.Free;

   List2.Free;

   reg.CloseKey;

   reg.Destroy;

end;

~~~~~~~~~~~~~~~~~~~~~~~~~