Ver código fonte

Update bctools.pas

Phoenix 6 anos atrás
pai
commit
6ff5c37396
1 arquivos alterados com 2 adições e 2 exclusões
  1. 2 2
      bctools.pas

+ 2 - 2
bctools.pas

@@ -45,7 +45,7 @@ uses
   BGRABitmap, BGRABitmapTypes, bctypes, Controls, BGRAGradientScanner;
   BGRABitmap, BGRABitmapTypes, bctypes, Controls, BGRAGradientScanner;
 
 
 // This method prepare BGRABitmap for rendering BCFont type
 // This method prepare BGRABitmap for rendering BCFont type
-procedure AssignBCFont(AFont: TBCFont; out ATargetBGRA: TBGRABitmap);
+procedure AssignBCFont(AFont: TBCFont; var ATargetBGRA: TBGRABitmap);
 // Calculate text height and width (doesn't include wordwrap - just single line)
 // Calculate text height and width (doesn't include wordwrap - just single line)
 procedure CalculateTextSize(const AText: String; AFont: TBCFont;
 procedure CalculateTextSize(const AText: String; AFont: TBCFont;
   out ANewWidth, ANewHeight: integer);
   out ANewWidth, ANewHeight: integer);
@@ -249,7 +249,7 @@ begin
     Result := tlTop;
     Result := tlTop;
 end;
 end;
 
 
-procedure AssignBCFont(AFont: TBCFont; out ATargetBGRA: TBGRABitmap);
+procedure AssignBCFont(AFont: TBCFont; var ATargetBGRA: TBGRABitmap);
 var c: TBitmap;
 var c: TBitmap;
 begin
 begin
   // Canvas is need for calculate font height
   // Canvas is need for calculate font height