paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 21:20:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: fixed parser for external vars

Browse Source 
git-svn-id: trunk@1785 -
This commit is contained in:
lazarus 2002-07-09 17:18:23 +00:00
parent a9d326e24a
commit de61fbc396
2 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/pascalparsertool.pas
View File

@ -2064,7 +2064,7 @@ begin
if UpAtomIs('EXTERNAL') then begin
// read external name
ReadNextAtom;
if AtomIsStringConstant then
if (not UpAtomIs('NAME')) and AtomIsIdentifier(false) then
ReadConstant(true,false,[]);
end else
ReadNextAtom;

15
lcl/interfaces/gtk/gtkwinapi.inc
View File

@ -4081,18 +4081,20 @@ begin
then begin
with PDeviceContext(DC)^, CurrentBackColor do
begin
Result := ((Red and HI_MASK) shr 8) or (Green and HI_MASK) or ((Blue and HI_MASK) shl 8);
if Result <> Color
then begin
Result := ((Red and HI_MASK) shr 8)
or (Green and HI_MASK)
or ((Blue and HI_MASK) shl 8);
if Result <> Color then
begin
gdk_colormap_free_colors(gdk_colormap_get_system, @CurrentBackColor, 1);
Red := ((Color shl 8) and HI_MASK) or ((Color ) and LO_MASK);
Green := ((Color ) and HI_MASK) or ((Color shr 8 ) and LO_MASK);
Blue := ((Color shr 8) and HI_MASK) or ((Color shr 16) and LO_MASK);
gdk_colormap_alloc_color(gdk_colormap_get_system, @CurrentBackColor, False, True);
gdk_colormap_alloc_color(gdk_colormap_get_system, @CurrentBackColor,
False, True);
end;
end;
@ -4810,6 +4812,9 @@ end;
{ =============================================================================
$Log$
Revision 1.81 2002/07/09 17:18:23 lazarus
MG: fixed parser for external vars
Revision 1.80 2002/06/21 15:41:56 lazarus
MG: moved RectVisible, ExcludeClipRect and IntersectClipRect to interface dependent functions