Страница 5 из 12

Re: Доработки Rx

СообщениеДобавлено: 12.01.2018 14:29:23
alexs
rtn писал(а):1. Убрать или сделать опциональной отображение Caption у RxMDICloseButton (FCloseButton.FInfoLabel.Caption). (ChildWindow.Caption и так отображается на вкладке в RxMDITasks);

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

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

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

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

Смотри RxMDIPanel.HideCloseButton

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

Re: Доработки Rx

СообщениеДобавлено: 12.01.2018 18:12:27
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 вынести. В приложении на одну строчку кода меньше будет

Re: Доработки Rx

СообщениеДобавлено: 12.01.2018 18:51:41
zoltanleo
Алекс, привет

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

Re: Доработки Rx

СообщениеДобавлено: 13.01.2018 09:56:19
alexs
rtn писал(а):оперативно

Я посмотрю замечания.
zoltanleo писал(а):Не нашел, в гриде есть опция, позволяющая выравнивать текст и чекбоксы по высоте?

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

Re: Доработки Rx

СообщениеДобавлено: 13.01.2018 12:02:58
zoltanleo
Сделай, плз.

Re: Доработки Rx

СообщениеДобавлено: 15.01.2018 10:16:01
alexs
rtn писал(а):1. Не хочет работать ShowInfoLabel. Всегда видно.

Пример давай - как не работает. У меня вроде всё ок. Я на примере demos/RxMDI тестирую. Вроде всё отображается когда надо.
rtn писал(а):2.OnChangeCurrentChild не срабатывает когда закрывается последний Child.

Добавил вызов при закрытии последнего окна.
rtn писал(а):И если можно Сolor у RxMDITasks в published вынести.

Готово. 6132.

Добавлено спустя 37 минут 5 секунд:
zoltanleo писал(а):Не нашел, в гриде есть опция, позволяющая выравнивать текст и чекбоксы по высоте?

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

Re: Доработки Rx

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

Re: Доработки Rx

СообщениеДобавлено: 15.01.2018 16:39:13
alexs
Понял. Согласен. Смотри 6135.

Re: Доработки Rx

СообщениеДобавлено: 16.01.2018 01:35:12
zoltanleo
alexs писал(а):Посмотри у колонки свойство .Layout
В ревизии 6133 поправил отображение чекбокса в зависимости от этого свойства.

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

Re: Доработки Rx

СообщениеДобавлено: 14.02.2018 13:36:27
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; 

Re: Доработки Rx

СообщениеДобавлено: 14.02.2018 17:27:45
alexs
Чего то не могу закомитеть. Что-то с свн случилось

Re: Доработки Rx

СообщениеДобавлено: 19.02.2018 09:28:56
alexs
ревизия 6206

Re: Доработки Rx

СообщениеДобавлено: 29.03.2018 12:05:53
kit
Как в фильтре RxDBGrid сделать "Колонка 1 > Колонка 2" ?

Re: Доработки Rx

СообщениеДобавлено: 29.03.2018 16:13:53
alexs
Пока никак :-)

Re: Доработки Rx

СообщениеДобавлено: 30.03.2018 10:31:33
kit
Реально доработать?