Ignore:
Timestamp:
Jul 7, 2010, 4:51:54 PM (14 years ago)
Author:
Kevin Toppenberg
Message:

Upgrading to version 27

File:
1 edited

Legend:

Unmodified
Added
Removed

  • cprs/trunk/CPRS-Chart/fGraphSettings.pas

    r456 r830  
    55uses
    66  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
    7   ComCtrls, StdCtrls, ExtCtrls, CheckLst, Math, ORCtrls, ORFn, uGraphs;
     7  ComCtrls, StdCtrls, ExtCtrls, CheckLst, Math, ORCtrls, ORFn, uCore, uGraphs, fBase508Form,
     8  VA508AccessibilityManager;
    89
    910type
    10   TfrmGraphSettings = class(TForm)
     11  TfrmGraphSettings = class(TfrmBase508Form)
    1112    brnClear: TButton;
    1213    btnAll: TButton;
    … …  
    4344    bvlMid: TBevel;
    4445    lstOptions: TListBox;
     46    cboDateRangeOutpatient: TORComboBox;
     47    cboDateRangeInpatient: TORComboBox;
     48    lblOutpatient: TLabel;
     49    lblInpatient: TLabel;
    4550    procedure FormCreate(Sender: TObject);
    4651    procedure FormShow(Sender: TObject);
    … …  
    6873
    6974  private
    70     { Private declarations }
    7175    FHintPauseTime: integer;
    7276  public
    73     { Public declarations }
    7477    procedure wmNCLButtonDown(var Msg: TWMNCLButtonDown); message WM_NCLBUTTONDOWN;
     78    procedure ChangeSettings(aGraphSetting: TGraphSetting);
     79    procedure ChangeSources(DisplaySource: TStrings);
     80    procedure Conversion(conv: integer);
     81    procedure SetSettings(aGraphSetting: TGraphSetting);
     82    procedure SetSources(aList, DisplaySource: TStrings);
     83    procedure GetTypeList(aList: TStrings);
    7584  end;
    7685
    7786var
    7887  frmGraphSettings: TfrmGraphSettings;
     88 
    7989  procedure DialogOptionsGraphSettings(topvalue, leftvalue, fontsize: integer;
    8090    var actiontype: boolean);
    … …  
    8898
    8999uses
    90   rGraphs;
     100  rGraphs, fGraphData, VAUtils;
    91101
    92102procedure DialogOptionsGraphSettings(topvalue, leftvalue, fontsize: integer;
    … …  
    94104var
    95105  FGraphSetting: TGraphSetting;
    96   aList, FSources, AllTypes: TStrings;
     106  FSources, AllTypes: TStrings;
    97107  i, conv: integer;
    98   aSettings, dfntype, listline, settings, settings1, t1, t2: string;
    99 begin
    100   aList := TStringList.Create;
    101   FastAssign(rpcGetGraphSettings, aList);
    102   if aList.Count < 1 then
    103   begin
    104     showmessage('CPRS is not configured for graphing.');
    105     aList.Free;
     108  aSettings, dfntype, listline, settings, settings1: string;
     109begin
     110  settings := GetCurrentSetting;
     111  settings1 := GetPublicSetting;
     112  if settings1 = '' then
     113  begin
     114    ShowMsg(TXT_NOGRAPHING);
    106115    exit;
    107116  end;
    108   t1 := aList[0]; t2 := aList[1];   // t1 are personal, t2 public settings
    109   if length(t1) > 0 then settings := t1
    110   else settings := t2;
    111   SetPiece(settings, '|', 8, Piece(t2, '|', 8));
    112117  settings1 := Piece(settings, '|', 1);
    113118  Alltypes := TStringList.Create;
    114   FastAssign(rpcGetTypes('0', false), AllTypes);
     119  FastAssign(GtslAllTypes, AllTypes);
    115120  for i := 0 to AllTypes.Count - 1 do
    116121  begin
    … …  
    132137  DialogGraphSettings(fontsize, actiontype, FGraphSetting, FSources, conv, aSettings);
    133138  FGraphSetting.Free;
    134   aList.Free;
    135139  FSources.Free;
     140  AllTypes.Free;
    136141end;
    137142
    … …  
    139144  aGraphSetting: TGraphSetting; DisplaySource: TStrings; var conv: integer; var aSettings: string);
    140145var
    141   needtoadd, turnon: boolean;
    142   i, j: integer;
    143   dfntype, dsdisplay, dsitem, dsnum, filename, filenum, listitem, listline, t1, t2, value: string;
    144146  aList: TStrings;
    145147  frmGraphSettings: TfrmGraphSettings;
    … …  
    152154    with frmGraphSettings do
    153155    begin
     156      if displaysource.Count > 99999 then exit;
     157      FastAssign(rpcGetGraphDateRange('OR_GRAPHS'), cboDateRangeOutpatient.Items);
     158      if cboDateRangeOutpatient.Items.Count > 0 then
     159        cboDateRangeOutpatient.Items.Delete(0);
     160      FastAssign(cboDateRangeOutpatient.Items, cboDateRangeInpatient.Items);
    154161      FastAssign(rpcGetGraphSettings, aList);
    155       t1 := aList[0]; t2 := aList[1];   // t1 are personal, t2 public settings
    156       if length(t1) = 0 then t1 := t2;
    157       SetPiece(t1, '|', 8, Piece(t2,'|', 8));
    158       btnPersonal.Hint := t1;
    159       btnPublic.Hint := t2;
    160       aList.Clear;
    161       FastAssign(rpcGetTypes('0', false), aList);
    162       for i := 0 to aList.Count -1 do
    163       begin
    164         listline := aList[i];
    165         dfntype := UpperCase(Piece(listline, '^', 1));
    166         SetPiece(listline, '^', 1, dfntype);
    167         aList[i] := listline;
    168       end;
    169       with lstSources.Items do
    170       begin
    171         Clear;
    172         lstSourcesCopy.Items.Clear;
    173         for i := 0 to aList.Count - 1 do
    174         begin
    175           listitem := aList[i];
    176           filenum := Piece(listitem, '^', 1);
    177           filename := Piece(listitem, '^', 2);
    178           Add(filename);
    179           lstSourcesCopy.Items.Add(filename + '^' + filenum);
    180         end;
    181         with lstSourcesCopy do
    182         for i := 0 to Items.Count - 1 do
    183         begin
    184           listitem := Items[i];
    185           filenum := Piece(listitem, '^', 2);
    186           for j := 0 to DisplaySource.Count - 1 do
    187           begin
    188             dsitem := DisplaySource[j];
    189             dsnum := Piece(dsitem, '^', 1);
    190             dsdisplay := Piece(dsitem, '^', 3);
    191             if filenum = dsnum then
    192             begin
    193               if dsdisplay = '1' then
    194                 lstSources.Checked[i] := true;
    195               break;                         
    196             end;
    197           end;
    198         end;
    199       end;
    200       with aGraphSetting do
    201       begin
    202         OptionSettings := '';
    203         if Values then OptionSettings := OptionSettings + SETTING_VALUES;
    204         if VerticalZoom then OptionSettings := OptionSettings + SETTING_VZOOM;
    205         if HorizontalZoom then OptionSettings := OptionSettings + SETTING_HZOOM;
    206         if View3D then OptionSettings := OptionSettings + SETTING_3D;
    207         if Legend then OptionSettings := OptionSettings + SETTING_LEGEND;
    208         if Lines then OptionSettings := OptionSettings + SETTING_LINES;
    209         if Dates then OptionSettings := OptionSettings + SETTING_DATES;
    210         if SortByType then OptionSettings := OptionSettings + SETTING_SORT;
    211         if ClearBackground then OptionSettings := OptionSettings + SETTING_CLEAR;
    212         if Gradient then OptionSettings := OptionSettings + SETTING_GRADIENT;
    213         if Hints then OptionSettings := OptionSettings + SETTING_HINTS;
    214         if StayOnTop then OptionSettings := OptionSettings + SETTING_TOP;
    215         if FixedDateRange then OptionSettings := OptionSettings + SETTING_FIXED;
    216         spnMaxGraphs.Position := MaxGraphs;
    217         spnMinGraphHeight.Position := MinGraphHeight;
    218         MaxSelect := Min(MaxSelectMax, MaxSelect);
    219         if MaxSelect < MaxSelectMin then
    220           MaxSelect := MaxSelectMin;
    221         spnMaxSelect.Position := MaxSelect;
    222         spnMaxSelect.Min := MaxSelectMin;
    223         spnMaxSelect.Max := MaxSelectMax;
    224         if SortByType then SortColumn := 1 else SortColumn := 0;
    225         lstOptions.Tag := SortColumn;
    226         if (SortColumn > 0) then
    227           if Pos(SETTING_SORT, OptionSettings) = 0 then
    228             OptionSettings := OptionSettings + SETTING_SORT;
    229         for i := 0 to lstOptions.Items.Count - 1 do
    230         begin
    231           value := Piece(lstOptions.Items[i], '^', 2);
    232           chklstOptions.Checked[i] := Pos(value, OptionSettings) > 0;
    233         end;
    234       end;
     162      btnPersonal.Hint := GetPersonalSetting;
     163      btnPublic.Hint := GetPublicSetting;
     164      GetTypeList(aList);
     165      SetSources(aList, DisplaySource);
     166      SetSettings(aGraphSetting);
    235167      with spnMaxGraphs do
    236168        lblMaxGraphsRef.Caption := inttostr(Min) + ' to ' + inttostr(Max);
    … …  
    239171      with spnMaxSelect do
    240172        lblMaxSelectRef.Caption := inttostr(Min) + ' to ' + inttostr(Max);
    241       if conv = BIG_NUMBER then
    242       begin
    243         lblOptionsInfo.Visible := true;
    244         frmGraphSettings.Caption := 'Graph Settings - Defaults Only';
    245         lblConversions.Enabled := false;
    246         cboConversions.Enabled := false;
    247         cboConversions.ItemIndex := 0;
    248         cboConversions.Text := '';
    249       end
    250       else
    251       with cboConversions do
    252       begin
    253         lblOptionsInfo.Visible := false;
    254         frmGraphSettings.Caption := 'Graph Settings';
    255         if btnPublicSave.Enabled = true then
    256         begin
    257           lblConversions.Enabled := true;
    258           Enabled := true;
    259           ItemIndex := conv;
    260           Text := Items[ItemIndex];
    261         end
    262         else
    263         begin
    264           lblConversions.Enabled := false;
    265           cboConversions.Enabled := false;
    266           cboConversions.ItemIndex := 0;
    267           cboConversions.Text := '';
    268         end;
    269       end;
     173      Conversion(conv);
    270174      ResizeAnchoredFormToFont(frmGraphSettings);
    271175      ShowModal;
    … …  
    275179        aSettings := btnClose.Hint;
    276180        conv := cboConversions.ItemIndex;
    277         with lstSources do
    278         begin
    279           for i := 0 to Items.Count - 1 do
    280           begin
    281             needtoadd := false;
    282             if Checked[i] then
    283               needtoadd := true;
    284             filename := Piece(lstSourcesCopy.Items[i], '^', 1);
    285             filenum := Piece(lstSourcesCopy.Items[i], '^', 2);
    286             for j := 0 to DisplaySource.Count - 1 do
    287             begin
    288               dsitem := DisplaySource[j];
    289               dsnum := Piece(dsitem, '^', 1);
    290               if filenum = dsnum then
    291               begin
    292                 needtoadd := false;
    293                 if Checked[i] then
    294                   DisplaySource[j] := filenum + '^' + filename + '^1'
    295                 else
    296                   DisplaySource[j] := filenum + '^' + filename + '^0';
    297                 break;
    298               end;
    299             end;
    300             if needtoadd then
    301               DisplaySource.Add('*^' + filenum + '^' + filename + '^1');
    302           end;
    303         end;
    304         with aGraphSetting do
    305         begin
    306           MaxGraphs := spnMaxGraphs.Position;
    307           MinGraphHeight := spnMinGraphHeight.Position;
    308           MaxSelect := spnMaxSelect.Position;
    309           MaxSelectMin := 1;
    310           OptionSettings := '';
    311           with chklstOptions do
    312           for i := 0 to Items.Count - 1 do
    313           begin
    314             value := Piece(lstOptions.Items[i], '^', 2);
    315             turnon := Checked[i];
    316             if turnon then OptionSettings := OptionSettings + value;
    317             if value = SETTING_VALUES then Values := turnon
    318             else if value = SETTING_VZOOM then VerticalZoom := turnon
    319             else if value = SETTING_HZOOM then HorizontalZoom := turnon
    320             else if value = SETTING_3D then View3D := turnon
    321             else if value = SETTING_LEGEND then Legend := turnon
    322             else if value = SETTING_LINES then Lines := turnon
    323             else if value = SETTING_DATES then Dates := turnon
    324             else if value = SETTING_SORT then SortByType := turnon
    325             else if value = SETTING_CLEAR then ClearBackground := turnon
    326             else if value = SETTING_GRADIENT then Gradient := turnon
    327             else if value = SETTING_HINTS then Hints := turnon
    328             else if value = SETTING_FIXED then FixedDateRange := turnon
    329             else if value = SETTING_TOP then StayOnTop := turnon;
    330           end;
    331           if SortByType then SortColumn := 1 else SortColumn := 0;
    332         end;
     181        ChangeSources(DisplaySource);
     182        ChangeSettings(aGraphSetting);
    333183      end;
    334184    end;
    … …  
    336186    frmGraphSettings.Release;
    337187    aList.Free;
     188  end;
     189end;
     190
     191procedure TfrmGraphSettings.ChangeSettings(aGraphSetting: TGraphSetting);
     192var
     193  turnon: boolean;
     194  i : integer;
     195  value: string;
     196begin
     197  with aGraphSetting do
     198  begin
     199    MaxGraphs := spnMaxGraphs.Position;
     200    MinGraphHeight := spnMinGraphHeight.Position;
     201    MaxSelect := spnMaxSelect.Position;
     202    MaxSelectMin := 1;
     203    OptionSettings := '';
     204    with chklstOptions do
     205    for i := 0 to Items.Count - 1 do
     206    begin
     207      value := Piece(lstOptions.Items[i], '^', 2);
     208      turnon := Checked[i];
     209      if turnon then OptionSettings := OptionSettings + value;
     210      if value = SETTING_VALUES then Values := turnon
     211      else if value = SETTING_VZOOM then VerticalZoom := turnon
     212      else if value = SETTING_HZOOM then HorizontalZoom := turnon
     213      else if value = SETTING_3D then View3D := turnon
     214      else if value = SETTING_LEGEND then Legend := turnon
     215      else if value = SETTING_LINES then Lines := turnon
     216      else if value = SETTING_DATES then Dates := turnon
     217      else if value = SETTING_SORT then SortByType := turnon
     218      else if value = SETTING_CLEAR then ClearBackground := turnon
     219      else if value = SETTING_GRADIENT then Gradient := turnon
     220      else if value = SETTING_HINTS then Hints := turnon
     221      else if value = SETTING_FIXED then FixedDateRange := turnon
     222      else if value = SETTING_TURBO then Turbo := turnon
     223      else if value = SETTING_TOP then StayOnTop := turnon;
     224    end;
     225    if SortByType then SortColumn := 1 else SortColumn := 0;
     226    DateRangeOutpatient := cboDateRangeOutpatient.ItemID;
     227    DateRangeInpatient := cboDateRangeInpatient.ItemID;
     228  end;
     229end;
     230
     231procedure TfrmGraphSettings.ChangeSources(DisplaySource: TStrings);
     232var
     233  needtoadd: boolean;
     234  i, j : integer;
     235  filename, filenum, dsitem, dsnum: string;
     236begin
     237  with lstSources do
     238  begin
     239    for i := 0 to Items.Count - 1 do
     240    begin
     241      needtoadd := false;
     242      if Checked[i] then
     243        needtoadd := true;
     244      filename := Piece(lstSourcesCopy.Items[i], '^', 1);
     245      filenum := Piece(lstSourcesCopy.Items[i], '^', 2);
     246      for j := 0 to DisplaySource.Count - 1 do
     247      begin
     248        dsitem := DisplaySource[j];
     249        dsnum := Piece(dsitem, '^', 1);
     250        if filenum = dsnum then
     251        begin
     252          needtoadd := false;
     253          if Checked[i] then
     254            DisplaySource[j] := filenum + '^' + filename + '^1'
     255          else
     256            DisplaySource[j] := filenum + '^' + filename + '^0';
     257          break;
     258        end;
     259      end;
     260      if needtoadd then
     261        DisplaySource.Add('*^' + filenum + '^' + filename + '^1');
     262    end;
     263  end;
     264end;
     265
     266procedure TfrmGraphSettings.Conversion(conv: integer);
     267begin
     268  if conv = BIG_NUMBER then
     269  begin
     270    lblOptionsInfo.Visible := true;
     271    frmGraphSettings.Caption := 'Graph Settings - Defaults Only';
     272    lblConversions.Enabled := false;
     273    cboConversions.Enabled := false;
     274    cboConversions.ItemIndex := 0;
     275    cboConversions.Text := '';
     276  end
     277  else
     278  with cboConversions do
     279  begin
     280    lblOptionsInfo.Visible := false;
     281    frmGraphSettings.Caption := 'Graph Settings';
     282    if btnPublicSave.Enabled = true then
     283    begin
     284      lblConversions.Enabled := true;
     285      Enabled := true;
     286      ItemIndex := conv;
     287      Text := Items[ItemIndex];
     288    end
     289    else
     290    begin
     291      lblConversions.Enabled := false;
     292      cboConversions.Enabled := false;
     293      cboConversions.ItemIndex := 0;
     294      cboConversions.Text := '';
     295    end;
     296  end;
     297end;
     298
     299procedure TfrmGraphSettings.SetSettings(aGraphSetting: TGraphSetting);
     300var
     301  i : integer;
     302  value: string;
     303begin
     304  with aGraphSetting do
     305  begin
     306    OptionSettings := '';
     307    if Values then OptionSettings := OptionSettings + SETTING_VALUES;
     308    if VerticalZoom then OptionSettings := OptionSettings + SETTING_VZOOM;
     309    if HorizontalZoom then OptionSettings := OptionSettings + SETTING_HZOOM;
     310    if View3D then OptionSettings := OptionSettings + SETTING_3D;
     311    if Legend then OptionSettings := OptionSettings + SETTING_LEGEND;
     312    if Lines then OptionSettings := OptionSettings + SETTING_LINES;
     313    if Dates then OptionSettings := OptionSettings + SETTING_DATES;
     314    if SortByType then OptionSettings := OptionSettings + SETTING_SORT;
     315    if ClearBackground then OptionSettings := OptionSettings + SETTING_CLEAR;
     316    if Gradient then OptionSettings := OptionSettings + SETTING_GRADIENT;
     317    if Hints then OptionSettings := OptionSettings + SETTING_HINTS;
     318    if StayOnTop then OptionSettings := OptionSettings + SETTING_TOP;
     319    if FixedDateRange then OptionSettings := OptionSettings + SETTING_FIXED;
     320    spnMaxGraphs.Position := MaxGraphs;
     321    spnMinGraphHeight.Position := MinGraphHeight;
     322    MaxSelect := Min(MaxSelectMax, MaxSelect);
     323    if MaxSelect < MaxSelectMin then
     324      MaxSelect := MaxSelectMin;
     325    spnMaxSelect.Position := MaxSelect;
     326    spnMaxSelect.Min := MaxSelectMin;
     327    spnMaxSelect.Max := MaxSelectMax;
     328    cboDateRangeOutpatient.SelectByID(GetDefaultOutpatientDate);
     329    cboDateRangeInpatient.SelectByID(GetDefaultInpatientDate);
     330    if SortByType then SortColumn := 1 else SortColumn := 0;
     331    lstOptions.Tag := SortColumn;
     332    if (SortColumn > 0) then
     333      if Pos(SETTING_SORT, OptionSettings) = 0 then
     334        OptionSettings := OptionSettings + SETTING_SORT;
     335    if Turbo then OptionSettings := OptionSettings + SETTING_TURBO;
     336    if GraphPublicEditor or GraphTurboOn then
     337    begin
     338      lstOptions.Items.Add('Turbo^N');
     339      chklstOptions.Items.Add('Turbo');
     340    end;
     341    for i := 0 to lstOptions.Items.Count - 1 do
     342    begin
     343      value := Piece(lstOptions.Items[i], '^', 2);
     344      chklstOptions.Checked[i] := Pos(value, OptionSettings) > 0;
     345    end;
     346  end;
     347end;
     348
     349procedure TfrmGraphSettings.SetSources(aList, DisplaySource: TStrings);
     350var
     351  i, j : integer;
     352  listitem, filenum, filename, dsitem, dsnum, dsdisplay: string;
     353begin
     354  with lstSources.Items do
     355  begin
     356    Clear;
     357    lstSourcesCopy.Items.Clear;
     358    for i := 0 to aList.Count - 1 do
     359    begin
     360      listitem := aList[i];
     361      filenum := Piece(listitem, '^', 1);
     362      filename := Piece(listitem, '^', 2);
     363      Add(filename);
     364      lstSourcesCopy.Items.Add(filename + '^' + filenum);
     365    end;
     366    with lstSourcesCopy do
     367    for i := 0 to Items.Count - 1 do
     368    begin
     369      listitem := Items[i];
     370      filenum := Piece(listitem, '^', 2);
     371      for j := 0 to DisplaySource.Count - 1 do
     372      begin
     373        dsitem := DisplaySource[j];
     374        dsnum := Piece(dsitem, '^', 1);
     375        dsdisplay := Piece(dsitem, '^', 3);
     376        if filenum = dsnum then
     377        begin
     378          if dsdisplay = '1' then
     379            lstSources.Checked[i] := true;
     380          break;
     381        end;
     382      end;
     383    end;
     384  end;
     385end;
     386
     387procedure TfrmGraphSettings.GetTypeList(aList: TStrings);
     388var
     389  i : integer;
     390  dfntype, listline : string;
     391begin
     392  FastAssign(GtslAllTypes, aList);
     393  for i := 0 to aList.Count -1 do
     394  begin
     395    listline := aList[i];
     396    dfntype := UpperCase(Piece(listline, '^', 1));
     397    SetPiece(listline, '^', 1, dfntype);
     398    aList[i] := listline;
    338399  end;
    339400end;
    … …  
    368429    end;
    369430  end;
     431  Alltypes.Free; 
    370432end;
    371433
    … …  
    374436  i: integer;
    375437begin
    376   btnPublicSave.Enabled := rpcPublicEdit;
     438  btnPublicSave.Enabled := GraphPublicEditor;
    377439  lblConversions.Enabled := btnPublicSave.Enabled;
    378440  cboConversions.Enabled := btnPublicSave.Enabled;
    … …  
    424486  settings := settings + txtMaxSelect.Text + '|';
    425487  settings := settings + Piece(btnPublic.Hint, '|', 8) + '|';
     488  settings := settings + cboDateRangeOutpatient.ItemID + '|';
     489  settings := settings + cboDateRangeInpatient.ItemID + '|';
    426490  Result := settings;
    427491end;
    … …  
    445509  spnMinGraphHeight.Tag := spnMinGraphHeight.Position;
    446510  spnMaxSelect.Tag := spnMaxSelect.Position;
     511  cboDateRangeOutpatient.SelectByID(Piece(settings, '|', 9));
     512  cboDateRangeInpatient.SelectByID(Piece(settings, '|', 10));
    447513  for i := 0 to lstOptions.Items.Count - 1 do
    448514  begin
    … …  
    518584  if MessageDlg(info, mtConfirmation, [mbYes, mbNo], 0) <> mrYes then
    519585  begin
    520     showmessage('No changes were made.');
     586    ShowMsg('No changes were made.');
    521587    exit;
    522588  end;
    … …  
    532598    btnPublic.Hint := settings;
    533599  end;
     600  if length(btnPersonal.Hint) > 0 then
     601  begin
     602    SetDefaultInpatientDate(Piece(btnPersonal.Hint, '|', 10));
     603    SetDefaultOutpatientDate(Piece(btnPersonal.Hint, '|', 9));
     604  end
     605  else
     606  begin
     607    SetDefaultInpatientDate(Piece(btnPublic.Hint, '|', 10));
     608    SetDefaultOutpatientDate(Piece(btnPublic.Hint, '|', 9));
     609  end;
    534610end;
    535611
    … …  
    537613  Button: TUDBtnType);
    538614begin
    539   txtMaxGraphs.SetFocus;
     615  //txtMaxGraphs.SetFocus;
    540616  txtMaxGraphs.Tag := strtointdef(txtMaxGraphs.Text, spnMaxGraphs.Min);
    541617end;
    … …  
    599675  Button: TUDBtnType);
    600676begin
    601   txtMinGraphHeight.SetFocus;
     677  //txtMinGraphHeight.SetFocus;
    602678  txtMinGraphHeight.Tag := strtointdef(txtMinGraphHeight.Text, spnMinGraphHeight.Min);
    603679end;
    … …  
    606682  Button: TUDBtnType);
    607683begin
    608   txtMaxSelect.SetFocus;
     684  //txtMaxSelect.SetFocus;
    609685  txtMaxSelect.Tag := strtointdef(txtMaxSelect.Text, spnMaxSelect.Min);
    610686end;
    … …  
    742818procedure TfrmGraphSettings.FormShow(Sender: TObject);
    743819begin
    744   if Caption = 'Graph Settings - Defaults Only' then
    745     btnPersonal.SetFocus;
     820  //if Caption = 'Graph Settings - Defaults Only' then
     821  //  btnPersonal.SetFocus;
    746822  FHintPauseTime := Application.HintHidePause;
    747823  Application.HintHidePause := 9000; // uses a longer hint pause time
    … …  
    780856  spnMaxSelect.Hint := SHINT_MAX_ITEMS;
    781857  lblMaxSelectRef.Hint := SHINT_MAX_ITEMS;
     858  lblOutpatient.Hint := SHINT_OUTPT;
     859  cboDateRangeOutpatient.Hint := SHINT_OUTPT;
     860  lblInpatient.Hint := SHINT_INPT;
     861  cboDateRangeInpatient.Hint := SHINT_INPT;
    782862  lblConversions.Hint := SHINT_FUNCTIONS;
    783863  cboConversions.Hint := SHINT_FUNCTIONS;
    … …  
    790870    Msg.Result := 0; // ignore biHelp border icon
    791871    AssignHints;
    792     ShowMessage('Help is now available.' + #13 +
     872    ShowMsg('Help is now available.' + #13 +
    793873                'By pausing over a list or control, hints will appear.');
    794874  end
Note: See TracChangeset for help on using the changeset viewer.