paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-06 20:26:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: fixed xml reading writing of special chars

Browse Source 
git-svn-id: trunk@1817 -
This commit is contained in:
lazarus 2002-08-04 07:44:44 +00:00
parent 7f5aed6aae
commit 14ab179665
3 changed files with 17 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/codetools/laz_xmlread.pas
View File

@ -324,6 +324,7 @@ begin
begin
FlushStringBuffer;
ParseReference(attr);
OldBuf := buf;
end else
begin
Inc(buf);
@ -1173,6 +1174,9 @@ end.
{
$Log$
Revision 1.3 2002/08/04 07:44:44 lazarus
MG: fixed xml reading writing of special chars
Revision 1.2 2002/07/30 14:36:28 lazarus
MG: accelerated xmlread and xmlwrite

13
components/codetools/laz_xmlwrite.pas
View File

@ -202,9 +202,9 @@ const
AmpStr = '&';
begin
if c = '"' then
wrt(QuotStr, length(QuotStr))
wrtStr(QuotStr)
else if c = '&' then
wrt(AmpStr, length(AmpStr))
wrtStr(AmpStr)
else
wrt(c,1);
end;
@ -216,11 +216,11 @@ const
AmpStr = '&';
begin
if c = '<' then
wrt(ltStr, length(ltStr))
wrtStr(ltStr)
else if c = '>' then
wrt(gtStr, length(gtStr))
wrtStr(gtStr)
else if c = '&' then
wrt(AmpStr, length(AmpStr))
wrtStr(AmpStr)
else
wrt(c,1);
end;
@ -479,6 +479,9 @@ end.
{
$Log$
Revision 1.3 2002/08/04 07:44:44 lazarus
MG: fixed xml reading writing of special chars
Revision 1.2 2002/07/30 14:36:28 lazarus
MG: accelerated xmlread and xmlwrite

7
lcl/interfaces/gtk/gtkcallback.inc
View File

@ -619,8 +619,8 @@ begin
//' GDK_BUTTON_RELEASE_MASK=',HexStr(Cardinal(GDK_BUTTON_RELEASE_MASK),8),
//' Window=',HexStr(Cardinal(Widget^.Window),8)
//);
if GetFixedWidget(Widget)<>nil then
writeln('DDD2 ClientWindow=',HexStr(Cardinal(PGtkWidget(GetFixedWidget(Widget))^.Window),8));
//if GetFixedWidget(Widget)<>nil then
// writeln('DDD2 ClientWindow=',HexStr(Cardinal(PGtkWidget(GetFixedWidget(Widget))^.Window),8));
EventTrace('Mouse button Press', data);
Assert(False, Format('Trace:[gtkMouseBtnPress] ', []));
@ -2169,6 +2169,9 @@ end;
{ =============================================================================
$Log$
Revision 1.95 2002/08/04 07:44:44 lazarus
MG: fixed xml reading writing of special chars
Revision 1.94 2002/08/04 07:09:27 lazarus
MG: fixed client events