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

Gtk3: implemented remove prop.

Browse Source 
git-svn-id: trunk@48436 -
This commit is contained in:
zeljko 2015-03-20 20:09:00 +00:00
parent 344723bda1
commit 1a4529c1d8
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3298,10 +3298,13 @@ end;
function TGtk3WidgetSet.RemoveProp(Handle: hwnd; Str: PChar): THandle; function TGtk3WidgetSet.RemoveProp(Handle: hwnd; Str: PChar): THandle;
begin begin
{$IFDEF GTK3DEBUGNOTIMPLEMENTED} Result := 0;
DebugLn('WARNING: TGtk3WidgetSet.RemoveProp not implemented ...'); if Handle = 0 then
{$ENDIF} exit;
Result:=inherited RemoveProp(Handle, Str); g_object_set_data(TGtk3Widget(Handle).Widget, Str, nil);
if TGtk3Widget(Handle).GetContainerWidget <> TGtk3Widget(Handle).Widget then
g_object_set_data(TGtk3Widget(Handle).GetContainerWidget, Str, nil);
Result := 1;
end; end;
function TGtk3WidgetSet.RestoreDC(DC: HDC; SavedDC: Integer): Boolean; function TGtk3WidgetSet.RestoreDC(DC: HDC; SavedDC: Integer): Boolean;