paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 19:52:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed synedit ensure cursor pos visible with tab chars

Browse Source 
git-svn-id: trunk@2083 -
This commit is contained in:
mattias 2002-08-17 23:40:53 +00:00
parent 5036e08fa9
commit ab650debf3
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -6495,6 +6495,10 @@ begin
{$IfDef VerboseFocus}
writeln(' H NewTopLevel FocusWidget=',HexStr(Cardinal(PGtkWindow(TopLevel)^.Focus_Widget),8));
{$EndIf}
gtk_window_activate_focus(PGtkWindow(TopLevel));
{$IfDef VerboseFocus}
writeln(' I NewTopLevel FocusWidget=',HexStr(Cardinal(PGtkWindow(TopLevel)^.Focus_Widget),8));
{$EndIf}
end;
end
else begin
@ -7641,6 +7645,9 @@ end;
{ =============================================================================
$Log$
Revision 1.205 2003/01/06 13:59:45 mattias
fixed synedit ensure cursor pos visible with tab chars
Revision 1.204 2003/01/01 12:38:53 mattias
clean ups