Текущий архив: 2006.04.16;
Скачать: CL | DM;

Вниз

Hint для DrawGrid   Найти похожие ветки 

← →
Евгений Р.   (2006-03-13 23:55) [0]

Как сделать hint для DrawGrid индивидуально для каждой ячейки?

---

← →
Кашперук Иван   (2006-03-14 11:40) [1]

Это для StringGrid, но думаю там все станет понятно

http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988624705&n=16

---

← →
Евгений Р.   (2006-03-14 12:52) [2]

Спасибо!

---

← →
Leonid Troyanovsky ©   (2006-03-14 18:54) [3]

> Евгений Р.   (13.03.06 23:55)

> Как сделать hint для DrawGrid индивидуально для каждой ячейки?


Для демонстрации подхода only

{ShowHint = True}

type
TDBGridEx = class(TDBGrid);

procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
 Y: Integer);
var
GridCoord                   : TGridCoord;
OldActiveRecord             : Integer;
begin
with TDBGridEx(Sender) do
begin
  GridCoord := MouseCoord(HitTest.X, HitTest.Y);
  if (GridCoord.X >= FixedCols)
    and (GridCoord.Y >= FixedRows) then
  begin
    if (GridCoord.Y <> OldRowIndex) or (GridCoord.X <> OldColIndex) then
    begin
      Application.CancelHint;
      OldActiveRecord := DataLink.ActiveRecord;
      try
        DataLink.ActiveRecord := GridCoord.Y - FixedRows;
        Hint := DataLink.Fields[GridCoord.X-FixedCols].AsString;
      finally
        DataLink.ActiveRecord := OldActiveRecord;
      end;
      OldRowIndex := GridCoord.Y;
      OldColIndex := GridCoord.X;
    end;
  end
  else
    Application.CancelHint;
end;
end;

--
Regards, LVT.

ЗЫ Кстати, никто не научит, как можно искать что-то в здешнем архиве. Можно на почту.

---

Страницы: 1 вся ветка

Текущий архив: 2006.04.16;
Скачать: CL | DM;

Наверх

Память: 0.45 MB
Время: 0.045 c