Объединение в единую процедуру. Delphi.

[viktor77796]

Добрый день. Уважаемые программисты, прошу Вас помочь мне создать процедуру вставки Изображения(TImage) в [0,0] элемент матрицы, в StringGrid-e. Имеются 4 таблицы StringGrid. Сначала создал 4 процедуры, которые поочередно вставляют в каждую данное изображение. Преподаватель сказал, неэффективно использовать 4 одинаковых процедуры и сказал объедениеть в одну, в итоге ничего не получилось. Раньше каждая из них подключалась через Events -> OnDrawCell, теперь туда не удается подключить т.к. нужен новый параметр Grid: TStringGrid, который отвечает за изменение таблиц. Также пытался добавить данную процедуру в Events -> FormCreate, ничего не вышло. Вот код данной процедуры:

procedure TForm1.StringGridDrawCell(Grid: TStringGrid);
var
  ACol, ARow: Integer;
  Bitmap : TBitmap;   // для загр изображений
  Rect: TRect;
  State: TGridDrawState;
begin
  ARow:=0; ACol:=0;
  if (ARow = 0) and (ACol = 0)  then
  begin

    Bitmap:=TBitmap.Create;
    Bitmap.LoadFromFile('header.bmp');
    Grid.Canvas.Draw(Rect.Left+1, Rect.Top-4, Bitmap); // рисование битмап с отступом
    Bitmap.Free;
  end
  else
  begin
    Grid.Canvas.Font.Color := clBlack;
    if (ARow > 0) and (ACol > 0) then  // визуально убираем синее выделение ячейки
      Grid.Canvas.Brush.color := clWhite
    else
      Grid.Canvas.Brush.color := clBtnFace; // фон боковых ячеек

    Grid.canvas.fillRect(Rect);
    Grid.canvas.TextOut(Rect.Left+5,Rect.Top+5,Grid.Cells[ACol,ARow]);
 end;
end;

Заранее Благодарю за помощь!



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Rin]

А что Вам мешает в описании класса вместо

procedure StringGridDrawCell(Grid: TStringGrid);

написать

procedure My_DrawCell(var My_Grid: TStringGrid);

и поправить заголовок процедуры, выложенной вами на

procedure TForm1.My_DrawCell(var My_Grid: TStringGrid);

Теперь представим, что нужно загрузить в 1-ый грид картинку. Переходим в события (Events) StringGrid1 , выбираем OnDrawCell и там пишем:

procedure TForm1.StringGridDrawCell(Grid: TStringGrid);
Begin
My_DrawCell(StringGrid1);
end;

[viktor77796]

Попробовал сделать как Вы, но увы картинка не появилась. Вот при такой процедуре события все работает нормально, но она неэффективна, т.к. в каждый OnDrawCell приходится записывать одинаковые коды.

//Код только для первой таблицы
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
  var Bitmap: TBitmap;
begin

  if (ARow = 0) and (ACol = 0)  then
  begin

    Bitmap:=TBitmap.Create;
    Bitmap.LoadFromFile('header.bmp');
    StringGrid1.Canvas.Draw(Rect.Left+1, Rect.Top-4, Bitmap); 
    Bitmap.Free;
  end
  else
  begin
    StringGrid1.Canvas.Font.Color := clBlack;
    if (ARow > 0) and (ACol > 0) then  
      StringGrid1.Canvas.Brush.color := clWhite
    else
      StringGrid1.Canvas.Brush.color := clBtnFace; 

    StringGrid1.canvas.fillRect(Rect);
    StringGrid1.canvas.TextOut(Rect.Left+5,Rect.Top+5,StringGrid1.Cells[ACol,ARow]);
 end;
end;

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Rin]

Так и передавай своей процедуре все параметры события OnDrawCell.

type
  TForm1 = class(TForm)
........
    procedure My_DrawCell(var Grid:TStringGrid; Col, Row: Integer;
      My_Rect: TRect; My_State: TGridDrawState);
........
procedure TForm1.My_DrawCell(var Grid:TStringGrid; Col, Row: Integer;
My_Rect: TRect; My_State: TGridDrawState);
var BitMap:TBitMap;
begin
// дописать, то , что нужно, чтобы работало так, как нужно.
  Bitmap:=TBitmap.Create;
  Bitmap.LoadFromFile('header.bmp');
  Grid.Canvas.Draw(My_Rect.Left, My_Rect.Top, Bitmap);
  Bitmap.Free;
  Grid.canvas.TextOut(My_Rect.Left+5,My_Rect.Top+5,Grid.Cells[Col,Row]);
end;


procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
 My_DrawCell(StringGrid1,ACol,ARow,Rect,State);
end;

procedure TForm1.StringGrid2DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
 My_DrawCell(StringGrid2,ACol,ARow,Rect,State);
end;

procedure TForm1.StringGrid3DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
 My_DrawCell(StringGrid3,ACol,ARow,Rect,State);
end;

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[GoodDA]

вместо StringGrid1. в обработчике надо использовать Sender
Sender это компонент с которого запускается этот обработчик события
только надо приводить к нужному классу т.е. писать TStringGrid(Sender).
тогда один обработчик можно поставить всем гридам

[viktor77796]

Спасибо огромное, всё удалось!+)))))