Procedure

TfrmFrame.WMSysCommand

Directives

Message

Module

fFrame

Last Modified

3/11/2015 8:41:44 AM

Visibility

Private

Owner

TfrmFrame

Declaration

procedure WMSysCommand(var Message: TMessage); message WM_SYSCOMMAND;

Calls Hierarchy


TfrmFrame.WMSysCommand
 ├TfrmFrame.TabToPageID
 ├TfrmOrders.mnuOptimizeFieldsClick
 │ └TfrmOrders.hdrOrdersSectionResize
 │   └TfrmOrders.RedrawOrderList
 │     └TfrmOrders.GetPlainText
 │       └TfrmOrders.GetOrderText
 │         ├LoadFlagReason
 │         ├TfrmOrders.GetStartStopText
 │         └NameOfStatus
 ├TfrmProblems.mnuOptimizeFieldsClick
 │ └TfrmProblems.HeaderControlSectionResize
 └TfrmMeds.mnuOptimizeFieldsClick
   ├TfrmMeds.hdrMedsNonVASectionResize
   ├TfrmMeds.hdrMedsInSectionResize
   └TfrmMeds.hdrMedsOutSectionResize

Calls

Name Declaration Comments
TfrmOrders.mnuOptimizeFieldsClick procedure mnuOptimizeFieldsClick(Sender: TObject); -
TfrmProblems.mnuOptimizeFieldsClick procedure mnuOptimizeFieldsClick(Sender: TObject); -
TfrmMeds.mnuOptimizeFieldsClick procedure mnuOptimizeFieldsClick(Sender: TObject); -
TfrmFrame.TabToPageID function TabToPageID(Tab: Integer): Integer; -


Source

2795  procedure TfrmFrame.WMSysCommand(var Message: TMessage);
2796  begin
2797    case TabToPageID(tabPage.TabIndex) of
2798      CT_NOTES:
2799          if Assigned(Screen.ActiveControl.Parent) and (Screen.ActiveControl.Parent.Name = 'cboCosigner') then
2800            with Message do
2801              begin
2802                SendMessage(frmNotes.Handle, Msg, WParam, LParam);
2803                Result := 0;
2804              end
2805          else
2806            inherited;
2807      CT_DCSUMM:
2808          if Assigned(Screen.ActiveControl.Parent) and (Screen.ActiveControl.Parent.Name = 'cboAttending') then
2809            with Message do
2810              begin
2811                SendMessage(frmDCSumm.Handle, Msg, WParam, lParam);
2812                Result := 0;
2813              end
2814          else
2815            inherited;
2816      CT_CONSULTS:
2817          if Assigned(Screen.ActiveControl.Parent) and (Screen.ActiveControl.Parent.Name = 'cboCosigner') then
2818            with Message do
2819              begin
2820                SendMessage(frmConsults.Handle, Msg, WParam, lParam);
2821                Result := 0;
2822              end
2823          else
2824            inherited;
2825    else
2826      inherited;
2827    end;
2828    if Message.WParam = SC_MAXIMIZE then
2829    begin
2830      // form becomes maximized;
2831      frmOrders.mnuOptimizeFieldsClick(self);
2832      frmProblems.mnuOptimizeFieldsClick(self);
2833      frmMeds.mnuOptimizeFieldsClick(self);
2834    end
2835    else if Message.WParam = SC_MINIMIZE then
2836    begin
2837      // form becomes maximized;
2838    end
2839    else if Message.WParam = SC_RESTORE then
2840    begin
2841      // form is restored (from maximized);
2842      frmOrders.mnuOptimizeFieldsClick(self);
2843      frmProblems.mnuOptimizeFieldsClick(self);
2844      frmMeds.mnuOptimizeFieldsClick(self);
2845    end;
2846  end;