paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 18:29:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ implement TView.TextWidth and TView.CTextWidth via StrWidth and CStrLen

Browse Source 
git-svn-id: branches/unicodekvm@48774 -
This commit is contained in:
nickysn 2021-02-21 23:21:18 +00:00
parent 4944e9296f
commit 75e42870ae
1 changed files with 5 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
packages/fv/src/views.inc
View File

@ -1210,39 +1210,17 @@ END;
{--TView--------------------------------------------------------------------}
{ TextWidth -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 25Nov99 LdB }
{---------------------------------------------------------------------------}
{$ifdef FV_UNICODE}
FUNCTION TView.TextWidth (const Txt: UnicodeString): Sw_Integer;
FUNCTION TView.TextWidth (const Txt: Sw_String): Sw_Integer;
BEGIN
TextWidth := Length(Txt); { Calc text length }
TextWidth := StrWidth(Txt);
END;
FUNCTION TView.CTextWidth (const Txt: UnicodeString): Sw_Integer;
FUNCTION TView.CTextWidth (const Txt: Sw_String): Sw_Integer;
VAR I: Sw_Integer; S: UnicodeString;
BEGIN
S := Txt; { Transfer text }
Repeat
I := Pos('~', S); { Check for tilde }
If (I <> 0) Then System.Delete(S, I, 1); { Remove the tilde }
Until (I = 0); { Remove all tildes }
CTextWidth := Length(S); { Calc text length }
CTextWidth := CStrLen(Txt);
END;
{$else FV_UNICODE}
FUNCTION TView.TextWidth (const Txt: String): Sw_Integer;
BEGIN
TextWidth := Length(Txt); { Calc text length }
END;
FUNCTION TView.CTextWidth (const Txt: String): Sw_Integer;
VAR I: Sw_Integer; S: String;
BEGIN
S := Txt; { Transfer text }
Repeat
I := Pos('~', S); { Check for tilde }
If (I <> 0) Then System.Delete(S, I, 1); { Remove the tilde }
Until (I = 0); { Remove all tildes }
CTextWidth := Length(S); { Calc text length }
END;
{$endif FV_UNICODE}
{--TView--------------------------------------------------------------------}
{ MouseInView -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 12Sep97 LdB }