paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-23 18:45:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

started typeinfo for double extended

Browse Source 
git-svn-id: trunk@2378 -
This commit is contained in:
mattias 2002-08-17 23:41:19 +00:00
parent e1ea39a662
commit 97244c2c91
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/interfaces/gtk/gtkproc.pp
View File

@ -231,6 +231,9 @@ Procedure AllocGDIColor(DC : hDC; var GDIColor : TGDIColor);
procedure SetGDIColorRef(var GDIColor : TGDIColor; NewColorRef: TColorRef);
Procedure EnsureGCColor(DC: hDC; ColorType: TDevContextsColorType;
IsSolidBrush: Boolean; AsBackground: Boolean);
function CompareGDIColor(const Color1, Color2: TGDIColor): boolean;
function CompareGDIFill(const Fill1, Fill2: TGdkFill): boolean;
function CompareGDIBrushes(Brush1, Brush2: PGdiObject): boolean;
function GetIndexAsKey(p: pointer): pointer;
function GetRGBAsKey(p: pointer): pointer;