|
Это код, который я использую для печати TMemoField в TDBGrid.
Перекрываем (override) метод DrawCell:
Canvas.FillRect(ARect);
R := ARect;
WITH TMemoField(Field) DO
DrawText(Canvas.Handle, PChar(Value), Length(Value), R,
DT_WORDBREAK OR DT_NOPREFIX);
|
Я думаю этот код, который я создал в Delphi 1.0, должен помочь
вам:
procedure TForm1.StringGrid1DrawCell(Sender: TObject; Col, Row: Longint;
Rect: TRect; State: TGridDrawState);
var
bufB: array[0..79] of Char;
algn: Word;
begin
algn := 0;
if (Col = NumbColK) or (Col = PrceColK) or
(Col = TtlColK) then
algn := dt_Right;
if Row = 0 then
algn := dt_Center;
if algn = 0 then
Exit;
StringGrid1.Canvas.FillRect(Rect);
StrPCopy(bufB, StringGrid1.CellS[Col, Row]);
Rect.Top := Rect.Top + 2;
Rect.Right := Rect.Right - 2;
DrawText(StringGrid1.Canvas.Handle, bufB, -1, Rect, algn);
end;
|
- В первой части необходимо установить нужное вам выравнивание, и очистить
старый текст.
- Число -1, поскольку, я думаю, bufB должен быть строкой с терминирующим
нулем, в которую вы можете помещать любое число, например, 10, и он должен
ограничивать вашу строку до 10, как раз то, что вы хотели.
...действительно, в зависимости от вашего приложения, можно все
значительно упростить. Если вы заполняете сетку из другого источника, просто
сделайте так:
grid.cells[col,row] :=
trimWithDots (myString, form1.canvas, grid.widths[col]-2);
|
где trimWithDots-функция, с помощью которой вычисляется количество пикселей,
необходимых для написания в ячейки сетки строки myString. При этом у myString
обрезаются левые и правые пробелы, а для определения ширины используется функция
холста textWidth:
function trimWithDots (const myString: string; canvas: tCanvas;
wid: integer): string;
begin
result := myString;
while canvas.textWidth (result) > wid do
delete (result, length(result), 1);
end;
|
Естественно, вы можете сделать это более грамотнее, добавляя к
правильно-обрезанному тексту '...'. По какой-то странной причине, grid.canvas
почему-то возвращает мне неверные результаты, поэтому я всегда работаю с
form1.canvas, который меня никогда не подводил.
Если вы не загружаете сетку из другого источника, вы можете все делать так,
как описано выше, но помещая код в обработчик события onDrawDataCell. В этом
случае сетка нарисует за вас все линии, вам же останется нарисовать только
содержимое.
|
Событие OnDraw для TStringGrid