Leaderboard

просто обработчик по клику кнопке напишите

procedure TMainForm.UniFormReady(Sender: TObject); begin with UniPageControl1.JSInterface do begin JSCode(#1'.tabPanel.tabBar.add({xtype: "tbfill"});'); JSCall('tabPanel.tabBar.add', [UniButton1.JSControl]); //UniButton1 in HiddenPanel end; end;

Здравствуйте, Попробуйте например такой код: procedure TMainForm.UniDBGrid1ColumnSummary(Column: TUniDBGridColumn; GroupFieldValue: Variant); begin if SameText(Column.FieldName, 'quantity') then begin if Column.AuxValue=NULL then Column.AuxValue:=0; if Column.Field.DataSet.FieldByName('quantity').AsInteger > 500 then Column.AuxValue:=Column.AuxValue + Column.Field.AsInteger end else if SameText(Column.FieldName, 'unitprice') then begin if Column.AuxValue=NULL then Column.AuxValue:=0.0; if Column.Field.DataSet.FieldByName('quantity').AsInteger > 500 then Column.AuxValue:=Column.AuxValue + (Column.Field.AsFloat * ClientDataSet1Quantity.AsInteger) end; end;

Maybe you wanted something like this: .x-grid-cell { vertical-align: middle; } .x-grid-cell-inner { line-height: 100%; }