paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 04:19:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed LM_APPENDTEXT buffer overrun

Browse Source 
git-svn-id: trunk@4438 -
This commit is contained in:
marc 2003-07-30 21:56:32 +00:00
parent 91bdf8a220
commit 9e407964c1
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/interfaces/win32/win32object.inc
View File

@ -369,6 +369,7 @@ Var
LVI: LV_ITEM;
PStr, PStr2: PChar;
R, R2: TRECT;
S: String;
//SelectionMode: DWORD; // currently only used for listboxes
TBB: TBBUTTON;
WindowStyle: Integer; //used by LM_SETTABPOSITION
@ -411,9 +412,12 @@ Begin
//SH: think of TBitmap.handle!!!!
LM_APPENDTEXT:
Begin
PStr:=PChar((Sender as TMemo).Text);
StrCat(PStr, Data);
SetLabel(Sender, PStr);
if (Data <> nil)
and (PChar(Data)^ <> #0)
then begin
S := (Sender as TMemo).Text + PChar(Data);
SetLabel(Sender, PChar(S));
end;
End;
LM_SCREENINIT:
Begin
@ -2725,6 +2729,9 @@ End;
{
$Log$
Revision 1.80 2003/07/30 21:56:32 marc
* Fixed LM_APPENDTEXT buffer overrun
Revision 1.79 2003/07/30 17:41:06 mattias
added LM_APENDTEXT from Martin Smat