paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-03 03:58:16 +01:00
Code Issues Packages Projects Releases Wiki Activity

gtk2 intf: added workaround for inherited call bug of TGtk2WSCustomComboBox.DestroyHandle

Browse Source 
git-svn-id: trunk@11779 -
This commit is contained in:
mattias 2007-08-10 17:18:51 +00:00
parent f2b483fd29
commit ebac9fd99f
3 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/rtticontrols/rttictrls.pas
View File

@ -176,8 +176,8 @@ Type
property Hook: TPropertyEditorHook read FHook;
property LinkNotifier: TPropertyLinkNotifier read FLinkNotifier;
property OnEditorChanged: TNotifyEvent read FOnEditorChanged write FOnEditorChanged;
property OnLoadFromProperty: TNotifyEvent read FOnLoadFromProperty write FOnLoadFromProperty;
property OnSaveToProperty: TNotifyEvent read FOnSaveToProperty write FOnSaveToProperty;
property OnLoadFromProperty: TNotifyEvent read FOnLoadFromProperty write FOnLoadFromProperty;// do not publish, it is used by the TTI controls
property OnSaveToProperty: TNotifyEvent read FOnSaveToProperty write FOnSaveToProperty;// do not publish, it is used by the TTI controls
property OnTestEditing: TTestEditing read FOnTestEditing write FOnTestEditing;
property OnTestEditor: TPropertyEditorFilterFunc read FOnTestEditor write FOnTestEditor;
property Options: TPropertyLinkOptions read FOptions write SetOptions default DefaultLinkOptions;

6
lcl/include/wincontrol.inc
View File

@ -3400,9 +3400,9 @@ begin
Result:=nil;
end;
{------------------------------------------------------------------------------}
{ TWinControl DestroyHandle }
{------------------------------------------------------------------------------}
{------------------------------------------------------------------------------
TWinControl DestroyHandle
------------------------------------------------------------------------------}
procedure TWinControl.DestroyHandle;
var
i: integer;

6
lcl/interfaces/gtk2/gtk2wsstdctrls.pp
View File

@ -1282,7 +1282,11 @@ begin
ComboWidget := GetWidgetInfo(Pointer(Handle), True)^.CoreWidget;
gtk_object_set_data(PGtkObject(ComboWidget),GtkListItemLCLListTag,nil);
inherited DestroyHandle(AWinControl);
//DebugLn(['TGtk2WSCustomComboBox.DestroyHandle ',dbgsName(AWinControl),' ClassParent=',ClassParent.ClassName]);
{$NOTE TGtk2WSCustomComboBox.DestroyHandle: fixme: calling inherited does not call TGtkWSWinControl.DestroyHandle}
//inherited DestroyHandle(AWinControl);
TGtk2WidgetSet(WidgetSet).DestroyLCLComponent(AWinControl);
end;
{ TGtk2WSCustomGroupBox }