Форум: "Базы";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];
Вниз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 вся ветка
Форум: "Базы";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.01 c