From 1c536d8a03620e4faba1713f1f24e9e6bac33c9b Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Fri, 26 Dec 2003 09:55:08 +0000
Subject: [PATCH] fixed range check type conversion

git-svn-id: trunk@4957 -
---
 components/synedit/synedit.pp |  2 +-
 lcl/graphics.pp               | 17 ++++++++++++-----
 2 files changed, 13 insertions(+), 6 deletions(-)

diff --git a/components/synedit/synedit.pp b/components/synedit/synedit.pp
index 155a789098..b9f8e2d457 100644
--- a/components/synedit/synedit.pp
+++ b/components/synedit/synedit.pp
@@ -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);
diff --git a/lcl/graphics.pp b/lcl/graphics.pp
index f9f51dc507..1e244328ad 100644
--- a/lcl/graphics.pp
+++ b/lcl/graphics.pp
@@ -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