[SOLVED] Code clean up at function LCLSendActivateMsg
lazarus / 7-LCL

----------------------------------------------------------------------
lagprogramming · 2023-05-22 08:54

lcl/lclmessageglue.pas has function LCLSendActivateMsg(const Target:
TControl; Active: Word; Minimized: Boolean; ActiveWindow: HWND = 0):
PtrInt;
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i function
LCLSendActivateMsg(const Target: TControl; Active: Word; Minimized:
Boolean; ActiveWindow: HWND = 0): PtrInt;var  Mess: TLMActivate;begin 
Result := 0;  FillChar(Mess, SizeOf(Mess), 0);  Mess.Msg :=
LM_ACTIVATE;  Mess.Active := Active;  Mess.Minimized := Minimized; 
Mess.ActiveWindow := ActiveWindow;  Result := DeliverMessage(Target,
Mess);end;
The following patch removes the useless initial "Result := 0;" line.
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i diff --git
a/lcl/lclmessageglue.pas b/lcl/lclmessageglue.pasindex
d898741e6e..efabad983f 100644--- a/lcl/lclmessageglue.pas+++
b/lcl/lclmessageglue.pas@@ -163,7 +163,6 @@ function
LCLSendActivateMsg(const Target: TControl; Active: Word; Minimized:
Boo var   Mess: TLMActivate; begin-  Result := 0;   FillChar(Mess,
SizeOf(Mess), 0);   Mess.Msg := LM_ACTIVATE;   Mess.Active := Active;

----------------------------------------------------------------------
Bart · 2023-05-22 20:21

Committed.
Thanks for reporting.

Bart