Lines Matching refs:AText
95 function TextWidth(AText: string): double; in TextWidth()
118 function GetTextWidth(AText: string): double; in GetTextWidth()
158 procedure TextOut(AText: string);
159 procedure TextOutLn(AText: string);
160 procedure TextOutXY(X, Y: double; AText: string;
162 procedure TextOutRectXY(X, Y, W, H: double; AText: string;
164 procedure TextOutXYUp(X, Y: double; AText: string;
312 function TlrCodeReport.GetTextWidth(AText: string): double; in TlrCodeReport.GetTextWidth()
314 Result := round(TextWidth(AText) / XRatio);
492 function TlrCodeReport.TextWidth(AText: string): double; in TlrCodeReport.TextWidth()
497 Result := ABitMap.Canvas.TextWidth(AText);
562 AText: TfrMemoview;
564 AText := TfrMemoView.Create(nil);
565 AText.Left := X * XRatio;
566 AText.Top := Y * YRatio;
567 AText.Width := W * XRatio;
568 AText.Height := H * YRatio;
569 AText.Angle := Style.Angle;
571 AText.AutoSize := Style.Autosize;
572 AText.Stretched := Style.Stretched;
573 AText.WordWrap := Style.WordWrap;
574 AText.WordBreak := Style.WordBreak;
576 AText.FrameWidth := Style.Line.LWidth;
577 AText.FrameColor := Style.Line.LColor;
578 AText.FrameStyle := Style.Line.LStyle;
580 AText.FillColor := Style.FillColor;
581 AText.Frames := Style.BorderLines;
583 AText.Font.Name := Style.FontName;
584 AText.Font.Color := Style.FontColor;
585 AText.Font.Size := Style.FontSize;
586 AText.Font.Style := Style.FontStyle;
588 AText.Alignment := Style.Alignment;
589 AText.Layout := Style.Layout;
591 AText.Memo.Add(Text);
592 AText.CalcGaps;
593 Report.Pages[ActivePage].Objects.Add(AText);
595 Cursor.YTop := AText.Top / YRatio; // adjust to ratio used
596 Cursor.XTop := AText.Left / XRatio;
597 Cursor.YBottom := (AText.Top + AText.Height) / YRatio; // adjust to ratio used
598 Cursor.XBottom := (AText.Left + AText.Width) / XRatio;
601 procedure TlrCodeReport.TextOut(AText: string);
604 TextWidth(AText), TextHeight, AText, TextRectStyle);
605 Cursor.Left += TextWidth(AText) / XRatio;
608 procedure TlrCodeReport.TextOutLn(AText: string);
616 TextOut(AText);
622 procedure TlrCodeReport.TextOutXY(X, Y: double; AText: string; Alignment: TAlignment);
633 Pos := X - TextWidth(AText) / XRatio;
637 Pos := X - (TextWidth(AText) / 2 / XRatio);
640 DrawText(Pos, Y, TextWidth(AText) / XRatio + 2, TextHeight / YRatio, AText, Style);
641 Cursor.Left += TextWidth(AText) / XRatio;
644 procedure TlrCodeReport.TextOutRectXY(X, Y, W, H: double; AText: string;
654 DrawText(X, Y, W, H, AText, Style);
657 procedure TlrCodeReport.TextOutXYUp(X, Y: double; AText: string; Alignment: TAlignment);
669 Pos := Y - TextWidth(AText);
673 Pos := Y - (TextWidth(AText) / 2);
676 DrawText(X, Pos, TextHeight, TextWidth(AText), AText, Style);