paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 03:21:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

added history to identifier completion

Browse Source 
git-svn-id: trunk@2445 -
This commit is contained in:
mattias 2002-08-17 23:41:23 +00:00
parent 3ed5f367ac
commit e47315c55e
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/include/interfacebase.inc
View File

@ -799,6 +799,13 @@ begin
Result := False;
end;
function TInterfaceBase.GetCaretRespondToFocus(handle: HWND;
var ShowHideOnFocus: boolean): Boolean;
begin
ShowHideOnFocus := true;
Result := False;
end;
Function TInterfaceBase.GetClientBounds(handle : HWND; var Rect : TRect) : Boolean;
begin
Result := False;
@ -1626,6 +1633,9 @@ end;
{ =============================================================================
$Log$
Revision 1.77 2002/12/30 17:24:08 mattias
added history to identifier completion
Revision 1.76 2002/12/27 17:12:38 mattias
added more Delphi win32 compatibility functions