И снова DevExpress

[Запарили]

Людь, будьте человеками, киньте ссылку на инсталятор свежих DevExpress под Delphi 7 или Delphi 2008, а то пока разберешься что и как компилировать - ногу об клаву сломаешь. В нете искал - ничего стоящего не нашел, или компоненты по отдельности и старые или компилировать надо. Заранее спасибо за человечность и быстрый ответ.

[ivan_fd]

Ну вы млин даете! http://www.nowa.cc/showpost.php?p=2014564&postcount=533

[AnViSe]

С какой версии DevExpress имеется поддержка RAD2009?

[ivan_fd]

Цитата: Сообщение от AnViSe С какой версии DevExpress имеется поддержка RAD2009?

В той версии, что я дал ссылку имеется. А вообще с версии 39, но там помоему Bar-ы не имеют поддержки 2009.

[Shadow_Hawk]

Подскажите плизз!
Закачиваю csv файлик в cxGrid
Колонки создаю сам перед заполнением.
Вот строка, в которой данные в колонке должны прижаться вправо:

AColumn.Properties.Alignment.Horz := taRightJustify;
где ( AColumn: TcxGridColumn; )
ошибок не выдает до тех пор пока дело не дойдет до использования.

Ошибка возникает в модуле cxEdit библтотеки DevExpress

Как решить эту проблему в cxGrid?

Например заголовок колонки:

AColumn.HeaderAlignmentHorz := taRightJustify;

нормально выравнивается.

[nyckneykov]

Привет, когда я делаю что-то для заменя внешнего вида cxGrid-а, я делаю так
cxGrid1TableView1.BeginUpdate;
..... /замена внешнии вид какой-то компонент из cxGrid1TableView1
cxGrid1TableView1.EndUpdate;
попробуй ....

[Shadow_Hawk]

Цитата: Сообщение от nyckneykov Привет, когда я делаю что-то для заменя внешнего вида cxGrid-а, я делаю так cxGrid1TableView1.BeginUpdate; ..... /замена внешнии вид какой-то компонент из cxGrid1TableView1 cxGrid1TableView1.EndUpdate; попробуй ....

Я так и делаю - BeginUpdate/EndUpdate; - это к обновлению в конечном итоге информации в таблице - это я делаю. Тут так сказать проблем нет

Проблема в том что в гриде по умолчанию у колонок выравнивание по левому краю - т.е. все данные прижимаются влево. Я могу изменить только у заголовка колонки выравнивание а вот у ячеек с данными ничего при этом не меняется. Я так понял что нужно изменять параметры именно у ячеек (у каждо) либо у колонки но каким то хитрым способом.
Не получилось

[nyckneykov]

Цитата: Сообщение от Shadow_Hawk Я так и делаю - BeginUpdate/EndUpdate; - это к обновлению в конечном итоге информации в таблице - это я делаю. Тут так сказать проблем нет Проблема в том что в гриде по умолчанию у колонок выравнивание по левому краю - т.е. все данные прижимаются влево. Я могу изменить только у заголовка колонки выравнивание а вот у ячеек с данными ничего при этом не меняется. Я так понял что нужно изменять параметры именно у ячеек (у каждо) либо у колонки но каким то хитрым способом. Не получилось

Привет,
Решение очень просто. Кололонок выравниваются по стандартам - текст - слево, цифры - справа. Но ты сможеш переменят это в поле Column1.Properties. Эсли ты положиш какой-то тип, то у него эсть настройка Aligment.Horisontal или Aligment.Vertical. То и тебе нужно!

[Shadow_Hawk]

Цитата: Сообщение от nyckneykov Привет, Решение очень просто. Кололонок выравниваются по стандартам - текст - слево, цифры - справа. Но ты сможеш переменят это в поле Column1.Properties. Эсли ты положиш какой-то тип, то у него эсть настройка Aligment.Horisontal или Aligment.Vertical. То и тебе нужно!

function CreateColumnCaption( ColumnCount: integer;
                              ColumnWidth: array of integer;
                              ColumnHeaderAlignmentHorz: array of TAlignment;
                              ColumnAlignmentHorz: array of TAlignment;
                              ColumnValueType: array of string;
                              ColumnCaption: array of string;
                              cxGTV: TcxGridTableView ):TcxGridTableView;
var
  i, j, k: Integer;
  AColumn: TcxGridColumn;
begin
  cxGTV.BeginUpdate;
  if cxGTV.ColumnCount > 0 then for i := cxGTV.ColumnCount-1 downto 0 do cxGTV.Columns[i].Destroy;
  try
    for i := 0 to ColumnCount - 1 do
    begin
      AColumn := cxGTV.CreateColumn;
      AColumn.Caption := ColumnCaption[i];
      AColumn.Width := ColumnWidth[i];
      AColumn.HeaderAlignmentHorz := ColumnHeaderAlignmentHorz[i];
      AColumn.DataBinding.ValueType :=  ColumnValueType[i];
      AColumn.Properties.Alignment.Horz := ColumnAlignmentHorz[i]; - тут ОШИБКА :(
    end;
  finally
    cxGTV.EndUpdate;
  end;
  Result := cxGTV;
end;

// вот то о чем как я понял ты говоришь - я это уже проверил - не работает!!!. Но! Если я сам создам КОЛОНКУ. Если я сам настрою ЕЕ, т.е. установлю "РУЧКАМИ" в объекте например ableView3Column1 (это первая колонка) DataBinding.ValueType например в DateTime, далее в Properties выберу из списка DateEdit и в появившемся Properties.Alignment.Horz выбираю скажем taRightJustify, ТО!!! После этого я могу в программе уже спокойно изменять это свойство Properties.Alignment.Horz . Видимо проблема в том что я в программе не проделываю первые 2 шага с типом данных и типом редактирования - но я как раз это и не знаю как сделать

[nyckneykov]

Привет,
этот код, может, поможет тебе:

     for i := 0 to GridORTView.ColumnCount -1 do
    begin
      GridORTView.Columns[i].Width := 70;
      GridORTView.Columns[i].Options.Editing := False;
      GridORTView.Columns[i].Options.Filtering := False;
      GridORTView.Columns[i].Options.FilteringMRUItemsList := False;
      GridORTView.Columns[i].Options.Focusing := False;
      GridORTView.Columns[i].Options.Grouping := False;
      GridORTView.Columns[i].Options.HorzSizing := False;
      GridORTView.Columns[i].Options.IncSearch := False;
      GridORTView.Columns[i].Options.Moving := False;
      GridORTView.Columns[i].Options.Sorting := False;
      GridORTView.Columns[i].HeaderAlignmentHorz := taCenter;
      GridORTView.Columns[i].HeaderAlignmentVert := vaBottom;
      if (i = 2) then
      begin
        GridORTView.Columns[i].PropertiesClass := TcxDateEditProperties;
        with TcxDateEditProperties(GridORTView.Columns[i].Properties) do
        begin
          Alignment.Horz := taCenter;
          Kind := ckDate;
        end;
        GridORTView.Columns[i].BestFitMaxWidth := 70;
        GridORTView.Columns[i].MinWidth := 70;
        GridORTView.Columns[i].OnGetDisplayText := GridORTViewGetDisplayText;
      end;
      if (i = 3) OR (i = 4) then
      begin
        GridORTView.Columns[i].PropertiesClass := TcxTimeEditProperties;
        with TcxTimeEditProperties(GridORTView.Columns[i].Properties) do
        begin
          TimeFormat := tfHourMin;
        end;
        GridORTView.Columns[i].Properties.Alignment.Horz := taCenter;
        GridORTView.Columns[i].BestFitMaxWidth := 70;
        GridORTView.Columns[i].MinWidth := 70;
      end;
      if (i = 5) OR (i > 6) then
      begin
        GridORTView.Columns[i].PropertiesClass := TcxCurrencyEditProperties;
        with TcxCurrencyEditProperties(GridORTView.Columns[i].Properties) do
        begin
          DisplayFormat := '0.00';
        end;
        GridORTView.Columns[i].Properties.Alignment.Horz := taRightJustify;
        GridORTView.Columns[i].BestFitMaxWidth := 70;
        GridORTView.Columns[i].MinWidth := 70;
        GridORTView.Columns[i].Summary.FooterKind := skSum;
      end;
    end;

[FoxSoftSPB]

Цитата: Сообщение от Shadow_Hawk ... AColumn := cxGTV.CreateColumn; AColumn.Caption := ColumnCaption[i]; AColumn.Width := ColumnWidth[i]; AColumn.HeaderAlignmentHorz := ColumnHeaderAlignmentHorz[i]; AColumn.DataBinding.ValueType := ColumnValueType[i]; AColumn.Properties.Alignment.Horz := ColumnAlignmentHorz[i]; - тут ОШИБКА ... [/CODE]

Перестаньте гадать на кофейной гуще :-)
Заглятите в исходники...посмотрите реализацию свойства Properties
Перед строчкой с ошибкой...нужно (или 1 или 2)
1) AColumn.PropertiesClassName:='XXX';//Или задать имя класса
2) AColumn.PropertiesClass:=TXXXClass;//Или задать сам класс
А у ж потом:
AColumn.Properties.Alignment.Horz := ColumnAlignmentHorz[i];

[Shadow_Hawk]

Всем поучавствовавшим в разборе полетов ОГРОМНОЕ спасибо - вопрос решен!!!
Не хватало именно
GridORTView.Columns[i].PropertiesClass := TcxDateEditProperties;

т.е. объявления класса! А уж после объявления его можно добираться и до Alignment
Еще раз спс!

Добавлено через 30 минут

[Shadow_Hawk]

Уважаемые знатоки!
Появилась еще 1 насущная проблема
Как связать 2 cxGrid`а вместе.
Я так понимаю, что встав на строчку в одном гриде - необходимо взять значение какого-либо уникального поля, предположим, IB, а потом настроить ( передать некий параметр ) второй грид так, чтобы совпадали значения в одноименном поле. Как я понял необходимо обрабатывать событие OnSelectionChanged в TableView1 и апдейтить содержимое TableView2 с использованием ФИЛЬТРА.

Добавлено через 1 час 16 минут
Вопрос закрыт - сам дошел!
ВОТ мой шедевр для таких же начинающих.
И работает !

procedure TForm1.SetFilterByIB();
begin
try
TableView3.DataController.Filter.Active := false;
TableView3.DataController.Filter.BeginUpdate;
TableView3.DataController.Filter.Root.Clear;
TableView3.DataController.Filter.Root.AddItem(Tabl eView3.Columns[0],
foLike,
TableView2.Columns[2].EditValue,
TableView2.Columns[2].EditValue);
TableView3.DataController.Filter.Active:=true;
TableView3.DataController.Filter.EndUpdate;
finally
end;
end;

[Cze]

Shadow_Hawk, Master Detail связь сделать нельзя что ли сделать

[stan_uz]

не втему, но всетаки а какой грид вообще самы быстрый? (отрисовка итп.)