paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-04 19:00:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

gtk2 intf: improved layout text optimization by length parameter

Browse Source 
git-svn-id: trunk@15763 -
This commit is contained in:
mattias 2008-07-13 15:44:56 +00:00
parent 7e001b2934
commit fbcc1bc581
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/gtk2/gtk2def.pp
View File

@ -44,7 +44,7 @@ type
procedure DrawTextWithColors(AText: PChar; ALength: LongInt; X, Y: Integer; FGColor, BGColor: PGdkColor); procedure DrawTextWithColors(AText: PChar; ALength: LongInt; X, Y: Integer; FGColor, BGColor: PGdkColor);
end; end;
procedure SetLayoutText(ALayout: PPangoLayout; AText: PChar; ALength: LongInt); procedure SetLayoutText(ALayout: PPangoLayout; AText: PChar; ALength: PtrInt);
implementation implementation
{$i gtk2devicecontext.inc} {$i gtk2devicecontext.inc}

4
lcl/interfaces/gtk2/gtk2devicecontext.inc
View File

@ -24,12 +24,12 @@
// {$DEFINE ASSERT_IS_ON} // {$DEFINE ASSERT_IS_ON}
{$ENDIF} {$ENDIF}
procedure SetLayoutText(ALayout: PPangoLayout; AText: PChar; ALength: LongInt); procedure SetLayoutText(ALayout: PPangoLayout; AText: PChar; ALength: PtrInt);
var var
OldStr: PChar; OldStr: PChar;
begin begin
OldStr := pango_layout_get_text(ALayout); OldStr := pango_layout_get_text(ALayout);
if (strcomp(AText, OldStr) <> 0) then if (strlcomp(AText, OldStr, ALength) <> 0) then
pango_layout_set_text(ALayout, AText, ALength); pango_layout_set_text(ALayout, AText, ALength);
end; end;