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/fPtSel.pas

    r456 r830  
    1212  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
    1313  StdCtrls, ORCtrls, ExtCtrls, ORFn, ORNet, ORDtTmRng, Gauges, Menus, ComCtrls,
    14   UBAGlobals, UBACore;
     14  UBAGlobals, UBACore, fBase508Form, VA508AccessibilityManager, uConst;
    1515
    1616type
    17   TfrmPtSel = class(TForm)
     17  TfrmPtSel = class(TfrmBase508Form)
    1818    pnlPtSel: TORAutoPanel;
    1919    cboPatient: TORComboBox;
    … …  
    4040    RadioGroup1: TRadioGroup ;
    4141    //RadioGroup1: TRadioGroup;
     42    cmdComments: TButton;
    4243    procedure cmdOKClick(Sender: TObject);
    4344    procedure cmdCancelClick(Sender: TObject);
    … …  
    7374    procedure lstvAlertsInfoTip(Sender: TObject; Item: TListItem;
    7475      var InfoTip: String);
    75     procedure FormKeyDown(Sender: TObject; var Key: Word;
    76       Shift: TShiftState);
    7776    procedure lstvAlertsKeyDown(Sender: TObject; var Key: Word;
    7877      Shift: TShiftState);
    7978    procedure FormShow(Sender: TObject);
     79    procedure FormCreate(Sender: TObject);
     80    procedure FormResize(Sender: TObject);
     81    procedure cmdCommentsClick(Sender: TObject);
    8082
    8183    //VWPT ENAHANCED PATIENT LOOKUP
    … …  
    9092    FsortDirection: string;
    9193    FUserCancelled: boolean;
     94    FNotificationBtnsAdjusted: Boolean;
     95    FAlertsNotReady: boolean;
     96    procedure WMReadyAlert(var Message: TMessage); message UM_MISC;
     97    procedure ReadyAlert;
    9298    procedure AdjustFormSize(ShowNotif: Boolean; FontSize: Integer);
    9399    procedure ClearIDInfo;
    … …  
    99105    procedure AlertList;
    100106    procedure ReformatAlertDateTime;
     107    procedure AdjustButtonSize(pButton:TButton);
     108    procedure AdjustNotificationButtons;
     109
    101110  public
    102111    procedure Loaded; override;
    … …  
    111120  RPLProblem: boolean;                           // Allows close of form if there's an RPL problem.
    112121  PtStrs: TStringList;
    113   SortViaKeyboard: boolean;
    114   //vwpt enhancement
     122
     123    //vwpt enhancement
    115124  itimson : integer = 1;
    116125  enhanceskip : integer = 0;
    117126  radiogrp1index : integer = 0;
     127
     128
    118129implementation
    119130
    120131{$R *.DFM}
    121132
    122 uses rCore,uCore, fDupPts, fPtSens, fPtSelDemog, fPtSelOptns, fPatientFlagMulti,
    123      uOrPtf, fAlertForward, rMisc,  fFrame;
     133uses rCore, uCore, fDupPts, fPtSens, fPtSelDemog, fPtSelOptns, fPatientFlagMulti,
     134     uOrPtf, fAlertForward, rMisc, fFrame, fRptBox, VA508AccessibilityRouter;
     135
     136resourcestring
     137  StrFPtSel_lstvAlerts_Co = 'C'+U+'fPtSel.lstvAlerts.Cols';
    124138
    125139const
    126   TX_DGSR_ERR    = 'Unable to perform sensitive record checks';
    127   TC_DGSR_ERR    = 'Error';
    128   TC_DGSR_SHOW   = 'Restricted Record';
    129   TC_DGSR_DENY   = 'Access Denied';
    130   TX_DGSR_YESNO  = CRLF + 'Do you want to continue processing this patient record?';
    131140  AliasString = ' -- ALIAS';
    132141
    133  //VWPT ENAHANCED PATIENT LOOKUP
     142   //VWPT ENAHANCED PATIENT LOOKUP
    134143function TfrmPtSel.IsOther(itemindex:Integer):Boolean;
    135144var
    … …  
    140149         if (RadioGroup1.ItemIndex = -1) or (RadioGroup1.ItemIndex = 0) or (itimson = 0) then Result := False;
    141150end;
    142 
    143 
    144 
    145151
    146152procedure SelectPatient(ShowNotif: Boolean; FontSize: Integer; var UserCancelled: boolean);
    … …  
    224230  if SplitterTop <> 0 then
    225231    pnlPtSel.Height := SplitterTop;
     232  FNotificationBtnsAdjusted := False;
     233  AdjustButtonSize(cmdSaveList);
     234  AdjustButtonSize(cmdProcessInfo);
     235  AdjustButtonSize(cmdProcessAll);
     236  AdjustButtonSize(cmdProcess);
     237  AdjustButtonSize(cmdForward);
     238  AdjustButtonSize(cmdRemove);
     239  AdjustButtonSize(cmdComments);
     240  AdjustNotificationButtons;
    226241end;
    227242
    … …  
    255270    Items.Add(LLS_SPACE);
    256271    cboPatient.InitLongList('');
     272  //VWPT
     273  //cboPatient.LongList := True;
     274  //cboPateint.HintonItem := True;
     275  //end
    257276    RedrawActivate(cboPatient.Handle);
    258277  end;
    … …  
    341360  cboPatient.Caption := lblPatient.Caption;
    342361  cboPatient.InitLongList('');
    343   //VWPT
    344   //cboPatient.LongList := True;
    345   //cboPateint.HintonItem := True;
    346   //end
    347362  RedrawActivate(cboPatient.Handle);
    348363end;
    … …  
    386401        end;
    387402    end;
     403
    388404var caption:string;
    389     index:integer;
     405index:integer;
     406
     407   
    390408begin
    391409  with cboPatient do
    … …  
    425443        else
    426444           ListPtByFullSSN(Items, Text);
    427         ShowMatchingPatients;
     445        ShowMatchingPatients
    428446      end
    429 
    430447    else if (not IsOther(integer(1))) and (IsRPL <> '1')and (enhanceskip=0) and (frmPtSelOptns.IsEnhanced(Text)) and (not frmPtSelOptns.IsPatientName(Text)) then
    431448    begin
    … …  
    449466  begin
    450467    ShowIDInfo;
     468    ShowFlagInfo;   
     469  end else
     470  begin
     471    ClearIDInfo;
     472  end;
     473end;
     474
     475procedure TfrmPtSel.cboPatientMouseClick(Sender: TObject);
     476begin
     477  if Length(cboPatient.ItemID) > 0 then   //*DFN*
     478  begin
     479    ShowIDInfo;
    451480    ShowFlagInfo;
    452481  end else
    … …  
    456485end;
    457486
    458 procedure TfrmPtSel.cboPatientMouseClick(Sender: TObject);
     487procedure TfrmPtSel.cboPatientDblClick(Sender: TObject);
    459488begin
    460489  // vwpt enhanced   on click or double clck set mode back to normal to a.) not allow change event
    … …  
    471500
    472501//end vwpt enhanced
    473   if Length(cboPatient.ItemID) > 0 then   //*DFN*
    474   begin
    475     ShowIDInfo;
    476     ShowFlagInfo;
    477   end else
    478   begin
    479     ClearIDInfo;
    480   end;
    481 end;
    482 
    483 procedure TfrmPtSel.cboPatientDblClick(Sender: TObject);
    484 begin
    485   // vwpt enhanced   on click or double clck set mode back to normal to a.) not allow change event
    486 //erroneiusly checked with false lookup, and b.0 immedicately put back into normal mode
    487 //withut separate step needed.
    488 if (RadioGroup1.ItemIndex  > 0 ) then
    489   begin
    490  // itimson :=0 ;//no check for timson change in cbopatient until after click event finished
    491   RadioGroup1.ItemIndex  := 0;
    492   RadioGroup1.SetFocus;
    493   RadioGroup1.Refresh;
    494 
    495 end;
    496 //end vwpt enhanced
    497502  if Length(cboPatient.ItemID) > 0 then cmdOKClick(Self);  //*DFN*
    498503end;
    … …  
    505510  PatientList: TStringList;
    506511begin
    507 
    508 NoAlias := StartFrom;
    509 with Sender as TORComboBox do
     512  NoAlias := StartFrom;
     513  with Sender as TORComboBox do
    510514  if Items.Count > ShortCount then
     515  begin
    511516    NoAlias := Piece(Items[Items.Count-1], U, 1) + U + NoAlias;
    512 if pos(AliasString, NoAlias)> 0 then
    513   NoAlias := Copy(NoAlias, 1, pos(AliasString, NoAlias)-1);
    514 PatientList := TStringList.Create;
    515 try
    516   begin
    517     if (IsRPL  = '1') then // Restricted patient lists uses different feed for long list box:
    518       PatientList.Assign(ReadRPLPtList(RPLJob, NoAlias, Direction))
    519     else
    520     begin
    521       PatientList.Assign(SubSetOfPatients(NoAlias, Direction));
    522       for i := 0 to PatientList.Count-1 do  // Add " - Alias" to alias names:
     517    if Direction < 0 then
     518      NoAlias := Copy(NoAlias, 1, Length(NoAlias) - 1);
     519  end;
     520  if pos(AliasString, NoAlias) > 0 then
     521    NoAlias := Copy(NoAlias, 1, pos(AliasString, NoAlias) - 1);
     522  PatientList := TStringList.Create;
     523  try
     524    begin
     525      if (IsRPL  = '1') then // Restricted patient lists uses different feed for long list box:
     526        FastAssign(ReadRPLPtList(RPLJob, NoAlias, Direction), PatientList)
     527      else
    523528      begin
    524         Patient := PatientList[i];
    525         // Piece 6 avoids display problems when mixed with "RPL" lists:
    526         if (Uppercase(Piece(Patient, U, 2)) <> Uppercase(Piece(Patient, U, 6))) then
     529        FastAssign(SubSetOfPatients(NoAlias, Direction), PatientList);
     530        for i := 0 to PatientList.Count - 1 do  // Add " - Alias" to alias names:
    527531        begin
    528           SetPiece(Patient, U, 2, Piece(Patient, U, 2) + AliasString);
    529           PatientList[i] := Patient;
     532          Patient := PatientList[i];
     533          // Piece 6 avoids display problems when mixed with "RPL" lists:
     534          if (Uppercase(Piece(Patient, U, 2)) <> Uppercase(Piece(Patient, U, 6))) then
     535          begin
     536            SetPiece(Patient, U, 2, Piece(Patient, U, 2) + AliasString);
     537            PatientList[i] := Patient;
     538          end;
    530539        end;
    531540      end;
     541      cboPatient.ForDataUse(PatientList);
    532542    end;
    533     cboPatient.ForDataUse(PatientList);
    534   end;
    535 finally
    536   PatientList.Free;
    537 end;
    538 
     543  finally
     544    PatientList.Free;
     545  end;
    539546end;
    540547
    … …  
    547554begin
    548555  frmPtSelDemog.ShowDemog(cboPatient.ItemID);
     556end;
     557
     558procedure TfrmPtSel.WMReadyAlert(var Message: TMessage);
     559begin
     560  ReadyAlert;
     561  Message.Result := 0;
    549562end;
    550563
    … …  
    555568const
    556569  DLG_CANCEL = False;
    557   DGSR_FAIL = -1;
    558   DGSR_NONE =  0;
    559   DGSR_SHOW =  1;
    560   DGSR_ASK  =  2;
    561   DGSR_DENY =  3;
    562 var
    563   NewDFN, AMsg: string;  //*DFN*
    564   AccessStatus: Integer;
     570var
     571  NewDFN: string;  //*DFN*
    565572  DateDied: TFMDateTime;
     573  AccessStatus: integer;
    566574begin
    567575// vwpt enhanced   on click or double clck set mode back to normal to a.) not allow change event
    … …  
    594602    else
    595603      NewDFN := DupDFN;
    596   CheckSensitiveRecordAccess(NewDFN, AccessStatus, AMsg);
    597   case AccessStatus of
    598   DGSR_FAIL: begin
    599                InfoBox(TX_DGSR_ERR, TC_DGSR_ERR, MB_OK);
    600                Exit;
    601              end;
    602   DGSR_NONE: { Nothing - allow access to the patient. };
    603   DGSR_SHOW: InfoBox(AMsg, TC_DGSR_SHOW, MB_OK);
    604   DGSR_ASK:  if InfoBox(AMsg + TX_DGSR_YESNO, TC_DGSR_SHOW, MB_YESNO or MB_ICONWARNING or
    605                MB_DEFBUTTON2) = IDYES then LogSensitiveRecordAccess(NewDFN) else Exit;
    606   else       begin
    607                InfoBox(AMsg, TC_DGSR_DENY, MB_OK);
    608                Exit;
    609              end;
    610   end;
     604  if not AllowAccessToSensitivePatient(NewDFN, AccessStatus) then exit;
    611605  DateDied := DateOfDeath(NewDFN);
    612606  if (DateDied > 0) and (InfoBox('This patient died ' + FormatFMDateTime('mmm dd,yyyy hh:nn', DateDied) + CRLF +
    … …  
    665659end;
    666660
     661procedure TfrmPtSel.cmdCommentsClick(Sender: TObject);
     662var
     663  tmpCmt: TStringList;
     664begin
     665  if FAlertsNotReady then exit; 
     666  inherited;
     667  tmpCmt := TStringList.Create;
     668  try
     669    tmpCmt.Text := lstvAlerts.Selected.SubItems[8];
     670    LimitStringLength(tmpCmt, 74);
     671    tmpCmt.Insert(0, StringOfChar('-', 74));
     672    tmpCmt.Insert(0, lstvAlerts.Selected.SubItems[4]);
     673    tmpCmt.Insert(0, lstvAlerts.Selected.SubItems[3]);
     674    tmpCmt.Insert(0, lstvAlerts.Selected.SubItems[0]);
     675    ReportBox(tmpCmt, 'Forwarded by: ' + lstvAlerts.Selected.SubItems[5], TRUE);
     676    lstvAlerts.SetFocus;
     677  finally
     678    tmpCmt.Free;
     679  end;
     680end;
     681
    667682procedure TfrmPtSel.cmdProcessClick(Sender: TObject);
    668683var
    … …  
    671686  ADFN, x, RecordID, XQAID: string;  //*DFN*
    672687begin
     688  if FAlertsNotReady then exit; 
    673689  enableclose := false;
    674690  with lstvAlerts do
    … …  
    766782  i: integer;
    767783begin
     784  if FAlertsNotReady then exit; 
    768785  if lstvAlerts.Items.Count = 0 then Exit;
    769786  if InfoBox('You are about to process all your INFORMATION alerts.' + CRLF
    … …  
    787804  i: integer;
    788805begin
     806  if FAlertsNotReady then exit;
    789807  for i := 0 to lstvAlerts.Items.Count-1 do
    790808    lstvAlerts.Items[i].Selected := True;
    … …  
    803821  Alert: String;
    804822begin
     823  if FAlertsNotReady then exit; 
    805824  try
    806825    with lstvAlerts do
    … …  
    826845  i: integer;
    827846begin
     847  if FAlertsNotReady then exit;
    828848  with lstvAlerts do
    829849    begin
    … …  
    851871 end;
    852872
     873procedure TfrmPtSel.FormResize(Sender: TObject);
     874begin
     875  inherited;
     876  FNotificationBtnsAdjusted := False;
     877  AdjustButtonSize(cmdSaveList);
     878  AdjustButtonSize(cmdProcessInfo);
     879  AdjustButtonSize(cmdProcessAll);
     880  AdjustButtonSize(cmdProcess);
     881  AdjustButtonSize(cmdForward);
     882  AdjustButtonSize(cmdComments);
     883  AdjustButtonSize(cmdRemove);
     884  AdjustNotificationButtons;
     885end;
     886
    853887procedure TfrmPtSel.pnlPtSelResize(Sender: TObject);
    854888begin
    855889  frmPtSelDemog.Left := cboPatient.Left + cboPatient.Width + 9;
    856 //  frmPtSelDemog.Width := frmPtSel.CmdCancel.Left - frmPtSelDemog.Left-2;// before vwpt enhancements pnlPtSel.Width - frmPtSelDemog.Left - 2;
     890  //  frmPtSelDemog.Width := frmPtSel.CmdCancel.Left - frmPtSelDemog.Left-2;// before vwpt enhancements pnlPtSel.Width - frmPtSelDemog.Left - 2;
    857891  frmPtSelOptns.Width := cboPatient.Left-8;
    858892end;
    … …  
    885919  end;
    886920  //end vwpt enhancements
     921
    887922  frmPtSelOptns := TfrmPtSelOptns.Create(Self);  // Was application - kcm
    888923  with frmPtSelOptns do
    … …  
    915950
    916951procedure TfrmPtSel.FormClose(Sender: TObject; var Action: TCloseAction);
    917 begin
     952var
     953  colSizes : String;
     954begin
     955  colSizes := '';
     956  with lstvAlerts do begin
     957    colSizes := IntToStr(Columns[0].Width) + ',';  //Info                 Caption
     958    colSizes := colSizes + IntToStr(Columns[1].Width) + ',';  //Patient              SubItems[0]
     959    colSizes := colSizes + IntToStr(Columns[2].Width) + ',';  //Location             SubItems[1]
     960    colSizes := colSizes + IntToStr(Columns[3].Width) + ',';  //Urgency              SubItems[2]
     961    colSizes := colSizes + IntToStr(Columns[4].Width) + ',';  //Alert Date/Time      SubItems[3]
     962    colSizes := colSizes + IntToStr(Columns[5].Width) + ',';  //Message Text         SubItems[4]
     963    colSizes := colSizes + IntToStr(Columns[6].Width);  //Forwarded By/When    SubItems[5]
     964  end;
     965  SizeHolder.SetSize(StrFPtSel_lstvAlerts_Co,colSizes);
    918966
    919967if (IsRPL = '1') then                          // Deal with restricted patient list users.
    920968  KillRPLPtList(RPLJob);                       // Kills server global data each time.
    921969                                               // (Global created by MakeRPLPtList in rCore.)
     970end;
     971
     972procedure TfrmPtSel.FormCreate(Sender: TObject);
     973begin
     974  inherited;
     975  DefaultButton := cmdOK;
     976  FAlertsNotReady := FALSE;
    922977end;
    923978
    … …  
    10051060  NewItem: TListItem;
    10061061  I,J: Integer;
    1007   Comment: String;
     1062  Comment,colSizes : String;
    10081063begin
    10091064  // Load the items
     1065  colSizes := '';
    10101066  lstvAlerts.Items.Clear;
    10111067  List := TStringList.Create;
    … …  
    10361092   with lstvAlerts do
    10371093     begin
    1038         Columns[0].Width := 30;          //Info                 Caption
    1039         Columns[1].Width := 120;         //Patient              SubItems[0]
    1040         Columns[2].Width := 60;          //Location             SubItems[1]
    1041         Columns[3].Width := 60;          //Urgency              SubItems[2]
    1042         Columns[4].Width := 110;         //Alert Date/Time      SubItems[3]
    1043         Columns[5].Width := 312;         //Message Text         SubItems[4]
    1044         Columns[6].Width := 210;         //Forwarded By/When    SubItems[5]
     1094        colSizes := SizeHolder.GetSize(StrFPtSel_lstvAlerts_Co);
     1095        if colSizes = '' then begin
     1096          Columns[0].Width := 40;          //Info                 Caption
     1097          Columns[1].Width := 195;         //Patient              SubItems[0]
     1098          Columns[2].Width := 75;          //Location             SubItems[1]
     1099          Columns[3].Width := 95;          //Urgency              SubItems[2]
     1100          Columns[4].Width := 150;         //Alert Date/Time      SubItems[3]
     1101          Columns[5].Width := 310;         //Message Text         SubItems[4]
     1102          Columns[6].Width := 290;         //Forwarded By/When    SubItems[5]
     1103        end else begin
     1104          Columns[0].Width := StrToInt(piece(colSizes,',',1));          //Info                 Caption
     1105          Columns[1].Width := StrToInt(piece(colSizes,',',2));         //Patient              SubItems[0]
     1106          Columns[2].Width := StrToInt(piece(colSizes,',',3));          //Location             SubItems[1]
     1107          Columns[3].Width := StrToInt(piece(colSizes,',',4));          //Urgency              SubItems[2]
     1108          Columns[4].Width := StrToInt(piece(colSizes,',',5));         //Alert Date/Time      SubItems[3]
     1109          Columns[5].Width := StrToInt(piece(colSizes,',',6));         //Message Text         SubItems[4]
     1110          Columns[6].Width := StrToInt(piece(colSizes,',',7));         //Forwarded By/When    SubItems[5]
     1111        end;
     1112
    10451113     //Items not displayed in Columns:     XQAID                SubItems[6]
    10461114     //                                    Remove w/o process   SubItems[7]
    … …  
    10551123begin
    10561124
    1057   if ((FsortCol = Column.Index) and (not SortViaKeyboard)) then
     1125  if (FsortCol = Column.Index) then
    10581126     FsortAscending := not FsortAscending;
    10591127
    … …  
    10691137  else
    10701138     lstvAlerts.AlphaSort;
    1071   SortViaKeyboard := false;
    1072 
    10731139
    10741140  //Set the Notifications sort method to last-used sort-type
    … …  
    11511217  if HasFlag then
    11521218  begin
    1153 //    lstFlags.Items.Assign(FlagList);
     1219//    FastAssign(FlagList, lstFlags.Items);
    11541220//    pnlPrf.Visible := True;
    11551221  end
    … …  
    11731239  Selected: Boolean);
    11741240begin
    1175   if lstvAlerts.SelCount <= 0 then ShowButts(False)
    1176   else ShowButts(True);
    1177   GetBAStatus(User.DUZ,Patient.DFN);
     1241  if ScreenReaderSystemActive then
     1242  begin
     1243    FAlertsNotReady := TRUE;
     1244    PostMessage(Handle, UM_MISC, 0, 0);
     1245  end
     1246  else
     1247    ReadyAlert;
    11781248end;
    11791249
    … …  
    11831253  cmdRemove.Enabled := ShowButts;
    11841254  cmdForward.Enabled := ShowButts;
     1255  cmdComments.Enabled := ShowButts and (lstvAlerts.SelCount = 1) and (lstvAlerts.Selected.SubItems[8] <> '');
    11851256end;
    11861257
    … …  
    11891260begin
    11901261  InfoTip := Item.SubItems[8];
    1191 end;
    1192 
    1193 procedure TfrmPtSel.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    1194 {
    1195 var
    1196   keyValue: word;
    1197 } 
    1198 begin{
    1199   keyValue := MapVirtualKey(Key,2);
    1200   if keyValue = VK_RETURN then
    1201      cmdProcessClick(Sender);
    1202 }
    12031262end;
    12041263
    … …  
    12101269}
    12111270begin
     1271  if FAlertsNotReady then exit;
    12121272  if lstvAlerts.Focused then
    12131273     begin
    1214      SortViaKeyboard := true;
    12151274     case Key of
    12161275        VK_RETURN: cmdProcessClick(Sender); //Process all selected alerts
    … …  
    12521311     'F','f': lstvAlertsColumnClick(Sender, lstvAlerts.Columns[6]);
    12531312  end;
     1313
    12541314end;
    12551315
    12561316//hds7397- ge 2/6/6 sort and display date/time column correctly - as requested
     1317procedure TfrmPtSel.ReadyAlert;
     1318begin
     1319  if lstvAlerts.SelCount <= 0 then ShowButts(False)
     1320  else ShowButts(True);
     1321  GetBAStatus(User.DUZ,Patient.DFN);
     1322  FAlertsNotReady := FALSE;
     1323end;
     1324
    12571325procedure  TfrmPtSel.ReformatAlertDateTime;
    12581326var
    … …  
    12871355end;
    12881356
     1357procedure TfrmPtSel.AdjustButtonSize(pButton:TButton);
     1358var
     1359thisButton: TButton;
     1360const Gap = 5;
     1361begin
     1362    thisButton := pButton;
     1363    if thisButton.Width < frmFrame.Canvas.TextWidth(thisButton.Caption) then      //CQ2737  GE
     1364    begin
     1365       FNotificationBtnsAdjusted := (thisButton.Width < frmFrame.Canvas.TextWidth(thisButton.Caption));
     1366       thisButton.Width := (frmFrame.Canvas.TextWidth(thisButton.Caption) + Gap+Gap);    //CQ2737  GE
     1367    end;
     1368    if thisButton.Height < frmFrame.Canvas.TextHeight(thisButton.Caption) then    //CQ2737  GE
     1369       thisButton.Height := (frmFrame.Canvas.TextHeight(thisButton.Caption) + Gap);   //CQ2737  GE
     1370end;
     1371
     1372procedure TfrmPtSel.AdjustNotificationButtons;
     1373const
     1374  Gap = 10; BigGap = 40;
     1375 // reposition buttons after resizing eliminate overlap.
     1376begin
     1377 if FNotificationBtnsAdjusted then
     1378 begin
     1379   cmdProcessAll.Left := (cmdProcessInfo.Left + cmdProcessInfo.Width + Gap);
     1380   cmdProcess.Left    := (cmdProcessAll.Left + cmdProcessAll.Width + Gap);
     1381   cmdForward.Left    := (cmdProcess.Left + cmdProcess.Width + Gap);
     1382   cmdComments.Left   := (cmdForward.Left + cmdForward.Width + Gap);
     1383   cmdRemove.Left     := (cmdComments.Left + cmdComments.Width + BigGap);
     1384 end;
     1385end;
    12891386
    12901387//vwpt enhanced //
    … …  
    13201417end;
    13211418 //end vwpt enhanced
    1322 Initialization
    1323   SortViaKeyboard := false;
     1419
    13241420
    13251421end.
Note: See TracChangeset for help on using the changeset viewer.