paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 16:49:07 +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 begin
FlushStringBuffer; FlushStringBuffer;
ParseReference(attr); ParseReference(attr);
OldBuf := buf;
end else end else
begin begin
Inc(buf); Inc(buf);
@ -1173,6 +1174,9 @@ end.
{ {
$Log$ $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 Revision 1.2 2002/07/30 14:36:28 lazarus
MG: accelerated xmlread and xmlwrite MG: accelerated xmlread and xmlwrite

13
components/codetools/laz_xmlwrite.pas
View File

@ -202,9 +202,9 @@ const
AmpStr = '&'; AmpStr = '&';
begin begin
if c = '"' then if c = '"' then
wrt(QuotStr, length(QuotStr)) wrtStr(QuotStr)
else if c = '&' then else if c = '&' then
wrt(AmpStr, length(AmpStr)) wrtStr(AmpStr)
else else
wrt(c,1); wrt(c,1);
end; end;
@ -216,11 +216,11 @@ const
AmpStr = '&'; AmpStr = '&';
begin begin
if c = '<' then if c = '<' then
wrt(ltStr, length(ltStr)) wrtStr(ltStr)
else if c = '>' then else if c = '>' then
wrt(gtStr, length(gtStr)) wrtStr(gtStr)
else if c = '&' then else if c = '&' then
wrt(AmpStr, length(AmpStr)) wrtStr(AmpStr)
else else
wrt(c,1); wrt(c,1);
end; end;
@ -479,6 +479,9 @@ end.
{ {
$Log$ $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 Revision 1.2 2002/07/30 14:36:28 lazarus
MG: accelerated xmlread and xmlwrite 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), //' GDK_BUTTON_RELEASE_MASK=',HexStr(Cardinal(GDK_BUTTON_RELEASE_MASK),8),
//' Window=',HexStr(Cardinal(Widget^.Window),8) //' Window=',HexStr(Cardinal(Widget^.Window),8)
//); //);
if GetFixedWidget(Widget)<>nil then //if GetFixedWidget(Widget)<>nil then
writeln('DDD2 ClientWindow=',HexStr(Cardinal(PGtkWidget(GetFixedWidget(Widget))^.Window),8)); // writeln('DDD2 ClientWindow=',HexStr(Cardinal(PGtkWidget(GetFixedWidget(Widget))^.Window),8));
EventTrace('Mouse button Press', data); EventTrace('Mouse button Press', data);
Assert(False, Format('Trace:[gtkMouseBtnPress] ', [])); Assert(False, Format('Trace:[gtkMouseBtnPress] ', []));
@ -2169,6 +2169,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $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 Revision 1.94 2002/08/04 07:09:27 lazarus
MG: fixed client events MG: fixed client events