Jump to content

Filter uniDbGrid runTime

TI.ME

By TI.ME
in General

 Share

Recommended Posts

TI.ME Member

TI.ME

Posted
Posted

Good Morning!!!

I'm creating a Filter option in uniDbGrid in runtime ...

All component connections ...

The visual display is perfect, but the filter code does not work.

When I type the letter no, the event is triggered but the value of the second letter on, the event is not even triggered !!!

I have a project ready but I do not know how to attach in the forum !!!

Could you guide me ???

Unigui Version 1.10.0 Build 1469

 

 

 

Code Customer...

 

 

procedure TMainForm.UniFormCreate(Sender: TObject);
var
  oHidePanel : TUniHiddenPanel;
  oEdit : array of TUniEdit;
  i : integer;
begin
  TUniHiddenPanel(oHidePanel) := TUniHiddenPanel.Create(Self);
 
  for I := 0 to Pred(UniDBGrid1.Columns.Count) do
  begin
    SetLength(oEdit,Length(oEdit)+1);
    TUniEdit(oEdit)        := TUniEdit.Create(Self);
    TUniEdit(oEdit).Parent := TUniHiddenPanel(oHidePanel).Parent;
    TUniEdit(oEdit).Width  := UniDBGrid1.Columns.Items.Width - 10;
    TUniEdit(oEdit).Name   := 'Edit_'+IntToStr(i);
    UniDBGrid1.Columns.Items.Filtering.Enabled := True;
    UniDBGrid1.Columns.Items.Filtering.Editor  := TUniEdit(oEdit);
  end;
 
  UniMainModule.ADOQuery1.Open;
  UniMainModule.ADOQuery2.Open;
end;
herculanojs Advanced Member

herculanojs

Posted
Posted

 

Good Morning!!!

 

I'm creating a Filter option in uniDbGrid in runtime ...

 

All component connections ...

 

The visual display is perfect, but the filter code does not work.

 

When I type the letter no, the event is triggered but the value of the second letter on, the event is not even triggered !!!

 

I have a project ready but I do not know how to attach in the forum !!!

 

Could you guide me ???

 

Unigui Version 1.10.0 Build 1469

 

 

 

Code Customer...

 

 

procedure TMainForm.UniFormCreate(Sender: TObject);
var
  oHidePanel : TUniHiddenPanel;
  oEdit : array of TUniEdit;
  i : integer;
begin
  TUniHiddenPanel(oHidePanel) := TUniHiddenPanel.Create(Self);
 
  for I := 0 to Pred(UniDBGrid1.Columns.Count) do
  begin
    SetLength(oEdit,Length(oEdit)+1);
    TUniEdit(oEdit)        := TUniEdit.Create(Self);
    TUniEdit(oEdit).Parent := TUniHiddenPanel(oHidePanel).Parent;
    TUniEdit(oEdit).Width  := UniDBGrid1.Columns.Items.Width - 10;
    TUniEdit(oEdit).Name   := 'Edit_'+IntToStr(i);
    UniDBGrid1.Columns.Items.Filtering.Enabled := True;
    UniDBGrid1.Columns.Items.Filtering.Editor  := TUniEdit(oEdit);
  end;
 
  UniMainModule.ADOQuery1.Open;
  UniMainModule.ADOQuery2.Open;
end;

 

 

tente assim:

 

procedure TMainForm.UniFormCreate(Sender: TObject);
var
  oHidePanel : TUniHiddenPanel;
  oEdit : array of TUniEdit;
  i : integer;
begin
  oHidePanel := TUniHiddenPanel.Create(Self);
  oHidePanel.Parent := self;
  self.InsertControl(oHidePanel);
 
  for I := 0 to Pred(UniDBGrid1.Columns.Count) do
  begin
    SetLength(oEdit,Length(oEdit)+1);
    TUniEdit(oEdit)        := TUniEdit.Create(Self);
    TUniEdit(oEdit).Parent := oHidePanel;
    TUniEdit(oEdit).Width  := UniDBGrid1.Columns.Items.Width - 10;
    TUniEdit(oEdit).Name   := 'Edit_'+IntToStr(i);
 
    UniDBGrid1.Columns.Items.Filtering.Enabled := True;
    UniDBGrid1.Columns.Items.Filtering.Editor  := TUniEdit(oEdit);
    UniDBGrid1.Columns.Filtering.ChangeDelay := 250;
  end;
 
  UniMainModule.ADOQuery1.Open;
  UniMainModule.ADOQuery2.Open;
end;
  • 1 year later...
freedowsRoO Active Member

freedowsRoO

Posted
Posted
On 8/23/2018 at 12:19 PM, Hayri ASLAN said:

We have a solution. After adjust email address we will share it.

Hello!! =]

I'm with this exactly problem, i'm creating the filter in runtime and the visual are ok but the event just trigger once and de variable 'value' comes empty.

Sherzod Advanced Member

Sherzod

Posted
Posted
21 minutes ago, freedowsRoO said:

I'm with this exactly problem, i'm creating the filter in runtime and the visual are ok but the event just trigger once and de variable 'value' comes empty.

Testcase?

Sherzod Advanced Member

Sherzod

Posted
Posted
15 hours ago, freedowsRoO said:

I modified the grid filter demo to show you the problem.

GridFiltering-2.rar 

procedure TMainForm.UniFormCreate(Sender: TObject);
Var
  THidenPanel: TUniHiddenPanel;
  TEdit: TUniEdit;
begin
  UniMainModule.ADOQuery1.Open;
  UniMainModule.ADOQuery2.Open;

  THidenPanel:= TUniHiddenPanel.Create(self);
  THidenPanel.Parent := Self;  //<--------------------
  THidenPanel.Name:= 'THiddenPanel';

  TEdit:= TUniEdit.Create(self);
  TEdit.Parent:= THidenPanel;
  TEdit.Name:= 'TEdit';
  TEdit.EmptyText:= 'teste';

  if Assigned(TEdit) then
  begin
    UniDBGrid1.Columns[3].Filtering.Editor:= TEdit;
    UniDBGrid1.Columns[3].Filtering.Enabled:= True;
  end;

end;

 

  • Like 1
freedowsRoO Active Member

freedowsRoO

Posted
Posted
10 hours ago, Sherzod said: 

procedure TMainForm.UniFormCreate(Sender: TObject);
Var
  THidenPanel: TUniHiddenPanel;
  TEdit: TUniEdit;
begin
  UniMainModule.ADOQuery1.Open;
  UniMainModule.ADOQuery2.Open;

  THidenPanel:= TUniHiddenPanel.Create(self);
  THidenPanel.Parent := Self;  //<--------------------
  THidenPanel.Name:= 'THiddenPanel';

  TEdit:= TUniEdit.Create(self);
  TEdit.Parent:= THidenPanel;
  TEdit.Name:= 'TEdit';
  TEdit.EmptyText:= 'teste';

  if Assigned(TEdit) then
  begin
    UniDBGrid1.Columns[3].Filtering.Editor:= TEdit;
    UniDBGrid1.Columns[3].Filtering.Enabled:= True;
  end;

end;

 

It works but when i try to create a grid at runtime it's not work.... anny ideia?

GridFiltering-2.rar

  • 4 weeks later...
x11 Advanced Member

x11

Posted
Posted

Если в примере GridFilter2 на HiddenPanel кинуть TUniTreeView, то будет AccessViolation при загрузке

  • 4 months later...
x11 Advanced Member

x11

Posted
Posted

You can use the standard example "GridFiltering-2".

Drop TUniTreeView on UniHiddenPanel1 and press "Run(F9)" with debug. Then open localhost:8077 in browser.

Delphi Rio, UniGUI 1530, Firefox, Win 10 x64.

Screenshot_21.jpg

  • 1 year later...
dmzn Newbie

dmzn

Posted
Posted

//Date: 2021-08-01
//Parm: FEntity.FItems索引
//Desc: 依据nIdx字典项,创建过滤组件
function TBindData.AddFilterCtrl(const nIdx: Integer): TControl;
var nEdit: TUniEdit;
begin
  if not Assigned(FFilterPanel) then
  begin
    FFilterPanel := TUniHiddenPanel.Create(FParentControl);
    FFilterPanel.Parent := FDBGrid.Parent;
    //this needs to have a parent assigned and coexist with the TUniDBGrid
    FFilterPanel.Visible := False;
  end;

  Result := FindFilterCtrl(nIdx);
  if Assigned(Result) then Exit;
  if not FEntity.FItems[nIdx].FQuery then Exit;

  nEdit := TUniEdit.Create(FParentControl);
  with nEdit do
  begin
    Parent := FFilterPanel;
    CharEOL := #13;
    EmptyText := 'search...';

    Tag := nIdx;
    ClearButton := True;
  end;

  Result := nEdit;
end;

  • 2 years later...
turan Advanced Member

turan

Posted
Posted
On 11/22/2019 at 10:50 AM, Sherzod said: 
procedure TMainForm.UniFormCreate(Sender: TObject);
Var
  THidenPanel: TUniHiddenPanel;
  TEdit: TUniEdit;
begin
  UniMainModule.ADOQuery1.Open;
  UniMainModule.ADOQuery2.Open;

  THidenPanel:= TUniHiddenPanel.Create(self);
  THidenPanel.Parent := Self;  //<--------------------
  THidenPanel.Name:= 'THiddenPanel';

  TEdit:= TUniEdit.Create(self);
  TEdit.Parent:= THidenPanel;
  TEdit.Name:= 'TEdit';
  TEdit.EmptyText:= 'teste';

  if Assigned(TEdit) then
  begin
    UniDBGrid1.Columns[3].Filtering.Editor:= TEdit;
    UniDBGrid1.Columns[3].Filtering.Enabled:= True;
  end;

end;

 

@Sherzodдобрый день. Подскажите а высвобождение объекта TEdit происходит автоматически после уничтожения грида? или надо тоже вручную?

turan Advanced Member

turan

Posted
Posted
8 minutes ago, Sherzod said:

Добрый день, 

Вы имеете в виду, как объекты грида, редакторы, фильтры?

да.

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 Share
Go to topic listing
×
×
  • Create New...