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

MG: fixed frmactivate

Browse Source 
git-svn-id: trunk@2180 -
This commit is contained in:
lazarus 2002-08-17 23:41:05 +00:00
parent bf02d7c164
commit b186454475
1 changed files with 57 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -222,7 +222,6 @@ begin
Result := DeliverMessage(Data, Mess) = 0; Result := DeliverMessage(Data, Mess) = 0;
end; end;
function gtkactivateCB(widget: PGtkWidget; data: gPointer) : GBoolean; cdecl; function gtkactivateCB(widget: PGtkWidget; data: gPointer) : GBoolean; cdecl;
var var
Mess : TLMessage; Mess : TLMessage;
@ -363,22 +362,45 @@ begin
Result := DeliverPostMessage(Data, MSG); Result := DeliverPostMessage(Data, MSG);
end; end;
function gtkfrmactivate( widget: PGtkWidget; Event : TgdkEventFocus; function gtkfrmactivate( widget: PGtkWidget; Event : PgdkEventFocus;
data: gPointer) : GBoolean; cdecl; data: gPointer) : GBoolean; cdecl;
var var
Mess : TLMActivate; Mess : TLMActivate;
{$IFDEF VerboseFocus}
LCLObject: TControl;
{$ENDIF}
begin begin
EventTrace('activate', data); EventTrace('activate', data);
{$IFDEF VerboseFocus}
write('gtkfrmactivate Widget=',HexStr(Cardinal(Widget),8),' ',Event^.theIn);
LCLObject:=TControl(GetLCLObject(Widget));
if LCLObject<>nil then
writeln(' LCLObject=',LCLObject.Name,':',LCLObject.ClassName)
else
writeln(' LCLObject=nil');
{$ENDIF}
Mess.Msg := LM_ACTIVATE; Mess.Msg := LM_ACTIVATE;
Result := DeliverPostMessage(Data, Mess); Result := DeliverPostMessage(Data, Mess);
end; end;
function gtkfrmdeactivate( widget: PGtkWidget; Event : TgdkEventFocus; function gtkfrmdeactivate( widget: PGtkWidget; Event : PgdkEventFocus;
data: gPointer) : GBoolean; cdecl; data: gPointer) : GBoolean; cdecl;
var var
Mess : TLMActivate; Mess : TLMActivate;
{$IFDEF VerboseFocus}
LCLObject: TControl;
{$ENDIF}
begin begin
EventTrace('deactivate', data); EventTrace('deactivate', data);
{$IFDEF VerboseFocus}
write('gtkfrmdeactivate Widget=',HexStr(Cardinal(Widget),8),' ',Event^.theIn,
' GetFocus=',HexStr(Cardinal(Widget),8));
LCLObject:=TControl(GetLCLObject(Widget));
if LCLObject<>nil then
writeln(' LCLObject=',LCLObject.Name,':',LCLObject.ClassName)
else
writeln(' LCLObject=nil');
{$ENDIF}
Mess.Msg := LM_DEACTIVATE; Mess.Msg := LM_DEACTIVATE;
Result := DeliverPostMessage(Data, Mess); Result := DeliverPostMessage(Data, Mess);
end; end;
@ -400,7 +422,6 @@ var
begin begin
Result:=true; Result:=true;
{$DEFINE KeyBugFix}
//writeln('[GTKKeyUpDown] ',TControl(Data).Name,':',TControl(Data).ClassName,' ',Event^.theType); //writeln('[GTKKeyUpDown] ',TControl(Data).Name,':',TControl(Data).ClassName,' ',Event^.theType);
FillChar(Msg,SizeOf(Msg),0); FillChar(Msg,SizeOf(Msg),0);
@ -435,12 +456,7 @@ begin
// send the message directly to the LCL // send the message directly to the LCL
Msg.Result:=0; Msg.Result:=0;
Code := Msg.CharCode; Code := Msg.CharCode;
{$IFDEF KeyBugFix}
Result := DeliverMessage(Data, Msg)=0; Result := DeliverMessage(Data, Msg)=0;
{$ELSE}
TObject(Data).Dispatch(Msg);
Result := (Msg.Result=0);
{$ENDIF}
If Msg.CharCode <> Code then begin If Msg.CharCode <> Code then begin
// key was handled by LCL // key was handled by LCL
@ -482,12 +498,7 @@ begin
Msg.KeyData := Msg.KeyData or (Flags shl 16) or $0001 {TODO: repeatcount}; Msg.KeyData := Msg.KeyData or (Flags shl 16) or $0001 {TODO: repeatcount};
Code := Msg.CharCode; Code := Msg.CharCode;
// send the message directly to the LCL // send the message directly to the LCL
{$IFDEF KeyBugFix}
Result := DeliverMessage(Data, Msg)=0; Result := DeliverMessage(Data, Msg)=0;
{$ELSE}
TObject(Data).Dispatch(Msg);
Result := (Msg.Result=0);
{$ENDIF}
If Msg.CharCode <> Code then begin If Msg.CharCode <> Code then begin
// key was handled by LCL // key was handled by LCL
@ -519,12 +530,7 @@ begin
Msg.CharCode := KeyCode; Msg.CharCode := KeyCode;
Msg.Result:=0; Msg.Result:=0;
// send the message directly to the LCL // send the message directly to the LCL
{$IFDEF KeyBugFix}
Result := DeliverMessage(Data, Msg)=0; Result := DeliverMessage(Data, Msg)=0;
{$ELSE}
TObject(Data).Dispatch(Msg);
Result := (Msg.Result=0);
{$ENDIF}
If Msg.CharCode <> KeyCode then begin If Msg.CharCode <> KeyCode then begin
// key was handled by lcl // key was handled by lcl
gtk_signal_emit_stop_by_name (GTK_OBJECT (Widget), 'key_press_event'); gtk_signal_emit_stop_by_name (GTK_OBJECT (Widget), 'key_press_event');
@ -556,24 +562,49 @@ begin
//writeln('AAA1 [GTKKeyUpDown] ',TControl(Data).Name,':',TControl(Data).ClassName,' Result=',Result); //writeln('AAA1 [GTKKeyUpDown] ',TControl(Data).Name,':',TControl(Data).ClassName,' Result=',Result);
end; end;
function GTKFocusCB( widget: PGtkWidget; event:PGdkEventFocus;
function GTKFocusCB( widget: PGtkWidget; event:PGdkEventFocus; data: gPointer) : GBoolean; cdecl; data: gPointer) : GBoolean; cdecl;
var var
Mess : TLMessage; Mess : TLMessage;
{$IFDEF VerboseFocus}
LCLObject: TControl;
{$ENDIF}
begin begin
EventTrace('focus', data); EventTrace('focus', data);
{$IFDEF VerboseFocus}
write('GTKFocusCB Widget=',HexStr(Cardinal(Widget),8),' ',Event^.theIn,
' GetFocus=',HexStr(Cardinal(GetFocus),8));
LCLObject:=TControl(GetLCLObject(Widget));
if LCLObject<>nil then
writeln(' LCLObject=',LCLObject.Name,':',LCLObject.ClassName)
else
writeln(' LCLObject=nil');
{$ENDIF}
//TODO: fill in old focus //TODO: fill in old focus
Mess.msg := LM_SETFOCUS; Mess.msg := LM_SETFOCUS;
Assert(False, Format('Trace:TODO: [gtkfocusCB] %s finish', [TObject(Data).ClassName])); Assert(False, Format('Trace:TODO: [gtkfocusCB] %s finish', [TObject(Data).ClassName]));
Result := DeliverMessage(Data, Mess) = 0; Result := DeliverMessage(Data, Mess) = 0;
end; end;
function GTKKillFocusCB(widget: PGtkWidget; event:PGdkEventFocus; data: gPointer) : GBoolean; cdecl; function GTKKillFocusCB(widget: PGtkWidget; event:PGdkEventFocus;
data: gPointer) : GBoolean; cdecl;
var var
Mess : TLMessage; Mess : TLMessage;
{$IFDEF VerboseFocus}
LCLObject: TControl;
{$ENDIF}
begin begin
EventTrace('killfocus', data); EventTrace('killfocus', data);
{$IFDEF VerboseFocus}
write('GTKKillFocusCB Widget=',HexStr(Cardinal(Widget),8),' ',Event^.theIn,
' GetFocus=',HexStr(Cardinal(GetFocus),8));
LCLObject:=TControl(GetLCLObject(Widget));
if LCLObject<>nil then
writeln(' LCLObject=',LCLObject.Name,':',LCLObject.ClassName)
else
writeln(' LCLObject=nil');
{$ENDIF}
Mess.msg := LM_KILLFOCUS; Mess.msg := LM_KILLFOCUS;
//TODO: fill in new focus //TODO: fill in new focus
@ -2505,6 +2536,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.153 2002/10/21 22:12:47 lazarus
MG: fixed frmactivate
Revision 1.152 2002/10/20 21:49:09 lazarus Revision 1.152 2002/10/20 21:49:09 lazarus
MG: fixes for fpc1.1 MG: fixes for fpc1.1