DBCtrlGrid Canvas'ına Resim çizme hk.

[mrmarman]

- Sorum da DBCtrlGrid hakkında.

- WMF resimleri OnPanelPaint olayında DBCtrlGrid'in Canvas'ına çizdirip her kaydın yanında önizleme elde ediyordum.

- Kayıt sayısı 500'ü geçince bu olayın da suyu çıktı. Hafızadan acayip şekilde yemeye başladı.

- Halbu ki DBCtrlGrid'in Index değişkeni o anki ekranda görünen Row numarasını veriyor ve ben bununla kısıtladığım halde (If Index < RowCount then ... çizim yap) sanıyorum tüm kayıtlara ait Canvas'lara erişmeye çalıştığından hafıza yetmeme durumu doğuyor.

- Çözümü bilen var mı ?

[name]

Çizim kısmını nasıl yaptığını bilmiyorum ama aşağıda benim daha önce "BrushCopy" özelliğini kullanarak yaptığım örneğin bir kısmı var belki işine yarar.

Kod: Tümünü seç

      
with grid1 do
    begin
      if (ACol = 0) and (ARow <> 0) then
         begin
           bmp := TBitmap.Create;
           ImageList1.GetBitmap(1, bmp);
           Canvas.BrushCopy(rect, bmp, bmp.Canvas.ClipRect, clBlue);
           bmp.Free;
           ...
           ....

[mrmarman]

Selam.

- Bendeki de farklı bir türevi.

- Veritabanında Resimlerin sadece adı kayıtlı. kendileri fiziksel olarak farklı klasörlerde HDD'de.

Kod: Tümünü seç

procedure TForm1.DBCtrlGrid2PaintPanel(DBCtrlGrid: TDBCtrlGrid;
  Index: Integer);
Var
  Resim  : TMetaFile;
  RDosya : String;
begin
  RDosya := AdoTable1.FieldByName(KodAdi).AsString; // Veritabanından Dosya Adı ve yeri alınıyor....
  If FileExists(RDosya) then
  begin
    Resim := TMetaFile.Create;
    Resim.LoadFromFile(RDosya);
    // Boyutlarında DBCtrlGrid'e göre ayarlama yapmama gerek yok.
    // WMF Resimlerim hep 100x100 boyutunda olduğundan olduğu gibi kullanılıyor. 
    DBCtrlGrid2.Canvas.Draw(15, 5, Resim);
    Application.ProcessMessages;
    Resim.Free;
  end; // If FileExists
end;

[DarkEternal]

wmf uzantılı resimleri delphi ile birleştirmek mümkün müdür?