Home Explore Help
Sign In
pascal
/
freepascal.compiler
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

* Pointer to Brushpattern definition

luk 22 years ago
parent
63c5e8cfdf
commit
9d32a97d00
1 changed files with 1 additions and 0 deletions
Unified View Show Diff Stats
  1. 1 0
      fcl/image/fpcanvas.pp

+ 1 - 0
fcl/image/fpcanvas.pp
View File 

@@ -120,6 +120,7 @@ type
 
   TFPBrushStyle = (bsClear, bsSolid, bsDiagonal, bsFDiagonal, bsCross, bsDiagCross,
 
   TFPBrushStyle = (bsClear, bsSolid, bsDiagonal, bsFDiagonal, bsCross, bsDiagCross,
 
                    bsHorizontal, bsVertical, bsImage, bsPattern);
 
                    bsHorizontal, bsVertical, bsImage, bsPattern);
 
   TBrushPattern = array[0..PatternBitCount-1] of TPenPattern;
 
   TBrushPattern = array[0..PatternBitCount-1] of TPenPattern;
 
+  PBrushPattern = ^TBrushPattern;
 
 
 
   TFPCustomBrush = class (TFPCanvasHelper)
 
   TFPCustomBrush = class (TFPCanvasHelper)
 
   private
 
   private