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

Gtk2: Add theme support to DrawFocusRect

Browse Source 
Paint a themed focus rectangle (color and width) with fallback to the default method.
This commit is contained in:
ptvoinfo 2023-04-19 12:21:29 +03:00
parent 5e18c56bba
commit d85002d862
1 changed files with 29 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
lcl/interfaces/gtk2/gtk2winapi.inc
View File

@ -2231,6 +2231,9 @@ var
APen, TempPen: HPEN;
LogPen : TLogPen;
R: TRect;
P: Pointer;
AValue: TGValue;
Style: PGtkStyle;
begin
Result := False;
if IsValidDC(DC) then
@ -2246,6 +2249,32 @@ begin
else
R := Rect;
// paint a themed focus rectangle with fallback to the default method
P := GetStyleWidget(lgsDefault);
if P <> nil then
begin
FillChar(AValue{%H-}, SizeOf(AValue), 0);
g_value_init(@AValue, G_TYPE_INT);
gtk_widget_style_get_property(P, 'focus-line-width', @AValue);
if AValue.data[0].v_int > 0 then
LogPen.lopnWidth.X := AValue.data[0].v_int;
end;
if (DevCtx.Widget <> nil) then
begin
Style := gtk_widget_get_style(DevCtx.Widget);
if (Style <> nil) then
begin
gtk_paint_focus(
Style, DevCtx.Drawable, GTK_WIDGET_STATE(DevCtx.Widget){GTK_STATE_ACTIVE},
nil, DevCtx.Widget, nil,
R.Left, R.Top,
R.Width, R.Height);
Result := True;
exit;
end;
end;
APen := CreatePenIndirect(LogPen);
TempPen := SelectObject(DC, APen);
OldRop := SetROP2(DC, R2_XORPEN);