Скачать: CL | DM;

DBGrid иTitle   Найти похожие ветки 

← →
roadrunner   (2003-02-17 09:56) [0]

Здравствуйте все. Помогите кто может советом. Такой вопрос. На форме используется DBGrid. На OnTitleCLick делаю сортировку по столбцу. А как можно сделать чтобы в заголовке кроме заголовка столбца появилась и стрелочка, которая показывала бы направление сортировки - по убыв. или по возр.

---

← →
Жук ©   (2003-02-17 10:54) [1]

Добавьте её в Caption титла.

---

← →
sniknik ©   (2003-02-17 10:57) [2]

переопредели метод грида и рисуй сам.

TMyDBGrid = class(TDBGrid)
//это то что тебе нужно
procedure DrawCell(ACol, ARow: Longint; ARect: TRect; AState: TGridDrawState); override;
//------
procedure WMMouseWheel(var Message: TWMMouseWheel); message WM_MOUSEWHEEL;
Private
AcsDescImages: TImageList;
DrawBitmap: TBitmap;
procedure WriteText(ACanvas: TCanvas; ARect: TRect; DX, DY: Integer; const Text: string; Alignment: TAlignment; ARightToLeft: Boolean);
public
SortedField: integer;
SortedOrder: integer;
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure ClearOrder;
end;

рисовать в методе

inherited DrawCell(ACol, ARow, ARect, AState);
if (gdFixed in AState) and (ACol = SortedField) and (ARect.Left < ARect.Right-10) then begin
if SortedOrder = 0 then AcsDescImages.Draw(Canvas, ARect.Right-10, ARect.Top+6, 0, True)
else AcsDescImages.Draw(Canvas, ARect.Right-10, ARect.Top+6, 1, True);
end;

---

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

Скачать: CL | DM;



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