canvas.textrect

← →
race1 © (2004-01-15 17:05) [0]

для чего-то ф-я TCanvas.TextRect рисует мне чёрный квдрат вместо текста :(

Canvas.Font.Assign(MyFont); Canvas.TextRect(TextRect, 0, 0, SomeText);

← →
Anatoly Podgoretsky © (2004-01-15 17:06) [1]

Черный фон и черный цвет символов.

← →
YuRock © (2004-01-15 17:07) [2]

А что такое MyFont? Как он получается?

← →
Семен Сорокин © (2004-01-15 17:07) [3]

а если так (предположение):
Canvas.Font.Assign(MyFont); Canvas.Brush.Color := clWhite; Canvas.TextRect(TextRect, 0, 0, SomeText);

← →
YuRock © (2004-01-15 17:10) [4]

Обычно правильнее
Canvas.Font.Assign(MyFont); Canvas.Brush.Style := bsClear; Canvas.TextRect(TextRect, 0, 0, SomeText);

← →
race1 © (2004-01-15 17:12) [5]

насчёт MyFont - получается он правильно, проверено Evaluate\Modify, цвет фона умеет выставляется в рантайме, ставил какой-угодно, но рисуется чёрный квадрат. проверял рамку - вполне правильная, left меньше right и top меньше height

кстати, textout рисует всё правильно

← →
Семен Сорокин © (2004-01-15 17:17) [6]

procedure TCanvas.TextRect(Rect: TRect; X, Y: Integer; const Text: string); var Options: Longint; begin Changing; RequiredState([csHandleValid, csFontValid, csBrushValid]); Options := ETO_CLIPPED or FTextFlags; if Brush.Style <> bsClear then Options := Options or ETO_OPAQUE; if ((FTextFlags and ETO_RTLREADING) <> 0) and (CanvasOrientation = coRightToLeft) then Inc(X, TextWidth(Text) + 1); Windows.ExtTextOut(FHandle, X, Y, Options, @Rect, PChar(Text), Length(Text), nil); Changed; end;

см. YuRock © (15.01.04 17:10) [4]

еще предположение:
Canvas.TextRect(TextRect, TextRect.Left, TextRect.Top, SomeText);

[8] ну конечно!!! как всегда, решение на самом видном месте :)

canvas.textrect Найти похожие ветки