[bambooshoot]

Всем привет! Не знал, где создать тему, создал в данной ветке.
Вопрос в следующем: на форме есть 2 StringGrid-а у которых одинаковая процедура OnDrawCell, различия только в названиях таблиц. Что-то мне подсказывает , что можно одну процедуру прикрутить к двум таблицам, чтобы не "плодить" лишнего кода. Вот код самой процедуры:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

procedure TForm.StringGrid1DrawCell(Sender: TObject; ACol,   ARow: Integer; Rect: TRect; State: TGridDrawState);  var   Format: Word;   C : array[0..255] of Char;   temp, max, i, j : integer; begin Format := DT_Center OR DT_WORDBREAK;   (Sender as TStringGrid).Canvas.FillRect(Rect);   StrPCopy(C, (Sender as TStringGrid).Cells[ACol, ARow]);   WinProcs.DrawText((Sender as TStringGrid).Canvas.Handle, C, StrLen(C), Rect, Format);    for I := 0 to StringGrid1.ColCount - 1 do         begin           max:= 0;            for J := 0 to StringGrid1.RowCount - 1 do              begin                temp := StringGrid1.Canvas.TextWidth(StringGrid1.Cells[i, j]);                 if temp > max then                   max:=temp;              end;              StringGrid1.ColWidths[i] := max + StringGrid1.GridLineWidth + 10;         end; end;

Пробовал делать так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

.....  private  procedure TForm.GridsDrawCell(Sender: TObject; ACol,   ARow: Integer; Rect: TRect; State: TGridDrawState); ......  procedure TForm.GridsDrawCell(Sender: TObject; ACol,   ARow: Integer; Rect: TRect; State: TGridDrawState);  var   Format: Word;   C : array[0..255] of Char;   temp, max, i, j : integer; begin Format := DT_Center OR DT_WORDBREAK;   (Sender as TStringGrid).Canvas.FillRect(Rect);   StrPCopy(C, (Sender as TStringGrid).Cells[ACol, ARow]);   WinProcs.DrawText((Sender as TStringGrid).Canvas.Handle, C, StrLen(C), Rect, Format);  with Sender as TStringGrid do    for I := 0 to StringGrid.ColCount - 1 do         begin           max:= 0;            for J := 0 to StringGrid.RowCount - 1 do              begin                temp := StringGrid.Canvas.TextWidth(StringGrid.Cells[i, j]);                 if temp > max then                   max:=temp;              end;              StringGrid.ColWidths[i] := max + StringGrid.GridLineWidth + 10;         end; end;

Но не получается, выбивает с ошибкой, что-то с памятью
Помогите пожалуйста, оптимизировать код для личного так сказать роста. Спасибо.

[icWasya]

Ну если пишешь StringGrid.ColCount и.т.п, то гдето выше надо написать

Код:

1 2 3 4 5 6

Var   StringGrid : TStringGrid; ... begin if not (Sender is TStringGrid) then Exit;  StringGrid := Sender as TStringGrid;

и далее во всей процедуре заменить (Sender as TStringGrid) на StringGrid;

[bambooshoot]

Спасибо дружище!
Сделал так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43

unit Unit1;   interface   uses   ..... <b>WinProcs, </b>.....;   ...... private     procedure GridsDrawCell(Sender: TObject; ACol,                  ARow: Integer; Rect: TRect; State: TGridDrawState);   procedure TForm1.GridsDrawCell(Sender: TObject; ACol,   ARow: Integer; Rect: TRect; State: TGridDrawState);  var   StringGrid : TStringGrid;   Format: Word;   C : array[0..255] of Char;   temp, max, i, j : integer; begin   if not (Sender is TStringGrid) then Exit;   StringGrid := Sender as TStringGrid; Format := DT_Center OR DT_WORDBREAK;   (StringGrid).Canvas.FillRect(Rect);   StrPCopy(C, (StringGrid).Cells[ACol, ARow]);   WinProcs.DrawText((StringGrid).Canvas.Handle, C, StrLen(C), Rect, Format);    for I := 0 to StringGrid.ColCount - 1 do         begin           max:= 0;            for J := 0 to StringGrid.RowCount - 1 do              begin                temp := StringGrid.Canvas.TextWidth(StringGrid.Cells[i, j]);                 if temp > max then                   max:=temp;              end;              StringGrid.ColWidths[i] := max + StringGrid.GridLineWidth + 10;         end; end;   procedure TForm1.FormCreate(Sender: TObject);   StringGrid1.OnDrawCell:= GridsDrawCell;      StringGrid2.OnDrawCell:= GridsDrawCell;        ..............

Всем удачи

[TeRomani]

какойто у меня прикол с OnDrawGrid в Delphi XE
на 7ке все норм работало не мойму в чем дело закрашивает с отступом вправо на пару пикселей...

текст стандартный

procedure TfmMain.StringGrid4DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if (ARow>0) and (not (gdSelected in State)) then
begin
with StringGrid4 do
begin
Canvas.Brush.Color:=cllime;
Canvas.FillRect(Rect);
end;
end;
end;