Разные вопросы

Пример TDrawGrid Drawcell

Содержание материала

Страница 2 из 2

Code:

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, как раз то, что вы хотели.

...действительно, в зависимости от вашего приложения, можно все значительно упростить. Если вы заполняете сетку из другого источника, просто сделайте так:

  

Code:

grid.cells[col,row] :=

trimWithDots (myString, form1.canvas, grid.widths[col]-2);

  

где trimWithDots-функция, с помощью которой вычисляется количество пикселей, необходимых для написания в ячейки сетки строки myString. При этом у myString обрезаются левые и правые пробелы, а для определения ширины используется функция холста textWidth:

 

Code:

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

 

 

Новые статьи

Ранние статьи

Случайные статьи

Популярные статьи

Подробности
Родительская категория: StringGrid
Категория: Разные вопросы StringGrid

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!

Защитный код
Обновить