TfrxListBoxControl

Comments

• -=Den=-

  October 2005 edited 6:19PM

  I little has not understood.
  You it is necessary chosen field from one ListBox to move in another?
  Or will simply take the indexes chosen element?
• galwacco

  October 2005 edited 6:19PM

  Hi Den
  
  I need to get the SELECTED (chosen) field to put into another listbox.
  
  In delphi it would be the SELECTED property for the TListBox Class, but that does not seem to work here with fast reports.
  
  Thanks
• -=Den=-

  October 2005 edited 6:19PM

  FR 3.19.
  Here is Script example (simply get up script in report).

  var
  listBox1,listBox2:TlistBox;
  form:Tform;
  button:Tbutton;
  procedure BTNCLK(Sender:TButton);
  var
  i:integer;
  begin
  for i:=0 to listbox1.items.Count -1 do
  begin
  if Listbox1.Selected[i] then
  ListBox2.items.add(Listbox1.items.Strings[i]);
  end;
  
  
  end;
  
  begin
  form:=TForm.create(nil);
  form.visible:=true;
  form.setBounds(0,0,250,228);
  button:= TButton.Create(form);
  button.parent:=form;
  button.visible:=true;
  button.setbounds(104,84,16,16);
  Button.caption:='+';
  Button.OnClick:=@BTNCLK;
  
  ListBox1:=TlistBox.Create(form);
  ListBox2:=TlistBox.Create(form);
  ListBox1.parent:= form;
  ListBox2.parent:= form;
  ListBox1.SetBounds(0,0,100,200);
  ListBox2.SetBounds(124,0,100,200);
  ListBox1.Multiselect:=True;
  ListBox1.Multiselect:=True;
  ListBox1.Items.Add('1');
  ListBox1.Items.Add('2');
  ListBox1.Items.Add('3');
  ListBox1.Items.Add('4');
  ListBox1.Items.Add('5');
  ListBox1.Items.Add('6');
  ListBox1.Items.Add('7');
  ListBox1.Items.Add('8');
  ListBox1.Items.Add('9');
  end.
  
• galwacco

  October 2005 edited 6:19PM

  Den
  
  Thanks for the example, but the problem is that I'm using the TfrxListBoxControl
  instead of TListBox Class because I'm working inside of the TfrxReport component and I cannot see a way of using that TListBox Class inside that component.
  
  If there is a way of using TListBox component inside of the TfrxReport component tell me because the SELECTED property DOES NOT WORK for TfrxListBoxControl.
  
  Thanks
• -=Den=-

  October 2005 edited 6:19PM

  In TfrxListBoxControl no even property multiselect.
  Create all in script, without participation component TfrxComponent (exactly for this is created FS ).
  
• galwacco

  November 2005 edited 6:19PM

  Thanks Den!! That worked pretty well!!!
  
  But my boss is really nitty-greedy and wanted me to find out a way of doing this with that very component (TfrxListBoxControl).
  
  So I found out a way after hours of research:
  
  On the .Create of the dataModule that I'm using as a Reports' repository I put the folowing lines:
  
  var
  GlobalScriptObj: TfsScript;
  cvClass: TfsClassVariable;
  begin
  inherited;
  // adds new properties and methods to the script
  GlobalScriptObj := fsGlobalUnit;
  cvClass := GlobalScriptObj.FindClass('TfrxListBoxControl');
  cvClass.AddIndexProperty('Selected', 'Integer', 'Boolean', CallMethod, False);
  end;
  
  
  function TdtmRelatorios.CallMethod(Instance: TObject; ClassType: TClass;
  const MethodName: String; var Params: Variant): Variant;
  var
  _TfrxListBoxControl: TfrxListBoxControl;
  begin
  Result := 0;
  if ClassType = TfrxListBoxControl then
  begin
  _TfrxListBoxControl := TfrxListBoxControl(Instance);
  if MethodName = 'SELECTED.GET' then
  Result := _TfrxListBoxControl.ListBox.Selected[Params[0]]
  else if MethodName = 'SELECTED.SET' then
  _TfrxListBoxControl.ListBox.Selected[Params[0]] := Params[1];
  end
  end;
  
  
  
  Thanks again!!