/dports/editors/lazarus/lazarus/components/tachart/ |
H A D | tahtml.pas | 31 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 D | tafitutils.pas | 34 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 D | tadrawutils.pas | 122 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 D | taopengl.pas | 25 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 D | tahtml.pas | 31 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 D | tafitutils.pas | 34 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 D | tadrawutils.pas | 125 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 D | tahtml.pas | 31 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 D | tafitutils.pas | 34 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 D | tadrawutils.pas | 125 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 D | tahtml.pas | 31 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 D | tafitutils.pas | 34 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 D | tadrawutils.pas | 122 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 D | taopengl.pas | 25 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 D | tw6989.pp | 26 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 D | lr_codereport.pas | 562 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 D | lr_codereport.pas | 565 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 D | lr_codereport.pas | 562 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 D | lr_codereport.pas | 565 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 D | bgramsegui_text.inc | 2 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 D | bgramsegui_text.inc | 2 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 D | taopengl.pas | 25 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 D | taopengl.pas | 25 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 D | testblockindent.pas | 88 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 D | testblockindent.pas | 88 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 …]
|