Delphi: Menampilkan gambar di sel DBGrid
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
bitmap : TBitmap;
fixRect : TRect;
bmpWidth : integer;
imgIndex : integer;
Begin
fixRect := Rect;
// customizing the 'LastName' field
if Column.Field = EmployeeTableLastName then
begin
//adding some logic to grab the required image
if EmployeeTableSalary.Value > 50000 then
imgIndex := 0
else if EmployeeTableSalary.Value > 25000 then
imgIndex := 1
else
imgIndex := 2;
bitmap := TBitmap.Create;
try
//grab the image from the ImageList
//(using the "Salary" field's value)
ImageList1.GetBitmap(imgIndex,bitmap);
//Fix the bitmap dimensions
bmpWidth := (Rect.Bottom - Rect.Top);
fixRect.Right := Rect.Left + bmpWidth;
//draw the bitmap
DBGrid1.Canvas.StretchDraw(fixRect,bitmap);
finally
bitmap.Free;
end;
// reset the output rectangle,
// add space for the graphics
fixRect := Rect;
fixRect.Left := fixRect.Left + bmpWidth;
end;
//draw default text (fixed position)
DBGrid1.DefaultDrawColumnCell(fixRect, DataCol, Column, State);
end;
