Доработки Rx

[alexs]

1. Убрать или сделать опциональной отображение Caption у RxMDICloseButton (FCloseButton.FInfoLabel.Caption). (ChildWindow.Caption и так отображается на вкладке в RxMDITasks);

Готово. Смотри RxMDICloseButton.ShowInfoLabel

2. Сделать закрытие чайлдов щелчком средней кнопки мыши по вкладке (RxMDIButton). Как во многих браузерах;

В свойстве RxMDITasks1.Options смотри флаг rxtoMidleClickClose

3. После закрытия ChildWindow на RxMDITasks часто остаются вертикальные полоски. Воспроизводится легко. Создаем 1 чайлд с длинным Caption, второй с коротким. Закрываем первый и видим эту полоску. Invalidate в конце TRxMDITasks.UpdateScrollBtnStatus помогает;

Добавил дополнительную отрисовку. Надо тестировать.

4. Хотелось бы свойство-событие у TRxMDIPanel, что-то типа OnChangeCurrentChild (из названия наверно понятно);

Добавил.

5. Мне кажется когда нет ни одного чалда RxMDICloseButton лучше делать невидимой, а не неактивной, т.е. в FCloseButton.Enabled:=Assigned(FCurrentChildWindow) заменить на Visible.

Смотри RxMDIPanel.HideCloseButton

Спасибо за предложения
Смотри ревизию 6128.

[rtn]

оперативно
1. Не хочет работать ShowInfoLabel. Всегда видно. м.б. потому, что в процедуре TRxMDICloseButton.DoPositionLabel FInfoLabel.Visible := Visible?
2.OnChangeCurrentChild не срабатывает когда закрывается последний Child. Он ведь становится совсем не Current.
может в конце TRxMDIPanel.SetCurrentChildWindow(AValue: TForm) просто добавить if Assigned(FOnChangeCurrentChild) then FOnChangeCurrentChild...
а то как то много где DoOnChangeCurrentChild появилось
И если можно Сolor у RxMDITasks в published вынести. В приложении на одну строчку кода меньше будет

[zoltanleo]

Алекс, привет

Не нашел, в гриде есть опция, позволяющая выравнивать текст и чекбоксы по высоте? Или использовать OnDrawCell?

[alexs]

оперативно

Я посмотрю замечания.

Не нашел, в гриде есть опция, позволяющая выравнивать текст и чекбоксы по высоте?

Сейчас нет. Но можно сделать. У меня не практикуются 2-х строчные строки.

[zoltanleo]

Сделай, плз.

[alexs]

1. Не хочет работать ShowInfoLabel. Всегда видно.

Пример давай - как не работает. У меня вроде всё ок. Я на примере demos/RxMDI тестирую. Вроде всё отображается когда надо.

2.OnChangeCurrentChild не срабатывает когда закрывается последний Child.

Добавил вызов при закрытии последнего окна.

И если можно Сolor у RxMDITasks в published вынести.

Готово. 6132.

Добавлено спустя 37 минут 5 секунд:

Не нашел, в гриде есть опция, позволяющая выравнивать текст и чекбоксы по высоте?

Посмотри у колонки свойство .Layout
В ревизии 6133 поправил отображение чекбокса в зависимости от этого свойства.

[rtn]

по ShowInfoLabel. Если в DisignTime установить в False, при запуске все равно будет показывать InfoLabel. т.к. в процедуре TRxMDICloseButton.DoPositionLabel устанавливается FInfoLabel.Visible := Visible. (215 стр.). Если ее закомментировать, тогда работает. м.б. так FInfoLabel.Visible := Visible and FShowInfoLabel ?

[alexs]

Понял. Согласен. Смотри 6135.

[zoltanleo]

Посмотри у колонки свойство .Layout
В ревизии 6133 поправил отображение чекбокса в зависимости от этого свойства.

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

[brick08]

В форме фильтра TrxFilterByForm при выборе полей из списка комбобокса не влезают названия, и поэтому иногда при длинных наименованиях или двойных/тройных заголовках непонятно что выбрать. Предлагаю доработку:

Код: Выделить всё

procedure TrxFilterByForm.ClearALL(AGrid: TRxDBGrid);
var
  i : Integer;
  w : Integer;
  wt : Integer;
  wsb : Integer;
  //ncm: TNonCLientMetrics;
begin
  //*****************************************************************************
  Combo_1[1].Items.Clear;
  Combo_1[1].Items.Add('');
  //ncm.cbSize:=SizeOf(ncm);
  //SystemParametersInfo(SPI_GetNonClientMetrics,0,@ncm,0);
  //wsb:=ncm.iScrollWidth;
  wsb:= 30;  //ширина скроллбара
  w := Combo_1[1].Width - wsb;
  for i := 0 To AGrid.Columns.Count-1 do
  begin
    if Assigned(AGrid.Columns[i].Field) and (AGrid.Columns[i].Field.FieldKind=fkData) and (AGrid.Columns[i].Visible) then
    begin
      Combo_1[1].Items.Objects[Combo_1[1].Items.Add(AGrid.Columns[i].Title.Caption)]:=AGrid.Columns[i].Field;
      wt := Canvas.TextWidth(AGrid.Columns[i].Title.Caption);
      if wt > w then
        w := wt;
    end;
  end;
  Combo_1[1].ItemWidth := w + wsb;
  Combo_1[1].ItemIndex := 0;

  for i := 2 To 9 do
  begin
    Combo_1[i].Items.Assign(Combo_1[1].Items);
    Combo_1[i].ItemIndex := 0;
    Combo_1[i].ItemWidth := w + wsb;
  end; 

[alexs]

Чего то не могу закомитеть. Что-то с свн случилось

[alexs]

ревизия 6206

[kit]

Как в фильтре RxDBGrid сделать "Колонка 1 > Колонка 2" ?

[alexs]

Пока никак

[kit]

Реально доработать?