You've already forked lazarus-ccr
Delphi Compatibility
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1802 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
@ -143,8 +143,6 @@ end;
|
|||||||
|
|
||||||
procedure TwstListener.SetOnNotifyMessage(const AValue : TListnerNotifyMessage);
|
procedure TwstListener.SetOnNotifyMessage(const AValue : TListnerNotifyMessage);
|
||||||
begin
|
begin
|
||||||
if (FOnNotifyMessage = AValue) then
|
|
||||||
exit;
|
|
||||||
FOnNotifyMessage := AValue;
|
FOnNotifyMessage := AValue;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
Reference in New Issue
Block a user