Советы по Delphi. Версия 1.4.3 от 1.1.2001 - Валентин Озеров

 H : Integer;

 T : TRect;

 F : Word;

begin

 StrPCopy(P, Text);

 T := Rect;

 with Canvas, Rect do begin

  F := DT_CALCRECT or DT_EXPANDTABS or DT_VCENTER or TextAlignments[Alignment];

  if WordWrap then F := F or DT_WORDBREAK;

  H := DrawText(Handle, P, -1, T, F);

  H := MinInt(H,Rect.Bottom - Rect.Top);

  if VerticalAlignment = vaMiddle then begin

   Top := ((Bottom+Top) - H) div 2;

   Bottom := Top + H;

  end else if VerticalAlignment = vaBottom then Top := Bottom - H - 1;

  F := DT_EXPANDTABS or DT_VCENTER or TextAlignments[Alignment];

  if WordWrap then F := F or DT_WORDBREAK;

  DrawText(Handle, P, –1, Rect, F);

 end;

end;

– Rick Roger

StringGrid без выделенной ячейки

Я пытаюсь показать StringGrid без выделенной ячейки. Первая нефиксированная ячейка всегда имеет состояние "инвертированного" цвета. Я не хочу позволить пользователю редактировать сетку, но эта выделенная ячейка производит впечатление того, что сетка имеет возможность редактирования…

Вам необходимо создать обработчик события OnDrawCell. Это легче чем вы думаете. Вот образец кода, который сделает вас счастливым:

procedure TForm.sgrDrawCells(Sender: TObject; Col, Row: Longint; Rect: TRect; State: TGridDrawState);

var

 ACol: longint absolute Col;

 ARow: longint absolute Row;

 Buf: array[byte] of char;

begin

 if State = gdFixed then Exit;

 with sgrGrid do begin

  Canvas.Font := Font;

  Canvas.Font.Color := clWindowText;

  Canvas.Brush.Color := clWindow;

  Canvas.FillRect(Rect);

  StrPCopy(Buf, Cells[ACol,ARow]);

  DrawText(Canvas.Handle, Buf, -1, Rect, DT_SINGLELINE or DT_VCENTER or DT_NOCLIP or DT_LEFT);

 end;

end;

– Jeff Fisher 

Один щелчок на StringGrid вместо трех

Как сделать так, чтобы после ПЕРВОГО щелчка на ячейке возможно было бы начать редактировать ее содержимое?

Включите goAlwaysShowEditor в свойство TStringGrid Options.

– Rick Rogers

StringGrid как DBGrid

Delphi 1

Ну это может выглядеть приблизительно так (возможно нужна некоторая доработка, написал от руки, не проверяя):

table.first;

row := 0;

grid.rowcount := table.recordCount;

while not table.eof do begin

 for i := 0 to table.fieldCount-1 do

  grid.cells[i,row] := table.fields[i].asString;

 inc(row);

 table.next;

end;

У меня тоже имееются свои причины использования TStringGrid. Вот мой код, который загружает данные из отфильтрованной таблицы. Он не очень изящен, т.к. реально является лишь черновиком. У меня это работает, а большего мне и не нужно. Работает очень быстро, даже в случае сотни загруженных колонок. Есть много ссылок на внешние переменные. Надеюсь что они не слишком заумные.

PROCEDURE TformLookupDB.FillCells;

VAR

 Row, i :INTEGER

 w      :INTEGER

 grid   :TStringGrid

BEGIN

 doGrid.RowCount := 0;

 IF NOT ASSIGNED(fDB) THEN EXIT;

 Row := 0;

 FOR i := LOW(fColWidths) TO HIGH(fColWidths) DO fColWidths[i] := 100

 // Данный временный объект-сетка используется для предохранения от огромного

 // количества подразумеваемых событий Application.ProcessMessages,

 // инициируемых базой данных, и вызывающих противное моргание объекта

 // doGrid. Итак, мы загружаем данные в объект-сетку

 // и затем копируем их в стобцы, начиная с верхней части.

 grid := TStringGrid.Create(Self);

 grid.Visible := FALSE;

 WITH fDB DO TRY

  grid.ColCount := fFields.Count;

  DisableControls;

  // Фильтр был установлен с помощью свойства Self.Filter

  First;

  WHILE NOT EOF DO TRY

   grid.RowCount := Row+1;

   FOR i := 0 TO grid.ColCount-1 DO BEGIN

    grid.Cells[i,Row] :=FieldByName(fFields.Strings[i]).AsString

    w := doGrid.Canvas.TEXTWIDTH(grid.Cells[i,Row]);

    IF fColWidths[i]<w THEN fColWidths[i] := w;

   END

   INC(Row);

  FINALLY

   Next;

  END

 FINALLY

  doGrid.RowCount := grid.RowCount;

  doGrid.ColCount := grid.ColCount;

  FOR i := 0 TO grid.ColCount-1 DO BEGIN

   doGrid.Cols[i] := grid.Cols[i];

   doGrid.ColWidths[i] := fColWidths[i] + 4

  END

  grid.Free;

  EnableControls

 END

END; 

`Авторазмер` для StringGrid

…да, реально это утомляет, но эту проблему можно решить программным путем (это нужно делать после того, как вы загрузите данные, или же, если вы загружаете данные по столбцам, их загружать в самом цикле, приведенном ниже):

i, j, temp, max: integer;

for i := 0 to grid.colcount-1 do begin

 max := 0;

 for j := 0 to grid.rowcount-1 do begin

  temp := grid.canvas.textWidth(grid.cells[i,j]);

  if temp > max then max := temp;

 end;

 grid.colWidths[i] := max + grid.gridLineWidth +1;

end;

Вероятно, вам необходимо будет добавить +1, чтобы текст не прилипал к границам ячеек.

Выравнивание колонок StringGrid III

Вот некоторый код, который делает то, что вы хотите:

procedure WriteText(ACanvas: TCanvas; const ARect: TRect; DX, DY: Integer; const Text: string; Format: Word);

var

 S: array[0..255] of Char;

 B, R: TRect;

begin

 with ACanvas, ARect do begin

  case Format of

  DT_LEFT:

   ExtTextOut(Handle, Left + DX, Top + DY, ETO_OPAQUE or ETO_CLIPPED,@ARect, StrPCopy(S, Text), Length(Text), nil);

  DT_RIGHT:

   ExtTextOut(Handle, Right - TextWidth(Text) - 3, Top + DY,ETO_OPAQUE or ETO_CLIPPED, @ARect, StrPCopy(S, Text),Length(Text), nil);

  DT_CENTER:

   ExtTextOut(Handle, Left + (Right - Left - TextWidth(Text)) div 2, Top + DY, ETO_OPAQUE or ETO_CLIPPED, @ARect,StrPCopy(S, Text), Length(Text), nil);

  end;

 end;

end;

procedure TBEFStringGrid.DrawCell(Col, Row: Longint; Rect: TRect; State: TGridDrawState);

var

 procedure Display(const S: string; Alignment: TAlignment);

 const Formats: array[TAlignment] of Word = (DT_LEFT, DT_RIGHT, DT_CENTER);

 begin

  WriteText(Canvas, Rect, 2, 2, S, Formats[Alignment]);

 end;

begin

 { здесь задаем аргументы Col и Row, и форматируем как угодно ячейки }

 case Row of

 0: { Центрирование заголовков колонок }

  if (Col < ColCount) then Display(Cells[Col,Row], taCenter)

  else

   { Все другие данные имеют правое центрирование }

   Display(Cells[Col,Row], taRight);

 end;

end; 

Выравнивание колонок StringGrid IV

Delphi 1 

Создайте ваш собственный метод drawcell на примере того, что приведен ниже:

procedure Tsearchfrm.Grid1DrawCell(Sender: TObject; Col, Row: Longint; Rect: TRect; State: TGridDrawState);

var l_oldalign : word;

begin

 if (row=0) or (col<2) then grid1.canvas.font.style:= grid1.canvas.font.style+[fsbold]; {устанавливаем заголовок в жирном начертании}

 if col<>1 then begin

  l_oldalign:=settextalign(grid1.canvas.handle, ta_right);

  {NB использует для рисования правую сторону квадрата}

  grid1.canvas.textrect(rect,rect.right-2, Rect.top+2,grid1.cells[col,row]);

  settextalign(grid1.canvas.handle,l_oldalign);

 end else begin

  grid1.canvas.textrect(rect, rect.left+2, rect.top+2, grid1.cells[col,row]);

 end;

 grid1.canvas.font.style:= grid1.canvas.font.style-[fsbold];

end;

Покрашенный StringGrid I

Delphi 1

…вы можете попробовать использовать StringGrid. У него имеется свойство Objects, через которое вы можете назначать объекты. Создайте объект, содержащий переменную типа TColor, и назначьте это Objects[col,row], что позволит иметь к нему доступ в любое время. Назначьте событие OnDrawCell StringGrid, позволяющее рисовать текст ячейки правильного цвета. Чтобы убедиться, что ячейка выбрана, воспользуйтесь свойством Selection, содержащим то, что выбрал пользователь. Все это должно выглядеть приблизительно так: