paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-07 20:17:13 +01:00
Code Issues Packages Projects Releases Wiki Activity

focus fixes, reduced lpi size

Browse Source 
git-svn-id: trunk@2298 -
This commit is contained in:
mattias 2002-08-17 23:41:14 +00:00
parent c0df7f9bb2
commit cb5bee664a
2 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/interfaces/gtk/gtkcallback.inc
View File

@ -365,7 +365,7 @@ begin
DeliverGtkPaintMessage(Data,Widget);
end;
function gtkfrmactivate( widget: PGtkWidget; Event : PgdkEventFocus;
function gtkfrmactivateAfter( widget: PGtkWidget; Event : PgdkEventFocus;
data: gPointer) : GBoolean; cdecl;
var
Mess : TLMActivate;
@ -373,7 +373,7 @@ var
LCLObject: TControl;
{$ENDIF}
begin
EventTrace('activate', data);
EventTrace('activate after', data);
{$IFDEF VerboseFocus}
write('gtkfrmactivate Widget=',HexStr(Cardinal(Widget),8),' ',Event^.theIn);
LCLObject:=TControl(GetLCLObject(Widget));
@ -386,7 +386,7 @@ begin
Result := DeliverPostMessage(Data, Mess);
end;
function gtkfrmdeactivate( widget: PGtkWidget; Event : PgdkEventFocus;
function gtkfrmdeactivateAfter( widget: PGtkWidget; Event : PgdkEventFocus;
data: gPointer) : GBoolean; cdecl;
var
Mess : TLMActivate;
@ -394,7 +394,7 @@ var
LCLObject: TControl;
{$ENDIF}
begin
EventTrace('deactivate', data);
EventTrace('deactivate after', data);
{$IFDEF VerboseFocus}
write('gtkfrmdeactivate Widget=',HexStr(Cardinal(Widget),8),' ',Event^.theIn,
' GetFocus=',HexStr(Cardinal(Widget),8));
@ -2530,6 +2530,9 @@ end;
{ =============================================================================
$Log$
Revision 1.161 2002/12/28 12:42:38 mattias
focus fixes, reduced lpi size
Revision 1.160 2002/11/23 13:48:44 mattias
added Timer patch from Vincent Snijders

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

@ -63,9 +63,9 @@ function gtkDrawAfter(Widget: PGtkWidget; area: PGDKRectangle;
data: gPointer) : GBoolean; cdecl;
function gtkExposeEventAfter(Widget: PGtkWidget; Event : PGDKEventExpose;
Data: gPointer): GBoolean; cdecl;
function gtkfrmactivate( widget: PGtkWidget; Event : PgdkEventFocus;
function gtkfrmactivateAfter( widget: PGtkWidget; Event : PgdkEventFocus;
data: gPointer) : GBoolean; cdecl;
function gtkfrmdeactivate( widget: PGtkWidget; Event : PgdkEventFocus;
function gtkfrmdeactivateAfter( widget: PGtkWidget; Event : PgdkEventFocus;
data: gPointer) : GBoolean; cdecl;
function GTKMap(Widget: PGTKWidget; Data: gPointer): GBoolean; cdecl;
function GTKKeyUpDown(Widget: PGtkWidget; Event : pgdkeventkey;