» Использование DevExpress (часть 4)

Marcello_TLT
Ну можно еще попробовать PopupEdit из cxEditItems.

makz
Вот спасибо.

Еще вопрос: никак не удается отрисовать картинку в [more=cxComboBox] взятую из cxImageList (в обычном комбе с обычным имайджлистом, правда с другим синтаксисом, все работает)

Код: procedure TFrmDevScheduler.cxCbBox1PropertiesDrawItem(AControl: TcxCustomComboBox; ACanvas: TcxCanvas; AIndex: Integer; const ARect: TRect; AState: TOwnerDrawState);
begin
cxCbBox1.Canvas.FillRect(ARect,clWindow);
cxImgLst1.Draw(ACanvas,ARect.Left,ARect.Top,AIndex,dsTransparent,itImage,True);//ошибка
end;

Цитата:

Подскажите, как добраться к каждой выделенной записи в cxGridDBTableView при множ. выборе?

http://www.sql.ru/blogs/x11/1343

Добавлено:
http://www.sql.ru/forum/actualthread.aspx?tid=661254

X11
Спасибо, смотрю...

Есть процедура поиска в cxGrid источник на sql.ru

[more=код процедуры]
Код:
type
TcxDataControllerGroupsProtected = class(TcxDataControllerGroups);

const
MsgDataNotFound = 'Данные, удовлетворяющие условию поиска, не обнаружены';

procedure Search(AView: TcxGridDBBandedTableView; AText: string; AFromBeginning: boolean);
var
GroupsIndex: integer;
GroupsCount: integer;
ChildCount: integer;
ColIndex: integer;
RowIndex: integer;
RecIndex: integer;
CurIndex: integer;
i, j, k: integer;
Result: boolean;
function
Compare(ARecIndex, AColIndex: integer): boolean;
begin
Result :=
AnsiContainsText
(
AView.DataController.DisplayTexts
[
ARecIndex,
AView.VisibleColumns[AColIndex].Index
],
AText
);
end;
begin
Result := false;

if AFromBeginning then
begin
// поиск с начала
// строка - первая
// столбец - первый
RowIndex := 0;
ColIndex := 0;
end
else
begin
// поиск с текущей позиции
// строка - текущая
// столбец - слещующий после текущего
// если текущий столбец последний, то начинаем поиск
// с первого столбца следующей строки
RowIndex := AView.Controller.FocusedRowIndex;
ColIndex := AView.Controller.FocusedColumnIndex;
if AView.Controller.FocusedColumn.IsLast then
begin
ColIndex := 0;
Inc(RowIndex);
end
else
Inc(ColIndex)
end;

if AView.DataController.Groups.GroupingItemCount = 0 then
begin
// поиск в несгруппированном представлении
for i := RowIndex to AView.ViewData.RowCount - 1 do
begin
RecIndex := AView.ViewData.Rows[i].RecordIndex;
if RecIndex = -1 then
Continue;

for j := ColIndex to AView.VisibleColumnCount - 1 do
begin
Result := Compare(RecIndex, j);
if Result then
begin
AView.Controller.FocusedRecordIndex := RecIndex;
AView.Controller.FocusedColumnIndex := j;
Break;
end;
end;

ColIndex := 0;
if Result then
Break;
end;
end
else
begin
// поиск в сгруппированном представлении
GroupsCount := TcxDataControllerGroupsProtected(AView.DataController.Groups).DataGroups.Count;
GroupsIndex := AView.DataController.Groups.DataGroupIndexByRowIndex[RowIndex];
for i := GroupsIndex to GroupsCount - 1 do
begin
ChildCount := AView.DataController.Groups.ChildCount[i];
for j := 0 to ChildCount - 1 do
begin
RecIndex := AView.DataController.Groups.ChildRecordIndex[i, j];
if RecIndex = -1 then
Continue;

CurIndex := AView.DataController.GetRowIndexByRecordIndex(RecIndex, false);
if (CurIndex > -1) and (CurIndex < RowIndex) then
Continue;

for k := ColIndex to AView.VisibleColumnCount - 1 do
begin
Result := Compare(RecIndex, k);
if Result then
begin
AView.Controller.FocusedRowIndex := AView.DataController.GetRowIndexByRecordIndex(RecIndex, true);
AView.Controller.FocusedColumnIndex := k;
Break;
end;
end;

ColIndex := 0;
if Result then
Break;
end;

if Result then
Break;
end;
end;

if not Result then
raise Exception.Create(MsgDataNotFound);
end;

X11


Цитата:

нормальной стандартной встроенной процедуры поиска

Ну не знаю ваши критерии, но мне вполне достаточно свойств DataController.Search. Если его использовать, ваша процедурка станет на глазок раз в пять короче и понятнее, а возможно и корректнее.

ЕМНИП, то свойств DataController.Search ищет только по начальным символам

X11
А фильтр не годится?

Не. Нужен полноценный, нормальный стандартный поиск.

Нашёл, что можно попробовать FindRecordIndexByText.
Нужно будет почитать, погуглить про это.

X11
Он тоже с начала строки. Самое простое - пробежаться по строкам, типа вот:

for I := 0 to cxGrid1DBTableView1.DataController.FilteredRecordCount - 1 do
begin
ARecordIndex := cxGrid1DBTableView1.DataController.FilteredRecordIndex[I];
if (Pos('щу', cxGrid1DBTableView1.DataController.Values[ARecordIndex, cxGrid1DBTableView1Name.Index]) <> 0) then
cxGrid1DBTableView1.DataController.FocusedRecordIndex := ARecordIndex;
end;
cxGrid1.SetFocus;

Существует ли сборка для 2010 с dxDBGrid?

Добрый день! Нужен компонент для ввода времени в виде Часы:минуты. Но! Так как это период времени (к примеру длительность чего либо составляет 40 часов 55 минут), то cxTimeEdit не подходит, тк в нем жестко прошита длительность времени не более 23 часов.
Конкретнее - ограничение здесь:


Код: function IsCharValidForTimeEdit(ATimeEdit: TcxCustomMaskEdit;
var AChar: Char; APos: Integer;
const ATimeZoneInfo: TcxTimeEditZoneInfo): Boolean;

procedure GetTimeValueItemValueRange(out AMinValue, AMaxValue: Integer);

Цитата:

sobolenok

А может использовать cxButtonEdit? Доступ к кнопкам у него есть и маски поддерживаются так же как и в cxMaskEdit.

Цитата:

cxButtonEdit

дело в том что в нем нельзя добавить кнопки spinedita, нету их там в списке
cxButtonEdit.cxButtonEditProperties.Buttons[0].Kind

sobolenok
а рядом долепить spinbutton?

Цитата:

долепить spinbutton

угу, похоже так и придется делать, спасибо)

sobolenok

Цитата:

Куда копаю - в сторону cxMaskEdit. Но не хватает кнопочек spinedit справа. В принципе если можно их добавить каким то простым методом то проблема решена

Код: with cxMaskEdit.Properties.Buttons.Add do
begin
OnButtonClick := .....;
Kind := bkGlyph;
Glyph.LoadFromResourceName(HInstance, '....');
end;

Пытаюсь сделать грид полосатым. Если создать стиль в design time, то все в порядке. А если пытаться кодом

Код: cxGrid1DBTableView1.Styles.ContentOdd.Color:= clGreen;

а сам стиль назначили?
Небось cxGrid1DBTableView1.Styles равен nil?

X11
если по дефолту его значение равно nil, то оно так и есть. А как назначить программно?

eddoc

Цитата:

А как назначить программно?

Код: st: TcxStyle;
.........
st := TcxStyle.Create(Self);
st.Color := clGreen;
cxGrid1DBTableView1.Styles.ContentOdd := st;

marser
Спасибо.

В таком случае переменную st придется создавать/уничтожать в секции инициализации/деинициализации модуля?

Update: да уж. Проще компоненту в репозиторий положить

eddoc

Цитата:

В таком случае переменную st придется создавать/уничтожать в секции инициализации/деинициализации модуля?

Код: cxGrid1DBTableView1.Styles.ContentOdd := TcxStyle.Create(Self);
cxGrid1DBTableView1.Styles.ContentOdd.Color := clGreen;

Отправили к вам...

Как сделать что бы у окна вместо стандартного заголовка был заголовок Ribbon-а ?

Добавлено:
Как у Ribbon-а поменять скин ?

Рихтую шедулер напильником дальше...

Есть ли какой способ (желательно программно) поменять цвет шрифта в отображаемом эвенте, чтобы достичь оптимальной читабельности/контрастности?



зы: юзер имеет возможность самостоятельно задавать значение LabelColor, в выборе цветов не хотелось бы его ограничивать

А в cxRichEdit gif-ку анимированную можно засунуть ?

Добавлено:
Или как в него картинки сувать все никак не пойму ?

G787
Вот пример от производителя
_http://www.devexpress.com/Support/Center/Attachment/GetAttachment?fileOid=301eddf2-94ea-43eb-bf0c-344aa4ee1910&fileName=dxSample.zip

eddoc

Цитата:

зы: юзер имеет возможность самостоятельно задавать значение LabelColor, в выборе цветов не хотелось бы его ограничивать

Тогда придется изобретать функцию для смены цвета шрифта, в зависимости от labelcolor, и ставить ее в oncustomdrawevent.

Код:
var
Color: Longint;
r, g, b: Byte;
begin
Color := ColorToRGB(AViewInfo.Color);
r := Color;
g := Color shr 8;
b := Color shr 16;

if (299 * r + 587 * g + 114 * b > 127500 )
// светлый
AViewInfo.Font.Color:=clBlack;
else
// темный
AViewInfo.Font.Color:=clWhite;

Есть обширный список значений, вставленных в cxComboBox. Чтобы чисто визуально разделить их (там есть свои категории) - пришлось вставить пустые строки между некоторыми строками. В итоге список внешне выглядит так:


Цитата:

Строка 1
Строка 2
Строка 3

Строка 4
Строка 5
Строка 6
Строка 7
Строка 8

Строка 9
Строка 10

Строка 11
Строка 12
Строка 13
Строка 14
Строка 15
Строка 16

Только как теперь запретить пользователям выбирать эти пустые строки?

reenoip
_http://www.devexpress.com/Support/Center/p/Q137876.aspx