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

added history to identifier completion

Browse Source 
git-svn-id: trunk@2062 -
This commit is contained in:
mattias 2002-08-17 23:40:50 +00:00
parent ce20604cdd
commit 242b61c96f
1 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
lcl/interfaces/gtk/gtkwinapi.inc
View File

@ -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