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

gtk3: implemented TGtk3WidgetSet.DrawFocus()

Browse Source 
git-svn-id: trunk@41824 -
This commit is contained in:
zeljko 2013-06-23 13:52:59 +00:00
parent e293626964
commit a6e6ba7f5d
2 changed files with 30 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
lcl/interfaces/gtk3/gtk3winapi.inc
View File

@ -566,15 +566,39 @@ begin
{$IFDEF GTK3DEBUGNOTIMPLEMENTED}
DebugLn('WARNING: TGtk3WidgetSet.DrawFrameControl not implemented ...');
{$ENDIF}
Result:=inherited DrawFrameControl(DC, Rect, uType, uState);
Result := False;
// inherited DrawFrameControl(DC, Rect, uType, uState);
end;
function TGtk3WidgetSet.DrawFocusRect(DC: HDC; const Rect: TRect): boolean;
var
Context: PGtkStyleContext;
AValue: TGValue;
begin
{$IFDEF GTK3DEBUGNOTIMPLEMENTED}
DebugLn('WARNING: TGtk3WidgetSet.DrawFocusRect not implemented ...');
{$ENDIF}
Result:=inherited DrawFocusRect(DC, Rect);
Result := False;
if IsValidDC(DC) then
begin
if TGtk3DeviceContext(DC).Parent <> nil then
Context := TGtk3DeviceContext(DC).Parent^.get_style_context
else
if gtk_widget_get_default_style^.has_context then
begin
// Context := gtk_widget_get_default_style^.has_context
AValue.g_type := G_TYPE_POINTER;
AValue.set_pointer(nil);
g_object_get_property(gtk_widget_get_default_style,'context',@AValue);
Context := AValue.get_pointer;
end else
Context := nil;
if Context = nil then
begin
DebugLn('WARNING: TGtk3WidgetSet.DrawFocusRect drawing focus on non widget context isn''t implemented.');
exit;
end;
with Rect do
gtk_render_focus(Context ,TGtk3DeviceContext(DC).Widget, Left, Top, Right - Left, Bottom - Top);
Result := True;
end;
end;
function TGtk3WidgetSet.DrawEdge(DC: HDC; var ARect: TRect; Edge: Cardinal;

2
lcl/interfaces/gtk3/gtk3wscontrols.pp
View File

@ -435,7 +435,7 @@ begin
Exit;
{$IFDEF GTK3DEBUGNOTIMPLEMENTED}
// quiet for now
DebugLn('TGtk3WSWinControl.SetCursor not implemented');
// DebugLn('TGtk3WSWinControl.SetCursor not implemented');
{$ENDIF}
TGtk3Widget(AWinControl.Handle).SetCursor(ACursor);
end;