RxFPC - новая версия

[alexs]

Кстати, в догонку о LookupDisplayIndex - если оно превышает кол-во полей для отображения что лучше сделать?

Отображать первое поле? или вобще ничего не отображать?

Может просто расшарить свойства таблички для LookUp'ов?

Тогда это всё можно будет задавать напрямую

Сам грид не существует всё время - он создаётся только в момент выпадения списка. Именно поэтому я и сделал клас-обёртку. Ибо расточительно дюже держать в памяти столько гридов.

Еще б туда возможность изменения типа отображения ScrollBar'ов:

Ну если очень хочется - то можно сделать. Что ещё?

[VAshot]

Про скролы: думаю хватит строки
Result.FGrid.ScrollBars:=ssAutoBoth;
без вынесения в свойства, с трудом представляю когда нужно другое.

А вот приоритет и размеры - хорошо бы.
Как вариант, можно и авторазмер PopUp'а по ширине.

Сейчас для себя сделал следующее (особым разнообразием мои потребности не отличаются):

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

  Result.FGrid.AutoFillColumns:=false;     
  Result.FGrid.ScrollBars:=ssAutoBoth;   
  Result.FGrid.OptimizeColumnsWidthAll;
  if Result.FGrid.Columns.Count > 1 then
    Result.FGrid.Columns.Items[Result.FGrid.Columns.Count-1].SizePriority:=0; 
  Result.FGrid.AutoFillColumns:=true;     

В Гриде:
вот такое работает

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

RxDBGrid1.ColumnByFieldName().Footer

а вот такое нет:

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

RxDBGrid1.Columns.Items[i].Footer

Вроде один и тот же объект, а доступность свойств отличается от способа доступа....

[ViTality]

Чтобы дапрграмно задлать значени - присваивай значение полю из DataField.

спс. ну в принципе так и делал. мне это показалось затычкой.

Насчёт пустого - есть тма глюк - очищается поле по ESC, а вот чтобы не портилось пустое - никак руки не дойдут сделать

может стоит сделать чтоб можно было указать номер записи отображаемой по умолчанию вместо EmptyValue

(у меня просто нет таких форм с пустыми полями).

посмотри в своем проекте "Управление проектами". На закладке Справочники добавь сотрудника без указания организации. а потом еще раз открой его на редактирование. и увидишь что огранизация у него стоит та которая была у записи под курсором при создании. (Вообще спасибо что выложил исходники этого проекта, я там многое подсмотрел )

Кстати, в догонку о LookupDisplayIndex - если оно превышает кол-во полей для отображения что лучше сделать?

думаю лучше ничего или последнее.

[alexs]

посмотри в своем проекте "Управление проектами"

Я в нём не завожу сотрудников без организации .

думаю лучше ничего или последнее

Так что именно?

[ViTality]

Так что именно?

последнее

[alexs]

Залил на SVN подержку для TRxDBLookupCombo.DropDownCount

[ViTality]

ура, ура, ура. опробуем...
вроде все гут

[VAshot]

Вот так, на мой взгляд, лучше:

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

****ShowRxDBPopUpForm
  Result.FGrid.ScrollBars:=ssVertical;
  Result.FGrid.AutoFillColumns:=false;
  Result.FGrid.OptimizeColumnsWidthAll;
//  for i:=0 to Result.FGrid.Columns.Count-1 do
//    Result.FGrid.Columns.Items[1].SizePriority:=Result.FPopUpFormOptions.Columns.Items[i].SizePriority;

  w:=0;
  for i:=0 to Result.FGrid.Columns.Count-1 do
    w:=w+Result.FGrid.Columns.Items[i].Width+20;    //20 - ширина scrolla

  if w < Result.FPopUpFormOptions.DropDownWidth then begin
    Result.FGrid.AutoFillColumns:=APopUpFormOptions.AutoFillColumns;
  end
  else begin
    if w>500 then begin
      w:=500;
      Result.FGrid.ScrollBars:=ssBoth;
    end;
    Result.FPopUpFormOptions.DropDownWidth:=w;
    Result.FGrid.Width:=Result.FPopUpFormOptions.DropDownWidth;
    Result.FGrid.AutoFillColumns:=APopUpFormOptions.AutoFillColumns;
    {Сюда надо что-то дописать, а то правильно начинает отображаться только посе второго вызова PopUp};
  end;


Именно в ShowRxDBPopUpForm, т.к. ранее узанть ширину текста нельзя.

Вот это не работает (свойство SizePriority прописал), никто ж не создавал эти колонки

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

Result.FGrid.Columns.Items[1].SizePriority:=Result.FPopUpFormOptions.Columns.Items[i].SizePriority;

где прописать бы эти свойства? чтоб можно было из основной програмы ими управлять?

[alexs]

1. Почему скрол прибовляется к каждому столбцу?
2. Честно говоря мне больше нравится, когда выпадающий список имеет ширину лукапа.
3. Что нибудь подумаю.

[VAshot]

1. Потому, что скрол отнимает место у ячеек, таблица должна быть=сумма ячеек + скрол, если есть, ну и границы.
2. Минимальная ширина - да, а когда текст не помещается - не слишком красиво (особенно когда растянуть нельзя).

Вот так лучше:

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

function ShowRxDBPopUpForm(AControl:TWinControl; ADataSet:TDataSet;
  AOnPopUpCloseEvent:TPopUpCloseEvent; APopUpFormOptions:TPopUpFormOptions;
  AFieldList:string; ALookupDisplayIndex, BtnWidtn: integer; const Font:TFont):TPopUpForm;
var
  i, w, ww: Integer;
begin
  Result:=TPopUpForm.CreatePopUp(AControl, APopUpFormOptions, AFieldList, BtnWidtn);
  Result.FOnPopUpCloseEvent:=AOnPopUpCloseEvent;
  Result.DataSet:=ADataSet;

//---------------------------------------------------- VAshot
  ww:=Result.FPopUpFormOptions.DropDownWidth;
 
  Result.FGrid.ScrollBars:=ssVertical;
  Result.FGrid.AutoFillColumns:=false;
 
  if Result.FPopUpFormOptions.DropDownWidth<Result.Width then begin
    Result.FPopUpFormOptions.DropDownWidth:=Result.Width;
  end;

  w:=0;
  for i:=0 to Result.FGrid.Columns.Count-1 do
    w:=w+Result.FGrid.Columns.Items[i].Width;

  if Result.FPopUpFormOptions.AutoFillColumns then begin
    Result.FGrid.OptimizeColumnsWidthAll;
  //  for i:=0 to Result.FGrid.Columns.Count-1 do
    if Result.FGrid.Columns.Count > 1 then
      Result.FGrid.Columns.Items[1].SizePriority:=0;

    w:=0;
    for i:=0 to Result.FGrid.Columns.Count-1 do
      w:=w+Result.FGrid.Columns.Items[i].Width;

    if w = Result.FPopUpFormOptions.DropDownWidth then begin
    end;

    if w < Result.FPopUpFormOptions.DropDownWidth then begin
      w:=Result.FPopUpFormOptions.DropDownWidth;
      Result.FGrid.AutoFillColumns:=APopUpFormOptions.AutoFillColumns;
    end;

    if w > Result.FPopUpFormOptions.DropDownWidth then begin
      Result.FPopUpFormOptions.DropDownWidth:=w+20;     //20 - ширина scrolla

      Result:=TPopUpForm.CreatePopUp(AControl, Result.FPopUpFormOptions, AFieldList, BtnWidtn);
      Result.FOnPopUpCloseEvent:=AOnPopUpCloseEvent;
      Result.DataSet:=ADataSet;

      Result.FGrid.AutoFillColumns:=false;
      Result.FGrid.OptimizeColumnsWidthAll;
    //  for i:=0 to Result.FGrid.Columns.Count-1 do
      if Result.FGrid.Columns.Count > 1 then
        Result.FGrid.Columns.Items[1].SizePriority:=0;
      Result.FGrid.AutoFillColumns:=APopUpFormOptions.AutoFillColumns;
      Result.FGrid.ScrollBars:=ssVertical;
    end;
  end;
 
  if w > Result.FPopUpFormOptions.DropDownWidth+20 then
    Result.FGrid.ScrollBars:=ssBoth;
//----------------------------------------------------
  Result.LookupDisplayIndex:=ALookupDisplayIndex;
  Result.LookupDisplayIndex:=ALookupDisplayIndex;

  if Assigned(Font) then
  begin
    Result.FGrid.Font.Assign(Font);
//    Result.Font.Assign(Font);
  end;

{$IFDEF LINUX}
  if Result.ShowModal = mrOk then
    if Assigned(AOnPopUpCloseEvent) then
      AOnPopUpCloseEvent(true);
  Result.Free;
  Result:=nil;
{$ELSE  LINUX}
  Result.Show;
  Result.FGrid.UpdateActive;
{$ENDIF LINUX}

  Result.FPopUpFormOptions.DropDownWidth:=ww;
end;


А вот как передать значения SizePriority или ширины колонок......

[VAshot]

Исправил косячки, правда код коряв и не оптимален уж точно.

[VAshot]

В WhatsNew сказано, что доработа отрисовка маркера сортировки в гриде. А как оно (показ маркера) включается, активизируется?

[alexs]

либо назначай обработчик для события OnGetBtnParam
либо используй прослойку для автосортировки (для примера смотри файл exsortfb.pas).
Для FBDataSet, RxMemDataSet, tmemdataset и также ZeosQuery это уже есть. Если что-то другое - дописывай.

[alexs]

Проверьте, кто сейчас на винде - изменил код для выравнивания кнопок на панели инструментов - работает нормально?

[Brainenjii]

Если имеется в виду TToolPanel - то не понял, где там выравнивание ^_^ Но если добавить несколько в Items, а потом попытаться удалить TToolPanel - вылезет AV.
И ещё - heaptrc ругается на pickdate, если положить RxDateEdit на форму.