source: cprs/trunk/CPRS-Chart/fGraphOthers.pas@ 1787

unit fGraphOthers;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ORCtrls, ExtCtrls, ORFn, uGraphs, rCore, uCore,
  fBase508Form, VA508AccessibilityManager;

type
  TfrmGraphOthers = class(TfrmBase508Form)
    pnlMain: TORAutoPanel;
    lblOthers: TLabel;
    cboOthers: TORComboBox;
    lstViews: TORListBox;
    memReport: TRichEdit;
    pnlBottom: TPanel;
    lblViews: TLabel;
    lblInfo: TLabel;
    lblDefinitions: TLabel;
    btnClose: TButton;
    btnCopy: TButton;
    pnlTempData: TPanel;
    lblSave: TLabel;
    lblClose: TLabel;
    lstActualItems: TORListBox;
    lstDrugClass: TListBox;
    lstScratch: TListBox;
    lstTests: TListBox;
    procedure cboOthersNeedData(Sender: TObject; const StartFrom: string;
      Direction, InsertAt: Integer);
    procedure FormShow(Sender: TObject);
    procedure cboOthersClick(Sender: TObject);
    procedure lstViewsClick(Sender: TObject);
  private
    procedure AddTests(tests: TStrings);
  public
    { Public declarations }
  end;

var
  frmGraphOthers: TfrmGraphOthers;

  procedure DialogGraphOthers(size: integer);

implementation

{$R *.dfm}

uses
  rGraphs, fGraphData, rLabs;

procedure DialogGraphOthers(size: integer);
var
  aList: TStrings;
  frmGraphOthers: TfrmGraphOthers;
begin
  aList := TStringList.Create;
  frmGraphOthers := TfrmGraphOthers.Create(Application);
  try
    with frmGraphOthers do
    begin
      ResizeAnchoredFormToFont(frmGraphOthers);
      ShowModal;
    end;
  finally
    frmGraphOthers.Release;
    aList.Free;
  end;
end;

procedure TfrmGraphOthers.cboOthersClick(Sender: TObject);
begin
  FastAssign(TestGroups(cboOthers.ItemIEN), lstViews.Items);
end;

procedure TfrmGraphOthers.cboOthersNeedData(Sender: TObject;
  const StartFrom: string; Direction, InsertAt: Integer);
begin
  //cboOthers.ForDataUse(SubSetOfPersons(StartFrom, Direction));
  cboOthers.ForDataUse(Users(StartFrom, Direction));
end;

procedure TfrmGraphOthers.FormShow(Sender: TObject);
begin
  cboOthers.InitLongList(User.Name);
  cboOthers.SelectByIEN(User.DUZ);
  cboOthersClick(self);
end;

procedure TfrmGraphOthers.lstViewsClick(Sender: TObject);
begin
  AddTests(ATestGroup(lstViews.ItemIEN, cboOthers.ItemIEN));
end;

procedure TfrmGraphOthers.AddTests(tests: TStrings);
var
  i, j: integer;
  ok: boolean;
begin
  for i := 0 to tests.Count - 1 do
  begin
    ok := true;
    for j := 0 to memReport.Lines.Count - 1 do
      if memReport.Lines[j] = tests[i] then
      begin
        ok := false;
      end;
    if ok then
    begin
      memReport.Lines.Add(tests[i]);
    end;
  end;
end;

end.