paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-03 04:57:14 +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 Hook: TPropertyEditorHook read FHook;
property LinkNotifier: TPropertyLinkNotifier read FLinkNotifier; property LinkNotifier: TPropertyLinkNotifier read FLinkNotifier;
property OnEditorChanged: TNotifyEvent read FOnEditorChanged write FOnEditorChanged; property OnEditorChanged: TNotifyEvent read FOnEditorChanged write FOnEditorChanged;
property OnLoadFromProperty: TNotifyEvent read FOnLoadFromProperty write FOnLoadFromProperty; property OnLoadFromProperty: TNotifyEvent read FOnLoadFromProperty write FOnLoadFromProperty;// do not publish, it is used by the TTI controls
property OnSaveToProperty: TNotifyEvent read FOnSaveToProperty write FOnSaveToProperty; 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 OnTestEditing: TTestEditing read FOnTestEditing write FOnTestEditing;
property OnTestEditor: TPropertyEditorFilterFunc read FOnTestEditor write FOnTestEditor; property OnTestEditor: TPropertyEditorFilterFunc read FOnTestEditor write FOnTestEditor;
property Options: TPropertyLinkOptions read FOptions write SetOptions default DefaultLinkOptions; property Options: TPropertyLinkOptions read FOptions write SetOptions default DefaultLinkOptions;

6
lcl/include/wincontrol.inc
View File

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

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

@ -1282,7 +1282,11 @@ begin
ComboWidget := GetWidgetInfo(Pointer(Handle), True)^.CoreWidget; ComboWidget := GetWidgetInfo(Pointer(Handle), True)^.CoreWidget;
gtk_object_set_data(PGtkObject(ComboWidget),GtkListItemLCLListTag,nil); 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; end;
{ TGtk2WSCustomGroupBox } { TGtk2WSCustomGroupBox }