Jump to content

uniguisyriusz

uniGUI Subscriber
  • Posts

    61
  • Joined

  • Last visited

Posts posted by uniguisyriusz

  1. uniGUI Compolete Professional v1.90.0.1496

    Ext event:

    function celldblclick(sender, td, cellIndex, record, tr, rowIndex, e, eOpts)
    {
       Ext.defer(function(){
                ajaxRequest(sender, 'celldblclick', ['cel='+cellIndex], false)
            }, 300);
    }

    In Delphi OnAjaxEvent parameter cel is missing.

    There is parameter c but its value is 0 for first and second column (first column is fixed).

    I need to know column id independently from fixed columns count.

  2. Refresh on UniDbGrid?

    unit Main;

    interface

    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics,
      Controls, Forms, uniGUITypes, uniGUIAbstractClasses,
      uniGUIClasses, uniGUIRegClasses, uniGUIForm, FireDAC.Stan.Intf,
      FireDAC.Stan.Option, FireDAC.Stan.Param, FireDAC.Stan.Error, FireDAC.DatS,
      FireDAC.Phys.Intf, FireDAC.DApt.Intf, FireDAC.Stan.Async, FireDAC.DApt,
      Data.DB, FireDAC.Comp.DataSet, FireDAC.Comp.Client, uniGUIBaseClasses,
      uniBasicGrid, uniDBGrid, uniButton, uniPanel, uniTimer, uniThreadTimer;

    const
      WM_MY_MESSAGE = WM_USER + 0;

    type
      TMainForm = class(TUniForm)
        FDQuery1: TFDQuery;
        UniDBGrid1: TUniDBGrid;
        DataSource1: TDataSource;
        UniButton1: TUniButton;
        UniTimer1: TUniTimer;
        procedure FDQuery1AfterOpen(DataSet: TDataSet);
        procedure UniButton1Click(Sender: TObject);
      private

      public
        { Public declarations }
      end;

    function MainForm: TMainForm;

    implementation

    {$R *.dfm}

    uses
      uniGUIVars, MainModule, uniGUIApplication;

    function MainForm: TMainForm;
    begin
      Result := TMainForm(UniMainModule.GetFormInstance(TMainForm));
    end;

    procedure TMainForm.FDQuery1AfterOpen(DataSet: TDataSet);
    begin
      DataSource1.DataSet := FDQuery1;
      UniDBGrid1.DataSource := DataSource1;
      UniTimer1.Enabled := false;
      //UniDBGrid1.JSInterface.JSCall('view.refresh', []);
    end;

    procedure TMainForm.UniButton1Click(Sender: TObject);
    begin
      FDQuery1.Open();
    end;

    initialization
      RegisterAppFormClass(TMainForm);

    end.

×
×
  • Create New...