Страница 5 из 13
Re: Доработки Rx
Добавлено: 12.01.2018 13:29:23
alexs
rtn писал(а):1. Убрать или сделать опциональной отображение Caption у RxMDICloseButton (FCloseButton.FInfoLabel.Caption). (ChildWindow.Caption и так отображается на вкладке в RxMDITasks);
Готово. Смотри
RxMDICloseButton.ShowInfoLabelrtn писал(а):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 17: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 17:51:41
zoltanleo
Алекс, привет
Не нашел, в гриде есть опция, позволяющая выравнивать текст и чекбоксы по высоте? Или использовать OnDrawCell?
Re: Доработки Rx
Добавлено: 13.01.2018 08:56:19
alexs
rtn писал(а):оперативно
Я посмотрю замечания.
zoltanleo писал(а):Не нашел, в гриде есть опция, позволяющая выравнивать текст и чекбоксы по высоте?
Сейчас нет. Но можно сделать. У меня не практикуются 2-х строчные строки.
Re: Доработки Rx
Добавлено: 13.01.2018 11:02:58
zoltanleo
Сделай, плз.
Re: Доработки Rx
Добавлено: 15.01.2018 09:53:06
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 14:40:06
rtn
по ShowInfoLabel. Если в DisignTime установить в False, при запуске все равно будет показывать InfoLabel. т.к. в процедуре TRxMDICloseButton.DoPositionLabel устанавливается FInfoLabel.Visible := Visible. (215 стр.). Если ее закомментировать, тогда работает. м.б. так FInfoLabel.Visible := Visible and FShowInfoLabel ?
Re: Доработки Rx
Добавлено: 15.01.2018 15:39:13
alexs
Понял. Согласен. Смотри 6135.
Re: Доработки Rx
Добавлено: 16.01.2018 00:35:12
zoltanleo
alexs писал(а):Посмотри у колонки свойство .Layout
В ревизии 6133 поправил отображение чекбокса в зависимости от этого свойства.
Спасибо, все робит
Re: Доработки Rx
Добавлено: 14.02.2018 12: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 16:27:45
alexs
Чего то не могу закомитеть. Что-то с свн случилось
Re: Доработки Rx
Добавлено: 19.02.2018 08:28:56
alexs
ревизия 6206
Re: Доработки Rx
Добавлено: 29.03.2018 11:05:53
kit
Как в фильтре RxDBGrid сделать "Колонка 1 > Колонка 2" ?
Re: Доработки Rx
Добавлено: 29.03.2018 15:13:53
alexs
Пока никак
Re: Доработки Rx
Добавлено: 30.03.2018 09:31:33
kit
Реально доработать?