Советы по Delphi. Версия 1.4.3 от 1.1.2001

  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, содержащим то, что выбрал пользователь. Все это должно выглядеть приблизительно так:

type TStrColor = class(TObject)

public

  Color : TColor; {вы могли бы также определить частные и публичные методы доступа}

end;

…

procedure TForm1.FormCreate(Sender:TObject)

var i,j : Integer;

begin

 With StringList1 do

  for i := 0 to ColCount-1

   for j := 0 to RowCount-1 Objects[i,j] := TStrColor.Create;

end;

…

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

var OldColor : TColor;

begin

 with StringGrid1.Canvas do begin

  OldColor := Font.Color;