paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-15 11:39:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: added patch from Andrew

Browse Source 
git-svn-id: trunk@2725 -
This commit is contained in:
lazarus 2002-08-18 04:56:59 +00:00
parent 825da03fde
commit a5465de11c
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/pen.inc
View File

@ -171,7 +171,7 @@ begin
begin
lopnStyle := PEN_STYLES[FPenData.Style];
lopnWidth.X := FPenData.Width;
lopnColor := ColorToRGB(FPenData.Color);
lopnColor := FPenData.Color;
end;
FPenData.Handle := CreatePenIndirect(LogPen);
end;
@ -199,6 +199,9 @@ end;
{ =============================================================================
$Log$
Revision 1.3 2002/09/18 17:07:25 lazarus
MG: added patch from Andrew
Revision 1.2 2002/05/10 06:05:55 lazarus
MG: changed license to LGPL