[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