Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.01.29;
Скачать: CL | DM;

Вниз

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]


 
race1 ©   (2004-01-15 17:18) [7]

YuRock © (15.01.04 17:10) [4] неработает точно также (чёрный квадрат)...


 
Семен Сорокин ©   (2004-01-15 17:26) [8]

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


 
race1 ©   (2004-01-15 17:33) [9]

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



Страницы: 1 вся ветка

Текущий архив: 2004.01.29;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.016 c
4-93737
KosilkA
2003-11-23 18:58
2004.01.29
ListView SubitemImages - как узнать ?


3-93361
Vi0let
2003-12-30 14:15
2004.01.29
Как прокручивать TGrid колесом мыши?


7-93720
ponyol
2003-11-09 07:39
2004.01.29
Delphi и сканер.


1-93551
Rradion
2004-01-15 18:51
2004.01.29
Алгоритм перевода из УНАРНОЙ в ДВОИЧНУЮ систему?


7-93703
Nix
2003-11-12 23:12
2004.01.29
Ring 0. Что это