Home
last modified time | relevance | path

Searched refs:AText (Results 1 – 25 of 1027) sorted by relevance

12345678910>>...42

/dports/editors/lazarus/lazarus/components/tachart/
H A Dtahtml.pas31 case AText[i] of
35 while (i <= Length(AText)) and (AText[i] <> ';') do begin
55 case AText of
88 Result.Red := StrToInt('$' + AText[2] + AText[2]) shl 8;
89 Result.Green := StrToInt('$' + AText[3] + AText[3]) shl 8;
90 Result.Blue := StrToInt('$' + AText[4] + AText[4]) shl 8;
98 case AText of
106 if Pos('PT', AText) = Length(AText)-1 then
107 Result := StrToInt(Copy(AText, 1, Length(AText) - 2))
109 if Pos('PX', AText) = Length(AText)-1 then
[all …]
H A Dtafitutils.pas34 function X(AText: String): IFitEquationText; in X()
35 function Y(AText: String): IFitEquationText; in Y()
48 function X(AText: String): IFitEquationText; in X()
49 function Y(AText: String): IFitEquationText; in Y()
74 function X(AText: String): IFitEquationText; in X()
195 Unused(AText);
201 Unused(AText);
349 FX := AText;
355 FY := AText;
505 AText.Add(rsFitPValue + ASeparator +
[all …]
H A Dtadrawutils.pas122 function TextExtent(AText: TStrings; in TextExtent()
339 s := ReplaceHTMLEntities(AText);
373 s := ReplaceHTMLEntities(AText);
587 FText1 := AText;
593 FText2 := AText;
667 Result := TextExtent(AText);
681 TextOut(AX, AY, AText);
756 if Pos(LineEnding, AText) = 0 then
764 sl.Text := AText;
779 for i := 0 to AText.Count - 1 do
[all …]
H A Dtaopengl.pas25 function BuildTextureName(AText: String): String; in BuildTextureName()
26 procedure CreateTexture(AText: String; out ATextWidth, ATextHeight,
28 function FindTexture(AText: String; out ATextWidth, ATextHeight, in FindTexture()
104 ATextWidth := round(FFont.TextWidth(AText));
105 ATextHeight := round(FFont.TextHeight(AText));
111 FDrawer.DrawText(AText, FFont, 0,0, colRed, [ftaLeft, ftaTop]);
143 function TGLFreeTypeHelper.FindTexture(AText: String; in TGLFreeTypeHelper.FindTexture()
150 txname := BuildTextureName(AText);
177 textureID := FindTexture(AText, w, h, w2, h2);
248 txname := BuildTextureName(AText);
[all …]
/dports/editors/lazarus-qt5-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/components/tachart/
H A Dtahtml.pas31 case AText[i] of
35 while (i <= Length(AText)) and (AText[i] <> ';') do begin
55 case AText of
88 Result.Red := StrToInt('$' + AText[2] + AText[2]) shl 8;
89 Result.Green := StrToInt('$' + AText[3] + AText[3]) shl 8;
90 Result.Blue := StrToInt('$' + AText[4] + AText[4]) shl 8;
98 case AText of
106 if Pos('PT', AText) = Length(AText)-1 then
107 Result := StrToInt(Copy(AText, 1, Length(AText) - 2))
109 if Pos('PX', AText) = Length(AText)-1 then
[all …]
H A Dtafitutils.pas34 function X(AText: String): IFitEquationText; in X()
35 function Y(AText: String): IFitEquationText; in Y()
48 function X(AText: String): IFitEquationText; in X()
49 function Y(AText: String): IFitEquationText; in Y()
74 function X(AText: String): IFitEquationText; in X()
75 function Y(AText: String): IFitEquationText; in Y()
195 Unused(AText);
201 Unused(AText);
395 FX := AText;
401 FY := AText;
[all …]
H A Dtadrawutils.pas125 function TextExtent(AText: TStrings; in TextExtent()
346 s := ReplaceHTMLEntities(AText);
380 s := ReplaceHTMLEntities(AText);
595 FText1 := AText;
601 FText2 := AText;
675 Result := TextExtent(AText);
689 TextOut(AX, AY, AText);
764 if Pos(LineEnding, AText) = 0 then
772 sl.Text := AText;
826 L.Text := AText;
[all …]
/dports/editors/lazarus-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/components/tachart/
H A Dtahtml.pas31 case AText[i] of
35 while (i <= Length(AText)) and (AText[i] <> ';') do begin
55 case AText of
88 Result.Red := StrToInt('$' + AText[2] + AText[2]) shl 8;
89 Result.Green := StrToInt('$' + AText[3] + AText[3]) shl 8;
90 Result.Blue := StrToInt('$' + AText[4] + AText[4]) shl 8;
98 case AText of
106 if Pos('PT', AText) = Length(AText)-1 then
107 Result := StrToInt(Copy(AText, 1, Length(AText) - 2))
109 if Pos('PX', AText) = Length(AText)-1 then
[all …]
H A Dtafitutils.pas34 function X(AText: String): IFitEquationText; in X()
35 function Y(AText: String): IFitEquationText; in Y()
48 function X(AText: String): IFitEquationText; in X()
49 function Y(AText: String): IFitEquationText; in Y()
74 function X(AText: String): IFitEquationText; in X()
75 function Y(AText: String): IFitEquationText; in Y()
195 Unused(AText);
201 Unused(AText);
395 FX := AText;
401 FY := AText;
[all …]
H A Dtadrawutils.pas125 function TextExtent(AText: TStrings; in TextExtent()
346 s := ReplaceHTMLEntities(AText);
380 s := ReplaceHTMLEntities(AText);
595 FText1 := AText;
601 FText2 := AText;
675 Result := TextExtent(AText);
689 TextOut(AX, AY, AText);
764 if Pos(LineEnding, AText) = 0 then
772 sl.Text := AText;
826 L.Text := AText;
[all …]
/dports/editors/lazarus-qt5/lazarus/components/tachart/
H A Dtahtml.pas31 case AText[i] of
35 while (i <= Length(AText)) and (AText[i] <> ';') do begin
55 case AText of
88 Result.Red := StrToInt('$' + AText[2] + AText[2]) shl 8;
89 Result.Green := StrToInt('$' + AText[3] + AText[3]) shl 8;
90 Result.Blue := StrToInt('$' + AText[4] + AText[4]) shl 8;
98 case AText of
106 if Pos('PT', AText) = Length(AText)-1 then
107 Result := StrToInt(Copy(AText, 1, Length(AText) - 2))
109 if Pos('PX', AText) = Length(AText)-1 then
[all …]
H A Dtafitutils.pas34 function X(AText: String): IFitEquationText; in X()
35 function Y(AText: String): IFitEquationText; in Y()
48 function X(AText: String): IFitEquationText; in X()
49 function Y(AText: String): IFitEquationText; in Y()
74 function X(AText: String): IFitEquationText; in X()
195 Unused(AText);
201 Unused(AText);
349 FX := AText;
355 FY := AText;
505 AText.Add(rsFitPValue + ASeparator +
[all …]
H A Dtadrawutils.pas122 function TextExtent(AText: TStrings; in TextExtent()
339 s := ReplaceHTMLEntities(AText);
373 s := ReplaceHTMLEntities(AText);
587 FText1 := AText;
593 FText2 := AText;
667 Result := TextExtent(AText);
681 TextOut(AX, AY, AText);
756 if Pos(LineEnding, AText) = 0 then
764 sl.Text := AText;
779 for i := 0 to AText.Count - 1 do
[all …]
H A Dtaopengl.pas25 function BuildTextureName(AText: String): String; in BuildTextureName()
26 procedure CreateTexture(AText: String; out ATextWidth, ATextHeight,
28 function FindTexture(AText: String; out ATextWidth, ATextHeight, in FindTexture()
104 ATextWidth := round(FFont.TextWidth(AText));
105 ATextHeight := round(FFont.TextHeight(AText));
111 FDrawer.DrawText(AText, FFont, 0,0, colRed, [ftaLeft, ftaTop]);
143 function TGLFreeTypeHelper.FindTexture(AText: String; in TGLFreeTypeHelper.FindTexture()
150 txname := BuildTextureName(AText);
177 textureID := FindTexture(AText, w, h, w2, h2);
248 txname := BuildTextureName(AText);
[all …]
/dports/lang/fpc-source/fpc-3.2.2/tests/webtbs/
H A Dtw6989.pp26 procedure SendString(AMsgType: Integer;const AText:String);
32 procedure Send(const AText: String); inline;
33 procedure Send(AClass: TDebugClass; const AText: String);
36 procedure Send(const AText, AValue: String); inline;
38 procedure Send(const AText: String; AValue: Integer); inline;
42 procedure Send(const AText: String; ARect: TRect); inline;
67 procedure TLogger.Send(const AText: String);
84 procedure TLogger.Send(const AText, AValue: String);
92 procedure TLogger.Send(const AText: String; AValue: Integer);
100 procedure TLogger.Send(const AText: String; AValue: Boolean);
[all …]
/dports/editors/lazarus/lazarus/components/lazreport/source/addons/lrcodereport/
H A Dlr_codereport.pas562 AText: TfrMemoview;
565 AText.Left := X * XRatio;
566 AText.Top := Y * YRatio;
591 AText.Memo.Add(Text);
592 AText.CalcGaps;
597 Cursor.YBottom := (AText.Top + AText.Height) / YRatio; // adjust to ratio used
598 Cursor.XBottom := (AText.Left + AText.Width) / XRatio;
604 TextWidth(AText), TextHeight, AText, TextRectStyle);
616 TextOut(AText);
640 DrawText(Pos, Y, TextWidth(AText) / XRatio + 2, TextHeight / YRatio, AText, Style);
[all …]
/dports/editors/lazarus-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/components/lazreport/source/addons/lrcodereport/
H A Dlr_codereport.pas565 AText: TfrMemoview;
568 AText.Left := X * XRatio;
569 AText.Top := Y * YRatio;
594 AText.Memo.Add(Text);
595 AText.CalcGaps;
600 Cursor.YBottom := (AText.Top + AText.Height) / YRatio; // adjust to ratio used
601 Cursor.XBottom := (AText.Left + AText.Width) / XRatio;
607 TextWidth(AText), TextHeight, AText, TextRectStyle);
619 TextOut(AText);
643 DrawText(Pos, Y, TextWidth(AText) / XRatio + 2, TextHeight / YRatio, AText, Style);
[all …]
/dports/editors/lazarus-qt5/lazarus/components/lazreport/source/addons/lrcodereport/
H A Dlr_codereport.pas562 AText: TfrMemoview;
565 AText.Left := X * XRatio;
566 AText.Top := Y * YRatio;
591 AText.Memo.Add(Text);
592 AText.CalcGaps;
597 Cursor.YBottom := (AText.Top + AText.Height) / YRatio; // adjust to ratio used
598 Cursor.XBottom := (AText.Left + AText.Width) / XRatio;
604 TextWidth(AText), TextHeight, AText, TextRectStyle);
616 TextOut(AText);
640 DrawText(Pos, Y, TextWidth(AText) / XRatio + 2, TextHeight / YRatio, AText, Style);
[all …]
/dports/editors/lazarus-qt5-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/components/lazreport/source/addons/lrcodereport/
H A Dlr_codereport.pas565 AText: TfrMemoview;
568 AText.Left := X * XRatio;
569 AText.Top := Y * YRatio;
594 AText.Memo.Add(Text);
595 AText.CalcGaps;
600 Cursor.YBottom := (AText.Top + AText.Height) / YRatio; // adjust to ratio used
601 Cursor.XBottom := (AText.Left + AText.Width) / XRatio;
607 TextWidth(AText), TextHeight, AText, TextRectStyle);
619 TextOut(AText);
643 DrawText(Pos, Y, TextWidth(AText) / XRatio + 2, TextHeight / YRatio, AText, Style);
[all …]
/dports/graphics/lazpaint/lazpaint-7.1.6/bgrabitmapnew/bgrabitmap/
H A Dbgramsegui_text.inc2 procedure BitmapTextOut(ABitmap: TBitmap; ACoord: TPoint; AText: string);
5 sUTF16 := UTF8ToUTF16(AText);
18 sUTF16 := UTF8ToUTF16(AText);
26 AText: string; const AStyle: TTextStyle);
29 sUTF16 := UTF8ToUTF16(AText);
45 sUTF16 := UTF8ToUTF16(AText);
51 result := BitmapTextExtent(ABitmap, AText);
61 while bytePos <= length(AText) do
63 charLen := UTF8CharacterLength(@AText[bytePos]);
64 sUTF16 := UTF8ToUTF16(copy(AText, 1, bytePos+charLen-1));
[all …]
/dports/editors/cudatext/CudaText-1.151.0/bgrabitmap/bgrabitmap/
H A Dbgramsegui_text.inc2 procedure BitmapTextOut(ABitmap: TBitmap; ACoord: TPoint; AText: string);
5 sUTF16 := UTF8ToUTF16(AText);
18 sUTF16 := UTF8ToUTF16(AText);
26 AText: string; const AStyle: TTextStyle);
29 sUTF16 := UTF8ToUTF16(AText);
45 sUTF16 := UTF8ToUTF16(AText);
51 result := BitmapTextExtent(ABitmap, AText);
61 while bytePos <= length(AText) do
63 charLen := UTF8CharacterLength(@AText[bytePos]);
64 sUTF16 := UTF8ToUTF16(copy(AText, 1, bytePos+charLen-1));
[all …]
/dports/editors/lazarus-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/components/tachart/opengl/
H A Dtaopengl.pas25 function BuildTextureName(AText: String): String; in BuildTextureName()
26 procedure CreateTexture(AText: String; out ATextWidth, ATextHeight,
28 function FindTexture(AText: String; out ATextWidth, ATextHeight, in FindTexture()
104 ATextWidth := round(FFont.TextWidth(AText));
105 ATextHeight := round(FFont.TextHeight(AText));
111 FDrawer.DrawText(AText, FFont, 0,0, colRed, [ftaLeft, ftaTop]);
143 function TGLFreeTypeHelper.FindTexture(AText: String; in TGLFreeTypeHelper.FindTexture()
150 txname := BuildTextureName(AText);
177 textureID := FindTexture(AText, w, h, w2, h2);
248 txname := BuildTextureName(AText);
[all …]
/dports/editors/lazarus-qt5-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/components/tachart/opengl/
H A Dtaopengl.pas25 function BuildTextureName(AText: String): String; in BuildTextureName()
26 procedure CreateTexture(AText: String; out ATextWidth, ATextHeight,
28 function FindTexture(AText: String; out ATextWidth, ATextHeight, in FindTexture()
104 ATextWidth := round(FFont.TextWidth(AText));
105 ATextHeight := round(FFont.TextHeight(AText));
111 FDrawer.DrawText(AText, FFont, 0,0, colRed, [ftaLeft, ftaTop]);
143 function TGLFreeTypeHelper.FindTexture(AText: String; in TGLFreeTypeHelper.FindTexture()
150 txname := BuildTextureName(AText);
177 textureID := FindTexture(AText, w, h, w2, h2);
248 txname := BuildTextureName(AText);
[all …]
/dports/editors/lazarus/lazarus/components/synedit/test/
H A Dtestblockindent.pas88 SetLength(Result, length(AText));
90 Result[i] := AText[i];
93 …+ copy(AText[AFirstLine + i], GetLeadWSLen(AText[AFirstLine + i]) + 1, length(AText[AFirstLine + i…
102 SetLength(Result, length(AText));
104 Result[i] := AText[i];
106 Result[i] := copy(AText[i], 1, GetLeadWSLen(AText[i]))
108 + copy(AText[i], GetLeadWSLen(AText[i]) + 1, length(AText[i]));
117 SetLength(Result, length(AText));
119 Result[i] := AText[i];
121 Result[i] := copy(AText[i], 1, Max( GetLeadWSLen(AText[i]) - ASpaceCount, 0))
[all …]
/dports/editors/lazarus-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/components/synedit/test/
H A Dtestblockindent.pas88 SetLength(Result, length(AText));
90 Result[i] := AText[i];
93 …+ copy(AText[AFirstLine + i], GetLeadWSLen(AText[AFirstLine + i]) + 1, length(AText[AFirstLine + i…
102 SetLength(Result, length(AText));
104 Result[i] := AText[i];
106 Result[i] := copy(AText[i], 1, GetLeadWSLen(AText[i]))
108 + copy(AText[i], GetLeadWSLen(AText[i]) + 1, length(AText[i]));
117 SetLength(Result, length(AText));
119 Result[i] := AText[i];
121 Result[i] := copy(AText[i], 1, Max( GetLeadWSLen(AText[i]) - ASpaceCount, 0))
[all …]

12345678910>>...42