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

fixed range check type conversion

Browse Source 
git-svn-id: trunk@4957 -
This commit is contained in:
mattias 2003-12-26 09:55:08 +00:00
parent dc9602f510
commit 1c536d8a03
2 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/synedit.pp
View File

@ -2274,7 +2274,7 @@ begin
// and fill only the area after the last visible line.
dc := Canvas.Handle;
{$IFDEF SYN_LAZARUS}
LCLIntf.SetBkColor(dc,Canvas.Brush.Color);
LCLIntf.SetBkColor(dc,ColorRef(Canvas.Brush.Color));
{$ENDIF}
if fGutter.ShowLineNumbers then begin
fTextDrawer.BeginDrawing(dc);

17
lcl/graphics.pp
View File

@ -256,7 +256,11 @@ const
cmWhiteness = WHITENESS;
const // New TFont instances are initialized with the values in this structure:
const
// New TFont instances are initialized with the values in this structure.
// About font default values: The default font is chosen by the interfaces
// depending on the context. For example, there can be a different default
// font for a button and a groupbox.
DefFontData: TFontData = (
Handle: 0;
Height: 0;
@ -271,10 +275,10 @@ type
TCanvas = class;
// standard LCL graphic formats
TBitmap = class;
TPixmap = class;
TIcon = class;
TPortableNetworkGraphic = class;
TBitmap = class; // bmp
TPixmap = class; // xpm
TIcon = class; // ico
TPortableNetworkGraphic = class; // png
{ TGraphicsObject }
@ -1257,6 +1261,9 @@ end.
{ =============================================================================
$Log$
Revision 1.102 2003/12/26 09:55:08 mattias
fixed range check type conversion
Revision 1.101 2003/12/25 14:17:07 mattias
fixed many range check warnings