Jak wstawić obrazek do DrawGrida ?

0

Jak w temacie szukałem ale nie ma NIESTETY :( tzn jest ale bez odpowiedzi prosze o szybką odpowiedz

0

Najpierw musisz sobie dodać TImageList, załadować tam jakieś obrazki, a potem dla zdarzenia OnDrawCell:

procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
i : integer;
begin
i := arow * drawgrid1.ColCount + acol;
with (sender as TDrawGrid) do begin
imagelist1.draw(Canvas, rect.left, rect.top, i);
if gdFocused in state then canvas.DrawFocusRect(rect);
end;
end;

1 użytkowników online, w tym zalogowanych: 0, gości: 1