procedure TForm1.AdvStringGrid4DrawCell(Sender: TObject; ACol,
ARow: Integer; Rect: TRect; State: TGridDrawState);
var
d: TBitmap;
Const
Path= 'qpsl.bmp';
path1= 'qpt.bmp';
begin
d:= TBitmap.Create;
d.LoadFromFile(Path);
if (ACol = 10) and (ARow = 1) then
begin
AdvStringGrid4.Canvas.Draw(Rect.Left,Rect.Top,d);
end;
d.Free;
d:= TBitmap.Create;
d.LoadFromFile(Path1);
if (ACol = 12) and (ARow = 8) then
begin
AdvStringGrid4.Canvas.Draw(Rect.Left,Rect.Top,d);
end;
d.Free;
end;
ARow: Integer; Rect: TRect; State: TGridDrawState);
var
d: TBitmap;
Const
Path= 'qpsl.bmp';
path1= 'qpt.bmp';
begin
d:= TBitmap.Create;
d.LoadFromFile(Path);
if (ACol = 10) and (ARow = 1) then
begin
AdvStringGrid4.Canvas.Draw(Rect.Left,Rect.Top,d);
end;
d.Free;
d:= TBitmap.Create;
d.LoadFromFile(Path1);
if (ACol = 12) and (ARow = 8) then
begin
AdvStringGrid4.Canvas.Draw(Rect.Left,Rect.Top,d);
end;
d.Free;
end;