Dbgrid içindeki hücrede resim ve yazı birlikte kullanma

[powertrk]

Öncelikle herkesin bayramını tebrik ederim.
Konuyla alakalı yerli yabancı kaynakları araştırmama rağmen bir sonuç alamadım.
Yapmak istediğim, Dbgrid üzerinde bir hücrede bulunan içerikte aradığım karakterleri bulduğumda yazıyı kaldırarak olduğu konuma bir ikon yada resim yerleştirmek istiyorum.
Örnek olarak : ) kodu yerine şeklinde bir ikon göstermek.

[omercitir]

{You can use the OnDrawColumnCell event to to place icons in DBGrid instead
of the values of field. Here's the easy way to do it:}

procedure TForm1.DBGrid1DrawColumnCell(S ender: TObject; const Rect: TRect;

DataCol: Integer; Column: TColumn; State: TGridDrawState);

var Icon: TBitmap;

begin

Icon:=TBitmap.Create;

if (Column.FieldName='SHARES' ) then begin

with DBGrid1.Canvas do begin

Brush.Color:=clWhite;

FillRect(Rect);

if (Table1.FieldByName('SHARES'). Value>4500)

then

ImageList1.GetBitmap(1,Icon)
else

ImageList1.GetBitmap(0,Icon);


Draw(round((Rect.Left+Rect.Rig ht-Icon.Width)/2),Rect.Top,Icon);

end;

end;

[powertrk]

Cevabın için teşekkürler.
Fakat bu istediğimi karşılayacak bir cevap değil.
Verdiğiniz kod hücre renklendirme yada hücrede imagelistte bulunan ikonu göstermeye örnek gösterilebilir.

[mrmarman]

Hazır bir yapı piyasada vardır ancak kendi çözümünüzü üretmek için @omercitir'ın belirttiği şekilde aşağıdaki gibi çözüm üretmeniz gerekecektir.

Örnek proje hazırlayıp bu mesaj ekinde sundum, incelersin...



Örnekteki projede yapıyı aşağıda örneklediğim şekilde kurdum.

Kod: Tümünü seç

procedure TForm1.Edit1Change(Sender: TObject);
Var
  a, b,
  Konum : Integer;
begin
  PaintBox1.Canvas.FillRect( PaintBox1.Canvas.ClipRect );
  Application.ProcessMessages;
  PaintBox1.Canvas.TextOut( 5, 5, Edit1.Text );
  Konum := Pos(':)', Edit1.Text);
  if Konum > 0 then begin
    a := PaintBox1.Canvas.TextWidth( Copy(Edit1.Text, 1, Konum) );
    ImageList1.Draw(PaintBox1.Canvas, a, 5, 0);
  end;
end;

sizin de bu yapıyı, DBGrid'in canvasında kurmanız gerekecektir. Canvas TextWidth ile ekrana bastırdığınız metnin pixel bazında genişliğini elde ediyorsunuz. Yazı karakteri "Courier New" veya benzeri şekilde her harf için eşit genişlik olsayda karakter sayısı çarpı genişlik diyebiliriz ancak kerning değerleri yani karakterler arası boşluklar değişik olduğundan yazıyı bütün olarak değerlendirmelisiniz.


Başarılar.

[powertrk]

Öncelikle cevabınız ve çözümünüz için teşekkürler.
Sizin yönteminizi kullanmak aklıma gelmişti fakat binlerce kayıt için zahmetli ve performanssız bir çözüm olacağı için vazgeçmiştim.
Ama henüz başka bir çözüm geliştiremediğim için çalışmanızı kullanacağım.
Aklıma gelen diğer yöntem hücrelerde html içerik göstermek.
Bu fikirden sonra bir araştırma yaptım bunu yapan bir grid nesnesi mevcut. Aşağıdaki linkten ürün ve özellikleri incelenebilir.
Teşekkürler iyi çalışmalar.


http://www.tmssoftware.com/site/asg20.asp

[mrmarman]

Merhaba.

HTML Grid çözümü için de kendi içinde aynı şekilde canvas işlemi yaptığını söylememe gerek yok diye düşünüyorum.

Binlerce kayıt için performans kaygınızı dile getirmişsiniz, ancak kayıtların bütünü değil sadece ve sadece ekranda o an görünen kadarıyla değerlendirilecektir. Bunu hesaba katarak değerlendirdiğinizde sanıldığının tersine performans kaybı gibi bir durumla karşılaşılması söz konusu değildir. Bunun garantisini verebilirim.

Şunu da eklemden edemiycem, canvas işlemlerinde kullanılacak resimlerin hafızada yüklü bir bankadan kullanmaya özen gösterin. Sabit diskten, medyadan, ağdan vs. okuma yapılıyorsa bunlar doğası gereği performans kaybını bırakın kilitlenmelere sebebiyet verecektir. Bunlar için sözüm meclisten dışarıdır.