Jump to content

OlegTimkiv

uniGUI Subscriber
 View Profile  See their activity

  • Posts

    128

  • Joined

  • Last visited

  • Days Won

    1

 Content Type 

Posts posted by OlegTimkiv

    В DBTreeGrid получить AbsolitIndex записи

    in Russian

    Posted

    On 1/21/2019 at 10:35 PM, Sherzod said:

    Добрый вечер!

    Простите, для какой цели Вы хотите это использовать ? 

    Ext.tree.Panel.addMembers({
    selectPathById: function(id){
        var me = this,
            node = me.getStore().getNodeById(id);
        if(node){
            me.selectPath(node.getPath());
        }
    }
});

      

    procedure TMainForm.UniButton3Click(Sender: TObject);
begin
  GRD.JSInterface.JSCall('selectPathById', [2-1]); 
end; 

    При проставлении checkbox в группе. Хочу запомнить absolitIndex. и открыть нужную группу.   

     

    DBTreeGrid при выборе родительского узла, переход по DataSource.

    in Russian

    Posted

    17 hours ago, Sherzod said:

    Попробуйте следующий подход...:

    1. UniDBTreeGrid -> ClientEvents -> ExtEvents -> function store.nodeexpand 

    
function store.nodeexpand(sender, eOpts)
{
   var grid=this.grid, f;   
   if (sender.data.root==true) {return};
   
   sender.cascadeBy( function(){
        if (f) return false;
        
        if (!this.get("leaf")) {
            this.expand();
        } else {
            ajaxRequest(grid, "_sel", ["rec="+this.data[1]]);  // Индекс Вашего ключевого поля
            f=true; 
        } 
    }); 
}

    2. UniDBTreeGrid -> OnAjaxEvent: 

    
procedure TMainForm.UniDBTreeGrid1AjaxEvent(Sender: TComponent;
  EventName: string; Params: TUniStrings);
begin
  if EventName = '_sel' then
    TUniDBGrid(Sender).DataSource.DataSet.Locate('KeyField....', Params.Values['rec'], [])

end;

     

    Спасибо большое! Все работает.   

    Динамическая группировка UniDBTreeGrid

    in Russian

    Posted

    Здравствуйте! Пытаюсь реализовать  динамическую группировку, зависимости от данных.      

    if FieldGroups <> '' then
	grdReference.TreeKeyFields := FieldGroups
else
    grdReference.TreeKeyFields := '';

    Никаких действий не происходит. С помощью IdField,  IdParentField работает. 

    Столбцы в UniDBTreeGrid создаются динамически. 

    IIS Експорт в Excel

    in Russian

    Posted

    Добрый день. При развертывание проекта на ISS. Всё работает, кроме экспорта в excel. Создаем документ через CreateOleObject('Excel.Application');. На сервере  стоит "Microsoft Office 2013".  Может быть, данная проблема возникает из-за проблемы доступа к COM-объектам?   

    uniDBTreeGrid переход по строкам при выполнении DataSet.Locate()

    in Russian

    Posted

    13 minutes ago, Sherzod said:

    Добрый день,

    Попробуйте это решение: 

    
procedure TMainForm.UniButton1Click(Sender: TObject);
begin
  if ClientDataSet1.Locate('Id' ,90, []) then
  begin
    //UniSession.AddJS('setTimeout(function(){' + UniDBTreeGrid1.JSName + '.getView().getNode('+ UniDBTreeGrid1.JSName +'.uniRow).scrollIntoView()}, 500)');
    UniDBTreeGrid1.JSInterface.JSCode('Ext.defer(function(){'#1'.ensureVisible('#1'.getSelectionModel().getSelected().getAt(0))}, 100);');
  end;
end;

     

    Спасибо большое. Заработало.   

    • Like 1
×
×
  • Create New...