From 586eb52593cf59cd314002e74b67fe0363ffba8a Mon Sep 17 00:00:00 2001
From: Ansgar Becker <anse@heidisql.com>
Date: Tue, 16 Mar 2021 18:47:22 +0100
Subject: [PATCH] Issue #136: remove now unused TLineNormalizingMemo code

---
 source/extra_controls.pas | 31 -------------------------------
 1 file changed, 31 deletions(-)

diff --git a/source/extra_controls.pas b/source/extra_controls.pas
index d0cd8dc3..b6e2e832 100644
--- a/source/extra_controls.pas
+++ b/source/extra_controls.pas
@@ -23,12 +23,6 @@ type
       property HasSizeGrip: Boolean read GetHasSizeGrip write SetHasSizeGrip default False;
       class procedure FixControls(ParentComp: TComponent);
   end;
-  // Memo replacement which accepts any line break format
-  TLineNormalizingMemo = class(TMemo)
-    private
-      procedure WMSetText(var msg: TWMSettext); message WM_SETTEXT;
-      procedure WMPaste(var msg: TWMPaste); message WM_PASTE;
-  end;
 
 
 implementation
@@ -204,29 +198,4 @@ end;
 
 
 
-
-{ TLineNormalizingMemo }
-
-procedure TLineNormalizingMemo.WMSetText(var msg: TWMSettext);
-var
-  s: string;
-begin
-  s := msg.Text;
-  s := AdjustLineBreaks(s);
-  msg.Text := PChar(s);
-  inherited;
-end;
-
-
-procedure TLineNormalizingMemo.WMPaste(var msg: TWMPaste);
-var
-  s: string;
-begin
-  if Clipboard.HasFormat(cf_Text) then begin
-    s := Clipboard.AsText;
-    s := AdjustLineBreaks(s);
-    SelText := s;
-  end;
-end;
-
 end.