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

reduced focus handling and improved focus setting

Browse Source 
git-svn-id: trunk@2360 -
This commit is contained in:
mattias 2002-08-17 23:41:18 +00:00
parent 29c3d65cc9
commit 937b768cdb
2 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lcl/include/control.inc
View File

@ -938,17 +938,17 @@ begin
Dispatch(TheMessage);
end;
{------------------------------------------------------------------------------}
{ TControl SendDockNotification }
{------------------------------------------------------------------------------}
{------------------------------------------------------------------------------
TControl SendDockNotification
------------------------------------------------------------------------------}
Procedure SendDockNotification(Msg: Cardinal; WParam, LParam : Integer);
Begin
//TODO: SendDockNotification
end;
{------------------------------------------------------------------------------}
{ TControl Invalidate }
{------------------------------------------------------------------------------}
{------------------------------------------------------------------------------
TControl Invalidate
------------------------------------------------------------------------------}
procedure TControl.Invalidate;
Begin
InvalidateControl(Visible, csOpaque in ControlStyle);
@ -2079,6 +2079,9 @@ end;
{ =============================================================================
$Log$
Revision 1.120 2003/03/25 10:45:40 mattias
reduced focus handling and improved focus setting
Revision 1.119 2003/03/17 23:39:30 mattias
added TCheckGroup

4
lcl/interfaces/gtk/gtkproc.pp
View File

@ -70,7 +70,9 @@ function gtkfrmdeactivateAfter( widget: PGtkWidget; Event : PgdkEventFocus;
function GTKMap(Widget: PGTKWidget; Data: gPointer): GBoolean; cdecl;
function GTKKeyUpDown(Widget: PGtkWidget; Event : pgdkeventkey;
Data: gPointer) : GBoolean; cdecl;
function GTKFocusCB( widget: PGtkWidget; event:PGdkEventFocus; data: gPointer) : GBoolean; cdecl;
function GTKFocusCB(widget: PGtkWidget; event:PGdkEventFocus; data: gPointer) : GBoolean; cdecl;
function GTKFocusCBAfter(widget: PGtkWidget; event:PGdkEventFocus; data: gPointer) : GBoolean; cdecl;
function GTKKillFocusCB(widget: PGtkWidget; event:PGdkEventFocus; data: gPointer) : GBoolean; cdecl;
function GTKKillFocusCBAfter(widget: PGtkWidget; event:PGdkEventFocus; data: gPointer) : GBoolean; cdecl;
function gtkdestroyCB(widget: PGtkWidget; data: gPointer) : GBoolean; cdecl;
function gtkdeleteCB( widget : PGtkWidget; event : PGdkEvent; data : gPointer) : GBoolean; cdecl;