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

MG: fixes for 1.1

Browse Source 
git-svn-id: trunk@1195 -
This commit is contained in:
lazarus 2002-02-09 01:48:04 +00:00
parent 8cfcc95806
commit ba8ca608cd
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/interfaces/gtk/gtkproc.inc
View File

@ -389,7 +389,7 @@ begin
if (GDIColor.Colormap <> nil) then
gdk_colormap_free_colors(GDIColor.Colormap,@GDIColor.Color, 1);
GDIColor.Color.Pixel := -1;
//GDIColor.Color.Pixel := -1;
Exclude(GDIColor.ColorFlags,cfColorAllocated);
end;
end;
@ -3737,8 +3737,8 @@ end;
Procedure FillScreenFonts(ScreenFonts : TStrings);
var
theFonts : PPChar;
Tmp,Tmp2 : AnsiString;
I, N,L : Integer;
Tmp: AnsiString;
I, N: Integer;
begin
ScreenFonts.Clear;
{$IfNdef Win32}
@ -3763,6 +3763,9 @@ end;
{ =============================================================================
$Log$
Revision 1.133 2002/10/20 21:54:04 lazarus
MG: fixes for 1.1
Revision 1.132 2002/10/20 21:49:11 lazarus
MG: fixes for fpc1.1