paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-06 00:37:18 +01:00
Code Issues Packages Projects Releases Wiki Activity

gtk2 intf: fixed GetTextExtentIgnoringAmpersands checking for line end

Browse Source 
git-svn-id: trunk@11724 -
This commit is contained in:
mattias 2007-08-03 10:07:18 +00:00
parent 8fdda10624
commit e81f58a39e
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/interfaces/gtk/gtkproc.inc
View File

@ -9259,10 +9259,12 @@ end;
That means, ampersands are not counted.
-------------------------------------------------------------------------------}
{$Ifdef GTK2}
Procedure GetTextExtentIgnoringAmpersands(FontDesc : PPangoFontDescription; Str : PChar;
Procedure GetTextExtentIgnoringAmpersands(FontDesc : PPangoFontDescription;
Str : PChar;
LineLength : Longint; lbearing, rbearing, width, ascent, descent : Pgint);
{$Else}
Procedure GetTextExtentIgnoringAmpersands(FontDesc : PGDKFont; Str : PChar;
Procedure GetTextExtentIgnoringAmpersands(FontDesc : PGDKFont;
Str : PChar;
LineLength : Longint; lbearing, rbearing, width, ascent, descent : Pgint);
{$EndIf}
var
@ -9273,8 +9275,8 @@ begin
// first check if Str contains an ampersand:
if (Str<>nil) then begin
i:=0;
while (not (Str[i] in [#0,'&'])) do inc(i);
if Str[i]='&' then begin
while (Str[i]<>'&') and (i<LineLength) do inc(i);
if i<LineLength then begin
NewStr := RemoveAmpersands(Str, LineLength);
LineLength:=StrLen(NewStr);
end;