unit VpContactGridPainter;

{$I vp.inc}

interface

uses
  LCLType, LCLIntf,
  Types, Classes, Graphics,
  VpConst, VPBase, VpData, VpBasePainter, VpContactGrid;

type
  TVpContactGridPainter = class(TVpBasePainter)
  private
    FContactGrid: TVpContactGrid;
    // local variables of the original TVpContactGrid method
    PhoneLblWidth: Integer;
    StartContact: Integer;
    RealColumnWidth: Integer;
    RealColor: TColor;
    SizingBarColor: TColor;
    BevelDarkShadow: TColor;
    BevelShadow: TColor;
    BevelHighlight: TColor;
    BevelFace: TColor;
    RealBarColor: TColor;
    RealContactHeadAttrColor: TColor;

  protected
    procedure Clear;
    procedure DrawBorders;
    procedure DrawContactLine(ABitmap: TBitmap; AText, ALabel: String;
      var AWholeRect, ATextRect: TRect);
    procedure DrawContacts;
    procedure DrawVerticalBars;
    procedure FixFontHeights;
    procedure InitColors;

  public
    constructor Create(AContactGrid: TVpContactGrid; ARenderCanvas: TCanvas);
    procedure RenderToCanvas(ARenderIn: TRect; AAngle: TVpRotationAngle;
      AScale: Extended; ARenderDate: TDateTime; AStartLine, AStopLine: Integer;
      AUseGran: TVpGranularity; ADisplayOnly: Boolean); override;
  end;


implementation

uses
  StrUtils,
  VpCanvasUtils, VpMisc, VpSR;

type
  TVpContactGridOpener = class(TVpContactGrid);

constructor TVpContactGridPainter.Create(AContactGrid: TVpContactGrid;
  ARenderCanvas: TCanvas);
begin
  inherited Create(ARenderCanvas);
  FContactGrid := AContactGrid;
end;

procedure TVpContactGridPainter.Clear;
var
  I: Integer;
begin
  { clear Client Area }
  RenderCanvas.Brush.Color := RealColor;
  RenderCanvas.FillRect(RenderIn);

  { clear the vertical bar array }
  for I := 0 to pred(MaxColumns) do begin
    with TVpContactGridOpener(FContactGrid) do begin
      if cgBarArray[I].Index = -1 then
        Break;
      cgBarArray[I].Rec := Rect(-1, -1, -1, -1);
      cgBarArray[I].Index := -1;
    end;
  end;

  { initialize the contact array at runtime }
  if not (csDesigning in FContactGrid.ComponentState) and (FContactGrid.DataStore <> nil)
     and (FContactGrid.DataStore.Resource <> nil)
  then
    with TVpContactGridOpener(FContactGrid) do begin
      SetLength(cgContactArray, DataStore.Resource.Contacts.Count);
      for I := 0 to pred(Length(cgContactArray)) do
        with cgContactArray[I] do begin
          Index       := -1;
          Contact     := nil;
          WholeRect   := Rect(-1, -1, -1, -1);
          HeaderRect  := Rect(-1, -1, -1, -1);
          AddressRect := Rect(-1, -1, -1, -1);
          CSZRect     := Rect(-1, -1, -1, -1);
          Phone1Rect  := Rect(-1, -1, -1, -1);
          Phone2Rect  := Rect(-1, -1, -1, -1);
          Phone3Rect  := Rect(-1, -1, -1, -1);
          Phone4Rect  := Rect(-1, -1, -1, -1);
          Phone5Rect  := Rect(-1, -1, -1, -1);
        end;
    end;
end;

procedure TVpContactGridPainter.DrawBorders;
var
  R: TRect;
begin
  R := RenderIn;
  dec(R.Right, 1);
  dec(R.Bottom, 1);
  case FContactGrid.DrawingStyle of
    dsFlat:
      begin  { Draw a simple border rectangle }
        DrawBevelRect(RenderCanvas, R, BevelShadow, BevelShadow);
      end;
    ds3d:
      begin  { Draw a 3d bevel }
        DrawBevelRect(RenderCanvas, R, BevelShadow, BevelHighlight);
        InflateRect(R, -1, -1);
        DrawBevelRect(RenderCanvas, R, BevelDarkShadow, BevelFace);
      end;
  end;
end;

procedure TVpContactGridPainter.DrawContactLine(ABitmap: TBitmap;
  AText, ALabel: String; var AWholeRect, ATextRect: TRect);
var
  txtheight: Integer;
  txtColWidth: Integer;
begin
  if AText = '' then begin
    ATextRect := Rect(0, 0, 0, 0);
    exit;
  end;

  txtHeight := ABitmap.Canvas.TextHeight(VpProductName);

  case Angle of
    ra0:
      begin
        ATextRect.Left := TextMargin;
        ATextRect.Top := AWholeRect.Bottom + TextMargin div 2;
        ATextRect.Right := ABitmap.Width;
        ATextRect.Bottom := ATextRect.Top + txtHeight + TextMargin div 2;
        AWholeRect.Bottom := ATextRect.Bottom;
        txtColWidth := ABitmap.Width;
      end;
    ra90:
      begin
        ATextRect.Left := AWholeRect.Left - txtHeight + TextMargin div 2;
        ATextRect.Top := TextMargin;
        ATextRect.Right := AWholeRect.Left - TextMargin div 2;
        ATextRect.Bottom := AWholeRect.Bottom + TextMargin div 2;
        AWholeRect.Left := ATextRect.Left;
        txtColWidth := ABitmap.Height;
      end;
    ra180:
      begin
        ATextRect.Left := AWholeRect.Right - TextMargin * 2;    // Shouldn't this be "div 2" ?
        ATextRect.Top := AWholeRect.Top - txtHeight - TextMargin;
        ATextRect.Right := AWholeRect.Left + TextMargin;
        ATextRect.Bottom := AWholeRect.Top - TextMargin div 2;
        AWholeRect.Top := ATextRect.Top;
        txtColWidth := ABitmap.Width;
      end;
    ra270:
      begin
        ATextRect.Left := AWholeRect.Right;
        ATextRect.Top := AWholeRect.Bottom - TextMargin;
        ATextRect.Right := AWholeRect.Right + txtHeight + TextMargin div 2;
        ATextRect.Bottom := AWholeRect.Top + TextMargin div 2;
        AWholeRect.Right := ATextRect.Right;
        txtColWidth := ABitmap.Height;
      end;
  end;  // case Angle...

  AText := GetDisplayString(ABitmap.Canvas, AText, 2, txtColWidth - TextMargin * 2);

  if ALabel <> '' then begin
    TPSTextOutAtPoint(
      ABitmap.Canvas,
      Angle,
      Rect(0, 0, ABitmap.Width, ABitmap.Height),
      ATextRect.Left + TextMargin,
      ATextRect.Top + TextMargin div 2,
      ALabel
    );

    with ATextRect do
      case Angle of
        ra0   : TopLeft := Point(Left + PhoneLblWidth, Top + TextMargin div 2);
        ra90  : TopLeft := Point(Top + PhoneLblWidth, Left + TextMargin);
        ra180 : TopLeft := Point(Left - PhoneLblWidth, top + TextMargin div 2);
        ra270 : TopLeft := Point(Left + TextMargin div 2, Top - PhoneLblWidth);
      end;
    TPSTextOutAtPoint(
      ABitmap.Canvas,
      Angle,
      Rect(0, 0, ABitmap.Width, ABitmap.Height),
      ATextRect.Left,
      ATextRect.Top,
      AText
    );
  end else
    TPSTextOutAtPoint(
      ABitmap.Canvas,
      Angle,
      Rect(0, 0, ABitmap.Width, ABitmap.Height),
      ATextRect.Left + TextMargin,
      ATextRect.Top + TextMargin div 2,
      AText
    );
end;

procedure TVpContactGridPainter.DrawContacts;
var
  Anchor: TPoint;
  I, J: Integer;
  Str: string;
  TmpBmp: TBitmap;
  TmpCon: TVpContact;
  Col, RecsInCol: Integer;
  HeadRect: TRect;
  WholeRect: TRect;
  TmpBmpRect: TRect;
  TextColWidth: Integer;
  TextXOffset: Integer;
  TextYOffset: Integer;
  oldCol1RecCount: Integer;
  AddrRect: TRect = (Left:0; Top:0; Right:0; Bottom:0);
  CSZRect: TRect = (Left:0; Top:0; Right:0; Bottom:0);
  CompanyRect: TRect = (Left:0; Top:0; Right:0; Bottom:0);
  EMailRect: TRect = (Left:0; Top:0; Right:0; Bottom:0);
  Phone1Rect: TRect = (Left:0; Top:0; Right:0; Bottom:0);
  Phone2Rect: TRect = (Left:0; Top:0; Right:0; Bottom:0);
  Phone3Rect: TRect = (Left:0; Top:0; Right:0; Bottom:0);
  Phone4Rect: TRect = (Left:0; Top:0; Right:0; Bottom:0);
  Phone5Rect: TRect = (Left:0; Top:0; Right:0; Bottom:0);
begin
  oldCol1RecCount := TVpContactGridOpener(FContactGrid).cgCol1RecCount;
  TVpContactGridOpener(FContactGrid).FVisibleContacts := 0;
  TVpContactGridOpener(FContactGrid).cgCol1RecCount := 0;
  TextXOffset := 0;
  TextYOffset := 0;

  { if the component is sufficiently small then no sense in painting it }
  if (FContactGrid.Height < 20) then exit;

  { don't paint contacts at designtime or if the data connection is invalid }
  if (csDesigning in FContactGrid.ComponentState) or
     (FContactGrid.DataStore = nil) or
     (FContactGrid.DataStore.Resource = nil)
  then
    Exit;

  { create a temporary bitmap for painting the items }
  TmpBmp := TBitmap.Create;
  try
    if (Angle = ra0) or (Angle = ra180) then begin
      TmpBmp.Width  := RealColumnWidth - TextMargin * 4;
      TmpBmp.Height := RealHeight - TextMargin * 2;
      TextColWidth := TmpBmp.Width;
    end else begin
      TmpBmp.Height := RealColumnWidth - TextMargin * 4;
      TmpBmp.Width  := RealHeight - TextMargin * 2;
      TextColWidth := TmpBmp.Height;
    end;
    TmpBmpRect := Rect(0, 0, TmpBmp.Width, TmpBmp.Height);
    TmpBmp.Canvas.Font.Assign(FContactGrid.Font);
    TmpBmp.Canvas.Font.Size := ScaleY(TmpBmp.Canvas.Font.Size, DesignTimeDPI);

    { Calculate Phone Lbl Width }
    PhoneLblWidth := TmpBmp.Canvas.TextWidth(RSEmail);
    for I := 0 to 7 do begin
      Str := PhoneLabel(TVpPhoneType(I)) + ':       ';
      J := TmpBmp.Canvas.TextWidth(Str);
      if J > PhoneLblWidth then
        PhoneLblWidth := J;
    end;

    Col := 1;

    { clear the bitmap }
    TmpBmp.Canvas.FillRect(Rect(0, 0, TmpBmp.Width, TmpBmp.Height));

    { sort the records }
    FContactGrid.DataStore.Resource.Contacts.Sort;

    { Set the anchor starting point }
    case Angle of
      ra0:
        Anchor := Point(2 + TextMargin * 2, 2 + TextMargin * 2);
      ra90:
        Anchor := Point(2 + TextMargin * 2, 2 + TextMargin * 2);
      ra180:
        Anchor := Point(
          RenderIn.Right - RenderIn.Left - TmpBmp.Width - 2 - TextMargin * 2,
          TmpBmp.Height - 2 - TextMargin * 2
        );
      ra270:
        Anchor := Point(
          2 + TextMargin * 2,
          RenderIn.Bottom - RenderIn.Top - TmpBmp.Height - 2 - TextMargin * 2
        );
    end;
    RecsInCol := 0;

    for I := StartContact to pred(FContactGrid.DataStore.Resource.Contacts.Count) do begin
      TmpCon := FContactGrid.DataStore.Resource.Contacts.GetContact(I);
      if (TmpCon <> nil) then begin
        { Clear bmp canvas }
        TmpBmp.Canvas.Brush.Color := RealColor;
        TmpBmp.Canvas.FillRect(Rect(0, 0, TmpBmp.Width, TmpBmp.Height));

        TVpContactGridOpener(FContactGrid).cgContactArray[I].Contact := TmpCon;

        { start building the WholeRect and build the HeaderRect}
        TmpBmp.Canvas.Pen.Color := BevelDarkShadow;
        TmpBmp.Canvas.Brush.Style := bsSolid;
        TmpBmp.Canvas.Font.Assign(FContactGrid.ContactHeadAttributes.Font);
        TmpBmp.Canvas.Font.Size := ScaleY(TmpBmp.Canvas.Font.Size, DesignTimeDPI);
        case Angle of
          ra0:
            begin
              WholeRect.TopLeft := Point(0, 0);
              HeadRect.TopLeft := Point(TextMargin, 0);
              HeadRect.BottomRight := Point(
                TmpBmp.Width,
                HeadRect.Top + TmpBmp.Canvas.TextHeight(VpProductName) + TextMargin div 2
              );
              WholeRect.BottomRight := HeadRect.BottomRight;
            end;
          ra90:
            begin
              HeadRect.TopLeft := Point(
                TmpBmpRect.Right - TextMargin - TmpBmp.Canvas.TextHeight(VpProductName) + TextMargin div 2,
                0
              );
              HeadRect.BottomRight := Point(TmpBmpRect.Right, TmpBmp.Height);
              WholeRect.TopLeft := HeadRect.TopLeft;
              WholeRect.BottomRight := HeadRect.BottomRight;
            end;
          ra180:
            begin
              WholeRect.BottomRight := Point(TmpBmp.Width, TmpBmp.Height);
              HeadRect.TopLeft := Point(
                TextMargin,
                TmpBmpRect.Bottom - TmpBmp.Canvas.TextHeight(VpProductName) - TextMargin
              );
              HeadRect.BottomRight := Point(
                TmpBmp.Width,
                TmpBmp.Height - TextMargin div 2
              );
              WholeRect.TopLeft := HeadRect.TopLeft;
            end;
          ra270:
            begin
              WholeRect.TopLeft := Point(0, 0);
              HeadRect.TopLeft := Point(0, TextMargin);
              HeadRect.BottomRight := Point(
                TextMargin + TmpBmp.Canvas.TextHeight(VpProductName) + TextMargin div 2,
                TmpBmp.Height
              );
              WholeRect.BottomRight := HeadRect.BottomRight;
            end;
        end;

        { assemble the header string }
        Str := AssembleName(TmpCon);

        { if the name isn't empty then paint all of the contact information }
        if Str > '' then begin
          { paint the header cell's background }
          if (Angle = ra0) or (Angle = ra180) then
            Str := GetDisplayString(TmpBmp.Canvas, Str, 2, WidthOf(HeadRect) - TextMargin)
          else
            Str := GetDisplayString(TmpBmp.Canvas, Str, 2, HeightOf(HeadRect) - TextMargin);
          TmpBmp.Canvas.Brush.Color := RealContactHeadAttrColor;
          TmpBmp.Canvas.FillRect(HeadRect);
          { paint the header cell's border }
          if FContactGrid.ContactHeadAttributes.Bordered and (FContactGrid.DrawingStyle <> dsNoBorder)
          then begin
            TmpBmp.Canvas.Pen.Style := psSolid;
            {$IFDEF VERSION5}
            TmpBmp.Canvas.Rectangle(HeadRect);
            {$ELSE}
            TmpBmp.Canvas.Rectangle(HeadRect.Left, HeadRect.Top, HeadRect.Right, HeadRect.Bottom);
            {$ENDIF}
          end;
          { paint the header cell's text }
          case Angle of
            ra90:
              begin
                TextXOffset := WidthOf(HeadRect) - TextMargin div 2;
                TextYOffset := TextMargin div 3;
              end;
            ra180:
              begin
                TextXOffset := WidthOf(HeadRect) - TextMargin;
                TextYOffset := HeightOf(HeadRect) - TextMargin div 3;
              end;
            ra270:
              begin
                TextXOffset := TextMargin div 2;
                TextYOffset := HeightOf(HeadRect) - TextMargin div 3;
              end;
          end;
          TPSTextOutAtPoint(
            TmpBmp.Canvas,
            Angle,
            TmpBmpRect,
            HeadRect.Left + TextMargin div 2 + TextXOffset,
            HeadRect.Top + TextMargin div 3 + TextYOffset,
            Str
          );

          { restore font and colors }
          TmpBmp.Canvas.Font.Assign(FContactGrid.Font);
          TmpBmp.Canvas.Font.Size := ScaleY(TmpBmp.Canvas.Font.Size, DesignTimeDPI);
          TmpBmp.Canvas.Brush.Color := RealColor;
          TmpBmp.Canvas.Pen.Color := BevelDarkShadow;
          TmpBmp.Canvas.Pen.Style := psSolid;

          { do Company }
          DrawContactLine(TmpBmp, TmpCon.Company, '', WholeRect, CompanyRect);

          { do address... }
          DrawContactLine(TmpBmp, TmpCon.Address, '', WholeRect, AddrRect);

          { do City, State, Zip }
          Str := AssembleCSZ(TmpCon, 1, FContactGrid.GetCityStateZipFormat);
          DrawContactLine(TmpBmp, Str, '', WholeRect, CSZRect);

          { do Phone1 }
          Str := PhoneLabel(TVpPhoneType(TmpCon.PhoneType1)) + ': ';
          DrawContactLine(TmpBmp, TmpCon.Phone1, Str, WholeRect, Phone1Rect);

          { do Phone2 }
          Str := PhoneLabel(TVpPhoneType(TmpCon.PhoneType2)) + ': ';
          DrawContactLine(TmpBmp, TmpCon.Phone2, Str, WholeRect, Phone2Rect);

          { do Phone3 }
          Str := PhoneLabel(TVpPhoneType(TmpCon.PhoneType3)) + ': ';
          DrawContactLine(TmpBmp, TmpCon.Phone3, Str, WholeRect, Phone3Rect);

          { do Phone4 }
          Str := PhoneLabel(TVpPhoneType(TmpCon.PhoneType4)) + ': ';
          DrawContactLine(TmpBmp, TmpCon.Phone4, Str, WholeRect, Phone4Rect);

          { do Phone5 }
          Str := PhoneLabel(TVpPhoneType(TmpCon.PhoneType5)) + ': ';
          DrawContactLine(TmpBmp, TmpCon.Phone5, Str, WholeRect, Phone5Rect);

          { do EMail }
          DrawContactLine(TmpBmp, TmpCon.EMail, RSEmail + ': ', WholeRect, EMailRect);

          { if this record's too big to fit in the remaining area of this }
          { column, then slide over to the top of the next column }
          case Angle of
            ra0 : begin
              if (RenderIn.Top + Anchor.y + WholeRect.Bottom >= RenderIn.Bottom - TextMargin * 3) and
                 (RecsInCol > 0)
              then begin
                Anchor := Point(
                  Anchor.x + WholeRect.Right + FContactGrid.BarWidth + 1 + TextMargin * 3,
                  2 + TextMargin * 2
                );
                if Col = 1 then
                  TVpContactGridOpener(FContactGrid).cgCol1RecCount := RecsInCol;
                Inc(Col);
                RecsInCol := 0;
                if DisplayOnly and (Anchor.X + TextColWidth >= RenderIn.Right) then
                  Exit;
              end;
            end;
            ra90 : begin
              if (Anchor.x + RenderIn.Left + WholeRect.Right - WholeRect.Left > RenderIn.Right - TextMargin * 3) and
                 (RecsInCol > 0)
              then begin
                Anchor.x := 2 + TextMargin * 2;
                Anchor.y := Anchor.y + WholeRect.Bottom + FContactGrid.BarWidth + 1 + TextMargin * 3;
                if Col = 1 then
                  TVpContactGridOpener(FContactGrid).cgCol1RecCount := RecsInCol;
                Inc(Col);
                RecsInCol := 0;
                if DisplayOnly and (Anchor.y + TextColWidth >= RenderIn.Bottom) then
                  Exit;
              end;
            end;
            ra180 : begin
              if (Anchor.y + RenderIn.Top - WholeRect.Bottom - WholeRect.Top <= RenderIn.Top + TextMargin * 3) and
                 (RecsInCol > 0) then
              begin
                Anchor.x := Anchor.x - (WholeRect.Right + FContactGrid.BarWidth + 1 + TextMargin * 3);
                Anchor.y := TmpBmp.Height - 2 - TextMargin * 2;
                if Col = 1 then
                  TVpContactGridOpener(FContactGrid).cgCol1RecCount := RecsInCol;
                Inc(Col);
                RecsInCol := 0;
                if DisplayOnly and (Anchor.x + TextColWidth < RenderIn.Left) then
                  Exit;
              end;
            end;
            ra270 : begin
              if (Anchor.x + RenderIn.Left + (WholeRect.Right - WholeRect.Left) >= RenderIn.Right - TextMargin * 3) and
                 (RecsInCol > 0) then
              begin
                Anchor.x := 2 + TextMargin * 2;
                Anchor.y := Anchor.y - (WholeRect.Bottom + FContactGrid.BarWidth + 1 + TextMargin * 3);
                if Col = 1 then
                  TVpContactGridOpener(FContactGrid).cgCol1RecCount := RecsInCol;
                Inc(Col);
                RecsInCol := 0;
                if DisplayOnly and (Anchor.y + TextColWidth <= RenderIn.Top) then
                  Exit;
              end;
            end;
          end;

          { add a little spacing between records }
          case Angle of
            ra0   : WholeRect.Bottom := WholeRect.Bottom + TextMargin * 2;
            ra90  : WholeRect.Left := WholeRect.Left - TextMargin * 2;
            ra180 : WholeRect.Top := WholeRect.Top - TextMargin * 2;
            ra270 : WholeRect.Right := WholeRect.Right + TextMargin * 2;
          end;

          { Update Array Rects }
          with TVpContactGridOpener(FContactGrid) do begin
            cgContactArray[I].WholeRect.TopLeft := Point(
              Anchor.X, Anchor.Y + WholeRect.Top);
            cgContactArray[I].WholeRect.BottomRight := Point(
              Anchor.X + TmpBmp.Width, Anchor.Y + WholeRect.Bottom);

            cgContactArray[I].HeaderRect.TopLeft := Point(
              Anchor.X, Anchor.Y + HeadRect.Top);
            cgContactArray[I].HeaderRect.BottomRight := Point(
              Anchor.X + TmpBmp.Width, Anchor.Y + HeadRect.Bottom);

            cgContactArray[I].AddressRect.TopLeft := Point(
              Anchor.X, Anchor.Y + AddrRect.Top);
            cgContactArray[I].AddressRect.BottomRight := Point(
              Anchor.X + TmpBmp.Width, Anchor.Y + AddrRect.Bottom);

            cgContactArray[I].CSZRect.TopLeft := Point(
              Anchor.X, Anchor.Y + CSZRect.Top);
            cgContactArray[I].CSZRect.BottomRight := Point(
              Anchor.X + TmpBmp.Width, Anchor.Y + CSZRect.Bottom);

            cgContactArray[I].CompanyRect.TopLeft := Point(
              Anchor.X, Anchor.Y + CompanyRect.Top);
            cgContactArray[I].CompanyRect.BottomRight := Point(
              Anchor.X + TmpBmp.Width, Anchor.Y + CompanyRect.Bottom);

            cgContactArray[I].EMailRect.TopLeft := Point(
              Anchor.X + EMailRect.Left, Anchor.Y + EMailRect.Top);
            cgContactArray[I].EMailRect.BottomRight := Point(
              Anchor.X + TmpBmp.Width, Anchor.Y + EMailRect.Bottom);

            cgContactArray[I].Phone1Rect.TopLeft := Point(
              Anchor.X + Phone1Rect.Left, Anchor.Y + Phone1Rect.Top);
            cgContactArray[I].Phone1Rect.BottomRight := Point(
              Anchor.X + TmpBmp.Width, Anchor.Y + Phone1Rect.Bottom);

            cgContactArray[I].Phone2Rect.TopLeft := Point(
              Anchor.X + Phone2Rect.Left, Anchor.Y + Phone2Rect.Top);
            cgContactArray[I].Phone2Rect.BottomRight := Point(
              Anchor.X + TmpBmp.Width, Anchor.Y + Phone2Rect.Bottom);

            cgContactArray[I].Phone3Rect.TopLeft := Point(
              Anchor.X + Phone3Rect.Left, Anchor.Y + Phone3Rect.Top);
            cgContactArray[I].Phone3Rect.BottomRight := Point(
              Anchor.X + TmpBmp.Width, Anchor.Y + Phone3Rect.Bottom);

            cgContactArray[I].Phone4Rect.TopLeft := Point(
              Anchor.X + Phone4Rect.Left, Anchor.Y + Phone4Rect.Top);
            cgContactArray[I].Phone4Rect.BottomRight := Point(
              Anchor.X + TmpBmp.Width, Anchor.Y + Phone4Rect.Bottom);

            cgContactArray[I].Phone5Rect.TopLeft := Point(
              Anchor.X + Phone5Rect.Left, Anchor.Y + Phone5Rect.Top);
            cgContactArray[I].Phone5Rect.BottomRight := Point(
              Anchor.X + TmpBmp.Width, Anchor.Y + Phone5Rect.Bottom);
          end;

          { move the drawn record from the bitmap to the component canvas }

          case Angle of
            ra0   :
              RenderCanvas.CopyRect (Rect (Anchor.X + WholeRect.Left + RenderIn.Left,
                                           Anchor.Y + WholeRect.Top + RenderIn.Top,
                                           Anchor.X + TmpBmp.Width + RenderIn.Left,
                                           Anchor.Y + WholeRect.Bottom + RenderIn.Top),
                                     TmpBmp.Canvas, WholeRect);
            ra90  :
              RenderCanvas.CopyRect (Rect (WholeRect.Left + RenderIn.Left - Anchor.X,
                                           Anchor.Y + WholeRect.Top + RenderIn.Top,
                                           WholeRect.Right + RenderIn.Left - Anchor.X,
                                           Anchor.Y + WholeRect.Bottom + RenderIn.Top),
                                     TmpBmp.Canvas,
                                     Rect (WholeRect.Left,
                                           WholeRect.Top,
                                           WholeRect.Right,
                                           WholeRect.Bottom));

            ra180 :
              RenderCanvas.CopyRect (Rect (Anchor.X + WholeRect.Left + RenderIn.Left,
                                           Anchor.Y - (WholeRect.Bottom - WholeRect.Top) + RenderIn.Top,
                                           Anchor.X + TmpBmp.Width + RenderIn.Left,
                                           Anchor.Y + RenderIn.Top),
                                     TmpBmp.Canvas, WholeRect);

            ra270 :
              RenderCanvas.CopyRect (Rect (Anchor.X + RenderIn.Left,
                                           Anchor.Y + RenderIn.Top,
                                           Anchor.X + RenderIn.Left + (WholeRect.Right - WholeRect.Left),
                                           Anchor.Y + RenderIn.Top + (WholeRect.Bottom - WholeRect.Top)),
                                     TmpBmp.Canvas, WholeRect);
          end;

          { draw focusrect around selected record }
          if FContactGrid.Focused and (TmpCon = FContactGrid.ActiveContact) then begin
            with TVpContactGridOpener(FContactGrid).cgContactArray[I] do
              RenderCanvas.DrawFocusRect(Rect(WholeRect.Left, WholeRect.Top - 3,
                WholeRect.Right + TextMargin, WholeRect.Bottom - 2));
          end;

          { slide anchor down for the next record }
          case Angle of
            ra0   : Anchor.Y := Anchor.Y + WholeRect.Bottom;
            ra90  : Anchor.X := Anchor.X + (WholeRect.Right - WholeRect.Left);
            ra180 : Anchor.Y := Anchor.Y - (WholeRect.Bottom - WholeRect.Top);
            ra270 : Anchor.X := Anchor.X + WholeRect.Right;
          end;
          Inc(RecsInCol);
        end;
      end;

      if not DisplayOnly then
        case Angle of
          ra0 :
            with TVpContactGridOpener(FContactGrid) do
              if (Anchor.X > RenderIn.Right) and (I < DataStore.Resource.Contacts.Count)
              then begin
                { we have filled in the visible area }
                FContactsAfter := DataStore.Resource.Contacts.Count - I;
                FVisibleContacts := DataStore.Resource.Contacts.Count - StartContact - FContactsAfter;
                Break;
              end else begin
                FContactsAfter := 0;
                FVisibleContacts := DataStore.Resource.Contacts.Count - StartContact;
              end;
          ra90 :
            with TVpContactGridOpener(FContactGrid) do
              if (Anchor.Y > RenderIn.Bottom) and (I < DataStore.Resource.Contacts.Count)
              then begin
                { we have filled in the visible area }
                FContactsAfter := DataStore.Resource.Contacts.Count - I;
                FVisibleContacts := DataStore.Resource.Contacts.Count - StartContact - FContactsAfter;
                Break;
              end else begin
                FContactsAfter := 0;
                FVisibleContacts := DataStore.Resource.Contacts.Count - StartContact;
              end;
          ra180 :
            with TVpContactGridOpener(FContactGrid) do begin
              if (Anchor.X < RenderIn.Left) and (I < DataStore.Resource.Contacts.Count)
              then begin
                { we have filled in the visible area }
                FContactsAfter := DataStore.Resource.Contacts.Count - I;
                FVisibleContacts := DataStore.Resource.Contacts.Count - StartContact - FContactsAfter;
                Break;
              end else
                FContactsAfter := 0;
              FVisibleContacts := DataStore.Resource.Contacts.Count - StartContact;
            end;
          ra270 :
            with TVpContactGridOpener(FContactGrid) do begin
              if (Anchor.Y < RenderIn.Top) and (I < DataStore.Resource.Contacts.Count)
              then begin
                { we have filled in the visible area }
                FContactsAfter := DataStore.Resource.Contacts.Count - I;
                FVisibleContacts := DataStore.Resource.Contacts.Count - StartContact - FContactsAfter;
                Break;
              end else
                FContactsAfter := 0;
              FVisibleContacts := DataStore.Resource.Contacts.Count - StartContact;
            end;
        end;
    end;
  finally
    TmpBmp.Free;
  end;

  with TVpContactGridOpener(FContactGrid) do begin
    if FContactsAfter = 0 then
      FLastPrintLine := -2
    else
      FLastPrintLine := FContactsAfter;

    if (oldCol1RecCount > 0) and (cgCol1RecCount = 0) then
      cgCol1RecCount := oldCol1RecCount;
  end;
end;

    (*
var
  Anchor: TPoint;
  I, J: Integer;
  Str: string;
  TmpBmp: TBitmap;
  TmpCon: TVpContact;
  Col, RecsInCol: Integer;
  HeadRect, AddrRect, CSZRect, Phone1Rect, Phone2Rect, Phone3Rect: TRect;
  Phone4Rect, Phone5Rect, WholeRect, CompanyRect, EMailRect: TRect;
  TmpBmpRect: TRect;
  TextColWidth: Integer;
  TextXOffset: Integer;
  TextYOffset: Integer;
  oldCol1RecCount: Integer;
begin
  with TVpContactGridOpener(FContactGrid) do begin
    oldCol1RecCount := cgCol1RecCount;
    FVisibleContacts := 0;
    cgCol1RecCount := 0;
  end;
  TextXOffset := 0;
  TextYOffset := 0;
  { if the component is sufficiently small then no sense in painting it }
  if (FContactGrid.Height < 20) then exit;
  { don't paint contacts at designtime or if the data connection is invalid }

  if (csDesigning in FContactGrid.ComponentState) or
     (FContactGrid.DataStore = nil) or
     (FContactGrid.DataStore.Resource = nil) then
    Exit;

  { create a temporary bitmap for painting the items }
  TmpBmp := TBitmap.Create;
  try
    if (Angle = ra0) or (Angle = ra180) then begin
      TmpBmp.Width  := RealColumnWidth - TextMargin * 4;
      TmpBmp.Height := RealHeight - TextMargin * 2;
      TextColWidth := TmpBmp.Width;
    end else begin
      TmpBmp.Height := RealColumnWidth - TextMargin * 4;
      TmpBmp.Width  := RealHeight - TextMargin * 2;
      TextColWidth := TmpBmp.Height;
    end;
    TmpBmpRect := Rect(0, 0, TmpBmp.Width, TmpBmp.Height);

    TmpBmp.Canvas.Font.Assign(FContactGrid.Font);

    { Calculate Phone Lbl Width }
    PhoneLblWidth := TmpBmp.Canvas.TextWidth(RSEmail);
    for I := 0 to 7 do begin
      Str := PhoneLabel(TVpPhoneType(I)) + ':       ';
      J := TmpBmp.Canvas.TextWidth(Str);
      if J > PhoneLblWidth then
        PhoneLblWidth := J;
    end;

    Col := 1;
    { clear the bitmap }
    TmpBmp.Canvas.FillRect(Rect(0, 0, TmpBmp.Width, TmpBmp.Height));

    { sort the records }
    FContactGrid.DataStore.Resource.Contacts.Sort;

    { Set the anchor starting point }
    case Angle of
      ra0 :
        Anchor := Point(2 + TextMargin * 2, 2 + TextMargin * 2);
      ra90 :
        Anchor := Point(2 + TextMargin * 2, 2 + TextMargin * 2);
      ra180 :
        Anchor := Point(
          RenderIn.Right - RenderIn.Left - TmpBmp.Width - 2 - TextMargin * 2,
          TmpBmp.Height - 2 - TextMargin * 2
        );
      ra270 :
        Anchor := Point(
          2 + TextMargin * 2,
          RenderIn.Bottom - RenderIn.Top - TmpBmp.Height - 2 - TextMargin * 2
        );
    end;
    RecsInCol := 0;

    for I := StartContact to pred(FContactGrid.DataStore.Resource.Contacts.Count) do begin
      TmpCon := FContactGrid.DataStore.Resource.Contacts.GetContact(I);
      if (TmpCon <> nil) then begin
        { Clear bmp canvas }
        TmpBmp.Canvas.Brush.Color := RealColor;
        TmpBmp.Canvas.FillRect(Rect(0, 0, TmpBmp.Width, TmpBmp.Height));

        TVpContactGridOpener(FContactGrid).cgContactArray[I].Contact := TmpCon;

        { start building the WholeRect and build the HeaderRect}
        TmpBmp.Canvas.Pen.Color := BevelDarkShadow;
        TmpBmp.Canvas.Brush.Style := bsSolid;
        TmpBmp.Canvas.Font.Assign(FContactGrid.ContactHeadAttributes.Font);
        case Angle of
          ra0:
            begin
              WholeRect.TopLeft := Point(0, 0);
              HeadRect.TopLeft := Point(TextMargin, 0);
              HeadRect.BottomRight := Point(
                TmpBmp.Width,
                HeadRect.Top + TmpBmp.Canvas.TextHeight(VpProductName) + TextMargin div 2
              );
              WholeRect.BottomRight := HeadRect.BottomRight;
            end;
          ra90:
            begin
              HeadRect.TopLeft := Point(
                TmpBmpRect.Right - TextMargin - TmpBmp.Canvas.TextHeight(VpProductName) + TextMargin div 2,
                0
              );
              HeadRect.BottomRight := Point(TmpBmpRect.Right, TmpBmp.Height);
              WholeRect.TopLeft := HeadRect.TopLeft;
              WholeRect.BottomRight := HeadRect.BottomRight;
            end;
          ra180:
            begin
              WholeRect.BottomRight := Point(TmpBmp.Width, TmpBmp.Height);
              HeadRect.TopLeft := Point(
                TextMargin,
                TmpBmpRect.Bottom - TmpBmp.Canvas.TextHeight(VpProductName) - TextMargin
              );
              HeadRect.BottomRight := Point(
                TmpBmp.Width,
                TmpBmp.Height - TextMargin div 2
              );
              WholeRect.TopLeft := HeadRect.TopLeft;
            end;
          ra270:
            begin
              WholeRect.TopLeft := Point(0, 0);
              HeadRect.TopLeft := Point(0, TextMargin);
              HeadRect.BottomRight := Point(
                TextMargin + TmpBmp.Canvas.TextHeight(VpProductName) + TextMargin div 2,
                TmpBmp.Height
              );
              WholeRect.BottomRight := HeadRect.BottomRight;
            end;
        end;
        { assemble the header string }
        Str := AssembleName(TmpCon);
        { if the name isn't empty then paint all of the contact information }
        if Str > '' then begin
          { paint the header cell's background }
          if (Angle = ra0) or (Angle = ra180) then
            Str := GetDisplayString(TmpBmp.Canvas, Str, 2, WidthOf(HeadRect) - TextMargin)
          else
            Str := GetDisplayString(TmpBmp.Canvas, Str, 2, HeightOf(HeadRect) - TextMargin);
          TmpBmp.Canvas.Brush.Color := RealContactHeadAttrColor;
          TmpBmp.Canvas.FillRect(HeadRect);
          { paint the header cell's border }
          if FContactGrid.ContactHeadAttributes.Bordered then begin
            TmpBmp.Canvas.Pen.Style := psSolid;
            {$IFDEF VERSION5}
            TmpBmp.Canvas.Rectangle(HeadRect);
            {$ELSE}
            TmpBmp.Canvas.Rectangle(HeadRect.Left, HeadRect.Top, HeadRect.Right, HeadRect.Bottom);
            {$ENDIF}
          end;
          { paint the header cell's text }
          case Angle of
            ra90: begin
              TextXOffset := HeadRect.Right - HeadRect.Left - TextMargin div 2;
              TextYOffset := TextMargin div 3;
            end;
            ra180: begin
              TextXOffset := HeadRect.Right - HeadRect.Left - TextMargin;
              TextYOffset := HeadRect.Bottom - HeadRect.Top - TextMargin div 3;
            end;
            ra270: begin
              TextXOffset := TextMargin div 2;
              TextYOffset := HeadRect.Bottom - HeadRect.Top - TextMargin div 3;
            end;
          end;
          TPSTextOutAtPoint(
            TmpBmp.Canvas,
            Angle,
            TmpBmpRect,
            HeadRect.Left + (TextMargin div 2) + TextXOffset,
            HeadRect.Top + (TextMargin div 3) + TextYOffset,
            Str
          );

          { restore font and colors }
          TmpBmp.Canvas.Font.Assign(FContactGrid.Font);
          TmpBmp.Canvas.Brush.Color := RealColor;
          TmpBmp.Canvas.Pen.Color := BevelDarkShadow;
          TmpBmp.Canvas.Pen.Style := psSolid;

          { do Company }
          Str := TmpCon.Company;
          if Str <> '' then begin
            case Angle of
              ra0:
                begin
                  CompanyRect.TopLeft := Point(
                    TextMargin,
                    WholeRect.Bottom + TextMargin div 2
                  );
                  CompanyRect.BottomRight := Point(
                    TmpBmp.Width,
                    CompanyRect.Top + TmpBmp.Canvas.TextHeight(VpProductName) + TextMargin div 2
                  );
                  WholeRect.Bottom := CompanyRect.Bottom;
                end;
              ra90:
                begin
                  CompanyRect.TopLeft := Point(
                    WholeRect.Left - TmpBmp.Canvas.TextHeight(VpProductName) + TextMargin div 2,
                    TextMargin
                  );
                  CompanyRect.BottomRight := Point(
                    WholeRect.Left - TextMargin div 2,
                    WholeRect.Bottom + TextMargin div 2
                  );
                  WholeRect.Left := CompanyRect.Left;
                end;
              ra180:
                begin
                  CompanyRect.TopLeft := Point(
                    WholeRect.Right - TextMargin * 2,
                    WholeRect.Top - TmpBmp.Canvas.TextHeight(VpProductName) - TextMargin
                  );
                  CompanyRect.BottomRight := Point(
                    WholeRect.Left + TextMargin,
                    WholeRect.Top - TextMargin div 2
                  );
                  WholeRect.Top := CompanyRect.Top;
                end;
              ra270:
                begin
                  CompanyRect.TopLeft := Point(
                    WholeRect.Right,
                    WholeRect.Bottom - TextMargin
                  );
                  CompanyRect.BottomRight := Point(
                    WholeRect.Right + TmpBmp.Canvas.TextHeight(VpProductName) + TextMargin div 2,
                    WholeRect.Top + TextMargin div 2
                  );
                  WholeRect.Right  := CompanyRect.Right;
                end;
            end;
            Str := GetDisplayString(TmpBmp.Canvas, Str, 2, TextColWidth - TextMargin * 2);
            TPSTextOutAtPoint(
              TmpBmp.Canvas,
              Angle,
              TmpBmpRect,
              CompanyRect.Left + TextMargin,
              CompanyRect.Top + (TextMargin div 2),
              Str
            );
          end;

          { do address... }
          if TmpCon.Address <> '' then begin
            case Angle of
              ra0   : begin
                AddrRect.TopLeft := Point (TextMargin,
                                           WholeRect.Bottom + (TextMargin div 2));
                AddrRect.BottomRight := Point (TmpBmp.Width,
                                               AddrRect.Top +
                                               TmpBmp.Canvas.TextHeight(VpProductName) + (TextMargin div 2));
                WholeRect.Bottom := AddrRect.Bottom;
                Str := GetDisplayString(TmpBmp.Canvas, TmpCon.Address, 2,
                       WidthOf(AddrRect) - TextMargin);
              end;
              ra90  : begin
                AddrRect.TopLeft := Point (WholeRect.Left - TmpBmp.Canvas.TextHeight(VpProductName) + (TextMargin div 2),
                                           TextMargin);
                AddrRect.BottomRight := Point (WholeRect.Left - (TextMargin div 2),
                                               WholeRect.Bottom + (TextMargin div 2));
                WholeRect.Left := AddrRect.Left;
                Str := GetDisplayString(TmpBmp.Canvas, TmpCon.Address, 2,
                       HeightOf (AddrRect) - TextMargin);
              end;
              ra180 : begin
                AddrRect.TopLeft := Point (WholeRect.Right - TextMargin * 2,
                                              WholeRect.Top - TmpBmp.Canvas.TextHeight(VpProductName) - TextMargin);
                AddrRect.BottomRight := Point (WholeRect.Left + TextMargin,
                                                  WholeRect.Top - (TextMargin div 2));
                WholeRect.Top := AddrRect.Top;
                Str := GetDisplayString(TmpBmp.Canvas, TmpCon.Address, 2,
                       WidthOf(AddrRect) - TextMargin);
              end;
              ra270 : begin
                AddrRect.TopLeft := Point (WholeRect.Right,
                                              WholeRect.Bottom - TextMargin);
                AddrRect.BottomRight := Point (WholeRect.Right + TmpBmp.Canvas.TextHeight(VpProductName) + (TextMargin div 2),
                                                  WholeRect.Top + (TextMargin div 2));
                WholeRect.Right := AddrRect.Right;
                Str := GetDisplayString(TmpBmp.Canvas, TmpCon.Address, 2,
                       TextColWidth - TextMargin * 2);
              end;
            end;
            TPSTextOutAtPoint (TmpBmp.Canvas, Angle, TmpBmpRect,
                               AddrRect.Left + TextMargin,
                               AddrRect.Top + (TextMargin div 2), Str);
          end;

          { do City, State, Zip }
          Str := TmpCon.City;
          if Str <> '' then
            Str := Str + ', ' + TmpCon.State
          else
            Str := TmpCon.State;
          if Str <> '' then
            Str := Str + ' ' + TmpCon.Zip
          else
            Str := TmpCon.Zip;
          if Str <> '' then begin
            case Angle of
              ra0 : begin
                CSZRect.TopLeft := Point(TextMargin, WholeRect.Bottom
                                   + (TextMargin div 2));
                CSZRect.BottomRight := Point(TmpBmp.Width, CSZRect.Top +
                                    TmpBmp.Canvas.TextHeight(VpProductName) + (TextMargin div 2));
                WholeRect.Bottom := CSZRect.Bottom;
                Str := GetDisplayString(TmpBmp.Canvas, Str, 2, TextColWidth
                       - TextMargin * 2);
              end;
              ra90 : begin
                CSZRect.TopLeft := Point (WholeRect.Left - TmpBmp.Canvas.TextHeight(VpProductName) + (TextMargin div 2),
                                          TextMargin);
                CSZRect.BottomRight := Point (WholeRect.Left - (TextMargin div 2),
                                               WholeRect.Bottom + (TextMargin div 2));
                WholeRect.Bottom := CSZRect.Bottom;
                Str := GetDisplayString(TmpBmp.Canvas, Str, 2, TextColWidth
                       - TextMargin * 2);
                WholeRect.Left   := CSZRect.Left;
              end;
              ra180 : begin
                CSZRect.TopLeft := Point (WholeRect.Right - TextMargin * 2,
                                              WholeRect.Top - TmpBmp.Canvas.TextHeight(VpProductName) - (TextMargin div 2));
                CSZRect.BottomRight := Point (WholeRect.Left + TextMargin,
                                                  WholeRect.Top - (TextMargin div 2));
                WholeRect.Top    := CSZRect.Top;
              end;
              ra270 : begin
                CSZRect.TopLeft := Point (WholeRect.Right,
                                              WholeRect.Bottom - TextMargin);
                CSZRect.BottomRight := Point (WholeRect.Right + TmpBmp.Canvas.TextHeight(VpProductName) + (TextMargin div 2),
                                                  WholeRect.Top + (TextMargin div 2));
                WholeRect.Right  := CSZRect.Right;
              end;
            end;
            Str := GetDisplayString(TmpBmp.Canvas, Str, 2, TextColWidth
              - TextMargin * 2);
            TPSTextOutAtPoint (TmpBmp.Canvas, Angle, TmpBmpRect,
                               CSZRect.Left + TextMargin,
                               CSZRect.Top + (TextMargin div 2), Str);
          end;

          { do Phone1 }
          Str := TmpCon.Phone1;
          if Str <> '' then begin
            case Angle of
              ra0 : begin
                Phone1Rect.TopLeft :=
                    Point (TextMargin,
                           WholeRect.Bottom + (TextMargin div 2));
                Phone1Rect.BottomRight :=
                    Point (TmpBmp.Width,
                           Phone1Rect.Top +
                           TmpBmp.Canvas.TextHeight (VpProductName) +
                           (TextMargin div 2));
                WholeRect.Bottom := Phone1Rect.Bottom;
                Str := GetDisplayString (TmpBmp.Canvas, Str, 2,
                                         TextColWidth - (TextMargin * 2) -
                                         PhoneLblWidth);
              end;
              ra90 : begin
                Phone1Rect.TopLeft := Point (WholeRect.Left - TmpBmp.Canvas.TextHeight(VpProductName) + (TextMargin div 2),
                                             TextMargin);
                Phone1Rect.BottomRight := Point (WholeRect.Left - (TextMargin div 2),
                                               WholeRect.Bottom + (TextMargin div 2));
                WholeRect.Left := Phone1Rect.Left;
                Str := GetDisplayString(TmpBmp.Canvas, Str, 2, TextColWidth
                    - (TextMargin * 2) - PhoneLblWidth);
              end;
              ra180 : begin
                Phone1Rect.TopLeft := Point (WholeRect.Right - TextMargin * 2,
                                              WholeRect.Top - TmpBmp.Canvas.TextHeight(VpProductName) - TextMargin);
                Phone1Rect.BottomRight := Point (WholeRect.Left + TextMargin,
                                                  WholeRect.Top - (TextMargin div 2));
                WholeRect.Top := Phone1Rect.Top;
                Str := GetDisplayString(TmpBmp.Canvas, Str, 2, TextColWidth
                    - (TextMargin * 2) - PhoneLblWidth);
              end;
              ra270 : begin
                Phone1Rect.TopLeft := Point (WholeRect.Right,
                                              WholeRect.Bottom - TextMargin);
                Phone1Rect.BottomRight := Point (WholeRect.Right + TmpBmp.Canvas.TextHeight(VpProductName) + (TextMargin div 2),
                                                  WholeRect.Top + (TextMargin div 2));
                WholeRect.Right := Phone1Rect.Right;
                Str := GetDisplayString(TmpBmp.Canvas, Str, 2, TextColWidth
                    - (TextMargin * 2) - PhoneLblWidth);
              end;
            end;
            TPSTextOutAtPoint (TmpBmp.Canvas, Angle, TmpBmpRect,
                               Phone1Rect.Left + TextMargin,
                               Phone1Rect.Top + (TextMargin div 2),
                               PhoneLabel(TVpPhoneType(TmpCon.PhoneType1)) + ': ');
            case Angle of
              ra0 : begin
                Phone1Rect.Left := Phone1Rect.Left + PhoneLblWidth;
                Phone1Rect.Top := Phone1Rect.Top + (TextMargin div 2);
              end;
              ra90 : begin
                Phone1Rect.Top := Phone1Rect.Top + PhoneLblWidth;
                Phone1Rect.Left := Phone1Rect.Left + (TextMargin);
              end;
              ra180 : begin
                Phone1Rect.Left := Phone1Rect.Left - PhoneLblWidth;
                Phone1Rect.Top := Phone1Rect.Top + (TextMargin div 2);
              end;
              ra270 : begin
                Phone1Rect.Top := Phone1Rect.Top - PhoneLblWidth;
                Phone1Rect.Left := Phone1Rect.Left + (TextMargin div 2);
              end;
            end;
            TPSTextOutAtPoint (TmpBmp.Canvas, Angle, TmpBmpRect,
                               Phone1Rect.Left,
                               Phone1Rect.Top, Str);
          end;

          { do Phone2 }
          Str := TmpCon.Phone2;
          if Str <> '' then begin
            case Angle of
              ra0 : begin
                Phone2Rect.TopLeft := Point(TextMargin, WholeRect.Bottom
                  + (TextMargin div 2));
                Phone2Rect.BottomRight := Point(TmpBmp.Width, Phone2Rect.Top +
                  TmpBmp.Canvas.TextHeight(VpProductName) + (TextMargin div 2));
                WholeRect.Bottom := Phone2Rect.Bottom;
              end;
              ra90 : begin
                Phone2Rect.TopLeft := Point (WholeRect.Left - TmpBmp.Canvas.TextHeight(VpProductName) + (TextMargin div 2),
                                             TextMargin);
                Phone2Rect.BottomRight := Point (WholeRect.Left - (TextMargin div 2),
                                               WholeRect.Bottom + (TextMargin div 2));
                WholeRect.Left := Phone2Rect.Left;
              end;
              ra180 : begin
                Phone2Rect.TopLeft := Point (WholeRect.Right - TextMargin * 2,
                                              WholeRect.Top - TmpBmp.Canvas.TextHeight(VpProductName) - TextMargin);
                Phone2Rect.BottomRight := Point (WholeRect.Left + TextMargin,
                                                  WholeRect.Top - (TextMargin div 2));
                WholeRect.Top := Phone2Rect.Top;
              end;
              ra270 : begin
                Phone2Rect.TopLeft := Point (WholeRect.Right,
                                              WholeRect.Bottom - TextMargin);
                Phone2Rect.BottomRight := Point (WholeRect.Right + TmpBmp.Canvas.TextHeight(VpProductName) + (TextMargin div 2),
                                                  WholeRect.Top + (TextMargin div 2));
                WholeRect.Right := Phone2Rect.Right;
             end;
            end;
            Str := GetDisplayString(TmpBmp.Canvas, Str, 2, TextColWidth
              - (TextMargin * 2) - PhoneLblWidth);
            TPSTextOutAtPoint (TmpBmp.Canvas, Angle, TmpBmpRect,
                               Phone2Rect.Left + TextMargin,
                               Phone2Rect.Top + (TextMargin div 2),
                               PhoneLabel(TVpPhoneType(TmpCon.PhoneType2)) + ': ');
            case Angle of
              ra0 : begin
                Phone2Rect.Left := Phone2Rect.Left + PhoneLblWidth;
                Phone2Rect.Top := Phone2Rect.Top + (TextMargin div 2);
              end;
              ra90 : begin
                Phone2Rect.Top := Phone2Rect.Top + PhoneLblWidth;
                Phone2Rect.Left := Phone2Rect.Left + (TextMargin);
              end;
              ra180 : begin
                Phone2Rect.Left := Phone2Rect.Left - PhoneLblWidth;
                Phone2Rect.Top := Phone2Rect.Top + (TextMargin div 2);
              end;
              ra270 : begin
                Phone2Rect.Top := Phone2Rect.Top - PhoneLblWidth;
                Phone2Rect.Left := Phone2Rect.Left + (TextMargin div 2);
              end;
            end;

            TPSTextOutAtPoint (TmpBmp.Canvas, Angle, TmpBmpRect,
                               Phone2Rect.Left,
                               Phone2Rect.Top, Str);
          end;

          { do Phone3 }
          Str := TmpCon.Phone3;
          if Str <> '' then begin
            case Angle of
              ra0 : begin
                Phone3Rect.TopLeft := Point(TextMargin, WholeRect.Bottom
                  + (TextMargin div 2));
                Phone3Rect.BottomRight := Point(TmpBmp.Width, Phone3Rect.Top +
                  TmpBmp.Canvas.TextHeight(VpProductName) + (TextMargin div 2));
                WholeRect.Bottom := Phone3Rect.Bottom;
              end;
              ra90 : begin
                Phone3Rect.TopLeft := Point (WholeRect.Left - TmpBmp.Canvas.TextHeight(VpProductName) + (TextMargin div 2),
                                             TextMargin);
                Phone3Rect.BottomRight := Point (WholeRect.Left - (TextMargin div 2),
                                               WholeRect.Bottom + (TextMargin div 2));
                WholeRect.Left := Phone3Rect.Left;
              end;
              ra180 : begin
                Phone3Rect.TopLeft := Point (WholeRect.Right - TextMargin * 2,
                                              WholeRect.Top - TmpBmp.Canvas.TextHeight(VpProductName) - TextMargin);
                Phone3Rect.BottomRight := Point (WholeRect.Left + TextMargin,
                                                  WholeRect.Top - (TextMargin div 2));
                WholeRect.Top := Phone3Rect.Top;
              end;
              ra270 : begin
                Phone3Rect.TopLeft := Point (WholeRect.Right,
                                              WholeRect.Bottom - TextMargin);
                Phone3Rect.BottomRight := Point (WholeRect.Right + TmpBmp.Canvas.TextHeight(VpProductName) + (TextMargin div 2),
                                                  WholeRect.Top + (TextMargin div 2));
                WholeRect.Right := Phone3Rect.Right;
              end;
            end;
            Str := GetDisplayString(TmpBmp.Canvas, Str, 2, TextColWidth
              - (TextMargin * 2) - PhoneLblWidth);
            TPSTextOutAtPoint (TmpBmp.Canvas, Angle, TmpBmpRect,
                               Phone3Rect.Left + TextMargin,
                               Phone3Rect.Top + (TextMargin div 2),
                               PhoneLabel(TVpPhoneType(TmpCon.PhoneType3)) + ': ');
            case Angle of
              ra0 : begin
                Phone3Rect.Left := Phone3Rect.Left + PhoneLblWidth;
                Phone3Rect.Top := Phone3Rect.Top + (TextMargin div 2);
              end;
              ra90 : begin
                Phone3Rect.Top := Phone3Rect.Top + PhoneLblWidth;
                Phone3Rect.Left := Phone3Rect.Left + (TextMargin);
              end;
              ra180 : begin
                Phone3Rect.Left := Phone3Rect.Left - PhoneLblWidth;
                Phone3Rect.Top := Phone3Rect.Top + (TextMargin div 2);
              end;
              ra270 : begin
                Phone3Rect.Top := Phone3Rect.Top - PhoneLblWidth;
                Phone3Rect.Left := Phone3Rect.Left + (TextMargin div 2);
              end;
            end;
            TPSTextOutAtPoint (TmpBmp.Canvas, Angle, TmpBmpRect,
                               Phone3Rect.Left,
                               Phone3Rect.Top, Str);
          end;

          { do Phone4 }
          Str := TmpCon.Phone4;
          if Str <> '' then begin
            case Angle of
              ra0 : begin
                Phone4Rect.TopLeft := Point(TextMargin, WholeRect.Bottom
                  + (TextMargin div 2));
                Phone4Rect.BottomRight := Point(TmpBmp.Width, Phone4Rect.Top +
                  TmpBmp.Canvas.TextHeight(VpProductName) + (TextMargin div 2));
                WholeRect.Bottom := Phone4Rect.Bottom;
              end;
              ra90 : begin
                Phone4Rect.TopLeft := Point (WholeRect.Left - TmpBmp.Canvas.TextHeight(VpProductName) + (TextMargin div 2),
                                             TextMargin);
                Phone4Rect.BottomRight := Point (WholeRect.Left - (TextMargin div 2),
                                               WholeRect.Bottom + (TextMargin div 2));
                WholeRect.Left := Phone4Rect.Left;
              end;
              ra180 : begin
                Phone4Rect.TopLeft := Point (WholeRect.Right - TextMargin * 2,
                                              WholeRect.Top - TmpBmp.Canvas.TextHeight(VpProductName) - TextMargin);
                Phone4Rect.BottomRight := Point (WholeRect.Left + TextMargin,
                                                  WholeRect.Top - (TextMargin div 2));
                WholeRect.Top := Phone4Rect.Top;
              end;
              ra270 : begin
                Phone4Rect.TopLeft := Point (WholeRect.Right,
                                              WholeRect.Bottom - TextMargin);
                Phone4Rect.BottomRight := Point (WholeRect.Right + TmpBmp.Canvas.TextHeight(VpProductName) + (TextMargin div 2),
                                                  WholeRect.Top + (TextMargin div 2));
                WholeRect.Right := Phone4Rect.Right;
              end;
            end;
            Str := GetDisplayString(TmpBmp.Canvas, Str, 2, TextColWidth
              - (TextMargin * 2) - PhoneLblWidth);
            TPSTextOutAtPoint (TmpBmp.Canvas, Angle, TmpBmpRect,
                               Phone4Rect.Left + TextMargin,
                               Phone4Rect.Top + (TextMargin div 2),
                               PhoneLabel(TVpPhoneType(TmpCon.PhoneType4)) + ': ');
            case Angle of
              ra0 : begin
                Phone4Rect.Left := Phone4Rect.Left + PhoneLblWidth;
                Phone4Rect.Top := Phone4Rect.Top + (TextMargin div 2);
              end;
              ra90 : begin
                Phone4Rect.Top := Phone4Rect.Top + PhoneLblWidth;
                Phone4Rect.Left := Phone4Rect.Left + (TextMargin {div 2});
              end;
              ra180 : begin
                Phone4Rect.Left := Phone4Rect.Left - PhoneLblWidth;
                Phone4Rect.Top := Phone4Rect.Top + (TextMargin div 2);
              end;
              ra270 : begin
                Phone4Rect.Top := Phone4Rect.Top - PhoneLblWidth;
                Phone4Rect.Left := Phone4Rect.Left + (TextMargin div 2);
              end;
            end;
            TPSTextOutAtPoint (TmpBmp.Canvas, Angle, TmpBmpRect,
                               Phone4Rect.Left,
                               Phone4Rect.Top, Str);
          end;

          { do Phone5 }
          Str := TmpCon.Phone5;
          if Str <> '' then begin
            case Angle of
              ra0 : begin
                Phone5Rect.TopLeft := Point(TextMargin, WholeRect.Bottom
                  + (TextMargin div 2));
                Phone5Rect.BottomRight := Point(TmpBmp.Width, Phone5Rect.Top +
                  TmpBmp.Canvas.TextHeight(VpProductName) + (TextMargin div 2));
                WholeRect.Bottom := Phone5Rect.Bottom;
              end;
              ra90 : begin
                Phone5Rect.TopLeft := Point (WholeRect.Left - TmpBmp.Canvas.TextHeight(VpProductName) + (TextMargin div 2),
                                             TextMargin);
                Phone5Rect.BottomRight := Point (WholeRect.Left - (TextMargin div 2),
                                               WholeRect.Bottom + (TextMargin div 2));
                WholeRect.Left := Phone5Rect.Left;
              end;
              ra180 : begin
                Phone5Rect.TopLeft := Point (WholeRect.Right - TextMargin * 2,
                                              WholeRect.Top - TmpBmp.Canvas.TextHeight(VpProductName) - TextMargin);
                Phone5Rect.BottomRight := Point (WholeRect.Left + TextMargin,
                                                  WholeRect.Top - (TextMargin div 2));
                WholeRect.Top := Phone5Rect.Top;
              end;
              ra270 : begin
                Phone5Rect.TopLeft := Point (WholeRect.Right,
                                              WholeRect.Bottom - TextMargin);
                Phone5Rect.BottomRight := Point (WholeRect.Right + TmpBmp.Canvas.TextHeight(VpProductName) + (TextMargin div 2),
                                                  WholeRect.Top + (TextMargin div 2));
                WholeRect.Right := Phone5Rect.Right;
              end;
            end;
            Str := GetDisplayString(TmpBmp.Canvas, Str, 2, TextColWidth
              - (TextMargin * 2) - PhoneLblWidth);
            TPSTextOutAtPoint (TmpBmp.Canvas, Angle, TmpBmpRect,
                               Phone5Rect.Left + TextMargin,
                               Phone5Rect.Top + (TextMargin div 2),
                               PhoneLabel(TVpPhoneType(TmpCon.PhoneType5)) + ': ');
            case Angle of
              ra0 : begin
                Phone5Rect.Left := Phone5Rect.Left + PhoneLblWidth;
                Phone5Rect.Top := Phone5Rect.Top + (TextMargin div 2);
              end;
              ra90 : begin
                Phone5Rect.Top := Phone5Rect.Top+ PhoneLblWidth;
                Phone5Rect.Left := Phone5Rect.Left + (TextMargin);
              end;
              ra180 : begin
                Phone5Rect.Left := Phone5Rect.Left - PhoneLblWidth;
                Phone5Rect.Top := Phone5Rect.Top + (TextMargin div 2);
              end;
              ra270 : begin
                Phone5Rect.Top := Phone5Rect.Top - PhoneLblWidth;
                Phone5Rect.Left := Phone5Rect.Left + (TextMargin div 2);
              end;
            end;
            TPSTextOutAtPoint (TmpBmp.Canvas, Angle, TmpBmpRect,
                               Phone5Rect.Left,
                               Phone5Rect.Top, Str);
          end;

          { do EMail }
          Str := TmpCon.EMail;
          if Str <> '' then begin
            case Angle of
              ra0 : begin
                EMailRect.TopLeft := Point(TextMargin, WholeRect.Bottom
                  + (TextMargin div 2));
                EMailRect.BottomRight := Point(TmpBmp.Width, EMailRect.Top +
                  TmpBmp.Canvas.TextHeight(VpProductName) + (TextMargin div 2));
                WholeRect.Bottom := EMailRect.Bottom;
              end;
              ra90 : begin
                EMailRect.TopLeft := Point (WholeRect.Left - TmpBmp.Canvas.TextHeight(VpProductName) + (TextMargin div 2),
                                            TextMargin);
                EMailRect.BottomRight := Point (WholeRect.Left - (TextMargin div 2),
                                               WholeRect.Bottom + (TextMargin div 2));
                WholeRect.Left := EMailRect.Left;
              end;
              ra180 : begin
                EMailRect.TopLeft := Point (WholeRect.Right - TextMargin * 2,
                                              WholeRect.Top - TmpBmp.Canvas.TextHeight(VpProductName) - TextMargin);
                EMailRect.BottomRight := Point (WholeRect.Left + TextMargin,
                                                  WholeRect.Top - (TextMargin div 2));
                WholeRect.Top := EMailRect.Top;
              end;
              ra270 : begin
                EMailRect.TopLeft := Point (WholeRect.Right,
                                              WholeRect.Bottom - TextMargin);
                EMailRect.BottomRight := Point (WholeRect.Right + TmpBmp.Canvas.TextHeight(VpProductName) + (TextMargin div 2),
                                                  WholeRect.Top + (TextMargin div 2));
                WholeRect.Right := EMailRect.Right;
              end;
            end;
            Str := GetDisplayString(TmpBmp.Canvas, Str, 2, TextColWidth
              - (TextMargin * 2) - PhoneLblWidth);
            TPSTextOutAtPoint (TmpBmp.Canvas, Angle, TmpBmpRect,
                               EMailRect.Left + TextMargin,
                               EMailRect.Top + (TextMargin div 2), RSEmail + ': ');
            case Angle of
              ra0   : begin
                EMailRect.Left := EMailRect.Left + PhoneLblWidth;
                EmailRect.Top := EMailRect.Top + (TextMargin div 2);
              end;
              ra90  : begin
                EMailRect.Top := EMailRect.Top + PhoneLblWidth;
                EmailRect.Left := EMailRect.Left + TextMargin;
              end;
              ra180 : begin
                EMailRect.Left := EMailRect.Left - PhoneLblWidth;
                EmailRect.Top := EMailRect.Top + (TextMargin div 2);
              end;
              ra270 : begin
                EMailRect.Top := EMailRect.Top - PhoneLblWidth;
                EMailRect.Left := EMailRect.Left + (TextMargin div 2);
              end;
            end;
            TPSTextOutAtPoint (TmpBmp.Canvas, Angle, TmpBmpRect,
                               EMailRect.Left,
                               EMailRect.Top, Str);
          end;

          { if this record's too big to fit in the remaining area of this }
          { column, then slide over to the top of the next column }
          case Angle of
            ra0 : begin
              if (RenderIn.Top + Anchor.y + WholeRect.Bottom >= RenderIn.Bottom - TextMargin * 3) and
                 (RecsInCol > 0)
              then begin
                Anchor := Point(
                  Anchor.x + WholeRect.Right + TVpContactGridOpener(FContactGrid).FBarWidth + 1 + TextMargin * 3,
                  2 + TextMargin * 2
                );
                if Col = 1 then
                  TVpContactGridOpener(FContactGrid).cgCol1RecCount := RecsInCol;
                Inc(Col);
                RecsInCol := 0;
                if DisplayOnly and (Anchor.X + TextColWidth >= RenderIn.Right) then
                  Exit;
              end;
            end;
            ra90 : begin
              if (Anchor.x + RenderIn.Left + WholeRect.Right - WholeRect.Left > RenderIn.Right - TextMargin * 3) and
                 (RecsInCol > 0)
              then begin
                Anchor.x := 2 + TextMargin * 2;
                Anchor.y := Anchor.y + WholeRect.Bottom + TVpContactGridOpener(FContactGrid).FBarWidth + 1 + TextMargin * 3;
                if Col = 1 then
                  TVpContactGridOpener(FContactGrid).cgCol1RecCount := RecsInCol;
                Inc(Col);
                RecsInCol := 0;
                if DisplayOnly and (Anchor.y + TextColWidth >= RenderIn.Bottom) then
                  Exit;
              end;
            end;
            ra180 : begin
              if (Anchor.y + RenderIn.Top - WholeRect.Bottom - WholeRect.Top <= RenderIn.Top + TextMargin * 3) and
                 (RecsInCol > 0) then
              begin
                Anchor.x := Anchor.x - (WholeRect.Right + TVpContactGridOpener(FContactGrid).FBarWidth + 1 + TextMargin * 3);
                Anchor.y := TmpBmp.Height - 2 - TextMargin * 2;
                if Col = 1 then
                  TVpContactGridOpener(FContactGrid).cgCol1RecCount := RecsInCol;
                Inc(Col);
                RecsInCol := 0;
                if DisplayOnly and (Anchor.x + TextColWidth < RenderIn.Left) then
                  Exit;
              end;
            end;
            ra270 : begin
              if (Anchor.x + RenderIn.Left + (WholeRect.Right - WholeRect.Left) >= RenderIn.Right - TextMargin * 3) and
                 (RecsInCol > 0) then
              begin
                Anchor.x := 2 + TextMargin * 2;
                Anchor.y := Anchor.y - (WholeRect.Bottom + TVpContactGridOpener(FContactGrid).FBarWidth + 1 + TextMargin * 3);
                if Col = 1 then
                  TVpContactGridOpener(FContactGrid).cgCol1RecCount := RecsInCol;
                Inc(Col);
                RecsInCol := 0;
                if DisplayOnly and (Anchor.y + TextColWidth <= RenderIn.Top) then
                  Exit;
              end;
            end;
          end;

          { add a little spacing between records }
          case Angle of
            ra0   : WholeRect.Bottom := WholeRect.Bottom + TextMargin * 2;
            ra90  : WholeRect.Left := WholeRect.Left - TextMargin * 2;
            ra180 : WholeRect.Top := WholeRect.Top - TextMargin * 2;
            ra270 : WholeRect.Right := WholeRect.Right + TextMargin * 2;
          end;

          { Update Array Rects }
          with TVpContactGridOpener(FContactGrid) do begin
            cgContactArray[I].WholeRect.TopLeft := Point(Anchor.X, Anchor.Y + WholeRect.Top);
            cgContactArray[I].WholeRect.BottomRight := Point(Anchor.X + TmpBmp.Width, Anchor.Y + WholeRect.Bottom);

            cgContactArray[I].HeaderRect.TopLeft := Point(Anchor.X, Anchor.Y + HeadRect.Top);
            cgContactArray[I].HeaderRect.BottomRight := Point(Anchor.X + TmpBmp.Width, Anchor.Y + HeadRect.Bottom);

            cgContactArray[I].AddressRect.TopLeft := Point(Anchor.X, Anchor.Y + AddrRect.Top);
            cgContactArray[I].AddressRect.BottomRight := Point(Anchor.X + TmpBmp.Width, Anchor.Y + AddrRect.Bottom);

            cgContactArray[I].CSZRect.TopLeft := Point(Anchor.X, Anchor.Y + CSZRect.Top);
            cgContactArray[I].CSZRect.BottomRight := Point(Anchor.X + TmpBmp.Width, Anchor.Y + CSZRect.Bottom);

            cgContactArray[I].CompanyRect.TopLeft := Point(Anchor.X, Anchor.Y + CompanyRect.Top);
            cgContactArray[I].CompanyRect.BottomRight := Point(Anchor.X + TmpBmp.Width, Anchor.Y + CompanyRect.Bottom);

            cgContactArray[I].EMailRect.TopLeft := Point(Anchor.X + EMailRect.Left, Anchor.Y + EMailRect.Top);
            cgContactArray[I].EMailRect.BottomRight := Point(Anchor.X + TmpBmp.Width, Anchor.Y + EMailRect.Bottom);

            cgContactArray[I].Phone1Rect.TopLeft := Point(Anchor.X + Phone1Rect.Left, Anchor.Y + Phone1Rect.Top);
            cgContactArray[I].Phone1Rect.BottomRight := Point(Anchor.X + TmpBmp.Width, Anchor.Y + Phone1Rect.Bottom);

            cgContactArray[I].Phone2Rect.TopLeft := Point(Anchor.X + Phone2Rect.Left, Anchor.Y + Phone2Rect.Top);
            cgContactArray[I].Phone2Rect.BottomRight := Point(Anchor.X + TmpBmp.Width, Anchor.Y + Phone2Rect.Bottom);

            cgContactArray[I].Phone3Rect.TopLeft := Point(Anchor.X + Phone3Rect.Left, Anchor.Y + Phone3Rect.Top);
            cgContactArray[I].Phone3Rect.BottomRight := Point(Anchor.X + TmpBmp.Width, Anchor.Y + Phone3Rect.Bottom);

            cgContactArray[I].Phone4Rect.TopLeft := Point(Anchor.X + Phone4Rect.Left, Anchor.Y + Phone4Rect.Top);
            cgContactArray[I].Phone4Rect.BottomRight := Point(Anchor.X + TmpBmp.Width, Anchor.Y + Phone4Rect.Bottom);

            cgContactArray[I].Phone5Rect.TopLeft := Point(Anchor.X + Phone5Rect.Left, Anchor.Y + Phone5Rect.Top);
            cgContactArray[I].Phone5Rect.BottomRight := Point(Anchor.X + TmpBmp.Width, Anchor.Y + Phone5Rect.Bottom);
          end;

          { move the drawn record from the bitmap to the component canvas }

          case Angle of
            ra0   :
              RenderCanvas.CopyRect (Rect (Anchor.X + WholeRect.Left + RenderIn.Left,
                                           Anchor.Y + WholeRect.Top + RenderIn.Top,
                                           Anchor.X + TmpBmp.Width + RenderIn.Left,
                                           Anchor.Y + WholeRect.Bottom + RenderIn.Top),
                                     TmpBmp.Canvas, WholeRect);
            ra90  :
              RenderCanvas.CopyRect (Rect (WholeRect.Left + RenderIn.Left - Anchor.X,
                                           Anchor.Y + WholeRect.Top + RenderIn.Top,
                                           WholeRect.Right + RenderIn.Left - Anchor.X,
                                           Anchor.Y + WholeRect.Bottom + RenderIn.Top),
                                     TmpBmp.Canvas,
                                     Rect (WholeRect.Left,
                                           WholeRect.Top,
                                           WholeRect.Right,
                                           WholeRect.Bottom));

            ra180 :
              RenderCanvas.CopyRect (Rect (Anchor.X + WholeRect.Left + RenderIn.Left,
                                           Anchor.Y - (WholeRect.Bottom - WholeRect.Top) + RenderIn.Top,
                                           Anchor.X + TmpBmp.Width + RenderIn.Left,
                                           Anchor.Y + RenderIn.Top),
                                     TmpBmp.Canvas, WholeRect);

            ra270 :
              RenderCanvas.CopyRect (Rect (Anchor.X + RenderIn.Left,
                                           Anchor.Y + RenderIn.Top,
                                           Anchor.X + RenderIn.Left + (WholeRect.Right - WholeRect.Left),
                                           Anchor.Y + RenderIn.Top + (WholeRect.Bottom - WholeRect.Top)),
                                     TmpBmp.Canvas, WholeRect);
          end;

          { draw focusrect around selected record }
          if FContactGrid.Focused and (TmpCon = FContactGrid.ActiveContact) then begin
            with TVpContactGridOpener(FContactGrid).cgContactArray[I] do
              RenderCanvas.DrawFocusRect(Rect(WholeRect.Left, WholeRect.Top - 3,
                WholeRect.Right + TextMargin, WholeRect.Bottom - 2));
          end;

          { slide anchor down for the next record }
          case Angle of
            ra0   : Anchor.Y := Anchor.Y + WholeRect.Bottom;
            ra90  : Anchor.X := Anchor.X + WidthOf(WholeRect);
            ra180 : Anchor.Y := Anchor.Y - HeightOf(WholeRect);
            ra270 : Anchor.X := Anchor.X + WholeRect.Right;
          end;
          Inc(RecsInCol);
        end;
      end;

      if not DisplayOnly then
        case Angle of
          ra0:
            with TVpContactGridOpener(FContactGrid) do
              if (Anchor.X > RenderIn.Right) and (I < DataStore.Resource.Contacts.Count) then
              begin
                { we have filled in the visible area }
                FContactsAfter := DataStore.Resource.Contacts.Count - I;
                FVisibleContacts := DataStore.Resource.Contacts.Count - StartContact - FContactsAfter;
                Break;
              end else begin
                FContactsAfter := 0;
                FVisibleContacts := DataStore.Resource.Contacts.Count - StartContact;
              end;
          ra90:
            with TVpContactGridOpener(FContactGrid) do
              if (Anchor.Y > RenderIn.Bottom) and (I < DataStore.Resource.Contacts.Count) then begin
                { we have filled in the visible area }
                FContactsAfter := DataStore.Resource.Contacts.Count - I;
                FVisibleContacts := DataStore.Resource.Contacts.Count - StartContact - FContactsAfter;
                Break;
              end else begin
                FContactsAfter := 0;
                FVisibleContacts := DataStore.Resource.Contacts.Count - StartContact;
              end;
          ra180:
            with TVpContactGridOpener(FContactGrid) do
              if (Anchor.X < RenderIn.Left) and (I < DataStore.Resource.Contacts.Count) then
              begin
                { we have filled in the visible area }
                FContactsAfter := FContactGrid.DataStore.Resource.Contacts.Count - I;
                FVisibleContacts := FContactGrid.DataStore.Resource.Contacts.Count - StartContact - FContactsAfter;
                Break;
              end
              else begin
                FContactsAfter := 0;
                FVisibleContacts := FContactGrid.DataStore.Resource.Contacts.Count - StartContact;
              end;
          ra270:
            with TVpContactGridOpener(FContactGrid) do
              if (Anchor.Y < RenderIn.Top) and (I < DataStore.Resource.Contacts.Count) then
              begin
                { we have filled in the visible area }
                FContactsAfter := DataStore.Resource.Contacts.Count - I;
                FVisibleContacts := DataStore.Resource.Contacts.Count - StartContact - FContactsAfter;
                Break;
              end else begin
                FContactsAfter := 0;
                FVisibleContacts := DataStore.Resource.Contacts.Count - StartContact;
              end;
        end;
    end;  // for I := StartContact ...
  finally
    TmpBmp.Free;
  end;

  with TVpContactGridOpener(FContactGrid) do begin
    if FContactsAfter = 0 then
      FLastPrintLine := -2
    else
      FLastPrintLine := FContactsAfter;

    if (oldCol1RecCount > 0) and (cgCol1RecCount = 0) then
      cgCol1RecCount := oldCol1RecCount;
  end;
end;
  *)
procedure TVpContactGridPainter.DrawVerticalBars;
var
  BarPos, BarCount, I: Integer;
begin
  { if the component is sufficiently small then no sense in painting it }
  if (FContactGrid.Height < 20) then exit;

  { draw vertical bars }
  RenderCanvas.Pen.Color := RealBarColor;
  RenderCanvas.Pen.Style := psSolid;
  BarPos := RealLeft + 2 + RealColumnWidth + ExtraBarWidth;
  BarCount := 0;
  while (BarPos < RealRight) and (BarCount < Pred(MaxColumns)) do begin
    TVpContactGridOpener(FContactGrid).cgBarArray[BarCount].Rec := Rect(
      BarPos - ExtraBarWidth,
      RealTop,
      BarPos - ExtraBarWidth + FContactGrid.BarWidth,
      RealBottom
    );
    TVpContactGridOpener(FContactGrid).cgBarArray[BarCount].Index := BarCount;
    for I := 1 to FContactGrid.BarWidth do begin
      TPSMoveTo(RenderCanvas, Angle, RenderIn, BarPos, RealTop + 2 + TextMargin * 2);
      TPSLineTo(RenderCanvas, Angle, RenderIn, BarPos, RealBottom - TextMargin * 2);
      Inc(BarPos);
    end;
    Inc(BarPos, RealColumnWidth);
    Inc(BarCount);
  end;

  { if the columns are being resized, then draw the temporary resizing bars }
  if TVpContactGridOpener(FContactGrid).cgGridState = gsColSizing then begin
    { clear sizing bar array }
    for I := 0 to pred(MaxColumns) do
      with TVpContactGridOpener(FContactGrid) do begin
        if cgResizeBarArray[I].Index = -1 then
          Break;
        cgResizeBarArray[I].Rec := Rect(-1, -1, -1, -1);
        cgResizeBarArray[I].Index := -1;
      end;
    { draw sizing bars }
    RenderCanvas.Pen.Color := SizingBarColor;
    RenderCanvas.Pen.Style := psDash;
    BarPos := RealLeft + 2 + TVpContactGridOpener(FContactGrid).cgNewColWidth + ExtraBarWidth;
    BarCount := 0;
    while (BarPos < FContactGrid.Width) and (BarCount < pred(MaxColumns)) do begin
      TVpContactGridOpener(FContactGrid).cgResizeBarArray[BarCount].Index := BarCount;
      TVpContactGridOpener(FContactGrid).cgResizeBarArray[BarCount].Rec := Rect(
        BarPos - ExtraBarWidth,
        RealTop,
        BarPos - ExtraBarWidth + FContactGrid.BarWidth,
        RealBottom
      );
      for I := 1 to FContactGrid.BarWidth do begin
        TPSMoveTo (RenderCanvas, Angle, RenderIn,
                   RealLeft + BarPos,
                   RealTop + 2 + TextMargin * 2);
        TPSLineTo (RenderCanvas, Angle, RenderIn,
                   RealLeft + BarPos,
                   RealBottom - TextMargin * 2);
        Inc(BarPos);
      end;
      Inc(BarPos, TVpContactGridOpener(FContactGrid).cgNewColWidth);
      Inc(BarCount);
    end;
    RenderCanvas.Pen.Style := psSolid;
  end;
end;

procedure TVpContactGridPainter.FixFontHeights;
begin
  with FContactGrid do begin
    ContactHeadAttributes.Font.Height := GetRealFontHeight(ContactHeadAttributes.Font);
    Font.Height := GetRealFontHeight(Font);
  end;
end;

procedure TVpContactGridPainter.InitColors;
begin
  if DisplayOnly then begin
    RealColor := clWhite;
    SizingBarColor := clBlack;
    BevelDarkShadow := clBlack;
    BevelShadow := clBlack;
    BevelHighlight := clBlack;
    BevelFace := clBlack;
    RealBarColor := clBlack;
    RealContactHeadAttrColor := clSilver;
  end else begin
    RealColor := FContactGrid.Color;
    SizingBarColor := clBlack;
    BevelDarkShadow := cl3dDkShadow;
    BevelShadow := clBtnShadow;
    BevelHighlight := clBtnHighlight;
    BevelFace := clBtnFace;
    RealBarColor := FContactGrid.BarColor;
    RealContactHeadAttrColor := FContactGrid.ContactHeadAttributes.Color;
  end;
end;

procedure TVpContactGridPainter.RenderToCanvas(ARenderIn: TRect;
  AAngle: TVpRotationAngle; AScale: Extended; ARenderDate: TDateTime;
  AStartLine, AStopLine: Integer; AUseGran: TVpGranularity; ADisplayOnly: Boolean);
var
  nc: Integer;
begin
  inherited;

  InitColors;
  SavePenBrush;
  InitPenBrush;
  if ADisplayOnly then FixFontHeights;

  Rgn := CreateRectRgn(RenderIn.Left, RenderIn.Top, RenderIn.Right, RenderIn.Bottom);
  try
    SelectClipRgn(RenderCanvas.Handle, Rgn);

    if StartLine = -1 then
      StartContact := TVpContactGridOpener(FContactGrid).FContactsBefore
    else
      StartContact := StartLine;

    SetMeasurements;

    nc := FContactGrid.PrintNumColumns;
    if DisplayOnly and (nc > 0) then
      RealColumnWidth := (RealWidth - (2 + ExtraBarWidth) * (nc - 1)) div nc
    else
      RealColumnWidth := FContactGrid.ColumnWidth;

    { clear the control }
    Clear;

    { draw the contacts }
    if StartLine <> -2 then
      DrawContacts;

    { draw the vertical bars }
    DrawVerticalBars;

    { draw the borders }
    DrawBorders;

    TVpContactGridOpener(FContactGrid).SetHScrollPos;

  finally
    SelectClipRgn(RenderCanvas.Handle, 0);
    DeleteObject(Rgn);
  end;

  { reinstate canvas settings }
  RestorePenBrush;
end;

end.