mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-28 12:02:48 +02:00
b8af8691df
- cleanup - minor preparations for using recent fpc gtk2 package changes git-svn-id: trunk@16173 -
98 lines
3.6 KiB
PHP
98 lines
3.6 KiB
PHP
{%MainUnit gtk2def.pp}
|
|
|
|
{******************************************************************************
|
|
TGtk2DeviceContext
|
|
******************************************************************************
|
|
|
|
*****************************************************************************
|
|
* *
|
|
* This file is part of the Lazarus Component Library (LCL) *
|
|
* *
|
|
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
|
|
* for details about the copyright. *
|
|
* *
|
|
* This program is distributed in the hope that it will be useful, *
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. *
|
|
* *
|
|
*****************************************************************************
|
|
}
|
|
|
|
{$IFOPT C-}
|
|
// Uncomment for local trace
|
|
// {$C+}
|
|
// {$DEFINE ASSERT_IS_ON}
|
|
{$ENDIF}
|
|
|
|
procedure SetLayoutText(ALayout: PPangoLayout; AText: PChar; ALength: PtrInt);
|
|
var
|
|
OldStr: PChar;
|
|
begin
|
|
OldStr := pango_layout_get_text(ALayout);
|
|
if (strlcomp(AText, OldStr, ALength) <> 0) or (strlen(OldStr)<>ALength) then
|
|
pango_layout_set_text(ALayout, AText, ALength);
|
|
end;
|
|
|
|
{ TGtk2DeviceContext }
|
|
|
|
function TGtk2DeviceContext.GetFunction: TGdkFunction;
|
|
begin
|
|
Result := GCValues._function;
|
|
end;
|
|
|
|
procedure TGtk2DeviceContext.DrawTextWithColors(AText: PChar; ALength: LongInt;
|
|
X, Y: Integer; FGColor, BGColor: PGdkColor);
|
|
var
|
|
WidgetCont: PPangoContext;
|
|
NewMatrix: TPangoMatrix;
|
|
OldMatrix: PPangoMatrix;
|
|
renderer: PGdkPangoRenderer;
|
|
AFont: PGdiObject;
|
|
|
|
procedure SetColors(AFGColor, ABGColor: PGdkColor); inline;
|
|
begin
|
|
gdk_pango_renderer_set_override_color(renderer, PANGO_RENDER_PART_FOREGROUND, AFGColor);
|
|
gdk_pango_renderer_set_override_color(renderer, PANGO_RENDER_PART_UNDERLINE, AFGColor);
|
|
gdk_pango_renderer_set_override_color(renderer, PANGO_RENDER_PART_STRIKETHROUGH, AFGColor);
|
|
gdk_pango_renderer_set_override_color(renderer, PANGO_RENDER_PART_BACKGROUND, ABGColor);
|
|
end;
|
|
|
|
begin
|
|
AFont := GetFont;
|
|
SetLayoutText(AFont^.GDIFontObject, AText, ALength);
|
|
|
|
if AFont^.LogFont.lfEscapement <> 0 then
|
|
begin
|
|
renderer := gdk_pango_renderer_get_default(gtk_widget_get_screen(Widget));
|
|
gdk_pango_renderer_set_drawable(renderer, drawable);
|
|
gdk_pango_renderer_set_gc(renderer, GC);
|
|
SetColors(FGColor, BGColor);
|
|
|
|
WidgetCont := pango_layout_get_context(AFont^.GDIFontObject);
|
|
OldMatrix := pango_context_get_matrix(WidgetCont);
|
|
NewMatrix.xx := 1.0;
|
|
NewMatrix.xy := 0.0;
|
|
NewMatrix.yx := 0.0;
|
|
NewMatrix.yy := 1.0;
|
|
NewMatrix.x0 := 0.0;
|
|
NewMatrix.y0 := 0.0;
|
|
pango_matrix_translate(@NewMatrix, X, Y);
|
|
pango_matrix_rotate(@NewMatrix, AFont^.LogFont.lfEscapement div 10);
|
|
|
|
pango_context_set_matrix(WidgetCont, @NewMatrix);
|
|
pango_layout_context_changed(AFont^.GDIFontObject);
|
|
pango_renderer_draw_layout(PPangoRenderer(renderer), AFont^.GDIFontObject, X, Y);
|
|
|
|
//now reset
|
|
pango_context_set_matrix(WidgetCont, OldMatrix);
|
|
pango_layout_context_changed(AFont^.GDIFontObject);
|
|
|
|
SetColors(nil, nil);
|
|
gdk_pango_renderer_set_drawable(renderer, nil);
|
|
gdk_pango_renderer_set_gc(renderer, nil);
|
|
end
|
|
else
|
|
gdk_draw_layout_with_colors(drawable, GC, X, Y, AFont^.GDIFontObject, FGColor, BGColor);
|
|
end;
|
|
|