pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

tvplanit: Refactor the DrawContacts method of TVpContactGridPainter, plus some cosmetic changes.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8523 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-10-07 22:46:09 +00:00
parent f5514b9ad3
commit 070182f1d4
1 changed files with 229 additions and 211 deletions
Download Patch File Download Diff File Expand all files Collapse all files

438
components/tvplanit/source/vpcontactgridpainter.pas
View File

@ -4,7 +4,7 @@ unit VpContactGridPainter;
interface interface
uses lazlogger, uses
LCLType, LCLIntf, SysUtils, LCLType, LCLIntf, SysUtils,
Types, Classes, Graphics, Types, Classes, Graphics,
VpConst, VPBase, VpData, VpBasePainter, VpContactGrid; VpConst, VPBase, VpData, VpBasePainter, VpContactGrid;
@ -29,14 +29,19 @@ type
RealContactHeadAttrColor: TColor; RealContactHeadAttrColor: TColor;
protected protected
function CalcHeaderRect(ABitmap: TBitmap): TRect;
procedure Clear; procedure Clear;
procedure DrawBorders; procedure DrawBorders;
procedure DrawContactLine(ABitmap: TBitmap; AText, ALabel: String; procedure DrawContactHeader(ABitmap: TBitmap; AContact: TVpContact;
const ARect: TRect);
procedure DrawContactRow(ABitmap: TBitmap; AText, ALabel: String;
var AWholeRect, ATextRect: TRect); var AWholeRect, ATextRect: TRect);
procedure DrawContacts; procedure DrawContacts;
procedure DrawVerticalBars; procedure DrawVerticalBars;
procedure FixFontHeights; procedure FixFontHeights;
procedure InitColors; procedure InitColors;
procedure PaintContactBitmap(ABitmap: TBitmap; AContact: TVpContact;
Anchor: TPoint; AWholeRect: TRect);
procedure SetMeasurements; override; procedure SetMeasurements; override;
public public
@ -62,15 +67,43 @@ begin
FContactGrid := AContactGrid; FContactGrid := AContactGrid;
end; end;
{ Calculates the bounding rectangle for the contact header. }
function TVpContactGridPainter.CalcHeaderRect(ABitmap: TBitmap): TRect;
var
textHeight: Integer;
margin, half_margin: Integer;
begin
ABitmap.Canvas.Font.Assign(FContactGrid.ContactHeadAttributes.Font);
ABitmap.Canvas.Font.PixelsPerInch := RenderCanvas.Font.PixelsPerInch;
{$IF VP_LCL_SCALING = 0}
ABitmap.Canvas.Font.Size := ScaleY(ABitmap.Canvas.Font.Size, DesignTimeDPI);
{$ENDIF}
textHeight := ABitmap.Canvas.TextHeight(VpProductName);
margin := FScaledTextMargin;
half_margin := FScaledTextMargin div 2;
case Angle of
ra0:
Result := Rect(0, 0, ABitmap.Width, textHeight + half_margin);
ra90:
Result := Rect(ABitmap.Width - textHeight - half_margin, 0, ABitmap.Width, ABitmap.Height);
ra180:
Result := Rect(margin, ABitmap.Height - textheight - margin, ABitmap.Width, ABitmap.Height - half_margin);
ra270:
Result := Rect(0, margin, 3 * half_margin + textHeight, ABitmap.Height);
end;
end;
procedure TVpContactGridPainter.Clear; procedure TVpContactGridPainter.Clear;
var var
I: Integer; I: Integer;
begin begin
{ clear Client Area } // Clear client area
RenderCanvas.Brush.Color := RealColor; RenderCanvas.Brush.Color := RealColor;
RenderCanvas.FillRect(RenderIn); RenderCanvas.FillRect(RenderIn);
{ clear the vertical bar array } // Clear the vertical bar array
for I := 0 to pred(MaxColumns) do begin for I := 0 to pred(MaxColumns) do begin
with TVpContactGridOpener(FContactGrid) do begin with TVpContactGridOpener(FContactGrid) do begin
if cgBarArray[I].Index = -1 then if cgBarArray[I].Index = -1 then
@ -80,10 +113,10 @@ begin
end; end;
end; end;
{ initialize the contact array at runtime } // Initialize the contact array at runtime
if not (csDesigning in FContactGrid.ComponentState) and (FContactGrid.DataStore <> nil) if not (csDesigning in FContactGrid.ComponentState) and (FContactGrid.DataStore <> nil)
and (FContactGrid.DataStore.Resource <> nil) and (FContactGrid.DataStore.Resource <> nil) then
then begin
with TVpContactGridOpener(FContactGrid) do begin with TVpContactGridOpener(FContactGrid) do begin
SetLength(cgContactArray, DataStore.Resource.Contacts.Count); SetLength(cgContactArray, DataStore.Resource.Contacts.Count);
for I := 0 to pred(Length(cgContactArray)) do for I := 0 to pred(Length(cgContactArray)) do
@ -101,6 +134,7 @@ begin
Phone5Rect := Rect(-1, -1, -1, -1); Phone5Rect := Rect(-1, -1, -1, -1);
end; end;
end; end;
end;
end; end;
procedure TVpContactGridPainter.DrawBorders; procedure TVpContactGridPainter.DrawBorders;
@ -115,7 +149,84 @@ begin
end; end;
end; end;
procedure TVpContactGridPainter.DrawContactLine(ABitmap: TBitmap; procedure TVpContactGridPainter.DrawContactHeader(ABitmap: TBitmap;
AContact: TVpContact; const ARect: TRect);
var
textXOffset, textYOffset: Integer;
maxTextWidth: Integer;
s: String;
begin
// Paint the header cell's background
ABitmap.Canvas.Brush.Color := RealContactHeadAttrColor;
ABitmap.Canvas.Brush.Style := bsSolid;
ABitmap.Canvas.FillRect(ARect);
// Paint the header cell's border
if FContactGrid.ContactHeadAttributes.Bordered and (FContactGrid.DrawingStyle <> dsNoBorder)
then begin
ABitmap.Canvas.Pen.Color := BevelDarkShadow;
ABitmap.Canvas.Pen.Style := psSolid;
ABitmap.Canvas.Rectangle(ARect);
end;
// Paint the header cell's text
case Angle of
ra0:
begin
textXOffset := 0;
textYOffset := 0;
maxTextWidth := WidthOf(ARect);
end;
ra90:
begin
textXOffset := WidthOf(ARect) - FScaledTextMargin div 2;
textYOffset := FScaledTextMargin div 3;
maxTextWidth := HeightOf(ARect);
end;
ra180:
begin
textXOffset := WidthOf(ARect) - FScaledTextMargin;
textYOffset := HeightOf(ARect) - FScaledTextMargin div 3;
maxTextWidth := WidthOf(ARect);
end;
ra270:
begin
textXOffset := FScaledTextMargin div 2;
textYOffset := HeightOf(ARect) - FScaledTextMargin div 3;
maxTextWidth := HeightOf(ARect);
end;
end;
// Set the header font
ABitmap.Canvas.Font.Assign(FContactGrid.ContactHeadAttributes.Font);
ABitmap.Canvas.Font.PixelsPerInch := RenderCanvas.Font.PixelsPerInch;
{$IF VP_LCL_SCALING = 0}
ABitmap.Canvas.Font.Size := ScaleY(ABitmap.Canvas.Font.Size, DesignTimeDPI);
{$ENDIF}
if FContactGrid.Focused and (AContact = FContactGrid.ActiveContact) then
ABitmap.Canvas.Font.Style := [fsBold];
// Assemble the header string...
s := AssembleName(AContact);
s := GetDisplayString(ABitmap.Canvas, s, 2, maxTextWidth - FScaledTextMargin);
// ... and draw it using the header font.
TPSTextOutAtPoint(
ABitmap.Canvas,
Angle,
Rect(0, 0, ABitmap.Width, ABitmap.Height),
ARect.Left + FScaledTextMargin div 2 + TextXOffset,
ARect.Top + FScaledTextMargin div 3 + TextYOffset,
s
);
end;
{ Draw a row of the contact data: AText and its label ALabel.
The row is at the bottom of the previously drawn rows.
ATextRect returns the rectangle occupied by this row.
AWholeRect is the rectangle occupied by the entire contact data including
this row. }
procedure TVpContactGridPainter.DrawContactRow(ABitmap: TBitmap;
AText, ALabel: String; var AWholeRect, ATextRect: TRect); AText, ALabel: String; var AWholeRect, ATextRect: TRect);
var var
txtheight: Integer; txtheight: Integer;
@ -205,21 +316,20 @@ begin
); );
end; end;
{ Draws all contacts. To simplify the layout each contact is drawn first into
a temporary bitmap which is later copied to the rendering canvas. }
procedure TVpContactGridPainter.DrawContacts; procedure TVpContactGridPainter.DrawContacts;
var var
Anchor: TPoint; Anchor: TPoint;
I, J, W: Integer; I, W: Integer;
Str: string; Str: string;
TmpBmp: TBitmap; TmpBmp: TBitmap;
TmpCon: TVpContact; contact: TVpContact;
Col, RecsInCol: Integer; Col, RecsInCol: Integer;
HeadRect: TRect;
WholeRect: TRect; WholeRect: TRect;
TmpBmpRect: TRect;
TextColWidth: Integer; TextColWidth: Integer;
TextXOffset: Integer;
TextYOffset: Integer;
oldCol1RecCount: Integer; oldCol1RecCount: Integer;
HeadRect: TRect = (Left:0; Top:0; Right:0; Bottom:0);
AddrRect: TRect = (Left:0; Top:0; Right:0; Bottom:0); AddrRect: TRect = (Left:0; Top:0; Right:0; Bottom:0);
CSZRect: 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); CompanyRect: TRect = (Left:0; Top:0; Right:0; Bottom:0);
@ -229,13 +339,9 @@ var
Phone3Rect: 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); Phone4Rect: TRect = (Left:0; Top:0; Right:0; Bottom:0);
Phone5Rect: TRect = (Left:0; Top:0; Right:0; Bottom:0); Phone5Rect: TRect = (Left:0; Top:0; Right:0; Bottom:0);
R: TRect;
contactCount: Integer; contactCount: Integer;
baseTextHeight: Integer;
maxTextWidth: Integer;
anchorMargin: Integer; anchorMargin: Integer;
px2, px4: Integer; // Scaled 2, 4 pixels px2, px4: Integer; // Scaled 2, 4 pixels
px3: Integer; // 3 pixels scaled for high-dpi
begin begin
// If the component is sufficiently small then no sense in painting it // If the component is sufficiently small then no sense in painting it
if (FContactGrid.Height < 20) then if (FContactGrid.Height < 20) then
@ -253,18 +359,10 @@ begin
oldCol1RecCount := TVpContactGridOpener(FContactGrid).cgCol1RecCount; oldCol1RecCount := TVpContactGridOpener(FContactGrid).cgCol1RecCount;
TVpContactGridOpener(FContactGrid).FVisibleContacts := 0; TVpContactGridOpener(FContactGrid).FVisibleContacts := 0;
TVpContactGridOpener(FContactGrid).cgCol1RecCount := 0; TVpContactGridOpener(FContactGrid).cgCol1RecCount := 0;
TextXOffset := 0;
TextYOffset := 0;
px2 := Round(2 * Scale); px2 := Round(2 * Scale);
px4 := Round(4 * Scale); px4 := Round(4 * Scale);
{$IF VP_LCL_SCALING > 0}
px3 := FContactGrid.Scale96ToFont(3);
{$ELSE}
px3 := ScaleY(3, DesigntimeDPI);
{$IFEND}
// Create a temporary bitmap for painting the contact items
// Create a temporary bitmap for painting the items
TmpBmp := TBitmap.Create; TmpBmp := TBitmap.Create;
try try
if (Angle = ra0) or (Angle = ra180) then begin if (Angle = ra0) or (Angle = ra180) then begin
@ -276,13 +374,15 @@ begin
TmpBmp.Width := RealHeight - FScaledTextMargin * 2; TmpBmp.Width := RealHeight - FScaledTextMargin * 2;
TextColWidth := TmpBmp.Height; TextColWidth := TmpBmp.Height;
end; end;
TmpBmpRect := Rect(0, 0, TmpBmp.Width, TmpBmp.Height);
// Calculate the header rectangle. It is the same for all contacts.
HeadRect := CalcHeaderRect(TmpBmp);
TmpBmp.Canvas.Font.Assign(FContactGrid.Font); TmpBmp.Canvas.Font.Assign(FContactGrid.Font);
TmpBmp.Canvas.Font.PixelsPerInch := RenderCanvas.Font.PixelsPerInch; TmpBmp.Canvas.Font.PixelsPerInch := RenderCanvas.Font.PixelsPerInch;
{$IF VP_LCL_SCALING = 0} {$IF VP_LCL_SCALING = 0}
TmpBmp.Canvas.Font.Size := ScaleY(TmpBmp.Canvas.Font.Size, DesignTimeDPI); TmpBmp.Canvas.Font.Size := ScaleY(TmpBmp.Canvas.Font.Size, DesignTimeDPI);
{$ENDIF} {$ENDIF}
baseTextHeight := TmpBmp.Canvas.TextHeight(VpProductName);
// Calculate max phone label width // Calculate max phone label width
PhoneLblWidth := TmpBmp.Canvas.TextWidth(RSEmail); PhoneLblWidth := TmpBmp.Canvas.TextWidth(RSEmail);
@ -293,7 +393,7 @@ begin
PhoneLblWidth := w; PhoneLblWidth := w;
end; end;
// Set the anchor starting point // Set the anchor starting point for the very first (top/left) contact
anchorMargin := px2 + FScaledTextMargin * 2; anchorMargin := px2 + FScaledTextMargin * 2;
case Angle of case Angle of
ra0, ra90: ra0, ra90:
@ -311,163 +411,66 @@ begin
Col := 1; Col := 1;
RecsInCol := 0; RecsInCol := 0;
for I := StartContact to pred(contactCount) do begin for I := StartContact to pred(contactCount) do begin
TmpCon := FContactGrid.DataStore.Resource.Contacts.GetContact(I); contact := FContactGrid.DataStore.Resource.Contacts.GetContact(I);
if (TmpCon <> nil) then begin if (contact <> nil) then begin
TVpContactGridOpener(FContactGrid).cgContactArray[I].Contact := TmpCon; TVpContactGridOpener(FContactGrid).cgContactArray[I].Contact := contact;
// Clear bmp canvas // Clear bmp canvas
TmpBmp.Canvas.Brush.Color := RealColor; TmpBmp.Canvas.Brush.Color := RealColor;
TmpBmp.Canvas.FillRect(Rect(0, 0, TmpBmp.Width, TmpBmp.Height)); TmpBmp.Canvas.FillRect(Rect(0, 0, TmpBmp.Width, TmpBmp.Height));
{ start building the WholeRect and build the HeaderRect} // Start building the WholeRect
TmpBmp.Canvas.Pen.Color := BevelDarkShadow; WholeRect := HeadRect;
TmpBmp.Canvas.Brush.Style := bsSolid; if Angle = ra180 then
TmpBmp.Canvas.Font.Assign(FContactGrid.ContactHeadAttributes.Font);
TmpBmp.Canvas.Font.PixelsPerInch := RenderCanvas.Font.PixelsPerInch;
{$IF VP_LCL_SCALING = 0}
TmpBmp.Canvas.Font.Size := ScaleY(TmpBmp.Canvas.Font.Size, DesignTimeDPI);
{$ENDIF}
if FContactGrid.Focused and (TmpCon = FContactGrid.ActiveContact) then
TmpBmp.Canvas.Font.Style := [fsBold];
case Angle of
ra0:
begin
WholeRect.TopLeft := Point(0, 0);
HeadRect.TopLeft := Point(0, 0);
HeadRect.BottomRight := Point(
TmpBmp.Width,
HeadRect.Top + baseTextHeight + FScaledTextMargin div 2
);
WholeRect.BottomRight := HeadRect.BottomRight;
end;
ra90: // TO DO: CHECK CORRECT USAGE OF TextMargin HERE !!!!!!!!!
begin
HeadRect.TopLeft := Point(
TmpBmpRect.Right - FScaledTextMargin - baseTextHeight + FScaledTextMargin 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); WholeRect.BottomRight := Point(TmpBmp.Width, TmpBmp.Height);
HeadRect.TopLeft := Point(
FScaledTextMargin,
TmpBmpRect.Bottom - baseTextHeight - FScaledTextMargin
);
HeadRect.BottomRight := Point(
TmpBmp.Width,
TmpBmp.Height - FScaledTextMargin div 2
);
WholeRect.TopLeft := HeadRect.TopLeft;
end;
ra270:
begin
WholeRect.TopLeft := Point(0, 0);
HeadRect.TopLeft := Point(0, FScaledTextMargin);
HeadRect.BottomRight := Point(
FScaledTextMargin + baseTextHeight + FScaledTextMargin div 2,
TmpBmp.Height
);
WholeRect.BottomRight := HeadRect.BottomRight;
end;
end;
{ paint the header cell's background } // Draw the contact header
TmpBmp.Canvas.Brush.Color := RealContactHeadAttrColor; DrawContactHeader(TmpBmp, contact, HeadRect);
TmpBmp.Canvas.FillRect(HeadRect);
{ paint the header cell's border } // Set font and colors for the contact data
if FContactGrid.ContactHeadAttributes.Bordered and (FContactGrid.DrawingStyle <> dsNoBorder)
then begin
TmpBmp.Canvas.Pen.Style := psSolid;
TmpBmp.Canvas.Rectangle(HeadRect);
end;
{ paint the header cell's text }
case Angle of
ra90:
begin
TextXOffset := WidthOf(HeadRect) - FScaledTextMargin div 2;
TextYOffset := FScaledTextMargin div 3;
end;
ra180:
begin
TextXOffset := WidthOf(HeadRect) - FScaledTextMargin;
TextYOffset := HeightOf(HeadRect) - FScaledTextMargin div 3;
end;
ra270:
begin
TextXOffset := FScaledTextMargin div 2;
TextYOffset := HeightOf(HeadRect) - FScaledTextMargin div 3;
end;
end;
{ assemble the header string }
if (Angle in [ra0, ra180]) then
maxTextWidth := WidthOf(HeadRect)
else
maxTextWidth := HeightOf(HeadRect);
Str := AssembleName(TmpCon);
Str := GetDisplayString(TmpBmp.Canvas, Str, 2, maxTextWidth - FScaledTextMargin);
TPSTextOutAtPoint(
TmpBmp.Canvas,
Angle,
TmpBmpRect,
HeadRect.Left + FScaledTextMargin div 2 + TextXOffset,
HeadRect.Top + FScaledTextMargin div 3 + TextYOffset,
Str
);
{ restore font and colors }
TmpBmp.Canvas.Font.Assign(FContactGrid.Font); TmpBmp.Canvas.Font.Assign(FContactGrid.Font);
TmpBmp.Canvas.Font.PixelsPerInch := RenderCanvas.Font.PixelsPerInch; TmpBmp.Canvas.Font.PixelsPerInch := RenderCanvas.Font.PixelsPerInch;
{$IF VP_LCL_SCALING = 0} {$IF VP_LCL_SCALING = 0}
TmpBmp.Canvas.Font.Size := ScaleY(TmpBmp.Canvas.Font.Size, DesignTimeDPI); TmpBmp.Canvas.Font.Size := ScaleY(TmpBmp.Canvas.Font.Size, DesignTimeDPI);
{$ENDIF} {$ENDIF}
TmpBmp.Canvas.Brush.Color := RealColor; TmpBmp.Canvas.Brush.Color := RealColor;
TmpBmp.Canvas.Pen.Color := BevelDarkShadow;
TmpBmp.Canvas.Pen.Style := psSolid;
{ do Company } // Draw company
DrawContactLine(TmpBmp, TmpCon.Company, '', WholeRect, CompanyRect); DrawContactRow(TmpBmp, contact.Company, '', WholeRect, CompanyRect);
{ do address... } // Draw address
DrawContactLine(TmpBmp, TmpCon.Address1, '', WholeRect, AddrRect); DrawContactRow(TmpBmp, contact.Address1, '', WholeRect, AddrRect);
{ do City, State, Zip } // Draw city, state, zip
Str := AssembleCSZ(TmpCon, 1, FContactGrid.GetCityStateZipFormat); Str := AssembleCSZ(contact, 1, FContactGrid.GetCityStateZipFormat);
DrawContactLine(TmpBmp, Str, '', WholeRect, CSZRect); DrawContactRow(TmpBmp, Str, '', WholeRect, CSZRect);
{ do Phone1 } // Draw phone1
Str := PhoneLabel(TVpPhoneType(TmpCon.PhoneType1)) + ': '; Str := PhoneLabel(TVpPhoneType(contact.PhoneType1)) + ': ';
DrawContactLine(TmpBmp, TmpCon.Phone1, Str, WholeRect, Phone1Rect); DrawContactRow(TmpBmp, contact.Phone1, Str, WholeRect, Phone1Rect);
{ do Phone2 } // Draw phone2
Str := PhoneLabel(TVpPhoneType(TmpCon.PhoneType2)) + ': '; Str := PhoneLabel(TVpPhoneType(contact.PhoneType2)) + ': ';
DrawContactLine(TmpBmp, TmpCon.Phone2, Str, WholeRect, Phone2Rect); DrawContactRow(TmpBmp, contact.Phone2, Str, WholeRect, Phone2Rect);
{ do Phone3 } // Draw phone3
Str := PhoneLabel(TVpPhoneType(TmpCon.PhoneType3)) + ': '; Str := PhoneLabel(TVpPhoneType(contact.PhoneType3)) + ': ';
DrawContactLine(TmpBmp, TmpCon.Phone3, Str, WholeRect, Phone3Rect); DrawContactRow(TmpBmp, contact.Phone3, Str, WholeRect, Phone3Rect);
{ do Phone4 } // Draw phone4
Str := PhoneLabel(TVpPhoneType(TmpCon.PhoneType4)) + ': '; Str := PhoneLabel(TVpPhoneType(contact.PhoneType4)) + ': ';
DrawContactLine(TmpBmp, TmpCon.Phone4, Str, WholeRect, Phone4Rect); DrawContactRow(TmpBmp, contact.Phone4, Str, WholeRect, Phone4Rect);
{ do Phone5 } // Draw phone5
Str := PhoneLabel(TVpPhoneType(TmpCon.PhoneType5)) + ': '; Str := PhoneLabel(TVpPhoneType(contact.PhoneType5)) + ': ';
DrawContactLine(TmpBmp, TmpCon.Phone5, Str, WholeRect, Phone5Rect); DrawContactRow(TmpBmp, contact.Phone5, Str, WholeRect, Phone5Rect);
{ do EMail } // Draw EMail
Str := TVpContactGridOpener(FContactGrid).GetDisplayEMailValue(TmpCon); Str := TVpContactGridOpener(FContactGrid).GetDisplayEMailValue(contact);
DrawContactLine(TmpBmp, Str, RSEmail + ': ', WholeRect, EMailRect); DrawContactRow(TmpBmp, Str, RSEmail + ': ', WholeRect, EMailRect);
{ if this record's too big to fit in the remaining area of this } // If this record's too big to fit in the remaining area of this column,
{ column, then slide over to the top of the next column } // then slide over to the top of the next column }
if RecsInCol > 0 then if RecsInCol > 0 then
case Angle of case Angle of
ra0: ra0:
@ -522,7 +525,7 @@ begin
end; end;
end; end;
{ add a little spacing between records } // Add some spacing between records
case Angle of case Angle of
ra0 : WholeRect.Bottom := WholeRect.Bottom + FScaledTextMargin * 2; ra0 : WholeRect.Bottom := WholeRect.Bottom + FScaledTextMargin * 2;
ra90 : WholeRect.Left := WholeRect.Left - FScaledTextMargin * 2; ra90 : WholeRect.Left := WholeRect.Left - FScaledTextMargin * 2;
@ -530,7 +533,7 @@ begin
ra270 : WholeRect.Right := WholeRect.Right + FScaledTextMargin * 2; ra270 : WholeRect.Right := WholeRect.Right + FScaledTextMargin * 2;
end; end;
{ Update Array Rects } // Update array rects
with TVpContactGridOpener(FContactGrid) do begin with TVpContactGridOpener(FContactGrid) do begin
cgContactArray[I].WholeRect := MoveRect(WholeRect, Anchor); cgContactArray[I].WholeRect := MoveRect(WholeRect, Anchor);
cgContactArray[I].HeaderRect := MoveRect(HeadRect, Anchor); cgContactArray[I].HeaderRect := MoveRect(HeadRect, Anchor);
@ -545,46 +548,10 @@ begin
cgContactArray[I].Phone5Rect := MoveRect(Phone5Rect, Anchor); cgContactArray[I].Phone5Rect := MoveRect(Phone5Rect, Anchor);
end; end;
// Move the drawn record from the bitmap to the component canvas. // Draw the contact bitmap on the rendering canvas
case Angle of PaintContactBitmap(TmpBmp, contact, Anchor, WholeRect);
ra0 : R := 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
);
ra90 : R := 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
);
ra180 : R := Rect(Anchor.X + WholeRect.Left + RenderIn.Left,
Anchor.Y - HeightOf(WholeRect) + RenderIn.Top,
Anchor.X + TmpBmp.Width + RenderIn.Left,
Anchor.Y + RenderIn.Top
);
ra270 : R := Rect(Anchor.X + RenderIn.Left,
Anchor.Y + RenderIn.Top,
Anchor.X + RenderIn.Left + WidthOf(WholeRect),
Anchor.Y + RenderIn.Top + HeightOf(WholeRect)
);
end;
//debugln(['wholerect: ', wholerect.left, ' ', wholerect.top, ' ', wholerect.right, ' ', wholerect.bottom]); // Slide anchor down for the next record
//debugLn(['scaledtextmargin: ', fscaledtextmargin]);
RenderCanvas.CopyRect(R, TmpBmp.Canvas, WholeRect);
// Draw focus rect around selected record
if FContactGrid.Focused and (TmpCon = FContactGrid.ActiveContact) then begin
with TVpContactGridOpener(FContactGrid).cgContactArray[I] do begin
R := WholeRect;
InflateRect(R, px3, 0);
OffsetRect(R, 0, -px3);
RenderCanvas.DrawFocusRect(R);
end;
end;
{ slide anchor down for the next record }
case Angle of case Angle of
ra0 : Anchor.Y := Anchor.Y + WholeRect.Bottom; ra0 : Anchor.Y := Anchor.Y + WholeRect.Bottom;
ra90 : Anchor.X := Anchor.X + (WholeRect.Right - WholeRect.Left); ra90 : Anchor.X := Anchor.X + (WholeRect.Right - WholeRect.Left);
@ -601,7 +568,7 @@ begin
with TVpContactGridOpener(FContactGrid) do with TVpContactGridOpener(FContactGrid) do
if (Anchor.X > RenderIn.Right) and (I < DataStore.Resource.Contacts.Count) if (Anchor.X > RenderIn.Right) and (I < DataStore.Resource.Contacts.Count)
then begin then begin
{ we have filled in the visible area } // We have filled in the visible area
FContactsAfter := contactCount - I; FContactsAfter := contactCount - I;
FVisibleContacts := contactCount - StartContact - FContactsAfter; FVisibleContacts := contactCount - StartContact - FContactsAfter;
Break; Break;
@ -613,7 +580,7 @@ begin
with TVpContactGridOpener(FContactGrid) do with TVpContactGridOpener(FContactGrid) do
if (Anchor.Y > RenderIn.Bottom) and (I < contactCount) if (Anchor.Y > RenderIn.Bottom) and (I < contactCount)
then begin then begin
{ we have filled in the visible area } // We have filled in the visible area
FContactsAfter := contactCount - I; FContactsAfter := contactCount - I;
FVisibleContacts := contactCount - StartContact - FContactsAfter; FVisibleContacts := contactCount - StartContact - FContactsAfter;
Break; Break;
@ -625,7 +592,7 @@ begin
with TVpContactGridOpener(FContactGrid) do begin with TVpContactGridOpener(FContactGrid) do begin
if (Anchor.X < RenderIn.Left) and (I < contactCount) if (Anchor.X < RenderIn.Left) and (I < contactCount)
then begin then begin
{ we have filled in the visible area } // We have filled in the visible area
FContactsAfter := contactCount - I; FContactsAfter := contactCount - I;
FVisibleContacts := contactCount - StartContact - FContactsAfter; FVisibleContacts := contactCount - StartContact - FContactsAfter;
Break; Break;
@ -637,7 +604,7 @@ begin
with TVpContactGridOpener(FContactGrid) do begin with TVpContactGridOpener(FContactGrid) do begin
if (Anchor.Y < RenderIn.Top) and (I < contactCount) if (Anchor.Y < RenderIn.Top) and (I < contactCount)
then begin then begin
{ we have filled in the visible area } // We have filled in the visible area
FContactsAfter := contactCount - I; FContactsAfter := contactCount - I;
FVisibleContacts := contactCount - StartContact - FContactsAfter; FVisibleContacts := contactCount - StartContact - FContactsAfter;
Break; Break;
@ -676,8 +643,6 @@ begin
//scaledPenWidth := round(1 * Scale); //scaledPenWidth := round(1 * Scale);
px2 := round(2 * Scale); px2 := round(2 * Scale);
debugln([Realcolumnwidth]);
// Draw vertical bars. // Draw vertical bars.
RenderCanvas.Pen.Color := RealBarColor; RenderCanvas.Pen.Color := RealBarColor;
RenderCanvas.Pen.Style := psSolid; RenderCanvas.Pen.Style := psSolid;
@ -781,6 +746,59 @@ begin
end; end;
end; end;
{ Copy the drawn contact record from the bitmap to the rendering canvas. }
procedure TVpContactGridPainter.PaintContactBitmap(ABitmap: TBitmap;
AContact: TVpContact; Anchor: TPoint; AWholeRect: TRect);
const
FOCUS_RECT_DISTANCE = 3;
var
R: TRect;
dist: Integer;
begin
// Calculate the destination rectangle on the rendering canvas.
case Angle of
ra0 : R := Rect(Anchor.X + AWholeRect.Left + RenderIn.Left,
Anchor.Y + AWholeRect.Top + RenderIn.Top,
Anchor.X + ABitmap.Width + RenderIn.Left,
Anchor.Y + AWholeRect.Bottom + RenderIn.Top
);
ra90 : R := Rect(AWholeRect.Left + RenderIn.Left - Anchor.X,
Anchor.Y + AWholeRect.Top + RenderIn.Top,
AWholeRect.Right + RenderIn.Left - Anchor.X,
Anchor.Y + AWholeRect.Bottom + RenderIn.Top
);
ra180 : R := Rect(Anchor.X + AWholeRect.Left + RenderIn.Left,
Anchor.Y - HeightOf(AWholeRect) + RenderIn.Top,
Anchor.X + ABitmap.Width + RenderIn.Left,
Anchor.Y + RenderIn.Top
);
ra270 : R := Rect(Anchor.X + RenderIn.Left,
Anchor.Y + RenderIn.Top,
Anchor.X + RenderIn.Left + WidthOf(AWholeRect),
Anchor.Y + RenderIn.Top + HeightOf(AWholeRect)
);
end;
// Copy the auxiliary contact bitmap from AWholeRect to R into the
// rendering canvas.
RenderCanvas.CopyRect(R, ABitmap.Canvas, AWholeRect);
// Draw focus rect around selected record (not in printing mode)
if not DisplayOnly and
FContactGrid.Focused and
(AContact = FContactGrid.ActiveContact) then
begin
{$IF VP_LCL_SCALING > 0}
dist := FContactGrid.Scale96ToFont(FOCUS_RECT_DISTANCE);
{$ELSE}
dist := ScaleY(FOCUS_RECT_DISTANCE, DesigntimeDPI);
{$IFEND}
InflateRect(R, dist, 0);
OffsetRect(R, 0, -dist);
RenderCanvas.DrawFocusRect(R);
end;
end;
procedure TVpContactGridPainter.RenderToCanvas(ARenderIn: TRect; procedure TVpContactGridPainter.RenderToCanvas(ARenderIn: TRect;
AAngle: TVpRotationAngle; AScale: Extended; ARenderDate: TDateTime; AAngle: TVpRotationAngle; AScale: Extended; ARenderDate: TDateTime;
AStartLine, AStopLine: Integer; AUseGran: TVpGranularity; ADisplayOnly: Boolean); AStartLine, AStopLine: Integer; AUseGran: TVpGranularity; ADisplayOnly: Boolean);