Function

TfrmOrders.MeasureColumnHeight

Module

fOrders

Last Modified

7/15/2014 3:26:42 PM

Visibility

Private

Owner

TfrmOrders

Declaration

function MeasureColumnHeight(AnOrder: TOrder; Index: Integer; Column: integer):integer;

Calls Hierarchy


TfrmOrders.MeasureColumnHeight
 └TfrmOrders.GetOrderText
   ├LoadFlagReason
   ├TfrmOrders.GetStartStopText
   └NameOfStatus

Called-By Hierarchy


   TfrmOrders.MeasureColumnHeight
TfrmOrders.lstOrdersMeasureItem┘ 

Calls

Name Declaration Comments
TfrmOrders.GetOrderText function GetOrderText(AnOrder: TOrder; Index: integer; Column: integer): string; -

Called-By

Name Declaration Comments
TfrmOrders.lstOrdersMeasureItem procedure lstOrdersMeasureItem(Control: TWinControl; Index: Integer; var AHeight: Integer); -


Source

1312  function TfrmOrders.MeasureColumnHeight(AnOrder: TOrder; Index: Integer; Column: integer):integer;
1313  var
1314    ARect: TRect;
1315    x: string;
1316  begin
1317    x := GetOrderText(AnOrder, Index, Column);
1318    ARect.Left := 0;
1319    ARect.Top := 0;
1320    ARect.Bottom := 0;
1321    ARect.Right := hdrOrders.Sections[Column].Width -6;
1322    Result := WrappedTextHeightByFont(lstOrders.Canvas,lstOrders.Font,x,ARect);
1323  end;