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

gtk2: removed quark code

Browse Source 
git-svn-id: trunk@15761 -
This commit is contained in:
mattias 2008-07-13 11:30:13 +00:00
parent 4fdf213191
commit 4dedc3c8ec
1 changed files with 1 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -24,21 +24,13 @@
// {$DEFINE ASSERT_IS_ON}
{$ENDIF}
var
TextLengthQuark: TGQuark;
procedure SetLayoutText(ALayout: PPangoLayout; AText: PChar; ALength: LongInt);
var
OldStr: PChar;
OldLength: Integer;
begin
OldStr := pango_layout_get_text(ALayout);
OldLength := PtrInt(g_object_get_qdata(PGObject(ALayout), TextLengthQuark));
if (OldLength <> ALength) or (CompareByte(AText^, OldStr^, ALength) <> 0) then
begin
if (strcomp(AText, OldStr) <> 0) then
pango_layout_set_text(ALayout, AText, ALength);
g_object_set_qdata(PGObject(ALayout), TextLengthQuark, gpointer(PtrInt(ALength)));
end;
end;
{ TGtk2DeviceContext }
@ -103,8 +95,3 @@ begin
gdk_draw_layout_with_colors(drawable, GC, X, Y, AFont^.GDIFontObject, FGColor, BGColor);
end;
initialization
TextLengthQuark := g_quark_from_static_string('layouttextlength');