FileListBox

[CiTiZEN]

Slmlar arkadaşlar son 3 saatimi aramaya (hem DelphiTurkiye de hemde arama motorlarında) arama yapmama ragmen bi sonuç elde edemedim.Benım 3 sorum var oldukca basit olabilir ama çözemediğim için yazıyorum.
1. si bir FileListBox Bileşeninde arama yapılabilir mi? Örnek teşkili açısından kod verebilirmisiniz?
2. si FileListBox daki standart Glyph yerine istediğimiz bir bitmap'i yükleyebilir miyiz?
3. sü ise FileListBox'da gösterdiğimiz dosyaların sadece dosya isimlerini seçmemiz mümkün mü?

Kolaylıklar Dilerim.

[sabanakman]

1- FileListBox bildiğimiz listbox gibidir listesine Items özelliği ile erişilebilinir.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;
begin
  i:=FileListBox1.Items.IndexOf('dosya.txt');
  if i<0 then ShowMessage('yoktur')
  else ShowMessage(IntToStr(i)+'. sırada vardır');
end;

2-Bu simgeler sanırım VCL kütüphanesinden sabit olarak verilmişler. Bknz: FileCtrl.pas dosyası TFileListBox tanımı protected tanımlı ExeBMP, DirBMP, UnknownBMP: TBitmap; değikenleri.

3-ExtractFileName dosyanın yolunu ihmal ederek dosya adı ve uzantısını verir. Eğer uzantı lazımsa tek başına yeter ama uzantıyı da devre dışı bırakmak istersen bir kaç hamle gerekmetedir. Mesela c:\proje\veritabani\veri.mdb seçildiyse

Kod: Tümünü seç

procedure TForm1.Button2Click(Sender: TObject);
var S:String; i:Integer;
begin
  S:=FileListBox1.FileName;
  Label1.Caption:=S;//c:\proje\veritabani\veri.mdb yazar
  S:=ExtractFileName(S);
  Label2.Caption:=S;//veri.mdb yazar
  i:=Pos(ExtractFileExt(S),S);
  if i>0 then S:=Copy(S,1,i-1);
  Label3.Caption:=S;//veri yazar
end;

kodları işine yarayabilir.

[CiTiZEN]

Sayın @Sabanakman hocam en kısa zamanda deniyeceğim çok teşekkür ediyorum.
Kolay gelsin

[CiTiZEN]

Hocam çok saolun yardımlarınız ve kodlar için özellikler arama kısmı çok işime yaradı.
Kolay gelsin.