From 242b61c96f7be56b5be2e35a79c7585404d3b3d0 Mon Sep 17 00:00:00 2001 From: mattias Date: Sat, 17 Aug 2002 23:40:50 +0000 Subject: [PATCH] added history to identifier completion git-svn-id: trunk@2062 - --- lcl/interfaces/gtk/gtkwinapi.inc | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) diff --git a/lcl/interfaces/gtk/gtkwinapi.inc b/lcl/interfaces/gtk/gtkwinapi.inc index 3ec8ed2a71..61049844ab 100644 --- a/lcl/interfaces/gtk/gtkwinapi.inc +++ b/lcl/interfaces/gtk/gtkwinapi.inc @@ -3125,6 +3125,27 @@ Assert(False, 'Trace:GetCaretPos'); Result := True; end; +{------------------------------------------------------------------------------ + function TgtkObject.GetCaretRespondToFocus(handle: HWND; + var ShowHideOnFocus: boolean): Boolean; + ------------------------------------------------------------------------------} +function TgtkObject.GetCaretRespondToFocus(handle: HWND; + var ShowHideOnFocus: boolean): Boolean; +begin + if handle<>0 then begin + if gtk_type_is_a(gtk_object_type(PGTKObject(handle)), GTKAPIWidget_GetType) + then begin + GTKAPIWidget_GetCaretRespondToFocus(PGTKAPIWidget(handle), + ShowHideOnFocus); + Result:=true; + end + else begin + Result := False; + end; + end else + Result:=false; +end; + {------------------------------------------------------------------------------ Function: GetCharABCWidths pbd Params: Don't care yet @@ -7617,6 +7638,9 @@ end; { ============================================================================= $Log$ + Revision 1.202 2002/12/30 17:24:08 mattias + added history to identifier completion + Revision 1.201 2002/12/28 12:42:38 mattias focus fixes, reduced lpi size