Код: Выделить всё
FBGRA.TextRect(TextR, TextR.Left, TextR.Top, Caption, VParam.TextStyle, VParam.BGRAColorText);где
Код: Выделить всё
FBGRAColorText : TBGRAPixel;
...
property BGRAColorText: TBGRAPixel read FBGRAColorText write FBGRAColorText;
Работает нормально везде, кроме последнего проекта.
Там это же, проcто тупо скопипастенное, с теми же (полностью) uses, выдаёт ошибку:
uicons.pas(119,123) Error: Incompatible type for arg no. 6: Got "TBGRAPixel", expected "IBGRAScanner"
bgradefaultbitmap.pas(4079,30) Hint: Found declaration: TextRect(TRect; LongInt; LongInt; AnsiString; TTextStyle; IBGRAScanner);
bgradefaultbitmap.pas(4072,30) Hint: Found declaration: TextRect(TRect; LongInt; LongInt; AnsiString; TTextStyle; TBGRAPixel);
в unit BGRADefaultBitmap:
Код: Выделить всё
{ Draw the UTF8 encoded string at the coordinate (x,y), clipped inside the rectangle ARect.
Additional style information is provided by the style parameter.
The color c or texture is used to fill the text. No rotation is applied. }
procedure TextRect(ARect: TRect; x, y: integer; sUTF8: string; style: TTextStyle; c: TBGRAPixel); overload; override;
procedure TextRect(ARect: TRect; x, y: integer; sUTF8: string; style: TTextStyle; texture: IBGRAScanner); overload; override;
Куда копать?
) TRectF.