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

LCL: GTK3: Prevent range check error in TGtk3DeviceContext.drawText.

Browse Source 
git-svn-id: trunk@56784 -
This commit is contained in:
michl 2017-12-18 19:57:02 +00:00
parent 20638d46c7
commit 5f92abd226
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/gtk3/gtk3objects.pas
View File

@ -1301,7 +1301,7 @@ begin
// [dx, dy, x, y, s]));
// pango_renderer_activate();
// pango_cairo_show_layout(Widget, Layout);
ColorToCairoRGB(CurrentTextColor, R, G , B);
ColorToCairoRGB(TColor(CurrentTextColor), R, G , B);
cairo_set_source_rgb(Widget, R, G, B);
// writeln('DRAWINGTEXT ',S,' WITH R=',dbgs(R),' G=',dbgs(G),' B=',dbgs(B));
FCurrentFont.Layout^.set_text(PChar(S), length(S));