ListBax'a Aid 2-Soru Var

[subhan]

Selam Arkadaşlar

1.Soru) ListBox-a eklenen dosyalar (lines (satırlar) ) arasinda mesafeler
çok az ben bu mesafeleri bir az büyük yapmak istiyorum bunu nasıl yaparım

2.Soru) ListBox-da ki bir lines(satır) tıklandığı zaman hangı satıra tıklandıysa
sadece o satırın arka fonu ve harf renki deyişeçek ve eyer başka bir lines(satır) tıklandığı zaman
bir once ki tıklanan line(satır) bir once ki haline dönucek ve tıklanan dosya sadece o satırın arka fonu ve harf renki deyişeçek


Sorularım Bu Kadar Umarlm Yardımcı Olursunuz

[Battosai]

ilk sorunun cevabı properties de itemheight de gizli..ikincisinin cevapları forumda mevcut....

[subhan]

ilk sorunun cevabı properties de itemheight de gizli..ikincisinin cevapları forumda mevcut....

Teşekürler edrim birinci soru tamam doru -da
ikinci soru form-da yok ben araştırdım ancak buna benzer konular var onlar-da
benim sorum ile uymuyorlar

[khanco]

ben kullanırken seçilen itemde zemin mavi yazı beyaz oluyor. başkası seçildiğinde 1 seçim eski haline dönüyor, 2 seçim zemin mavi yazı beyaz oluyor. bu işini görmüyor mu?

[conari]

Sitede var ama ben kodu vereyim.

Kod: Tümünü seç

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin if odSelected in State then
begin   (Control as TListBox).Canvas.Brush.Color := clred;
        (Control as TListBox).Canvas.Font.Color := clWhite;
        end;
        (Control as TListBox).Canvas.FillRect( Rect );
        (Control as TListBox).Canvas.TextOut(Rect.left, Rect.top, (Control as TListBox).Items[Index]);
end;

Bu arada

Kod: Tümünü seç

style = lbOwnerDrawFixed

olmalıdır.

[subhan]

Sitede var ama ben kodu vereyim.

Kod: Tümünü seç

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin if odSelected in State then
begin   (Control as TListBox).Canvas.Brush.Color := clred;
        (Control as TListBox).Canvas.Font.Color := clWhite;
        end;
        (Control as TListBox).Canvas.FillRect( Rect );
        (Control as TListBox).Canvas.TextOut(Rect.left, Rect.top, (Control as TListBox).Items[Index]);
end;

Bu arada

Kod: Tümünü seç

style = lbOwnerDrawFixed

olmalıdır.

Teşükürler ederim ancak bu kod ben var yani ben söylüyorum ki
bu kodu listBox-un DClick olayına nasıl oygulayacagım ve selected olan dosyaya işlem yapacak

[conari]

Zaten seçilen dosyanın rengini değiştirir bu kod. Doble clikle değiştirecekseniz kodu değiştirmeniz lazım.