Procedure

TfrmOrders.hdrOrdersMouseUp

Module

fOrders

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmOrders

Declaration

procedure hdrOrdersMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);

Calls Hierarchy


TfrmOrders.hdrOrdersMouseUp
 ├TfrmOrders.getTotalSectionsWidth
 └TfrmOrders.RefreshOrderList
   ├LoadOrdersAbbr
   │ ├ClearOrders
   │ ├LoadDGroupMap
   │ ├ExpiredOrdersStartDT
   │ ├FMNow
   │ └SeqOfDGroup
   │   └LoadDGroupMap
   ├ClearOrders
   ├LoadOrdersAbbr
   │ ├LoadDGroupMap
   │ ├FMNow
   │ └SeqOfDGroup...
   ├TfrmOrders.ExpandEventSection
   ├TfrmOrders.CompressEventSection
   ├SortOrders
   │ ├InverseByGroup
   │ │ └TChanges.Exist
   │ ├ForwardByGroup
   │ │ └TChanges.Exist
   │ ├InverseChrono
   │ └ForwardChrono
   ├TfrmOrders.AddToListBox
   │ └TfrmOrders.GetPlainText
   │   └TfrmOrders.GetOrderText
   │     ├LoadFlagReason
   │     ├TfrmOrders.GetStartStopText
   │     └NameOfStatus
   └DGroupAll

Calls

Name Declaration Comments
TfrmOrders.getTotalSectionsWidth function getTotalSectionsWidth : integer; -
TfrmOrders.RefreshOrderList procedure RefreshOrderList(FromServer: Boolean; APtEvtID: string = ''); -


Source

3325  procedure TfrmOrders.hdrOrdersMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
3326  var
3327    i: integer;
3328    totalSectionsWidth, originalwidth: integer;
3329  begin
3330    inherited;
3331    //CQ6170
3332    totalSectionsWidth := getTotalSectionsWidth;
3333    if totalSectionsWidth > lstOrders.Width - 5 then
3334    begin
3335      originalwidth := 0;
3336      for i := 0 to hdrOrders.Sections.Count - 1 do
3337        originalwidth := originalwidth + origWidths[i];
3338      if originalwidth < totalSectionsWidth then
3339      begin
3340        for i := 0 to hdrOrders.Sections.Count - 1 do
3341          hdrOrders.Sections[i].Width := origWidths[i];
3342        lstOrders.Invalidate;
3343        RefreshOrderList(false);
3344      end;
3345    end;
3346    //end CQ6170
3347  end;