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

Вниз

Левый верхний угол сетки mdvXLGrid   Найти похожие ветки 

← →
dataMaster ©   (2003-09-15 11:48) [0]

Всем привет! Кто подскажет, как написать текст в самом верхнем левом углу компонента mdvXLGrid?

---

← →
mdw ©   (2003-09-15 12:16) [1]

Примерно так:

procedure TMainForm.XLGridDrawTitle(Sender: PControl; ACol, ARow: Integer;
 ACell: PmdvXLCell; ACanvas: PCanvas; ARect: TRect; ASelected,
 AFocused: Boolean; var Access: Boolean);
begin
   if (ACol = -1) and (ARow = -1) then begin
     DrawText(ACanvas.Handle, "@", -1, ARect, DT_SINGLELINE or DT_VCENTER or DT_CENTER);
   end;
end;

---

← →
dataMaster ©   (2003-09-15 12:28) [2]

Спасибо.

---

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

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

Наверх

Память: 0.46 MB
Время: 0.024 c