Procedure

TSizeHolder.SetSize

Module

rMisc

Last Modified

7/15/2014 3:26:44 PM

Comments

Store the Size(s) Of the ASize parameter passed, Associate it with the AName
 Parameter. This only stores the sizes in the objects member variables.
 to Store on the MUMPS Database call SendSizesToDB()

Visibility

Public

Owner

TSizeHolder

Declaration

procedure SetSize(AName,ASize: String);

Called-By Hierarchy


                TSizeHolder.SetSize
                   SaveUserBounds┘ 
TfrmNotesSearchText.FormDestroy┤   
   TfrmTemplateDialog.FormClose┤   
     TfrmTemplateView.FormClose┤   
           TfrmODBase.FormClose┤   
            TfrmFlags.FormClose┤   
          TfrmPtSel.FormDestroy┤   
 TfrmDCSummProperties.FormClose┤   
    TfrmPrerequisites.FormClose┤   
    TfrmOtherSchedule.FormClose┤   
        TfrmODMedOIFA.FormClose┤   
         TfrmOMVerify.FormClose┤   
           TfrmOMHTML.FormClose┤   
        TfrmOCSession.FormClose┤   
         TfrmOrdersTS.FormClose┤   
     TfrmRefillOrders.FormClose┤   
TfrmOrdersEvntRelease.FormClose┤   
           TfrmOMNavA.FormClose┤   
            TfrmOMSet.FormClose┤   
         TfrmChgEvent.FormClose┤   
                ExecuteDCOrders┤   
     TfrmOrders.mnuActDCClick┤ │   
       TfrmMeds.mnuActDCClick┘ │   
      TfrmRenewOrders.FormClose┤   
   TfrmEncounterFrame.FormClose┤   
   TfrmTemplateEditor.FormClose┤   
     TfrmDeviceSelect.FormClose┤   
         TfrmLabTests.FormClose┘   

Called-By

Name Declaration Comments
SaveUserBounds procedure SaveUserBounds(AControl: TControl); -


Source

513   procedure TSizeHolder.SetSize(AName, ASize: String);
514   {Store the Size(s) Of the ASize parameter passed, Associate it with the AName
515    Parameter. This only stores the sizes in the objects member variables.
516    to Store on the MUMPS Database call SendSizesToDB()}
517   var
518     nameIndex: integer;
519   begin
520     nameIndex := FNameList.IndexOf(AName);
521     if nameIndex = -1 then //Currently Not in the NameList
522     begin
523       FNameList.Add(AName);
524       FSizeList.Add(ASize);
525     end
526     else //Currently is in the NameList
527       FSizeList[nameIndex] := ASize;
528   end;