текст на TBitmap невыводится . . .

← →
CiD (2003-06-26 08:27) [0]

точнее выводится но одной сплошной черной полосой, если вывод делать на канву image.canvas то все нормально, на TBitmap.canvas - все черной полосой
фрагмент проги:
BMP:= TBitmap.Create;
BMP.Width:=...
BMP.Height:=...
BMP.PixelFormat:=pf8bit;
....
BMP.Canvas.TextOut(0, 20, Str);
imgBMP.Canvas.Draw( 0, 0, BMP);
imgBMP.Canvas.TextOut(0, 10, Str);
BMP.Free;
так вод первый вывод дает черную полосу, установка размеров фонта названия, цвета - ничегго недают

← →
Fenik © (2003-06-26 08:48) [1]

Битмап изначально чёрный. И цвет текста чёрный.

Pen.Color := clWhite;

← →
Fenik © (2003-06-26 08:54) [2]

> Fenik © (26.06.03 08:48)

Иди проспись, Колян.

Bitmap.Canvas.Brush.Color := clWhite;
Bitmap.Canvas.Pen.Color := clWhite;

← →
Fenik © (2003-06-26 08:54) [3]

> Fenik © (26.06.03 08:48)

Иди проспись, Колян.

Bitmap.Canvas.Brush.Color := clWhite;
Bitmap.Canvas.Pen.Color := clBlack;

← →
Думкин © (2003-06-26 09:15) [4]

Bitmap.Canvas.Brush.Color := clWhite;
Bitmap.Canvas.FillRect(.....);
Bitmap.Canvas.Font.Color := clGreen;
Bitmap.Canvas.TextOut(2,2,"dsfdsfsd");

← →
Fenik © (2003-06-26 11:18) [5]

Ну я точно не выспался :))

Думкин © (26.06.03 09:15) - это я и имел в виду :))

← →
Mihey © (2003-06-26 11:18) [6]

2 Fenik:

>так вод первый вывод дает черную полосу, установка размеров фонта названия, цвета - ничегго недают

Гм...

Ну да, в принципе, начальный цвет не предопределён и нужно залить это дело каким-нить цветом.

← →
CiD (2003-06-27 08:00) [8]

thanks to ALL !

it`s work . . .

>it`s work . . .

it work s :)

текст на TBitmap невыводится . . . Найти похожие ветки