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

afiget

Но ведь RowIndex будет меняться в зависимости от сортировки или фильтрации, проще уж оставить RecordIndex.

afiget
Спасибо огромное!!!!

Добавлено:
afiget
К сожалению, заметил такую вещь: работает хорошо, но в случае с группировкой - не работает...

zaroman

Попробуй использовать просто ARecord.RecordIndex

jicoff
если на то же событие OnGetDisplayText - еще хуже

Цитата:

Но ведь RowIndex будет меняться в зависимости от сортировки или фильтрации

Он будет меняться и тем самым вне зависимости от сортировок строки будут пронумерованы правильно.

Цитата:

в случае с группировкой - не работает...

Это да. Мне ни разу еще не приходилось по ТЗ нумеровать группированные строки, не было необходимости искать решение.

afiget
Эх...очень жалко. Но все равно, еще раз большое спасибо.
Буду искать дальше..

zaroman

А если при группировке к RowIndex, если уж RecordIndex работает еще хуже, прибавлять GroupIndex?

Chukotka

Цитата:

как в обработчике ... вычислить имя связанного поля БД?

Как-то достаточно долго дискутировали по этому поводу на стр. 2-5, если не ошибаюсь.

Можно попробовать так:
procedure <YourForm>.<YourcxDBEditorRowEditPropertiesChange>(Sender: TObject);
begin
ShowMessage(TcxDBEditorRow(TcxVerticalGrid(TcxCustomEdit(Sender).Parent).FocusedRow).Properties.DataBinding.FieldName);
end;

опять же - Для надежности можно/нужно проверять что Sender is TcxCustomEdit, что TcxCustomEdit(Sender).Parent is TcxVerticalGrid, а FocusedRow is TcxDBEditorRow

С OnGetContentStyle немного по-другому, если еще актуально, набросаю пример.

vladman
Спасибо, с OnEditValueChanged все работает

Цитата:

С OnGetContentStyle немного по-другому, если еще актуально, набросаю пример.

Было бы здорово. Динамически изменять стиль проще - сейчас после сохранения данных приходится вручную менять стили для всех полей

jicoff
с GroupIndex конечно можно попробовать - только пока не очень понял как будет правильнее: при группировке есть более одного значения - при распахивании каждого из них - какой должна быть нумерация? Сквозной? Или же в каждой группе начинаться с 1 (мне кажется так правильнее)

Ребят кто пользовался dxSpellChecker как избавиться от того что он принимает кавычки за символы и подчеркивает слов с кавычками как ошибочные ?
Где указаны символы разделители слов ?

Помогите

Как сделать что бы по щелчку по +
в ячейки загружалась фотография

В свойствах колонки выбери тип Blob или подходящий. В событии нажатия кнопки в колонке напиши код загрузки изображения в базу.

Если бы все было так просто(
У меня разнотипные данные в колонке

Semeon555777
что значит разнотипные данные в колонке??? если колонка называется "ФОТО СОТРУДНИКА" то что может еще там быть кроме ФОТО? к тому же никто не запрещает на ходу менять у колонки тип

Посмотрите пример
У меня всего 3 колонки, по одной идет группировка
а результат должен быть таким

Semeon555777
как вариант можно тогда попробывать сделать на основе CardView

Коллеги! Попробую сформултровать вопрос.. Есть трилист, хочу использовать настраиваемые иконки для каждой записи, причем хочу, чтобы эти иконки пользователь мог сам подгружать в ран-тайм, теперь вопрос, как сохранить, то, что загрузил пользователь.. Т.е. как сохранить иконки в каком-нибудь ини или еще где, так чтобы, при переносе на другой комп, где этих иконок нет, они не терялись? (вариант с внесением в служебную БД - не предлагать, это рабочая версия)...

ой, не дочитал, извините

Meister Floh
можно попробывать реализовать сохранение например в файл ресурсов...
а cxStorage не позволяет сохранить какой нить ImageList?

f3ka
К сожалению не позволяет.. И сейчас у меня сохраняется в блоб поток.. Только куча траблов при этом..

Chukotka

Цитата:

Было бы здорово. Динамически изменять стиль проще - сейчас после сохранения данных приходится вручную менять стили для всех полей

Можно так -

Код: procedure <YourForm>.<YourcxDBVerticalGridStylesGetContentStyle>(Sender: TObject; AEditProp: TcxCustomEditorRowProperties;
AFocused: Boolean; ARecordIndex: Integer; var AStyle: TcxStyle);
begin
AStyle := <YourcxStyle>; //это обязательно!
if TcxDBEditorRow(AEditProp.Row).Properties.DataBinding.FieldName = '<YourField1Name>' then
AStyle.Color := clRed
else
if TcxDBEditorRow(AEditProp.Row).Properties.DataBinding.FieldName = '<YourField2Name>' then
AStyle.Color := clYellow
else AStyle.Color := clGreen;
end;

vladman
Только тебе как к знатоку Дев..
Вот так работает:

Код:
void __fastcall TForm1::cxButton1Click(TObject *Sender)
{
    TFileStream *imgstream;
    TdxPNGImage *img = new TdxPNGImage();
    if (FileOpenDialog1->Execute()) {
        imgstream = new TFileStream(FileOpenDialog1->FileName, fmOpenRead + fmShareDenyNone);
        img->LoadFromStream(imgstream);
        cxImage1->Picture->Assign(img);
        cxImageList1->AddMasked(img->GetAsBitmap(), img->GetAsBitmap()->TransparentColor);
        cxImage1->Properties->Stretch = true;
    }
    delete imgstream, img;
}

Подскажите как в cxGridCardView добавть картинку

zaroman

Цитата:

Добрый день! Подскажите, пожалуйста, можно ли в QuantumGrid, в DBTableView добавить "внутренний "столбец - номер по порядку. Такой, чтобы переситывался (не менялся) при сортировках, группировках и т.д.

Цитата:

пока не очень понял как будет правильнее: при группировке есть более одного значения - при распахивании каждого из них - какой должна быть нумерация? Сквозной? Или же в каждой группе начинаться с 1 (мне кажется так правильнее)

Ниже решение вашего вопроса.

Вариант со сквозной нумерацией при группировке:

Код: procedure <YourForm>.<YourcxGridDBTableViewOrderNumberColumnGetDisplayText>(Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; var AText: string);
var
vRowIndex: integer;
vGroupRowInfo: TcxGroupsRowInfo;
begin
if ARecord.GridView.GroupedItemCount = 0 then
AText := IntToStr(ARecord.Index + 1)
else
begin
vRowIndex := Sender.GridView.DataController.GetRowIndexByRecordIndex(ARecord.RecordIndex, False);
vGroupRowInfo := Sender.GridView.DataController.DataControllerInfo.DataGroups.RowInfo[vRowIndex];
AText := IntToStr(vGroupRowInfo.RecordListIndex + 1);
end;
end;

Semeon555777
что значит добавить ? в колонку? CardView с базой работает или как?
кстати вот здесь можно посмотреть чутка как товарищи DevExpress'овцы делают

Meister Floh

Цитата:

Т.е. как сохранить иконки в каком-нибудь ини или еще где, так чтобы, при переносе на другой комп, где этих иконок нет, они не терялись?

Сохранять иконки в файл ресурсов, переносить приложение с этим файлом. При старте приложения если такой файл существует, то вычитывать иконки из него, если нет - использовать те, что по умолчанию.
Описание работы с ресурсами - Resource Files Made Easy

Meister Floh

Цитата:

В чем разница?

Сейчас погляжу

[q][/q]
CardView без базы

Meister Floh

Значит при cxImage1->Picture->Assign(img) маска не копируются.

Meister Floh
TdxPNGImage->GetAsBitmap() - создает НОВЫЙ битмап из PNG.
Следовательно этот вновь созданный битмап и добавляется в cxImageList1.
Наверное, правильнее было бы сделать так

Код:
void __fastcall TForm1::cxButton1Click(TObject *Sender)
{
TFileStream *imgstream;
TdxPNGImage *img = new TdxPNGImage();
TBitmap *bmpimg; //-> Added
if (FileOpenDialog1->Execute()) {
imgstream = new TFileStream(FileOpenDialog1->FileName, fmOpenRead + fmShareDenyNone);
img->LoadFromStream(imgstream);
cxImage1->Picture->Assign(img);
bmpimg = img->GetAsBitmap; //-> Added
cxImageList1->AddMasked(bmpimg, bmpimg->TransparentColor); // -> Modified
cxImage1->Properties->Stretch = true;
}
delete imgstream, img, bmpimg; // -> Modified
}