Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Событие OnDraw для TStringGrid

Delphi , Компоненты и Классы , TStringGrid и TDrawGrid

Событие OnDraw для TStringGrid

Это код, который я использую для печати 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. В первой части необходимо установить нужное вам выравнивание, и очистить старый текст.
  2. Число -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 раздела Компоненты и Классы TStringGrid и TDrawGrid может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: TStringGrid и TDrawGrid ::


реклама



©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
29.03.2024 13:42:28/0.0044848918914795/2