[lazarus] Patch for Win32 interface

Martin Smat martin.smat at tiscali.cz
Wed Jul 30 12:06:03 EDT 2003


Hi,
attached patch adds LM_APPENDTEXT message used by TMemo. This message is 
called when a new line is added into a memobox.

But I have a problem when the memo is cleared (memo.text:=''). Allways 
the firs line is not removed.

Martin Smat.


diff -c old\win32object.inc new\win32object.inc
*** old\win32object.inc	Tue Jul 29 18:14:54 2003
--- new\win32object.inc	Wed Jul 30 18:24:46 2003
***************
*** 409,414 ****
--- 409,420 ----
      LM_ATTACHMENU:
        AttachMenu(Sender);
          //SH: think of TBitmap.handle!!!!
+     LM_APPENDTEXT:
+     Begin
+       PStr:=PChar((Sender as TMemo).Text);
+       StrCat(PStr, Data);
+       SetLabel(Sender, PStr);
+     End;
      LM_SCREENINIT:
      Begin
        if Sender=nil then Handle := GetDesktopWindow





More information about the Lazarus mailing list