paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 02:49:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ initialize CharWidth with default function

Browse Source
This commit is contained in:
mazen 2004-09-15 14:03:01 +00:00
parent a95323c9cd
commit 68d53805db
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/objpas/freebidi.pp
View File

@ -140,7 +140,7 @@ var
begin
Result := 0;
Count := Length(Src);
while (Count>0) do
while (Count > 0) do
begin
Result += CharWidth(Src[Count], FontInfoPtr);
Count -= 1;
@ -349,5 +349,9 @@ begin
Result[vp] := Src[v2lSrc[vp]];
end;
initialization
CharWidth := @DefaultCharWidth;
end.