paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-29 17:40:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

* SetRGBColor with cached pens fixed

Browse Source
This commit is contained in:
florian 2002-01-06 15:23:42 +00:00
parent d24762aeba
commit f99e55ebde
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/win32/graph.pp
View File

@ -1133,6 +1133,11 @@ procedure SetRGBPaletteWin32GUI(colorNum,redValue,greenvalue,
pal[colorNum].red:=redValue;
pal[colorNum].green:=greenValue;
pal[colorNum].blue:=blueValue;
if (colorNum>=0) and (colorNum<=high(pens)) and (pens[colorNum]<>0) then
begin
DeleteObject(pens[colorNum]);
pens[colorNum]:=0;
end;
end;
procedure GetRGBPaletteWin32GUI(colorNum : integer;
@ -2222,7 +2227,10 @@ begin
end.
{
$Log$
Revision 1.7 2001-06-06 17:20:22 jonas
Revision 1.8 2002-01-06 15:23:42 florian
* SetRGBColor with cached pens fixed
Revision 1.7 2001/06/06 17:20:22 jonas
* fixed wrong typed constant procvars in preparation of my fix which will
disallow them in FPC mode (plus some other unmerged changes since
LAST_MERGE)