source: cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/SetSelU.pas@ 770

unit SetSelU;

   (* 

   WorldVistA Configuration Utility

   (c) 8/2008 Kevin Toppenberg

   Programmed by Kevin Toppenberg, Eddie Hagood  

   

   Family Physicians of Greeneville, PC

   1410 Tusculum Blvd, Suite 2600

   Greeneville, TN 37745

   kdtop@yahoo.com

                                                 

   This library is free software; you can redistribute it and/or

   modify it under the terms of the GNU Lesser General Public

   License as published by the Free Software Foundation; either

   version 2.1 of the License, or (at your option) any later version.



   This library is distributed in the hope that it will be useful,

   but WITHOUT ANY WARRANTY; without even the implied warranty of

   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

   Lesser General Public License for more details.



   You should have received a copy of the GNU Lesser General Public

   License along with this library; if not, write to the Free Software

   Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA

  *)   



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Buttons,

  ORNet, ORFn, ComCtrls, ToolWin, Grids, ORCtrls;



type

  TSetSelForm = class(TForm)

    ComboBox: TComboBox;

    CancelBtn: TBitBtn;

    OKBtn: TBitBtn;

    procedure FormShow(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

    procedure PrepForm(setDef : string);

  end;



var

  SetSelForm: TSetSelForm;



implementation

{$R *.dfm}



  procedure TSetSelForm.PrepForm(setDef : string);

  var  oneOption : string;

  begin

    ComboBox.Items.Clear;

    ComboBox.Text := '';

    oneOption := 'x';

    while (setDef <> '') and (oneOption <> '') do begin

      oneOption := piece(setDef,';',1);

      setDef := pieces(setDef,';',2,32);

      oneOption := piece(oneOption,':',2);

      if oneOption <> '' then begin

        ComboBox.Items.Add(oneOption);

      end;

    end;

    if ComboBox.Items.Count > 0 then begin

//      ComboBox.Text := ComboBox.Items[0];

      ComboBox.SelText := ComboBox.Items[0];

    end else begin

      ComboBox.Text := '(none defined)';

    end;

  end;





  procedure TSetSelForm.FormShow(Sender: TObject);

    var mousePos : TPoint;

  begin

    GetCursorPos(mousePos);

    with SetSelForm do begin

      Top := mousePos.Y - 39;

      Left := mousePos.X - 15;

      if Left + Width > Screen.DesktopWidth then begin

        Left := Screen.DesktopWidth - Width;

      end;

    end;

  end;



end.