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

started OnMouseEnter and OnMouseLeave

Browse Source 
git-svn-id: trunk@2270 -
This commit is contained in:
mattias 2002-08-17 23:41:11 +00:00
parent 1ccb457642
commit 971752d7be
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1693,7 +1693,7 @@ begin
TCommonDialog(data).Close; TCommonDialog(data).Close;
end; end;
function gtkpressedCB( widget: PGtkWidget; data: gPointer) : GBoolean; cdecl; function gtkPressedCB( widget: PGtkWidget; data: gPointer) : GBoolean; cdecl;
var var
Mess : TLMessage; Mess : TLMessage;
begin begin
@ -1703,7 +1703,7 @@ begin
Result := DeliverMessage(Data, Mess) = 0; Result := DeliverMessage(Data, Mess) = 0;
end; end;
function gtkenterCB(widget: PGtkWidget; data: gPointer) : GBoolean; cdecl; function gtkEnterCB(widget: PGtkWidget; data: gPointer) : GBoolean; cdecl;
var var
Mess : TLMessage; Mess : TLMessage;
begin begin
@ -1715,11 +1715,12 @@ begin
gtk_signal_emit_stop_by_name(PGTKObject(Widget),'enter'); gtk_signal_emit_stop_by_name(PGTKObject(Widget),'enter');
end; end;
Mess.msg := LM_ENTER; Mess.msg := CM_MOUSEENTER;
writeln('gtkEnterCB');
Result := DeliverMessage(Data, Mess) = 0; Result := DeliverMessage(Data, Mess) = 0;
end; end;
function gtkleaveCB(widget: PGtkWidget; data: gPointer) : GBoolean; cdecl; function gtkLeaveCB(widget: PGtkWidget; data: gPointer) : GBoolean; cdecl;
var var
Mess : TLMessage; Mess : TLMessage;
begin begin
@ -1731,11 +1732,12 @@ begin
gtk_signal_emit_stop_by_name(PGTKObject(Widget),'leave'); gtk_signal_emit_stop_by_name(PGTKObject(Widget),'leave');
end; end;
Mess.msg := LM_LEAVE; Mess.msg := CM_MOUSELEAVE;
writeln('gtkLeaveCB');
Result := DeliverMessage(Data, Mess) = 0; Result := DeliverMessage(Data, Mess) = 0;
end; end;
function gtkmovecursorCB(widget: PGtkWidget; data: gPointer) : GBoolean; cdecl; function gtkMoveCursorCB(widget: PGtkWidget; data: gPointer) : GBoolean; cdecl;
var var
Mess : TLMessage; Mess : TLMessage;
begin begin
@ -2545,6 +2547,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.159 2002/11/21 18:49:53 mattias
started OnMouseEnter and OnMouseLeave
Revision 1.158 2002/11/16 11:22:57 mbukovjan Revision 1.158 2002/11/16 11:22:57 mbukovjan
Fixes to MaxLength. TCustomMemo now has MaxLength, too. Fixes to MaxLength. TCustomMemo now has MaxLength, too.