Использование DevExpress (часть 3) - [107] :: Прикладное программирование

X11
Неее, интересует именно, чтобы выделить содержимое несколько столбцов.

Накатал миничасть для этого, но не совсем устроило.

Код:

Procedure TfrmRegistry.dbgRegistryBandedTableView1ColumnHeaderClick
(Sender: TcxGridTableView; AColumn: TcxGridColumn);
Var
Column: TcxGridDBBandedColumn;
Begin
If Not CtrlPressed Then
Begin
fFieldNeedSort := (AColumn As TcxGridDBBandedColumn).DataBinding.FieldName;
acSort.Execute;
End
Else
Begin
Column := (AColumn As TcxGridDBBandedColumn);
Column.Selected := Not Column.Selected;

dbgRegistryBandedTableView1.DataController.BeginUpdate;
Try
dbgRegistryBandedTableView1.DataController.ClearSelection;
dbgRegistryBandedTableView1.DataController.SelectRows(Number0,
Pred(dbgRegistryBandedTableView1.DataController.GetRowCount));
Finally
dbgRegistryBandedTableView1.DataController.EndUpdate;
End;

CtrlPressed := False;
End;
End;

CtrlPressed устанавливается тут:

Код:

Procedure TfrmRegistry.dbgRegistryKeyDown(Sender: TObject; Var Key: Word;
Shift: TShiftState);
Var
I: Integer;
B: Boolean;
Begin
If ((Key = VK_INSERT) Or (QuickUpperCase(Chr(Key)) = CChar) Or
(QuickUpperCase(Chr(Key)) = CChar1)) And ([ssCtrl] = Shift) Then
Begin
mtRegistry.AfterScroll := Nil;
If dmdMain.IniOptions.EmployeeInfo.Rights And rmImportExport > Zero Then
Begin
B := False;
For I := Number0 To Pred(dbgRegistryBandedTableView1.ColumnCount) Do
If dbgRegistryBandedTableView1.Columns[I].Selected Then
Begin
B := True;
Break;
End;
If B Then
Begin
dbgRegistryBandedTableView1.OptionsBehavior.CopyCaptionsToClipboard :=
True;
dbgRegistryBandedTableView1.CopyToClipboard(False);
dbgRegistryBandedTableView1.OptionsBehavior.CopyCaptionsToClipboard :=
False;
End
Else
dmdMain.TableViewKeyDown(dbgRegistryBandedTableView1, Key, Shift);
End
Else
dmdMain.TableViewKeyDown(dbgRegistryBandedTableView1, Key, Shift);
mtRegistry.AfterScroll := mtRegistryAfterScroll;
Key := Number0;
Shift := [];
CtrlPressed := False;
End
Else
If Shift = [ssCtrl] Then
CtrlPressed := True;
End;

TableViewKeyDown - это просто копирование в буфер обмена текущей ячейки

Добавлено:
PullFocusing - это что такое? Впервые слышу

----------
Холодильники мы

Модерирует : ShIvADeSt
ShIvADeSt (31-12-2009 04:49): Продолжаем тут http://forum.ru-board.com/topic.cgi?forum=33&topic=10884	Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121